C.== D.<>
E.Or
4.下列选项中属于选项按钮OptionButton控件的属性有____。
A、B、C、D
A.BackColorB.Caption
C.PictureD.Value
E.Text
5.下列表达式中能从当前时间中取出小时数的表达式有____。
CD
A.Hour（Date）B.Hour
C.Hour（Time） D.Hour（Now）
E.Hour（Year）
三、判断
1.VB是一种面向过程的程序设计语言。
×
2.属性是用来描述和反映对象特征的参数，对象的属性既可以在属性窗口中设置，又可以在程序代码中设置。
∨
3.用于获得字符串长度的函数是StrLen（）。
×
4.只能用来显示字符信息而不能进行编辑的控件是文本框。
×
5.VB中能加载对象的方法是Visible。
×
6.VB的Double类型数据，可以精确表示其数值范围内的所有实数。
∨
7.设置框架的Enabled属性为False，框架内的所有对象均被禁用。
∨
8.注释语句可以使用单引号或Rem，被注释的语句也可被执行。
×
9.可以利用Shape控件的Shape属性画圆角正方形。
∨
10.For...Next循环里可以再放另一个循环是允许的。
∨
四、填空
1.在窗体中添加一个定时器控件Timer1，并将其间隔设成10。
程序启动后将窗体背景色设成蓝色；然后在Timer事件中，以窗体的中心为圆心用不同颜色、不同半径（半径不超过窗体高度的一半）画圆。
窗体单击后，清除所画的图形。
请将程序补充完整。
（注意：
答案必须用西文半角字母填写，要区分大小写字母，且不能出现空格和多余字符！
）
PrivateSubForm_Load（）
Me._____BackColor______=vbBlue
EndSub
PrivateSubForm_Click（）
Me.Cls
EndSub
PrivateSubTimer1_Timer（）
Me.ForeColor=256^3*Rnd
r=Rnd*Me.ScaleHeight/2*Rnd
Me.Circle（Me.ScaleWidth/2,Me.ScaleHeight/2）,r
EndSub
2.PrivateSubCommand1_Click（）
Dima,bAsString
DimiAsInteger
a="abcdefghijklmn"
Fori=1ToLen（a）Step4
b=Mid（a,i,1）&b
Nexti
Printb
EndSub
执行上面程序段后，所输出的内容为__miea__。
（注意：
答案必须用西文半角字母填写，要区分大小写字母，且不能出现空格和多余字符！
）
3.窗体中有一组文件系统控件，分别是驱动器列表框Drive1目录列表框Dir1和文件列表框File1，另外还有一个文本框Text1。
要求当选择某一目录时，能显示出该目录中的文件个数（也就是相应文件列表框中的文件的个数）。
请将程序补充完整。
（注意：
答案必须用西文半角字母填写，要区分大小写字母，且不能出现空格和多余字符！
）
PrivateSubDir1_Change（）
File1.Path=Dir1.Path
Text1.Text="文件数为：
"&File1.ListCount
EndSub
PrivateSubDrive1_Change（）
Dir1.Path=_____Drive1____.Drive
EndSub
4.Dima（2,-2To1,2To3）AsDouble
一个Double类型数据在内存中占8个字节，则上面数组在内存中占__192__字节。
（注意：
答案必须用半角阿拉伯数字填写，且不能出现空格、小数点和多余字符！
）
5.5mod7+2^1+val（"1"）
上面表达式的值为__8__。
（注意：
答案必须用半角阿拉伯数字填写，且不能出现空格、小数点和多余字符！
）
五、基本操作题1
单击考试系统界面左下角的VisualBasic图标，启动VisualBasic。
打开考试文件夹下的工程文件project11.vbp，在窗体Form1中完成下列操作：
如图所示，设计一个字符颜色应用程序。
其中：
窗体的标题为"字符颜色"。
在窗体上画一个标签，Label1，为:
&HFF00&），如果单击Command3命标题分别为"程序设计"，字号为四号，标签能自动调整大小以显示所有的内容；再画三个命令按钮，其名称分别为Command1、Command2和Command3，标题分别为"红"、"绿"、"蓝"，单击Command1命令按钮，则在标签Label1中字符变为红颜色（ForeColor属性设置为:
&HFF&），如果单击Command2命令按钮，则在标签Label1中字符变为绿颜色（ForeColor属性设置令按钮，则在标签Label1中字符变为蓝颜色（ForeColor属性设置为:
&HFF0000），代码中不能用变量。
注：
本题中工程文件名为project11.vbp，工程名为工程1，窗体文件名为Form11.frm，窗体名为Form1。
六、基本操作题2
单击考试系统界面左下角的VisualBasic图标，启动VisualBasic。
打开考试文件夹下的工程文件project12.vbp，在窗体Form1中完成下列操作：
如图所示，设计一个剪切板应用程序。
其中：
窗体的标题为"剪切板"。
在窗体上画一个标签Label1，标题分别为"剪切板测试"，字号为四号，标签能自动调整大小以显示所有的内容；再画一个文本框Text1，字号为四号；再画一个命令按钮Command1，标题为"复制"，单击命令按钮时，利用剪切板将标签Label1中的标题字符复制粘贴到文本框Text1中（代码中除了Clipboard外，不能使用其它变量）。
注：
本题中工程文件名为project12.vbp，工程名为工程1，窗体文件名为Form12.frm，窗体名为Form1。
七、简单应用题
单击考试系统界面左下角的VisualBasic图标，启动VisualBasic。
打开考试文件夹下的工程文件project2.vbp，在窗体Form1中完成下列操作：
将命令按钮Command1、Command2和Command3的标题分别改为"读取数据"、"计算"和"保存结果"；为"计算"按钮（Command2）编写适当的事件代码实现下述功能：
（1）单击"读取数据"按钮，把考试文件夹下的文件in1.dat中的100个数读到数组a中（此代码已经给出）；
（2）单击"计算"按钮，计算100个数中正数、负数、0的个数，并分别显示在文本框Text1、Text2、Text3中（要求考生编写代码）；
（3）单击"保存结果"按钮，将文本框Text1、Text2、Text3中的值存入out1.dat文件中（此代码已经给出）。
注意：
程序按原文件名存盘。
不得修改窗体文件中已经存在的代码。
计算出结果之后，必须单击"保存结果"按钮存储计算结果，否则无成绩。
注：
本题中工程文件名为project2.vbp，工程名为工程1，窗体文件名为Form2.frm，窗体名为Form1。
答案：
PrivateSubCommand2_Click（）
Fori=1to100
Ifa（i）>0thenx=x+1
Ifa（i）<0theny=y+1
Ifa（i）=0thenz=z+1
Nexti
Text1=x,Text2=y,Text3=z
EndSub
升级会员 