试卷一VB试卷

Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To____(1)______
Print i; "*"; j; "="; i * j; Spc(3-____(2)_______);
Next j
_____(3)_______
Next i
End Sub
If a-b=Val(Text1.Text) Then
MsgBox(“回答正确”)
Else
MsgBox(“回答不正确”)
n_error= n_error+1
End if
Command1. Enabled=True
End Sub
Private Sub Command2_Click()
MsgBox(_______(10)________)
13、下面哪一条语句不能画出一条线来______________。
A、line(1000,1000)+(2500,2500) B、line(1000,1000)-(2500,2500)
C、line–(2500,2500) D、Line(1000,1000)-(1000,2500)
14、执行语句“Print #1,234;-34.56,”Garbo”;Date”后，相应的文件内被写入____________。
Next j
Print
Next i
End Sub
(4) A、I=1:j=1 B、I=5:j=5
C、I<>j D、I=j
(5) A、I+j=6 B、Imod j=0
C、i/j=1 D、I=j
3、【程序说明】阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确的答案。
界面设计如上图所示，程序运行时要求有以下功能：
A、True B、0 C、False D、1
9、由“ForI=1 to 10 step-3”决定的循环结构被执行____________次。
A、4 B、3 C、1 D、0
10、若I的初值为1，则下列循环语句的循环次数为____________次。
Do While i <= 10
i = i + 2
Loop
1按Command1（出题）后随机生成两个正整数存入模块级变量a、b且a、b分别在Lable1、Lable2中显示，此后Command1不可用；
2在Text1中输入结果、按回车后，以消息框显示运算正确与否、累计所完成题数以及做错的题数，Command1恢复为可用；
3按Command2（退出）后以消息框显示所完成题数及做错的题数，退出。
5、单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。
6、当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。
7、所有的对象都具有Name（名称）属性。
8、Commondialog控件就像Timer控件一样，在运行时是可以看见的。
9、用通用对话框控件显示“字体”对话框前，必须先设置Flags属性，否则将发生“不存在字体”的错误。
20、___________对象不具有Caption属性。
A、Label B、Option C、Form D、Timer
21、若要把"XXX"添加到列表框List1中的第三项，则可执行语句___________。
A、List1.AddItem "XXX", 3B、List1.AddItem "XXX", 2
Dim i As Integer, j As Integer, a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
If_____(4)______Or____(5)_____Then
a(i, j) = 1
Else
a(i, j) = 0
End If
Print a(i, j);
C、List1.AddItem 3,"XXX"D、List1.AddItem 2,"XXX"
22、表示滚动条控件取值范围最大值的属性是___________。
A、MaxB、LargeChangeC、ValueD、Max-Min
23、文本框（TextBox）常用来输入用户的密码，为了防止被其他人看到，常将密码显示为“*”，应在文本框的_______________属性中设置一个“*”。
【程序】Dim n As Integer, n_error As Integer
________(6) _______
Private Sub Command1_Click()
a=10+Rnd*89:b=10+Rnd*89
If a<b Then _______(7)_______
Lable1.Caption=a: Lable2. Caption=b
26、文本框中选定的内容，由下列____________属性来反映。
A、SelTextB、SelLengthC、TextD、Caption
27、将通用对话框类型设置为“打开文件对话框”，应修改____________属性。
A、Filter B、Font C、Action D、FileName
28、菜单编辑器中，同层次的___________设置为相同，才可以设置索引值。
A、dir1.list(0)B、dir1.list(list1.listcount)C、dir1.list(-1) D、dir1.list(list1.listindex)
三、程序填空题（共20分，每题5分）
1、【程序说明】以下程序输出九九乘法表，输出结果如图所示。
Private Sub Form_Click()
（8）A、KeyPress B、ChangeC、KeyDownD、KeyUp
（9）A、Exit Sub B、KeyAscii =13C、KeyAscii =0 D、Exit Do
（10）A、”共”&n&”题，错”&n_error&”题”
B、”共#43;”题，错”+n_error+”题”
若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为___________。
A、"Label"、"Label" B、"Label1"、"Visual Basic"
C、"Label1"、"Label1" D、"Caption"、"Label"
A、2 B、3 C、4 D、5
11、窗体通用部分的语句“Option Base1”,决定本窗体数组下标界____________。
A、下界必须为1 B、缺省的下界为1
C、下界必须为0 D、缺省的下界为0
12、下列____________方法或函数可以调用外部可执行文件。
A、Open B、Input C、Shell D、Show
n=n+1:Text1. Text=””: Command1.Enabled=False
End Sub
Private Sub Text1 ________(8) _______(KeyAscii As Integer)
If KeyAscii<>13 Then ________(9)_______’回车键的ASCII码为13
A、Visible B、Value C、Caption D、Enabled
18、单击滚动条两端的任一个滚动箭头，将触发该滚动条的___________事件。
A、Scroll B、KeyDown C、Change D、Dragover
19、在窗体Form1的Click事件过程中有以下语句：
Label1.Caption = "Visual Basic"
A、椭圆的纵轴和横轴长度比B、椭圆的横轴和纵轴长度比
C、同心圆的半径比D、圆弧两半径间的夹角
16、模拟方形骰子投掷的表达式是____________。
A、Int(6*Rnd)B、Int(1+6*Rnd)C、Int(6*Rnd-1)D、.Int(7*Rnd-1)
17、将命令按钮Command1设置为不可见，应修改该命令按钮的___________属性。
A、Name B、Caption C、Index D、ShortCut
29、文件的访问类型有____________三种。
A、程序文件、数据文件和ASCII码文件
B、ASCII码文件、打印文件和二进制文件
C、顺序文件、随机文件和数据文件
D、顺序文件、随机文件和二进制文件
30、下面____________选项能表示目录列表框控件Dir1的当前目录。
A、234 -34.56 garbo#2007-7-06#
B、234,-34.56,garbo,#2007-7-06#
C、”234”,”-34.56”,”garbo”,”#2007-7-06#”
D、234,-34.56,garbo,2007-7-06
15、Circle(1000,1000),800,,,,2中的2表示_______________。
D、共&n&”题，错”&n_error&”题”
四、程序阅读题（共20分，每题5分）
1、Private Sub Form_Click()
A、NameB、CaptionC、PasswordCharD、Text
24、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是___________。