Do
x=x*i i=i+1
Loop While i A）10 B）15 C）24 D）120 11．下列（ ）可以将单选按钮设置为图形单选按钮。 A）Option1.Style=0 B）Option1.Style=1 C）Option1.Picture=0 D）Option1.Picture=1 12．以下关于KeyPress事件过程中参数KeyAscii的叙述正确的是（ ）。 A）KeyAscii参数可以返回按键的ASCII码 B）KeyAscii参数的数据类型为字符串 C）KeyAscii参数可以省略 D）KeyAscii参数是所按键上标注的字符 13．窗体上有命令按钮Command1，编写下列事件过程： Private Sub Command1_Click1() Dim a(10) As Integer Dim p(3) As Integer k=1 For I =1 To 10 a(I)=I Next I For I =1 To 3 p(I)= a(I*3) Next I For I =1 To 3 k=k+ p(I)*2 Next I Print k End Sub 运行时，单击命令按钮，窗体将显示（ ）。 A）15 B）13 C）30 D）37 14．关于文本框的属性Multiline，下列说法错误的是（ ）。 A) Multiline=True时，设置ScroLLbars属性为0时，一个长的字符串在文本框中会自动换行 B) Multiline=True时，设置ScroLLbars属性为1时，文本框自动换行功能自动消失 C) 要显示文本框的滚动条，Multiline的属性一定要设为True D) Multiline=False时，设置ScroLLbars属性为2时，文本框可输入或显示多行正文 15．使用（ ）语句将“06足球世界杯”添加到列表框List1的首项。 A) List1.Text=\足球世界杯\足球世界杯\C) List1. List(0)=\足球世界杯\足球世界杯\16．可以触发滚动条的Scroll事件的操作是（ ）。 A) 单击滚动条空白处 B) 单击滚动条两端的箭头 C) 拖动滚动条的滑块 D) 单击滚动条的滑块 17．设置控件的（ ）属性为False，可使该控件不能通过Tab键得到焦点。 A）GotFocus B）SetFocus C）TabStop D）TabIndex 18．窗体上有一命令按钮Command1，编写下列事件过程： Private Sub Command1_Click() c=2000:d=2000 Cls Circle Step(c,d),1000,vbRed,3.14,2*3.14,1 End Sub 运行时，单击按钮，窗体上显示（ ）。 A）一个填充的圆 B）一个未填充的圆 C）一段圆弧 D）一个点 19．下列程序段中，可以使计时器控件Timer1每隔2秒触发一次的是（ ）。 A）Timer1.Interval=200 B）Timer1.Interval=2000 C）Timer1. Enabled=True: Timer1.Interval=200 D）Timer1. Enabled=True: Timer1.Interval=2000 20．在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： private Sub Command1_Click() List1.List(List1.ListCount)= \End Sub 程序运行后，单击命令按钮，其结果为（ ）。 A）把字符串“vb”添加到列表框中，但位置不能确定 B）把字符串“vb”添加到列表框的最后 C）把列表框中原有的最后一项改为“vb” D）把字符串“vb”插入到列表框的最前面 21．设有两个列表框控件List1和List2，下列代码段的功能是（ ）。 For i=0 To List1.ListCount-1 List2.List(i)= List1.List(i) Next i A）将List1的所有列表项追加到List2中 B）将List1的所有列表项插入到List2的前部 C）用List1的所有列表项覆盖List2中对应位置的列表项 D）用List1取代List2 22．设有以下程序段： For i=1 To 4 For j=6 To 1 Step -1 Print i*j Next j,i 则语句Print i*j的执行次数是（ ）。 A) 12 B) 13 C) 24 D) 25 23．窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程和过程p1： Private Sub Command1_Click() Dim x%,y%,z% x=7: y=8: z=9 Text1.Text=\ Call p1(x, y, z) Text1.Text=Str(z) End Sub Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 运行时，单击命令按钮，Text1中的内容为（ ）。 A）0 B）15 C）9 D）str(z) 24．Pset方法绘制的点的大小受其容器对象的（ ）属性的影响。 A) DrawWidth B) Picture C) AutoRedraw D) Stretch 25．下列控件中，可以对单选按钮进行分组的是（ ）。 A) 框架（Frame）控件 B) 文本框（TextBox）控件 C) 图像框（ImageBox）控件 D) 标签（Label）控件 26．下列程序段的执行结果是（ ）。 n=1 j=1 Do While j<=4 n=n*j Print n; j=j+1 Loop A) 1 2 3 4 B) 1 2 6 24 C) 2 4 6 8 D) 1 4 7 11 27．窗体上有一个通用对话框ComDlg1.Action=2表示（ ）。 A）显示“打开”对话框 B）显示“字体”对话框 C）显示“颜色”对话框 D）显示“另存为”对话框 28．下列关于顺序文件的叙述正确的是（ ）。 A) 所有记录的长度必须相同 B) 可以随机读取文件中的记录 C) 可以使用文本编辑软件编辑 D) 文件中记录按关键字顺序存放 29．目录列表框的作用是（ ）。 A）显示根目录下的文件名 B）显示Path所指路径下的文件名 C）显示Path属性所指路径下的文件 D）显示Path属性所指路径下的目录结构 30．下列关于菜单的叙述，错误的是（ ）。 A）菜单显示时要形成一个分隔线，应在菜单编辑器的标题文本框中输入“—” B）菜单编辑器中的“复选”是用来设置某一菜单项是否可选 C）每个菜单项都是一个控件，与其他控件一样也有自己的属性和方法 D）在菜单的标题栏中，“$”所引导的字母指明了访问该菜单项的热键 第3套 1．下列叙述错误的是（ ）。 A) VB应用程序没有明显的开始和结束语句 B) VB控件的所有属性值均可在属性窗口中设置 C) VB是事件驱动型可视化编程工具 D) VB通过“工具”菜单的“选项”设置代码编辑窗口的字体大小 2．设有语句： Dim S1 As String*5 S1=\则S1的值为（ ）。 A) VB Te B) VBTes C) VBTest D) VB Test 3．如果VB语句超过一行，可以使用空格加（ ）续行。 A）－ B）＋ C）； D）_ 4．对于InputBox函数，下列不正确的说法是（ ）。 A）每执行一次InputBox函数，只能输入一个值 B）InputBox函数只能输入数值 C）InputBox函数的prompt参数不能缺省 D）InputBox函数的参数有三个以上 5．执行以下程序后，变量C$的值为（ ）。 a$=\程序设计教程\b$=\ c$= b$ & Ucase(Mid(a$,1,6)) & Right(a$,2) A) Visual Basic B) VISUAL BASIC教程 C) Visual Basic教程 D) Visual BASIC教程 6．在窗体中，用（ ）语句声明的变量A可以被其它窗体引用。 A）Dim A As Integer B）Public A As Integer C）Private A As Integer D）Static A As Integer 7．执行x=InputBox(\，在输入框中输入10后回车，则下列叙述中，正确的是（ ）。 A）0是默认值 B）输入框标题是“x=” C）x等于数值0 D）x的值为字符“10” 8．下列程序段的执行结果是（ ）。 x=100:y=80:z=30 if x>y or y A) 70 30 30 B) 100 30 30 C) 70 80 30 D) 100 80 30 9．子过程Sele的形式参数为一数组，则以下定义语句正确的是（ ）。 A) Private Sub Sele(A(20) As Integer) B) Private Sub Sele(A() As Integer) C) Private Sub Sele(A(,) As Integer) D) Private Sub Sele(ByVal A() As Integer) 10．对于一个标签控件有如下程序，双击标签后运行的结果是（ ）。 Private Sub Label1_Click() Print 2; End Sub Private Sub Label1_DblClick() Print 4; End Sub A）2，4 B）2 4 C）2 4 D）4 11．以下程序段执行的结果是（ ）。 Private Sub command1_Click() Dim a Dim i As Integer, j As Integer a=Array(1,3,5,7,9,11) For i=1 To a(4) j=j+1 Next i Print j End Sub A）7 B）5 C）9 D）11 12．不能把2^5*3.14*8的结果输出到“立即”窗口的是（ ）。 A) 在代码窗口中使用Debug.Print 2^5*3.14*8语句 B) 在“立即”窗口中直接使用 2^5*3.14*8语句 C) 在“立即”窗口中直接使用 ？2^5*3.14*8语句 D) 在“立即”窗口中直接使用 Print 2^5*3.14*8语句 13．执行语句a=\后，消息框的标题是（ ）。 A) 1 B) software C) hardware D) software and hardware 14．通过（ ）属性设置窗体图标。 A) Picture B) DownPicture C) MouseIcon D) Icon 15．要对文本框Text1中的文本加删除线，可以通过（ ）来实现。 A) Text1.Font.FontStrikethru=True B) Text1.FontStrikethru=True C) Text1.Font=vbStrikethru D) Text1.Style=vbStrikethru 16．下列叙述中，错误的是（ ）。 A) Pset方法用于绘制点 B) Circle方法用于画圆、椭圆、圆弧和扇形 C) Line方法用于画直线或矩形 D) Point方法用于绘制有颜色的点 17．在实际应用中，经常将一组单选按钮置于一个框架（Frame）控件内，这主要是为了（ ）。 A) 使用户界面美观 B) 使该组单选按钮同步 C) 使该组单选按钮处于禁止状态 D) 使该组单选按钮互斥，即同一时刻只有一个单选按钮被选中 18．命令按钮不能响应（ ）事件。 A) DblClick B) DragDrop C) KeyPress D) MouseMove 19．假定有如下事件过程： Private Sub Form_Click() Dim x As Integer, n As Integer