一．选择题
1、在Visual Basic工程中，可以作为启动对象的程序是（a） A)任何窗体或标准模块 B)任何窗体或过程
C)Sub Main过程或其他任何模块 D)Sub Main过程或任何窗体 2、下列叙述中错误的是（c）
A) 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B) 保存Visual Basic 程序时，应分别保存窗体文件和工程文件 C) 事件可以由用户引发，也可以由系统引发 D) VisualBasic 应用程序只能以解释方式执行
3、设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”b)VisualBasic”的语句是
A) b=Left(a,10) B) b=Mid(a,10,11) C) b=Right(a,10)
D) b=Mid(a,11,10)
4、下面说明符代表字符串类型的是( c ) A) % B) # C) $ D) @
5、下列变量名是VisualBasic合法的变量名的是（ d ）。 A) for B) 9ab C) computer D) c$e
6、表达式NOT(“ABC” = “ABK”) OR (“abc” = “habc”)的结果为( a )。 A) TRUE B) FALSE C) TURE D) 不能确定 7、在vb中，下列哪一数据类型长度为四个字节（ c ）
A) 货币型 B) 日期型 C) 单精度型 D) 双精度型 8、设p=”18”，q=12下列表达式（ c ）的值是30。
A) p+q B) p &q C) Val(p)+q D) m+Val(n) 9、执行语句s= left(\后，s的值是a A)Visual B) Basic C) 6 D) 11
10、将数学表达式Cos(a+b)+52写成Visual Basic的表达式，其正确的形式是a A）Cos (a+b) +5^2 B）Cos (a+b)+ 5*2 C）Cos a+b+5^2) D）Cos a+b+ 5*2
11、一个工程中含有窗体Form1、From2和标准模块Mode1，如果在Form2中有语句Public a as integer，在Mode1中有语句Public b as integer ,则以下叙述中正确的是（b）。
A) 变量a 、b 的作用域相同
B) 在Form2中可以直接使用变量a C) 变量b的作用域是Mode1
D) 在Form1中可以直接使用a和b 12、Len(“visual”)的值是（ b ） A）4 B）6 C）7 D）8
13、关于逻辑数据类型下列说法正确的是（ b ）
A)该数据类型可进行数值运算 B)该数据类型只有两个值
C)该数据类型占1个字节 D)定义该类型的关键字为bool 14、 下列哪一组语句不能正确定义两个字符型变量（ a ） A)Dim str1,str2 as String B) Dim str1$,str2$
C)Dim str1 as String ,str2 as String D)Dim str1 as String Dim str2 as String
15、数组声明语句 Dim a(3,2 To 5),所声明的数组a中包含的元素有（ a）个。 A) 16 B) 12 C) 9 D) 6 二、填空题
1、合法的Visual Basic标识符是由__数字__、字母___和下划线____三类字符组成.
2、VB提供了一个__标准___ 函数，用来测定一个变体类型的变量的实际数据类型。 3、VisualBasic 6.0中将变量分为3个级别_普通变量_、局部变量__ __、__全局变量 ____。
4、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。请将程序补充完整：
Private Sub Command1_Click() Dim s As Single Dim i As Single S=_0___
For i=1 to 100 _______ S=s+i______ Next i Msgbox s End Sub
5、以下程序的功能是：找出200到300之间的能被5整除的数并求出它们的和。请填空。
Private Sub Command1_Click() For i = 200 To 300 If i\\5 = 0 Then Print x
S = S +i End If Next i
Print \ End Sub
6、输入100个数，统计其中负数、零及正数的个数。 Private Sub Form_Click()
Dim i , fs, zs, ns As Integer ‘fs, ns, zs分别代表负数、零及正数的个数 Dim k As Double For i = 1 To 100
k = InputBox(\输入一个数据\
If k > 0 Then
_zs=zs+1_______ ElseIf k < 0 Then fs = fs + 1 Else
_ns=ns+1_____ End If Next i
Print \负数、零及正数的个数分别是:\End Sub 三、编程
课后习题3-9，编写程序代码. Option base 1
Sub Command1_Click() Dim a(10) as integer Dim i as ingeter For i=1to10
A(i)=inputbox(“输入数”)
label1.caption= str(a(i))+str(a(i-1)) Next(i)
For i=1to9 K=i
Forj=i+1to10
Ifa(j) If k<>I then Tmp=a(k) A(k)=a(i) A(i)=tmp End if Labe2.caption=str(a(i))+str(a(i-1)) Next i End sub 一、单选题 1、下列控件中，没有Caption属性的是（ D ）。 A) 复选框 B) 单选按钮 C) 框架 D) 列表框 2、 VB中显示窗体的方法是（ c ） A) Stop B) Unload C) Show D) Hide 3、 VB中每个对象都有一个( c )属性，可以被设置为True或者 False，分别用来显示或隐藏该对象 A) Caption B) Name C) Visible D) Enabled 4、事件Click由（ d）引发。 A) 移动鼠标 B) 三击鼠标C) 双击鼠标 D) 单击鼠标 5、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyascii as integer) …… End Sub 若焦点位于文本框中，则能够触发KeyPress事件的操作是 A）单击鼠标 B）双击文本框 C）鼠标滑过文本框 D）按下键盘上的某个键 6、假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu popForm End I End Sub 则以下描述中错误的是 A）该过程的功能是弹出一个菜单 B）Button = 2表示按下的是鼠标左键p C）参数X、Y指明鼠标的当前位置 D）opForm是在菜单编辑器中定义的弹出式菜单的名称 7、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Move 500 ， 500 End Sub 程序运行后，单击命令按钮，执行的操作为 A) 窗体移动到距屏幕左边界、上边界各500的位置 B) 命令按钮移动到距窗体左边界、上边界各500的位置 C) 窗体向左、上方向各移动500 D)命令按钮向左、上方向各移动500 8、在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写程序如下： Private Sub Command1_Click() n = Val(Text1.Text) If n Mod 2 = 0 Then f = f1(n) Else f = f2(n) End If Text1.Text = f + n End Sub Public Function f1(ByRef x)
相关推荐：
loading