vb习题(含答案)
- 格式:pdf
- 大小:279.61 KB
- 文档页数:13
vb习题(含答案)
⼀、单项选择题(50道⼩题,共50分)1、VB程序中,通常不会产⽣错误提⽰的是( )。(1分)
A、编译错误
B、逻辑错误
C、运⾏时错误
D、实时错误
2、在设计阶段,双击窗体上任⼀空⽩处,打开的窗⼝是( )。(1分)
A、⼯程资源管理器窗⼝
B、代码窗⼝
C、⼯具箱窗⼝
D、属性窗⼝
3、下列说法中,正确的说法是( )。(1分)
A、窗体名称和该窗体⽂件名必须⼀致
B、窗体名称和该窗体⽂件名可以不相同
C、窗体名称和该窗体⽂件名不能使⽤汉字
D、窗体名称不能使⽤汉字、但该窗体⽂件名能使⽤汉字
4、Visual Basic有完备的Help联机帮助功能,可以通过按下功能键( )得到帮助。(1分)
A、F9
B、F8C、F1
D、F5
5、以下( )控件可作为容器使⽤。(1分)
A、Label
B、PictureBox
C、TextBox
D、Image
6、将窗体的BoderStyle属性设置为( )可使窗⼝不显⽰标题栏。(1分)
A、0
B、1
C、2
D、5
7、⽂本框没有( )属性(1分)
A、Text
B、Name
C、Caption
D、BorderStyle
A B C D A B C D A B C D A B C D A B C D A B C D A B C D A B
C D A B C D A B C D A B C D A B C D A B C D A B C D A B C D
23、下列( )是不合法的常量。(1分)
A、100
B、10E02C、100.0
D、10e0.5
24、下列对变量的定义中,定义X为变体型变量的是( )。(1分)
A、Dim X as Double
B、Dim X
C、Dim X!
D、X%=23
25、设有如下变量声明:Dim TestDate As Date,为变量TestDate正确赋值的表达⽅式是( )。(1分)
A、TextDate=#1/1/2002#
B、TestDate=#"1/1/2002"#
C、TextDate=date("1/1/2002")
D、TestDate=Format("m/d/yy","1/1/2002")
26、在⽴即窗⼝中运⾏以下语句,a="Beijing" :b="ShangHai" :Print a,b对其输出结果的描述中,正确的是( )。(1分)
A、Beijing和ShangHai中间没有空格
B、Beijing和ShangHai中间有1个空格
C、Beijing和ShangHai中间有6个空格
D、Beijing和ShangHai前⾯有7个空格
27、语句段A=3: B=5:T=a:a=b: b=t执⾏后( )。(1分)
A、a值为3,b值为3
B、a值为3,b值为5
C、a值为5,b值为5
D、a值为5,b值为328、下列语句中,正确的是( )。(1分)
A、If x<3*y And x>y Then y=x^3
B、If x<3*y And x>y Then y=3x
C、If x<3*y : x>y Then y=x^3
D、If x<3*y And x>y Then y=x**3
29、下⾯程序段Dim x%: x=5: If x Then y=x+1 Else y=x运⾏后,y结果是( )。(1分)
A、5
B、6
C、1
D、显⽰出错信息
30、执⾏语句 a = InputBox("Today", "Tomorrow", "Yesterday", 5, 5),将显⽰⼀个输⼊对话框,在对话框的输⼊区中显⽰的信息是( )。(1分)
A、Today
B、Tomorrow
C、Yesterday
D、5
31、窗体上有⼀个命令按钮Command1,编写如下事件过
程: Private Sub Command1_Click() :x = Val(InputBox("x=")) : y = InputBox("y=") : Print x + y : End S ub, 单击命令按钮,先后在两个输⼊对话框中输⼊123和321,窗体显⽰的内容是( )。(1分)
A、444
B、123321
C、123+321
D、出错信息32、执⾏语句MsgBox "AAA", 2, "BBB" 后,所产⽣的消息框的标题是( )。(1分)
A、AAA
B、BBB
C、2
D、出错,不能产⽣消息框
33、已知:a = "Software and Hardware",b = Len(a),c = Right(a, 8),执⾏MsgBox a, b, c 后,在弹出的
信息框的标题栏中显⽰的信息是( )。(1分)
A、Software and Hardware
B、Software
C、Hardware
D、19
34、阅读下列程序
段:m = 0: For i = 1 To 3: For j = 1 To i: m = m + j: Next j, i:执⾏以上的循环后,i和m的值分别为( )。(1分)
A、3 6
B、3 10
C、4 6
D、4 10
35、窗体上有⼀个命令按钮Command1,编写如下事件过程:
Private Sub Command1_Click(): a = 0: For m = 1 To 3: a = a + 1: b = 0: For j = 1 To 3: a = a + 1: b = b + 2: Next j: Next m: Printa, b: End Sub,运⾏时,单击按钮,输出结果是( )。(1分)
A、6 6
B、6 18
C、12 6D、12 18
36、若有k = 10,则循环结构Do Until k < 0: k = k - 1: Loop 中的循环体执⾏次数是( )。(1分)
A、9
B、10
C、11
D、⽆数次
37、下列语句中,不能实现循环100次的是( )。(1分)
A、N=0:Do: N=N+1: Loop Until N>=100
B、N=0:Do: N=N+1: Loop While N<100
C、N=0:Do: N=N+1: Loop Until N<100
D、N=0:Do While N<100: N=N+1: Loop
38、设a为整型变量,不能正确表达数学关系10 < a < 15的VB表达式是( )。(1分)
B、
A、10 < a < 15a = 11 Or a = 12 Or a = 13 Or a = 14
C、a > 10 And a < 15
D、Not ( a<= 10) And Not ( a >=15)
39、在Visual Basic中,能正确描述条件“x>y>z”的表达式是( )。(1分)
A、x>y and z
B、x>y and y>z
C、x>y>z
D、x> y and>z40、如果变量nop的值为2,则执⾏完语句op = Choose(nop, "春", "夏", "秋", "冬") 后,op的值为( )。(1分)
A、春
B、夏
C、秋
D、冬
41、执⾏下列语句a = 3:x = IIf(a > 5, int(-5.6), Fix(5.6))后,x的值是( )。(1分)
A、5
B、-5
C、6
D、-6
42、结束当前程序运⾏的语句是( )。(1分)
A、quit
B、exit
C、end
D、sub
43、要从For …Next 循环中退出循环,应使⽤( )语句。(1分)
A、Exit
B、Exit For
C、Continue
D、Stop Loop
44、如下数组声明语句Dim a(3, -2 To 1, 5)中数组a包含的元素个数为( )。(1分)A、96
B、75
C、60
D、13
45、下列语句错误的是( )。(1分)
A、Private a(-10 To 5)
B、Dim a(N) 'N为变量
C、Dim a() As Integer
D、Dim a%(10,-10 To -10)
46、能使⼀维数组arr(6)元素个数加1,但保留数组中原有元素的语句是( )。(1分)
A、ReDim arr(7)
B、ReDim Preserve arr(7)
C、Public arr(1 To 7)
D、Static arr(7)
47、窗体上有⼀个命令按钮Command1,编写如下事件过
程:Private Sub Command1_Click(): Dim a(10): For j = 6 To 10: a(j)= j - 5:Next j: Text1.Text = a(0) + a(a(10) / a(6)): End Sub,运⾏时,单击按钮,Text1中显⽰( )。(1分)
A、0
B、1
C、2
D、3
48、以下定义数组或给数组元素赋值的语句中,错误的是( )。(1分)A、Dim a : a=Array(1,2,3,4,5)
B、Dim a( ) : a=Array(1,2,3,4,5)
D、
C、Dim A%() : a=Array(1,2,3,4,5)
Dim a As Variant : a= Array(1, 2, 3, 4, 5)
49、当⼯程中有多个窗体时,必须指定启动窗体,其⽅法是:选择“⼯程”菜单中的“⼯程属性”命令,打开“通⽤”选项卡,在
( )中选择运⾏时显⽰的第⼀个窗体。(1分)
A、⼯程类型
B、⼯程名称
C D
A B
C D
⼆、填空题(6道⼩题,共30分)1、* 输出Fibonacci数列1,1,2,3,5,8,…的前20项。
* 程序代码如下:
Private Sub Command1_Click()
Dim s%, a%, b%, c%
a = 1
b = 1
Print a
Print b
For i= 3 To 20
c= a + b
Print c
a=b
b=c
Next i
End Sub
(4分)2、* 使⽤双循环实现倒三⾓形输出
*********
*******