在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 3For j=1 To 4If j Mod 2＜＞0 Thena=a+1End Ifa=a+1Next jNext iPrint aEnd Sub程序执行后，单击命令按钮，输出结果是【 】。
题目
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 3
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是【 】。
相似考题
参考答案和解析
18 解析：对于内层循环而言，当j为1、3时，a会各加两次1；当j为2、4时，a会各加一次1。因此整个内层会加6次1。考虑到外层循环要执行三次循环体，所以一共要加18次1，最终的输出结果为18。
更多“在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a=0 For i=1 To 3 ”相关问题
-
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Prirate Sub Command1_Click() s = 0 For i=1 To 13 x = i * i-1 If x Mod 3 = 0 Then s = s + 1 Next i Print s End Sub 程序运行后，单击命令按钮，则窗体中显示的内容是
A．1
B．5
C．27
D．45
正确答案：B
解析：在程序的运算过程中，变量x的值为0、3、8、15、24、35、48等数，其中满足“xMod3=0”条件的有0、3、15、24、48，所以循环结束后s=5。 -
第2题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a() a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为( )。
A．135
B．357
C．531
D．753
正确答案：B
解析：本题考查考生对数组和表达式的理解。如果没有特别说明，数组的下界都是从0开始的，即如果由定义数组语句Dim a(10)，则数组元素的个数是11个，而不是10个。程序中的定义语句Dim a()是定义一个动态数组，在定义动态数组时，维的界默认不写，但数组名的括号不能省略。程序中的Array是给一维数组赋初值的函数，需要注意，它只能给一维数组赋初值，数组只能是变体类型；赋值号只需写上数组名，不要写上括号。程序中For循环控制的初值从1开始，可见a(i)的取值依次是3、 5、7，而不是1、3、5。所以程序运行的结果是选项B。 -
第3题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a (1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Nexti
Fori=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
正确答案：33
33 解析：观察程序，通过第一个以i为循环变量的循环，给数组a()进行赋值，数组a()中的各个元素的值就是其下标值。
通过第二个以i为循环变量的循环，给数组p()进行赋值：
i=1,(i)=a(i*i),p(1)=a(1)=1
i=2,p(i)=a(i*i),p(2)=a(4)=4
i=3,p(i)=a(i*i),p(3)=a(9)=9
通过第三个以i为循环变量的循环，得到变量k的值；
i=1,k=k+p(i)*2=5+p(i)*2=7
i=2,k=k+p(i)*2=7+p(2)*2=15
i=3,k=k+p(i)*2=15+p(3)*2=33
最终输出结果是：33。 -
第4题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
Private Sub Corrtmandl Click()
a$=”Nationalcomputer rank Examination”
n=Len(a$)
S=0
For i=1 To n
b$=Mid(a$，i，1)
Ifb$=”n”Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
正确答案：4
4 解析：此题实际上是从左自右逐个提取a$中的字符，判断是不是等于“n”，统计其中“n'，的个数。 -
第5题：
在窗体上画一个命令按钮，然后编写如下事件过程：
程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是__________。
正确答案：
-3【解析】本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次；由于在每次循环中均会重新对a、b、C进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中c等于最后两次输入的值之和也就是-3