VB模拟试题一
一、选择题
1．工程文件的扩展名是（ ） A．.vbg B．.vbp C．.vbw D．.vbl
2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（ ）
A．窗体文件（.frm）、项目文件（.vbp/vbw） B．窗体文件（.frm）、项目文件（.vbp/vbw）和代码文件（.bas） C．窗体文件（.frm）、项目文件（.vbp/vbw）和模块文件（.bas） D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（.frx） 3．以下关于窗体描述正确的是（ ） A． 只有用于启动的窗体可以有菜单
B． 窗体事件和其中所有控件事件的代码都放在窗体文件中 C． 窗体的名字和存盘的窗体文件名必须相同
D． 开始运行时窗体的位置只能是设计阶段时显示的位置
4．VB中控件主要分为3类，下面哪一种不是VB中的控件类（ ） A．标准控件 B．ActiveX C．可插入控件 D．外部控件
5．在VB的基本数据类型中，通用类型(Variant)可以表示任何类型的变量，如果有定义Dim a，则以下变量赋值中正确的是（ ）
A．a=”OK” B．A$=OK C．a=04/01/2001 D．a$=”OK”
6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码： Private Sub Command1_Click( ) A=1.2
C=Len(Str$(A)+Space(10)) Text1.text=C End Sub
程序运行后，单击命令按钮，在文本框中显示（ ） A．3 B．8 C．14 D．10
7．在MsgBox函数中哪一个参数是必须的（ ） A．prompt B．buttons C．title D．context 8．以下语句的输出结果是（ ） Print Format$(1234.5,”00,000.00”)
A．1234.5 B．01,234.50 C．01,234.5 D．1,234.50 9．有如下语句： Type Student Name As String Age As Integer Sex As String End Type
Dim Stu As Student With Stu
.Name = \张红\.Age = 22 .Sex = \女\
End With
执行Print Stu.Age后的结果是（ ） A．张红 B．22 C．“女” D．Age
10．以下控件中可以作为容器控件的是（ ） A．Image图像框控件 B．PictureBox图片框控件 C．TextBox文本框控件 D．ListBox列表框控件
11．VB提供的选择框（CheckBox）可具有的功能是（ ） A．多重选择 B．单一选择 C．多项选择 D．选择一次 12．以下关于作用范围的描述正确的是（ ）
A． 所有变量（Public/Global/Static/Private）都可以放到窗体的通用部分定义 B． 所有变量（Public/Global/Static/Private）都可以放到标准模块中定义 C． Public/Global类的变量只能放在标准模块中定义 D． 只有Global类的变量必须放在标准模块中定义
13．建立一个图书资料管理输入界面，要求选择图书的借阅情况、语种（中文/英文/日文/其他）及分类（10类，存在重复分类，台一本图书属于1类，也同时属于2类）。应如何在窗体中利用单选钮和选择框实现（ ） A． 用一组16个选择框来实现
B． 将10种分类用一组10个选择框、借阅情况和语种用6个单选钮实现 C． 将10种分类用一组10个单选钮、借阅情况和语种用6个选择框实现
D． 将10种分类用一组10个选择框、借阅情况用2个单选钮、语种用4个单选钮实现 14．有关列表框的属性和方法的正确描述是（ ） A． 列表框的内容由属性Item Data来确定
B． 当多选属性（MultiSelect）为True时，可通过Text属性获得所有内容 C． 选中的内容应通过List属性来访问
D． 选中的内容应通过Text属性来访问，并且每次只能获得一条内容
15．若要求在文本框中输入密码时文本框中只显示*号，则应在此文本框的属性窗口中设置（ ）
A．Text属性值为* B．Caption属性值为*
C．Password属性值为空 D．PasswordChar属性值为* 16．以下关于控件的叙述中，错误的是（ ） A． VB允许用户乱设计并使用控件
B． 主窗体中工具条中的工具不是工具箱中包含的常用控件
C． 若使用系统提供的OCX控件，应先将有关的控件添加到工具箱中
D． 使用系统提供的OCX控件进行程序调，其编程的方法与工具箱中常用控件的编程有所不同
17．在菜单设计时，在某菜单项（Caption）中一个字母前加以“&”符号的含义是（ ） A． 设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Ctrl+带下划线的字母选择该菜单项
B． 设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Alt+带下划线的字母选择该菜单项
C． 设置该菜单项的“访问键”，即该字母带有下划线，可以通过键盘操作Shift+带下划线的字母选择该菜单项
D． 在此菜单项前加上选择标记
18．VB为命令按钮提供的Cancel属性（ ）
A． 用来指定命令按钮是否为窗体的“取消”按钮 B． 用来指定命令按钮的功能是停止一个程序的运行 C． 用来指定命令按钮的功能是关闭一个运行程序 D． 用来指定命令按钮的功能是中断一个程序的运行
19．有关多文档界面（Multiple document．nbspInterface）的不正确描述是（ ） A． 多文档界面（MDI）是指在一个父窗口下面可以同时打开多个子窗口 B． 子窗口归属于父窗口
C． 如果父窗口关闭，则所有子窗口全部关闭 D． 如果所有子窗口全部关闭，则父窗口关闭 20．文件的基本操作指的是文件的删除、拷贝、移动、改名等，对文件进行改名的操作是（ ） A．FileCopy B．Name C．ReName D．Kill
21．在VB中，按下鼠标键触发事件，正确的程序段是（ ）
A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub
B．Private Sub Form_MouseUP(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub
C．Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ?? End Sub
D．Private Sub Form_Load() ?? End Sub
22．以下能够正确计算1+2+3+?+10的程序是（ ） A．Private Sub Command1_Click()
B．Private Sub Command1_Click() Sum = 0 Sum = 0,I=1 For I = 1 To 10 Do While I<=10 Sum = Sum + 1 Sum=Sum+I Next I I=I+1 Print Sum loop Print Sum End Sub End Sub
C．Private Sub Command1_Click() D．Private Sub Command1_Click() Sum = 0;I=1 Sum = 0;I=1 Do Do
Sum = Sum +1 Sum=Sum+I I=I+1 I=I+1
Loop While I<10 Loop Until I<10 Print Sum Print Sum End Sub End Sub
23．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下程序： Private Sub Command1_Click()
X = 0
Do While X < 10 X = (X + 1) * (X + 2) n = n + 1 Loop
Text1.Text = Str(n) Text2.Text = Str(X) End Sub
程序运行后，单击命令按钮，在两个文本框Text1和Text2中分别显示的值是（ ） A．1和0 B．2和12 C．2和72 D．3和12 24．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click()
a = UCase$(Text1.Text) + Left$(Text2.Text，2) Print a End Sub
Private Sub Form_Load() Text1.Text = \Text2.Text = \End Sub
程序运行后，单击命令按钮，输出结果为（ ） A．ab12 B．AB12 C．AB56 D．ab56
25．在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码： Dim a As Integer Sub test()
a = a + 1: b = b + 1: c = c + 1 Print “Sub:”;a;b;c End Sub
Private Sub Command1_Click() a = 2: b = 3: c = 4 Call test Call test End Sub
程序运行后，单击命令按钮，窗体中将显示（ ） A．Sub：3，4，5 B．Sub：2，3，4 Sub：4，5，6 Sub：2，3，4
C．Sub：3，1，1 D．Sub：1，1，1 Sub：4，1，1 Sub：1，1，1
26．在窗体中添加一个命令按钮Command1和一个文本框Text1，并有以下程序： Private Sub Command1_Click() Static a As Variant
a = Array(20, 13, 45, -10, 50, 25) ?? End Sub
此程序的功能是求数组a的最小元素值，并把最小值放在文本框中。为实现程序的功能，省略号处的程序段应该是（ ） A．Min = a(1) B．Min = a(0) For i = 2 To 6 For i = 1 To 5
If Min < a(i) Then If Min < a(i) Then Min = a(i) Min = a(i) End If End If Next I Next I
Text1.Text = Min Text1.Text = Min A．Min = a(0) B．Min = a(0) For i = 1 To 5 For i = 1 To 5 If Min < a(i) If Min < a(i) Then Min = a(i) Min = a(i) End If Next I
Next I Text1.Text = Min Text1.Text = Min 27．设有如下程序：
Private Static Function fac(n As Integer) As Integer Dim f As Integer f = f + n fac = f
End Function
Private Sub Form_Click() Dim i As Integer For i = 2 To 3
Print \Next i End Sub
程序运行后，单击窗体，在窗体上显示的是（ ） A．#2=2 B．#2=2 C．#；2=2 D．#；2=2 #3=3 #3=5 #；3=3 #；3=5
28．在窗体中添加一个命令按钮Command1，并有以下程序： Function retnum() nl = Chr(13) + Chr(10)
msg$ = \．运行VB应用程序\．计算器\msg$= msg$ + nl + \请输入数字选择\retnum = InputBox(msg$, Title, Default) End Function
Private Sub Command1_Click() r = retnum If r = 1 Then
x = Shell(\ElseIf r = 2 Then
z = Shell(\