当前位置:计算机科学技术题库>vb考试题库

问题:

[单选] 在窗体上画一个名称为Command1的命令按钮,一个名称为Label1、Label2的标签,然后编写如下的事件过程: Private x As Integer Private Sub Command1_Click() x = 5: y = 3 Call Proc(x, y) Label1.Caption = x Label2.Caption = y End Sub Private Sub Proc(ByVal a As Integer, ByVal b As Integer) x = a * a y = b + b End Sub 运行程序后,则两个标签中显示的内容分别是()

5和3。25和3。25和6。5和6。

问题:

[单选] 如果x的值大于或等于y的立方,则打印“OK”,表示这个条件的单行格式的If语句是()

If x>=y^3 Print “OK”。If x>=y*y*y Then “OK”。If x>=y^3 Then Print “OK”。If x>=y*y*y Then Print “OK” End If。

问题:

[单选] 下列程序段执行结果为() x = 5 y = -6 If Not x < 0 Then x = y - 3 Else y = x + 3 Print y - x; x - y

3;-3。-9;5。-3;3。5;-6。

问题:

[单选] 执行完下面的程序段后,循环执行了()次。 For i=1.7=To 5.9 Step 0.9 a=a+1 Print a NextI

3。4。5。6。

问题:

[单选] 下列程序段的执行结果为()。 n = 0 j = 1 Do Until n > 2 n = n + 1 j = j + n * (n + 1) Loop Print n; j

0;1。3;7。3;21。3;13。

问题:

[单选] 赋值语句:a=123&MID("123456",3,2)执行后,a变量中的值是()。

"12334"。123。12334。157。

问题:

[单选] 下列程序中,第一个Do语句共执行了()次循环。 Dim i As Integer, j As Integer i = 1 Do j = 1 Do Sum = Sum + j j = j + 2 Print j; Loop Until j > 3 i = i + 2 Loop Until i > 10 Print Sum

10。20。5。7。

问题:

[单选] 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 for j = 2 To 4 array1(i, j) = i + j next j next i Text1.Text = arrry1(2, 3) + array(3, 4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是()

12。13。14。15。

问题:

[单选] 设有如下程序: Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后,单击窗体,则在窗体上显示的是()

4;3;2;1。5;4;3;2。6;5;4;3。7;6;5;4。

问题:

[单选] 下列程序段运行后输出的结果是()。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub

X+Y=11。5+6=11。11。True。