吃概囊镶沙畔晾陛迫讽非噬划
氨廖泉光木庇凤袄戚半梦吞部
第一章 单元测试
1、
以下关于VB语言的说法中,正确的是( )。
A:VB是一种面向过程的语言
B:VB是一种面向对象的语言
C:VB是一种低级语言
D:VB是一种机器语言
答案: VB是一种面向对象的语言
2、
在Visual Basic环境下,当写一个新的Visual Basic程序时,所做的第一件事是( )。
A:编写代码
B:新建一个工程
C:打开属性窗口
D:进入Visual Basic环境
答案: 新建一个工程
3、
以下可以构成语句的是( )。
A:对象名.属性
B:对象名.方法名
C:对象名.事件名
D:对象名.函数名
答案: 对象名.方法名
4、
( )是由Visual Basic提供的一种专门的子程序,由对象本身所具有,反映该对象功能的内部函数或过程。
A:文件
B:属性
C:方法
D:窗体
答案: 方法
5、
下列不是Visual Basic 文件的是( )。
A:*.frm文件
B:*.bas
C:*.cls文件
D:*.txt
答案: *.txt
6、
下列不能打开工具箱窗口的操作是( )。
A:执行“视图”菜单中的“工具箱”命令
B:按Alt+F8键
C:单击工具栏上的“工具箱”按钮
D:按Alt+V,然后按Alt+X键
答案: 按Alt+F8键
7、
下列可以打开立即窗口的操作是( )。
A:Ctrl+D
B:Ctrl+E
C:Ctrl+F
D:Ctrl+G
答案: 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 As Single=1.1
B:Const a As Integer=“12”
C:Const a As Double=Sin(1)
D:Const a =“OK”
答案: Const a As Integer=“12”
2、
表达式“Turbo”+“c”>“Ture”+“Basic”的值是( )。
A:True
B:False
C:Null
D:出错信息
答案: 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:4
B:5
C:6
D:7
答案: 5
5、
下列符号( )是Visual Basic中合法的变量名。
A:x23
B:8xy
C:END
D:X8[B]
答案: 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
B:-7
C:7.75
D:8
答案: 7
9、
三种逻辑运算符号优先次序为( )。
A:AND、NOT、OR
B:NOT、OR、AND
C:NOT、AND、OR
D:OR、NOT、AND
答案: NOT、AND、OR
10、
数学式3abc(d+e)改写为VB表达式为( )。
A:3a*b*c(d+e)
B:3abc(d+e)
C:3abcd +3abce
D:3*a*b*c*(d+e)
答案: 3*a*b*c*(d+e)
第三章 单元测试
1、
结构化程序设计的三种基本结构不包括( )。
A:顺序结构
B:倒序结构
C:选择结构
D:循环结构
答案: 倒序结构
2、
下面四个语句中,能打印显示20*30字样的是( )。
A:Print“20*30”
B:Print 20*30
C:Print Chr(20)+“*”+Chr(30)
D:Print val(“20”)*val(“30”)
答案: Print“20*30”
3、
关于MsgBox函数,以下说法不正确的是( )。
A:“提示”参数用于在MsgBox函数产生的对话框内显示提示信息
B:“按钮”参数是数值表达式,是表示指定显示按钮的数目和类型、使用的图标样式,默认按钮的标识以及消息框样式的数值的总和
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:5 -9
C:3 -3
D:-6 5
答案: -3 3
6、
编写如下事件过程: Private Sub Form_Click() score=Int(Rnd*10)+80 Select Case score Case Is
A: A
B: B
C: C
D: D
答案: B
7、
循环结构For I%= -1 to –17 Step –2 共执行( )次。
A: 5
B: 6
C: 8
D: 9
答案: 9
8、
下列程序段的执行结果为( )。 a=0:b=1 Do a=a+b b=b+1 Loop While a
A: 10 5
B: a b
C: 0 1
D: 10 30
答案: 10 5
9、
有如下程序,运行后输出的结果是( )。j=0:n=0 Do While n
A: 0 1
B: 182 3
C: 30 4
D: 3 3
答案: 182 3
10、
下列的程序段执行后,x的值为( )。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i
A: 50
B: 55
C: 5
D: 105
答案: 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:
20
B:
25
C:
30
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:
25
B:
36
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:
1,2,6,2,-1,1
B:
6,2,1,2,-1,1
C:
2,6,1,2,-1,1
D:
2,1,6,-1,1,2
答案:
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 0
B:
-5 0
C:
-5 6
D:
0 6
答案:
-5 6
6、
下面关于控件数组与一般控件的叙述中正确的是( )。
A:
控件数组一定有1个以上同类型的控件组成,而一般控件只有一个控件
B:
控件数组的索引属性值Index值为0,而一般控件的Index值为空
C:
控件数组的Index值为1,而一般控件的Index值为0
D:
控件数组的建立通过Dim语句声明,而一般控件不需要声明
答案:
控件数组一定有1个以上同类型的控件组成,而一般控件只有一个控件
7、
如果要对已经声明的数组重新定义大小,并保留原有数据,可以使用语句( )。
A:
Dim
B:
ReDim
C:
Dim Preserve
D:
ReDim Preserve
答案:
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:
25
C:
16
D:
41
答案:
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:
22
B:
42
C:
32
D:
52
答案:
42
10、
要分配存放如下方阵的数据,正确的且最节约存储空间的数组声明语句是( )。
1.1 2.2 3.3
4.4 5.5 6.6
7.7 8.8 9.9
A:
Dim a(9) As Single
B:
Dim a(3, 3) As Single
C:
Dim a(-1 To 1, -5 To -3) As Single
D:
Dim a(-3 to 1, -5 to 7) As Integer
答案:
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:
5 4
B:
1 1
C:
1.25 4
D:
1.5 2
答案:
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:
Abcdefg
B:
ABCDEFG
C:
gfedcba
D:
GFEDCBA
答案:
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:
17
B:
18
C:
19
D:
20
答案:
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:
0
B:
25
C:
5
D:
100
答案:
5
5、
以下是一个能返回数组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:
语句“For i = 2 To 10”应改为“For i = 1 To 10”
C:
If语句“max = i”应改为“max = a(i)”
D:
语句“maxval = max ”应改为“maxval = a(max)”
答案:
语句“maxval = max ”应改为“maxval = a(max)”
6、
在窗体上画一个命令按钮(名称为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:
0
C:
11
D:
21
答案:
0
7、
下面程序的运行结果为( )。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:
4 6 6
B:
8 6 6
C:
4 6 10
D:
8 8 6
答案:
8 6 6
8、
下面程序: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:
6
D:
8
答案:
8
9、
下列叙述中正确的是( )。
A:
在窗体的Form_Load事件中定义的变量是全局变量
B:
局部变量的作用域可以超出所定义的过程
C:
在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程
D:
在调用过程时,所有局部变量被系统初始化为0或空字符串
答案:
在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但其作用域只限于该过程
10、
若已编写了一个Sort子过程,在该工程中有多个窗体,为了方便地调用Sort子过程,应将该过程放在 ( )中。
A:
窗体模块
B:
标准模块
C:
类模块
D:
工程
答案:
标准模块
如需购买完整答案,请点击下方红字:
获取更多网课答案,请点击这里,进入www.mengmianren.com
绢膘奉缝皆悲叮匪擒淘盖弓伶
啼多免驴撮吨台虎韭轮探牡荡