VB复习题
允许上机调试
一、 选择题
1 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是： B
A)text1.maxlength=0  abled=false
C)text1.visible=false  D)text1.width=0
2 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 C
A) Form1.Name="VisualBasic窗体"
B) Form1.Title="VisualBasic窗体"
C) Form1.Caption="VisualBasic窗体"
D) Form1.Text="VisualBasic窗体”
3 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：C
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A） 分支1  B） 分支2  C） Else分支  D) 程序出错
4 以下关于MsgBox的叙述中，错误的是 D  （见书P88-92）
A） MsgBox函数返回一个整数 
B) 通过MsgBox函数可以设置信息框中图标和按钮的类型
C) MsgBox语句没有返回值
D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
5 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 D
A） Timer1.InterVal=0.5      B) Timer1.Interval=5
C)  Timer1.Interval=50      D) Timer1.Interval=500
6  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：B
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A) 4 2 B) 12 18 C) 12 30 D) 4 6
7 以下叙述中错误的是 D
A）事件过程是响应特定事件的一段程序
B）不同的对象可以具有相同名称的方法
C）对象的方法是执行指定操作的过程
D）对象事件的名称可以由编程者指定
8 以下合法的Visual Basic标识符是 A
A) ForLoop B) Const C) 9abc D) a#x
9 当一个复选框被选中时，它的Value属性的值是 C
A) 3 B) 2 C) 1（复选框被选中显示1，不选中显示0） D) 0
10 表达式 5 Mod 3+3\5*2的值是 B
A) 0      B) 2    C)4      D) 6
11 设x=4,y=8,z=7，以下表达式的值是 D
x<y And (Not y>z) Or z<x
A) 1      B) -1    C) True    D) False
12 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： A
Private Sub Command1_Click()
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A） VVV B) Vis C) sic D) 11
13 设有如下程序段：
x=2
For i=1 To 10 Step 2
x=x+i
Next
运行以上程序后，x的值是 B
A) 26  B) 27  C) 38  D) 57
14 以下叙述中错误的是 B
A) 在KeyPress事件过程中不能识别键盘的按下与释放
B) 在KeyPress事件过程中不能识别回车键
C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母
D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符
15 执行如下两条语句，窗体上显示的是 D
a=9.8596
Print Format(a,"$00,00.00")
A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86
17 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：D
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A) 10  5    B) 12  5    C) 10  7    D) 12  7
18 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：B
Option Base 1
Private Sub Command1_Click()
Dim a
a= Array(1,2,3,4,5)
For i=1 To UBound(a)
a(i) = a(i)+i-1
Next
Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是
A) 4    B) 5    C) 6    D)7
19 阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3 = arr(i)\3 Then
Sum =Sum+arr(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输入结果为  C
A）13      B）14      C）27    D） 15
20 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：D
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
basic语言程序设计Sum = sum+a(i)
Next i
x=Sum/5
For i =1 To 5
If a(i)>x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是
A）1 2      B） 1 2 3    C) 3 4 5    D） 4  5
21.在Visual Basic设计界面中不能隐藏的窗口是(  A  )。
A）工程窗口
B）属性窗口
C）立即窗口
D）窗体窗口
22.以下可以构成语句的一项是(  B  )。
A）对象名.属性（  对象.属性=属性值）
B）对象名.方法名
C）对象名.事件名
D）对象名.函数名
23.以下不是Visual Basic 的特点的选项是(  B  )。
A）可视编程
B）算法设计
C）事件驱动
D）面向对象
24 在Visual Basic中通过(  A  )属性来设置字体的颜。
A）FontColor
B）ClipControl
C）BackColor
D）ShowColor
25 设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用(  D  )属性。
A）ControlBox
B）ClipControl
C）BordeStyle
D）AutoRedraw
26  (  C  )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。　
A）文件
B）属性
C）方法
D）窗体
27 以下不属于同类的是( A  )。
A）Click
B）Name
C）Caption
D）Top
28 当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是(  B  )。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。