VB计算机题1.docVIP

选择题 1、下列符号常量的声明中，___Const a As Double =Sin(1) ___是不合法的。 2、表达式(-1)*Sgn(-100+Int(Rnd*100))的值是___1___。 3、以下叙述中错误的是__在同一窗体的菜单项中，不允许出现标题相同的菜单项。 4、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_选中__状态。 5、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是___Load 。 6、下列程序段的执行结果为 _____0 2 2 3 ___。 Dim M(2) For i=1 To 2 M(i)=0 Next i K=2 For i=1 To k For j=1 TO k M(j)=M(i)+1 Print M(k); Next j Next i 7、下列程序段的执行结果为_____18_______ Dim A(5, 5) As Integer For i = 1 To 3 For j = 1 To 4 A(i, j) = i * j Next j Next i Print A(2, 3) + A(3, 4) + A(4, 5) 8、假设通用声明段中有语句Option base 1，过程中定义数组：Dim a(6) as Integer，则以下引用数组元素的语句中正确的是___a(n + 3) = a(n+1) + a(n+2)。 9、执行下面的程序，输出结果是_____18 30______。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y 10、调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的是______Convert X_____。 11、设有如下程序 Option Base 1 GetArray过程的参数n 是按值传送的 Private Sub Command1_Click() Dim a(10) As Integer Dim n As Integer n = InputBox(输入数据) If n 10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As Integer) Dim c(10) As Integer j = 0 For i = 1 To n b(i) = CInt(Rnd() * 100) If b(i) / 2 = b(i) \ 2 Then j = j + 1 c(j) = b(i) End If Next i Print j End Sub 12、以下叙述中错误的是____在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件____。 13、向已有数据的C:\test\test.txt文件添加数据，正确的文件打开命令是____Open C:\test\test.txt For Append As #511。 14、执行以下语句后，a的值为__ 3___。 Dim a As Integer a = 1 Do a = a + 2 Loop While a = 100 15、有程序段如下： For i = 1 To 3 For j = 5 To i Step -1 Print i * j Next j Next i 其中Print i*j语句执行的次数为____12_____。 16、设有语句X=InputBox(输入数值，0，示例)，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是___变量X的值是字符串10。 17、若执行定义语句Dim a As Integer，以下给a赋值的语句中，错误的是___a =