第一章 单元测试
1、单选题:以下关于VB语言的说法中,正确的是( )。
A:VB是一种低级语言
B:VB是一种机器语言
C:VB是一种面向过程的语言
D:VB是一种面向对象的语言
正确答案:【VB是一种面向对象的语言】
2、单选题:在Visual Basic环境下,当写一个新的Visual Basic程序时,所做的第一件事是( )。
A:进入Visual Basic环境
B:编写代码
C:打开属性窗口
D:新建一个工程
正确答案:【新建一个工程】
3、单选题:以下可以构成语句的是( )。
A:对象名.属性
B:对象名.方法名
C:对象名.函数名
D:对象名.事件名
正确答案:【对象名.方法名】
4、单选题:( )是由Visual Basic提供的一种专门的子程序,由对象本身所具有,反映该对象功能的内部函数或过程。
A:属性
B:文件
C:窗体
D:方法
正确答案:【方法】
5、单选题:下列不是Visual Basic 文件的是( )。
A:*.cls文件
B:*.bas
C:*.frm文件
D:*.txt
正确答案:【*.txt】
6、单选题:下列不能打开工具箱窗口的操作是()。
A:执行“视图”菜单中的“工具箱”命令
B:按Alt+V,然后按Alt+X键
C:按Alt+F8键
D:单击工具栏上的“工具箱”按钮
正确答案:【按Alt+F8键】
7、单选题:下列可以打开立即窗口的操作是()。
A:Ctrl+D
B:Ctrl+G
C:Ctrl+E
D:Ctrl+F
正确答案:【Ctrl+G】
8、单选题:Visual Basic6.0集成环境的主窗口中不包括()。
A:工具栏
B:状态栏
C:标题栏
D:菜单栏
正确答案:【状态栏】
9、单选题:在Visual Basic中,不能关闭的窗口是()。
A:属性窗口
B:窗体设计器窗口
C:工程窗口
D:立即窗口
正确答案:【工程窗口】
10、单选题:Visual Basic是一种面向对象的可视化程序设计语言,采取了()的编程机制。
A:从窗体开始执行
B:事件驱动
C:按书写顺序执行
D:从主程序开始执行
正确答案:【事件驱动】
第二章 单元测试
1、单选题:下列符号常量的声明中,( )是不合法的。
A:Const a =“OK”
B:Const a As Single=1.1
C:Const a As Integer=“12”
D:Const a As Double=Sin(1)
正确答案:【Const a As Integer=“12”
】
2、单选题:表达式“Turbo”+“c”>“Ture”+“Basic”的值是( )。
A:出错信息
B:True
C:False
D:Null
正确答案:【False】
3、单选题:执行下列语句后,V的值是( )。
A=“56789” V=Val(Mid(A,3,2))
A:89
B:78
C:67
D:0
正确答案:【78】
4、单选题:表达式4+56*7/8 Mod 4的值是( )。
A:6
B:7
C:4
D:5
正确答案:【5】
5、单选题:下列符号( )是Visual Basic中合法的变量名。
A:8xy
B:X8[B]
C:x23
D:END
正确答案:【x23】
6、单选题:在一行内写多条语句时,每个语句之间用( )来分隔。
A::B:、
C:;
D:,
正确答案:【: 】
7、单选题:在VB中,用Single来表示的数据类型是( )。
A:长整型
B:字符型
C:单精度型
D:逻辑型
正确答案:【单精度型】
8、单选题:下列程序段的运行结果是( )。
Dim A As Integer , B As Integer
A = 15
B = 4
Print 4 + A B
A:7.75
B:7
C:8
D:-7
正确答案:【7】
9、单选题:三种逻辑运算符号优先次序为( )。
A:AND、NOT、OR
B:OR、NOT、AND
C:NOT、OR、AND
D:NOT、AND、OR
正确答案:【NOT、AND、OR 】
10、单选题:数学式3abc(d+e)改写为VB表达式为( )。
A:3abcd +3abce
B:3a*b*c(d+e)
C:3*a*b*c*(d+e)
D:3abc(d+e)
正确答案:【3*a*b*c*(d+e)】
第三章 单元测试
1、单选题:结构化程序设计的三种基本结构不包括()。
A:循环结构
B:选择结构
C:顺序结构
D:倒序结构
正确答案:【倒序结构】
2、单选题:下面四个语句中,能打印显示20*30字样的是( )。
A:Print 20*30
B:Print Chr(20)+“*”+Chr(30)
C:Print val(“20”)*val(“30”)
D:Print“20*30”
正确答案:【Print“20*30”】
3、单选题:关于MsgBox函数,以下说法不正确的是( )。
A:“标题”参数可选,显示在对话框标题栏中的字符串表达式
B:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
C:MsgBox函数的返回值是一个字符串,这个字符串与所选择的命令按钮有关
D:“按钮”参数是数值表达式,是表示指定显示按钮的数目和类型、使用的图标样式,默认按钮的标识以及消息框样式的数值的总和
正确答案:【MsgBox函数的返回值是一个字符串,这个字符串与所选择的命令按钮有关】
4、单选题:语句If x=1 Then y=1,下列说法正确的是( )。
A:x=1为关系表达式,y=1为赋值语句
B:x=1和y=1均为赋值语句
C:x=1为赋值语句, y=1为关系表达式
D:x=1和y=1均为关系表达式
正确答案:【x=1为关系表达式,y=1为赋值语句
】
5、单选题:下面程序段执行结果为( )。 x = 5 : y = -6If not x > 0 Then x = y – 3 Else y = x + 3End IfPrint x – y; y – x
A:-3 3
B:-6 5
C:3 -3
D:5 -9
正确答案:【-3 3】
6、单选题:编写如下事件过程: Private Sub Form_Click() score=Int(Rnd*10)+80 Select Case score Case Is< 60 a$=”F” Case 60 To 69 a$=”D” Case 70 To 79 a$=”C” Case 80 To 89 a$=”B” Case Else a$=”A” End Select Print a$ End Sub 程序运行后,单击窗体,则窗体上显示的内容是( )。
A: A
B: C
C: B
D: D
正确答案:【 B】
7、单选题:循环结构For I%= -1 to –17 Step –2 共执行( )次。
A: 8
B: 6
C: 9
D: 5
正确答案:【 9】
8、单选题:下列程序段的执行结果为( )。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b
A: 0 1
B: a b
C: 10 30
D: 10 5
正确答案:【 10 5】
9、单选题:有如下程序,运行后输出的结果是( )。j=0:n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j;n
A: 30 4
B: 182 3
C: 3 3
D: 0 1
正确答案:【 182 3】
10、单选题:下列的程序段执行后,x的值为( )。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i
A: 5
B: 105
C: 55
D: 50
正确答案:【 55】
第四章 单元测试
1、单选题:以下关于静态数组的描述正确的是( )。
A:
静态数组的大小是可变的,但所有数组元素的类型必须相同
B:
静态数组的大小是固定的,可以有不同类型的数组元素
C:
静态数组的大小是可变的,可以有不同类型的数组元素
D:
静态数组的大小是固定的,所有数组元素的类型必须相同
正确答案:【
静态数组的大小是固定的,可以有不同类型的数组元素
】
2、单选题:执行下面程序段后,输出的结果为( )。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j
Print s
A:
30
B:
25
C:
20
D:
35
正确答案:【
30
】
3、单选题:下面程序:Private Sub Form_Click() Dim a(100) As Integer For i = 1 To 10 j = i * i a(j) = j Next i Print a(25)End Sub运行后,单击窗体,则输出的结果是( )。
A:
36
B:
25
C:
49
D:
81
正确答案:【
25
】
4、单选题:
有如下语句:
Option Base 1
Private Sub Command1_Click()
Dim A(2, -1 To 1) As Integer
……
End Sub 以上语句所定义的数组A为( )维数组,共有( )个元素,第一维下标从( )到( ),第二维下标从( )到( )。
A:
6,2,1,2,-1,1
B:
2,1,6,-1,1,2
C:
1,2,6,2,-1,1
D:
2,6,1,2,-1,1
正确答案:【
2,6,1,2,-1,1
】
5、单选题:有如下程序: Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为( )。
A:
0 6
B:
0 0
C:
-5 0
D:
-5 6
正确答案:【
-5 6
】
6、单选题:下面关于控件数组与一般控件的叙述中正确的是( )。
A:
控件数组一定有1个以上同类型的控件组成,而一般控件只有一个控件
B:
控件数组的Index值为1,而一般控件的Index值为0
C:
控件数组的索引属性值Index值为0,而一般控件的Index值为空
D:
控件数组的建立通过Dim语句声明,而一般控件不需要声明
正确答案:【
控件数组一定有1个以上同类型的控件组成,而一般控件只有一个控件
】
7、单选题:如果要对已经声明的数组重新定义大小,并保留原有数据,可以使用语句( )。
A:
Dim Preserve
B:
ReDim
C:
ReDim Preserve
D:
Dim
正确答案:【
ReDim Preserve
】
8、单选题:下列程序的输出结果为( )。
Private Sub Command1_Click()
Dim a
ReDim a(6)
For j=1 To 5
a(j)=j*j
Next j
Print a(a(2)*a(3)-a(4)*2)+a(5)
End Sub
A:
36
B:
16
C:
41
D:
25
正确答案:【
41
】
9、单选题:执行下面程序段后,输出的结果为( )。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)
A:
32
B:
42
C:
52
D:
22
正确答案:【
42
】
10、单选题:要分配存放如下方阵的数据,正确的且最节约存储空间的数组声明语句是( )。
1.1 2.2 3.3
4.4 5.5 6.6
7.7 8.8 9.9
A:
Dim a(-1 To 1, -5 To -3) As Single
B:
Dim a(3, 3) As Single
C:
Dim a(-3 to 1, -5 to 7) As Integer
D:
Dim a(9) As Single
正确答案:【
Dim a(-1 To 1, -5 To -3) As Single
】
第五章 单元测试
1、单选题:假定有如下的Sub过程:Sub fun(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim a As Single Dim b As Single a = 6 b = 4 fun a, b Print a, bEnd Sub程序运行后,单击命令按钮,输出结果为( )。
A:
1 1
B:
5 4
C:
1.5 2
D:
1.25 4
正确答案:【
1.5 2
】
2、单选题:假定有以下函数过程:Function Fun(s As String) As String Dim s1 As String For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1)) + s1 Next i Fun = s1End Function在窗体上添加一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim Str1 As String Dim Str2 As String Str1 = InputBox(“请输入一个字符串”) Str2 = Fun(Str1) Print Str2End Sub程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后再窗体上输出的结果为( )。
A:
GFEDCBA
B:
gfedcba
C:
ABCDEFG
D:
Abcdefg
正确答案:【
GFEDCBA
】
3、单选题:有如下函数过程:Function secproc(x As Integer, y As Integer, z As Integer) secproc = 3 * y + z + 2 * xEnd Function Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 3: c = 4 Print secproc(c, b, a)End Sub该程序的运行结果是( )。
A:
20
B:
18
C:
19
D:
17
正确答案:【
19
】
4、单选题:有如下函数过程:Function Cys(ByVal x As Integer, ByVal y As Integer) As Integer Dim quotients Do While y <> 0 quotients = x / y x = y y = quotients Loop Cys = xEnd Function以下是调用该函数的事件过程,该程序的运行结果是( )。Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 10 b = 2 x = Cys(a, b) Print xEnd Sub
A:
100
B:
0
C:
5
D:
25
正确答案:【
5
】
5、单选题:在窗体上画一个命令按钮(名称为Command1),并编写如下代码:Function Fun1(ByVal a As Integer, b As Integer) As Integer Dim t As Integer t = a – b b = t + a Fun1 = t + bEnd Function Private Sub Command1_Click() Dim x As Integer x = 10 Print Fun1(Fun1(x, (Fun1(x, x – 1))), x – 1)End Sub程序运行后,单击命令按钮,输出结果是()。
A:
10
B:
11
C:
21
D:
0
正确答案:【
0
】
6、单选题:下面程序的运行结果为( )。Dim a%, b%, c%Sub p1(x%, y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubSub p2(x%, ByVal y%) Dim c As Integer x = 2 * x: y = y + 2: c = x + yEnd SubPrivate Sub Command1_Click() a = 2: b = 4: c = 6 Call p1(a, b) Call p2(a, b) Print a; b; cEnd Sub
A:
8 8 6
B:
4 6 6
C:
4 6 10
D:
8 6 6
正确答案:【
8 6 6
】
7、单选题:下面程序:Function a(x) Static b As Integer b = b + x ^ 2 Print bEnd Function Private Sub Command1_Click() Dim c% c = a(2)End Sub单击两次命令按钮,第二次显示的结果是( )。
A:
2
B:
4
C:
8
D:
6
正确答案:【
8
】
8、单选题:下列叙述中正确的是( )。
A:
局部变量的作用域可以超出所定义的过程
B:
在调用过程时,所有局部变量被系统初始化为0或空字符串
C:
在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程
D:
在窗体的Form_Load事件中定义的变量是全局变量
正确答案:【
在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程
】
9、单选题:若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便地调用Sort子过程,应将该过程放在 ( )中。
A:
类模块
B:
标准模块
C:
窗体模块
D:
工程
正确答案:【
标准模块
】
10、单选题:以下是一个能返回数组a中最大数的函数过程代码:
Function maxval(a() As Integer) As Integer
Dim max%
max = 1
For i = 2 To 10
If a(i) > a(max) Then max = i
Next i
maxval = max
End Function
Private Sub Command1_Click()
Dim x(1 To 10) As Integer
For i = 1 To 10
x(i) = Int(Rnd() * 100)
Print x(i);
Next i
Print maxval(x())
End Sub程序运行时,发现函数过程的返回值是错的需要修改,下面的修改方案中正确的是( )。
A:
语句“max = 1”应改为“max = a(1)”
B:
语句“maxval = max ”应改为“maxval = a(max)”
C:
语句“For i = 2 To 10”应改为“For i = 1 To 10”
D:
If语句“max = i”应改为“max = a(i)”
正确答案:【
语句“maxval = max ”应改为“maxval = a(max)”
】
第六章 单元测试
1、单选题:若要求显示一个指定窗体,所用的方法是( )。
A:
Hide
B:
Show
C:
Load
D:
Open
正确答案:【
Show
】
2、单选题:确定一个窗体或控件大小的属性是( )。
A:
Top和Right
B:
Width和Height
C:
Width和Top
D:
Top和Left
正确答案:【
Width和Height
】
3、单选题:当一个工程含有多个窗体时,其中的启动窗体是( )。
A:
启动 Visual Basic时建立的窗体
B:
在“工程属性”对话框中指定的窗体
C:
第一个添加的窗体
D:
最后一个添加的窗体
正确答案:【
在“工程属性”对话框中指定的窗体
】
4、单选题:每建立一个窗体,工程管理器窗口中就会增加一个( )。
A:
窗体文件
B:
类模块文件
C:
工程文件
D:
程序模块文件
正确答案:【
窗体文件
】
5、单选题:当运行程序时,系统自动执行启动窗体的( )事件过程。
A:
Load
B:
GotFocus
C:
Click
D:
UnLoad
正确答案:【
Load
】
6、单选题:若要改变窗体中显示文本的颜色,应该使用的属性是( )。
A:
如有任何疑问请及时联系QQ 50895809反馈