(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是： A)text1.maxlength=0 B)text1.enabled=flase C)text1.visible=flase D)text1.width=0
(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体\"的语句是 A) Form1.Name=\"VisualBasic窗体\" B) Form1.Title=\"VisualBasic窗体\" C) Form1.Caption=\"VisualBasic窗体\" D) Form1.Text=\"VisualBasic窗体”
(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。 以下能实现上述操作的程序段是 A) Private Sub HScroll_Change() Text1.Text=HScroll1.Value End Sub
B) Private Sub HScroll_Click() Text1.Text=HScroll1.Value End Sub
C) Private Sub HScroll_Change() Text1.Text=HScroll.Caption D) Private Sub HScroll_Click() Text1.Text=HScroll.Caption End Sub
(4) 设菜单中有一个菜单项为\"Open\"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行\"Open\"命令，则在菜单编辑器中设置“Open\"命令的方式是
A) 把Caption属性设置为&Open B) 把Caption属性设置为O&pen C) 把Name属性设置为&Open D) 把Name属性设置为O&pen
(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=InputBox(\"Input\") Select Case x Case 1,3
Print \"分支 1\" Case Is >4 Print \"分支 2\"
Case Else
Print \"Else 分支 \" End Select End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是 A） 分支1 B） 分支2 C） Else分支 D) 程序出错
(6) 以下关于MsgBox的叙述中，错误的是 A） MsgBox函数返回一个整数
B) 通过MsgBox函数可以设置信息框中图标和按钮的类型 C) MsgBox语句没有返回值
D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
A）Timer1.InterVal=0.5 B) Timer1.Interval=5 C) Timer.Interval=50 D) Timer1.Interval=500
(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer Cls
For i=1 To 2 y=y+x x=x+2 Next Print x,y End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是 A) 4 2 B) 12 18 C) 12 30 D) 4 6
(9) 以下关于多重窗体程序的叙述中，错误的是
A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体 B）在多重窗体程序中，各窗体的菜单是彼此独立的 C）在多重窗体程序中，可以根据需要指定启动窗体 D）对于多重窗体程序中，而且单独保存每个窗体
(10)以下关于文件的叙述中，错误的是
A）顺序文件中的记录一个接一个地顺序存放 B）随机文件中记录的长度是随机的
C）执行打开文件的命令后，自动生成一个文件指针 D）LOF函数返回给文件分配的字节数
(11) 以下叙述中错误的是
A）事件过程是响应特定事件的一段程序 B）不同的对象可以具有相同名称的方法 C）对象的方法是执行指定操作的过程 D）对象事件的名称可以由编程者指定 (12) 以下合法的Visual Basic标识符是 A) ForLoop B) Const C) 9abc D) a#x
13.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 （ ） A.如果工程中含有Sub Main过程，则程序一定首先执行该过程 B.不能把标准模块设置为启动模块
C.用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D.任何时刻最多只有一个窗体是活动窗体
14.窗体的MouseDown事件过程 Form _MouseDown（Button As Integer，Shift AS Integer，X As Single，Y As Single）有4个参数，关于这些参数，正确的描述是 （ ） A.通过Button参数判定当前按下的是哪一个鼠标键 B.Shift参数只能用来确定是否按下Shift键
C.Shift参数只能用来确定是否按下Alt和Ctrl键 D.参数x，y用来设置鼠标当前位置的坐标
15.符号％是声明（ ）类型变量的类型定义符。 A)Integer B)Variant C)Single D)String
16.Visual Basic 中窗体文件的扩展名是（ ）
A)VBP B)FRM C)VBW D)PDM
17.关于MDI窗体下列说法正确的是（ ） A)一个应用程序可以有多个MDI窗体 B)子窗体可以移动MDI窗体以外
C)不可以在MDI窗体上放置按钮控件 D)MDI窗体的子窗体不可以拥有菜单
18.窗体在屏幕上显示后有（ ）方法可以清除它。 A)1种 B)2种 C)3种 D)4种
19.在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1
Private Sub Command1_Click() Dim a
a=Array (1,3,5,7,9)
j = 1
For i = 5 to 1 Step -1 s= s +a(i) * j j= j * 10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是（ ） A)97531 B)135 C)957 D)13579
20.下列语句都是在Form 中定义的，（ ）是错的。 A)Public Const A1 = 2u B)Private Const A2 = 8 C)Public a3 As Integer D)Private a4 As Integer
21.在Activate 事件过程中，写入下面的程序： Option Base 1
Private Sub Form_Activate() Dim t As Integer Dim a( ) As Variant
a=Array (2,4,6,8,10,1,3,5,7,9) For i=1 to 10\\2 t= a(i)
a(i)=a(10 - i + 1) a(10 - i + 1)=t Next i
For j= 1 to 10 Print a(j); Next j End Sub
运行程序后，显示的结果是（）
A)2 4 6 8 10 1 3 5 7 9 B)1 3 5 7 9 2 4 6 8 10 C)9 7 5 3 1 10 8 6 4 2 D)10 8 6 4 2 9 7 5 3 1 22.在Activate 事件过程中，写入下面的程序： Private Sub Form _Activate()
Dim S As String, a As String, b As String a= \"*\" : b =\" $\" For i= 1 to 4
If i / 2= Int(i / 2) Then S=String(Len (a)+i , b) Else
S=String(Len(a) + i, a) End If Print S;
Next i End Sub
运行程序后，显示结果是（ ） A)$$ ***$$$$*****
B)*$$**$$***$$$****$$$$ C)**$$$****$$$$$
D)$*$$**$$$***$$$$****
23.在窗体上设置相应的控件，并在代码窗口编写下列程序： Printe Sub Form_Click() Dim a As Long ,b As Long
a=InputBox(\"请输入若干个整数\") Call P(a,b) Print b End Sub
Private Sub P(x As Long, y As Long)
Dim n As Integer, j As String*1, s As String k=Len(Trim(Str(x))) s=\"\"
For i= K To 1 Step -1 j=Mid(x,i,1) s=s+j Next i y=Val(s) End Sub 运行程序，在InputBox框中输入123456,然后单击\"确定\"按钮，则输出结果是（ ） A)123456 B)654321 C)135246 D)246135
24．在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为\"Save\"，缺省文件名为\"SaveFile\"，在\"文件类型\"栏中显示*.txt。则能够满足上述要求的程序是 A）Private Sub Command1_Click() CommonDialog1.FileName = \"SaveFile\"
CommonDialog1.Filter = \"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc\" CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = \"Save\" CommonDialog1.Action = 2 End Sub
B）Private Sub Command1_Click() CommonDialog1.FileName = \"SaveFile\"
CommonDialog1.Filter = \"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc\" CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = \"Save\"
CommonDialog1.Action = 2 End Sub
C）Private Sub Command1_Click() CommonDialog1.FileName = \"Save\"
CommonDialog1.Filter = \"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc\" CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = \"SaveFile\" CommonDialog1.Action = 2 End Sub
D）Private Sub Command1_Click() CommonDialog1.FileName = \"SaveFile\"
CommonDialog1.Filter = \"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc\" CommonDialog1.FilterIndex = 1
CommonDialog1.DialogTitle = \"Save\" CommonDialog1.Action = 1 End Sub
25.以下关于焦点的叙述中，错误的是 （ ）
A.如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据 B.当文本框失去焦点时，触发LostFocus事件
C.当文本框的Enabled属性为False时，其Tab顺序不起作用 D.可以用TabIndex属性改变Tab顺序
26.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 （ ）
A.Private Sub Command1_Click（）
Labe13.Caption=Str（Val（Label1.Caption）*Val（Label2.Caption）） End Sub
B.Private Sub Command1_Click（）
Labe13.Caption=HScroll1.Value*Hscroll2.Value End Sub
C.Private Sub Command1_Click（） Labe13.Caption=HScroll1*HScroll2 End Sub
D.Private Sub Command1_Click（）
Labe13.Caption=HScroll1.Text*HScroll2.Text End Sub
27．阅读程序 Option Base 1
Private Sub Form_Click()
Dim arr,Sum Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10
If arr(i)/3 = arr(i)\\3 Then Sum =Sum+arr(i) End If Next i Print Sum End Sub
程序运行后，单击窗体，输入结果为 A）13 B）14 C）27 D） 15
28．无法响应Click事件的控件是__________。
A. Label B. Timer C. TextBox D. DriveListBox
29．在窗体上放置了DriveListBox、DirListBox和FileListBox等三个控件，下面________语句一定不会改变相应控件的Path或Drive属性。 A. Drive1.ListIndex=2 B. Dir1.ListIndex=-2
C. File1.FileName=”a:\\*.*” D. File1.Path=Drive1.Drive
30．对于某对象的SetFocus与GotFocus描述正确的是__________。
A. SetFocus是方法，GotFocus是事件 B. SetFocus是事件，GotFocus是事件
C. SetFocus是方法，GotFocus是方法 D. SetFocus是事件，GotFocus是方法
二、 填空题
1. 在程序运行时，将保存在C盘Pic文件夹中的名为Fishing.bmp的图片加载到图片框Picture1中的语句为_____[1_]___。 2．执行下面的Command1_Click事件过程后，Text1中显示的内容是_[_2]_，Text2中显示的内容是__[3_]__。 Private Sub Command1_Click() Dim S As String, I As Integer
Const Ch As String = \"0123456789.\" S = \"2L0A03U.1SI0V.11\" For I = 1 To Len(S)
If InStr(Ch, Mid(S, I, 1)) = 0 Then Text1 = Mid(S, I, 1) & Text1
Else
Text2 = Text2 & Mid(S, I, 1) End If Next I End Sub
3．执行下面的程序，单击Command1按钮后，窗体上的第一行内容是_____[4]____，第二行内容是_____[5]______，最后一行内容是_____[6]______。 Private Sub Command1_Click()
Dim N As Integer, M As Integer, Lcm As Integer N = 9 M = 27
Lcm = Recursion(N, M) Print \"Lcm=\"; Lcm End Sub
Private Function Recursion(A As Integer, B As Integer) As Integer Static k As Integer k = k + 1
If A Mod B = 0 Then Recursion = A Else
Recursion = Recursion(A + A / k, B) End If Print A, k k = 0
End Function
4．下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序，所谓“拉锯排序法”是这一遍把最小的元素从下到上送到最上的位置，下一遍则是从上到下把最大的元素送到最下的位置。 Option Base 1
Private Sub Command1_Click() Dim a(10) As Integer, i As Integer For i = 1 To 10
a(i) = Int(Rnd * 10) + 1 Text1 = Text1 & Str(a(i)) Next i
Call shaker_sort(a) For i = 1 To 10
Text2 = Text2 & Str(a(i)) Next i End Sub
Private Sub shaker_sort(k() As Integer)
Dim i As Integer, c As Integer, d As Integer
Dim t As Integer c = 1
d = ___________[7]______________ Do
For _____________[8]___________ Step -1 If k(i - 1) > k(i) Then
t = k(i - 1): k(i - 1) = k(i): k(i) = t End If Next i
_____________[9]_________________ For i = c + 1 To d
If ____________[10]___________ Then t = k(i - 1): k(i - 1) = k(i): k(i) = t End If Next i d = d - 1
Loop While ___________[11]____________ End Sub
参考答案： 一、1.B 2C3.A 4.A5.C 6.D 7.D 8.B 9.A 10.B11.D12.B13.A 14.A 15.A 16.B 17.C 18.B 19.D 20.A
21.C 22.C 23.B24.A 25.A 26.D 27.C 28.B29.B 30A 二、
[1] Picture1.Picture = LoadPicture(\"c:\\Pic\\Fishing.bmp\") [2] VISUAL [3 ] 2003.10.11 [4 ] 27 3 [5 ] 18 0 [6] Lcm= 27 [7] UBound(k) [8] i = d To c + 1 [9] c = c + 1 [10] k(i) < k(i - 1) [11]d <> c + 1
因篇幅问题不能全部显示，请点此查看更多更全内容