itgle.com
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click（）Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext iPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为（ ）。A．9B．6C．12D．15
题目
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为（ ）。
A．9
B．6
C．12
D．15
相似考题
更多“在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Cli ”相关问题
-
第1题：
在窗体上画一个命令按钮，其名称为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
正确答案：B
解析：解题的关键是掌握对格式说明字符的理解。0表示一个数字位，0的个数决定了显示区段的长度，多余的位以0补齐；小数点与O结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。由于本题中变量a为12345，并没有涉及小数，故可以直接在其后补两个0。 -
第2题：
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_ Click() Dim arr (10) For i = 1 To 10 arr (i) = i ^ 2 Next i Print arr(i - 2) End Sub程序运行后，单击命令按钮，在窗体上输出的是______。
A．49
B．64
C．81
D．100
正确答案：C
-
第3题：
在窗体上画一个命令按钮，其名称为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
正确答案：B
-
第4题：
在窗体上画一个命令按钮，其名称为Command]，然后编写如下事件过程：
程序运行后，单击命令按钮，消息框输出的是（ ）A. 48
B. 72
C. 96
D. 128
正确答案：B
奉题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。浅们只需要注意这两个数组元素在循环中被赋了什么值，当i=3 j=3时，al(3，3)=3+3=6，a2(3。3)= al(3，3)+3+3=12．所以最后二者之积为72。
-
第5题：
在窗体上画一个命令按钮，其名称为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
正确答案：B
解析：对于符号“0”，实际数字小于符号位数时，数字前后加0；大于时，若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示。若小数部分的位数多于格式字符串的位数，按四舍五入显示。 -
第6题：
在窗体上画一个命令按钮，其名称为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
正确答案：B