Question

请教！vb试卷！拜托！

1. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
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
2. 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是（ ）：
A、 Private Sub HScroll_Change()
Text1.Text=HScroll1.Value
End Sub
B、 Private Sub HScroll_Click()
Text1.Text=HScroll1.Value
End Sub
C、 Private Sub HScroll_Change()
Text1.Text=HScroll.Caption
D、 Private Sub HScroll_Click()
Text1.Text=HScroll.Caption
End Sub
3． 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
　　 Private Sub Command1_Click()
　　 Move 500，500
　　 End Sub
　　 程序运行后，单击命令按钮，执行的操作为（ ）：
　　A、命令按钮移动到距窗体左边界、上边界各500的位置
　　B、窗体移动到距屏幕左边界、上边界各500的位置
　　C、命令按钮向左、上方向各移动500
　　D、窗体向左、上方向各移动500

4. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
　　 Private Sub Command1_Click()
　　 a = 12345
　　Print Format$(a, "000.00")
　　End Sub
　　程序运行后，单击命令按钮，窗体上显示的是（ ）：
　A、 123.45 B、 12345.00 C、 12345 D、00123.45
5．以下关于图片框控件的说法中，错误的是（ ）
A、 可以通过Print方法在图片框中输出文本
B、 清空图片框控件中图形的方法之一是加载一个空图形
C、 图片框控件可以作为容器使用
D、 用Stretch属性可以自动调整图片框中图形的大小

6．在窗体上画一个名称为Command1的命令按钮，然后编写如下程序
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
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

7． 以下叙述中错误的是（ ）
A、 在KeyPress事件过程中不能识别键盘的按下与释放；
B、 在KeyPress事件过程中不能识别回车键；
C、 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母；
D、 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符；

Answer 1

1.D(1楼注意，x是静态变量，Y是动态变量)
2.A
3.B（这个一试就知道 ）
4.B
5.A
6.题目出错了，a=Array(1,2,3,4,5)说明a是一个5维数组，但是后边引用a时下标却只有一个，直接产生下标越界
7.B

Answer 2

1.A
2.A
3.A
4.B
5.B
6.D
7.B