计算机二级
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程：Private Sub C1_Click()a=0n=Input Box("")For i=1 To nFor j=1 To ia=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，如果输入4，则在窗体上显示的内容是( )。A．5B．6C．9D．10
题目
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程：
Private Sub C1_Click()
a=0
n=Input Box("")
For i=1 To n
For j=1 To i
a=a+1
Next j
Next i
Print a
End Sub
程序运行后，单击命令按钮，如果输入4，则在窗体上显示的内容是( )。
A．5
B．6
C．9
D．10
参考答案和解析
解析：本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1+2+3+4=10次。
相似问题和答案
第1题：
（7）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
a$="National Computer Rank Examination"
n=Len(a$)
s=0
For i=1 To n
b$=Mid(a$, i, 1)
If b$="n" Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是 【7】 。
（7）【答案】4
【解析】此题实际上是从左自右逐个提取a$中的字符，判断是不是等于“n”，统计其中“n”的个数。
第2题：
在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )
A．0
B．1
C．2
D．3
解析：由Static语句定义的变量只建立一次，能在过程结束后保存原值。题中第一次单击命令按扭时，a的初始值为o，执行语句后a的值变为1；在第二次单击按扭时，a的初始值应保留上次的结果值1，执行语句后 a的值变为2；同理在第三次单击按扭后，变量 a的值变为3。
第3题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第4题：
在窗体上画一个名称为Com1的命令按钮，然后编写如下事件过程：
Private Sub Com1_Click()
n=10
q=1
sum=0
For i=1 To n
Next
Print sum
End Sub
该事件过程的功能是计算s=1+1/2!+1/3!+…+1/n!的值。请填空。
(1/i) 解析： 本题考查循环的知识。本程序首先置q为1，sum为0；经过10次循环使q每次都乘以1/i，实现了1/n!的求法；每次循环后都加q，把结果再赋给sum，循环结束，sum的值即为所求。
第5题：
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。
A．15
B．18
C．21
D．24
解析：本题考查的是For．．．Next循环语句。For．．．Next循环执行时，先将初始值赋给循环变量，判断是否超过终值，若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Next n，则n=21，此时n大于终值20，退出循环。
第6题：
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Do Whileb＞=0
c=a+b
Loop
End Sub
程序运行后，依次输入3，2，1，0，-1，-2，则输出结果是( )。
-3 解析： 本题考查VBA中，循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False时执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为False时退出循环，这一点要注意区分清楚。本题是一个先判断条件的While循环，每次循环中有两次输入，共循环3次：由于在每次循环中均会重新对a、b、c进行赋值，所以只需要考虑最后一次循环就可以，在最后一次循环中c等于最后两次输入的值之和也就是-3。
第7题：
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是： ______。
A．0
B．1
C．2
D．3
解析：变量定义后，若没有人工定义初值，程序启动后，系统将自动把变量初值设为0。本题中，变量b是局部变量，只作用于单击事件中，每次单击都会对b重新赋值。
第8题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub CommaLndl_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A．15
B．18
C．21
D．24
解析：对本题来讲，最后打印出的变量n值就是循环变量的终值20加步长1的值，即n=20+1=21，而与循环体中的内容和计算结果无关。
第9题：
在窗体上画一个命令按钮，其名称为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
解析：解题的关键是掌握对格式说明字符的理解。0表示一个数字位，0的个数决定了显示区段的长度，多余的位以0补齐；小数点与O结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。由于本题中变量a为12345，并没有涉及小数，故可以直接在其后补两个0。
第10题：
在窗体上画一个命令按钮，其名称为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 解析：此题实际上是从左自右逐个提取a$中的字符，判断是不是等于“n”，统计其中“n'，的个数。