在窗体上画一个命令按钮，名称为Commandl,然后编写下列程序Private Sub Commandl_Click()For i = 1 To 2For j = 1 To iPrint String(i,"Hello")Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A. H HH HH B. H HHHH C. HHHHH HH HHHH D. H

题目

相似考题

1.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_Click()For I=1 To 2For J=1 To IPrint String(I，"Hello")；Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．H HH HHB．H HHHHC．HHHHHD．H HH HHHH

2.在窗体上画一个名称为Conunandl的命令按钮，然后编写如下程序：Private Sub Commandl_Click()Dimi As Intege,j As IntegerDima(10,10)As IntegerFori=1 To 3Forj=1 To 3a(i,j)=(i-1)*3+jPrinta(i,j)；NextjPrintNextiEnd Sub程序运行后，单击A．B．C．D．

3.在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A． 6B．7C．8D．9

4.（ 22 ）在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10, 10) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = (i - 1) * 3 + jPrint a(i, j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是A ） 1 2 32 4 63 6 9B ） 2 3 43 4 54 5 6C ）1 4 72 3 83 6 9D ）1 2 34 5 67 8 9

参考答案和解析

正确答案：A
【解析】分析程序，程序开始循环时i=1，j=ltol，Print String(i, "Hello")语句输出一个H,然后执行Print进行换行；当i=2时，j=1 to 2，Print String(i,"Hello")语句输出两行分别为两个HH，然后执行Print换行；当i=3时，退出循环。

更多“在窗体上画一个命令按钮，名称为Commandl,然后编写下列程序Private Sub Commandl_Click()For i = 1 To 2For j = 1 To iPrint String(i,"Hello")Next jPrintNext iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A. H HH HH B. H HHHH C. HHHHH HH HHHH D. H”相关问题

第1题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Option Base 1 Private Sub Commandl_Click() Dim c AS Integer，d As Integer d=0 c=6 x=Array(2,4,6,8,10,12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) ElSe d=d-c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A． 10
B．16
C．12
D．20

正确答案：C
解析：Array函数是为数组赋值，而Option Base l是用来设置数组下标是从1开始。由于刚开始c的值为6，故前三个数组值不大于c，执行三次d=d-c，d=-18；而后三个数组值都大于c，执行三次d二d+ x(i)，d=-18+8+10+12=12。
第2题：

（16）在窗体上画一个命令按钮，其名称为Commandl.程序运行后，单击命令按钮，输出结果是 Private Sub p1(n As Integer) For i=n To 1 Step -1 x=String(i,"*") Print x Next i End Sub Private Sub Commandl_Click() P1(3) End SubA.*** ** *B.* ** ***C.* * *D.******

正确答案：A
【解析】分析程序可知，命令按钮单击事件调用p1(3)函数，因此循环中的n为3，所以For循环的条件为Fori=3 to l Step-1，所以For循环从3递减到1，输出的“*”号也递减，每一次Print执行后，自动换行。最后输出的结果如选项A）所示。
第3题：

在窗体上画一外名称Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click( )
x=0
n=InputBox(" ")
For i = 1 To n
For j = 1 To i
x=x+1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是【】。

正确答案：6
6 解析：本题是一个简单的双重For...Next循环，当步长大于。时，循环的初值与终值相等，仍然要执行一次循环：只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。
第4题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0 n=InputBox(" ") For i = 1 To n For j=1 To i x = x + 1 Next i Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是
A．3
B．4
C．5
D．6

正确答案：D
解析：本题考查For循环控制语句的嵌套。当输入3时，For i执行三次，对应的Forj循环执行一次，二次、三次，Forj每执行一次，x都加1，故最终结果为6，选D。
第5题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。
A．3
B．4
C．5
D．6

正确答案：D
解析：本题是一个简单的双重For-Next循环考题，这里需要注意的是，循环的终值都是由变量设置的。当步长大于。时，循环的初值与终值相等，仍然要执行一次循环；只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。如果考生认为For i=1 To 1并不执行循环，则会认为选项C为答案。答案为D。
第6题：

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim al(4,4),a2(4,4) Dim i As Integer,j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print al(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是______。
A． 6 6
B．10 5
C．7 21
D．6 12

正确答案：D
解析：本题也是通过一个For循环来给数组赋值。由a1(i,j)=i+j可知，a1(3,3)=3+3=6，而由a2(i,j)=al(i,i)+i+j可知a2(3,3)=a1(3,3)+3+3=6+3+3=12。
第7题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Pfivae Sub Commandl_click()
a＝0
For i＝1 To 2
For j＝1 To 4
If i Mod 2<>0 Then
a＝a-1
End If
a＝a+1
Next j
Next I
MsgBox a
End Sub
程序运行后，单击命令按钮，消息框中的输出结果是______。

正确答案：4
4 解析：本题考查多重循环的知识。类似这种问题要把握住两点：首先看内循环里面完成了什么工作，有什么规律，然后看外循环和内循环的次数。本题中内循环和外循环的次数完全无关，则每次外循环和内循环都会执行4次。可以看出当j＝1和。i＝3时由于满足If语句的条件，所以会先执行a＝a-1后执行a＝a+1，实际上相当于a的值没有变化；当j＝2和j＝4叫时由于不满足If语句的条件，所以只能执行a＝a+1。也就是说外循环每执行一次a的值都会加2，由于外循环共执行2次，所以结果为4。
第8题：

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() For i=1 To 2 For j=1 To i Print String(i,"Hello") Next j Print Next i End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．H HH HH
B．H HHHH
C．HHHHH HH HHHH
D．H

正确答案：A
解析：分析程序，程序开始循环时i=1，j=1to1，PrintString(i,"Hello")语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2,PrintString(i,"Hello")语句精出两行分别为两个HH，然后执行Print换行；当i=3时，退出循环。
第9题：

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(“机床”，“车床”，“钻床”，“轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承

正确答案：C
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第10题：

在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1_Click() a=0 n=InputBox("") 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

正确答案：D
第11题：

在窗体上画一个名称为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

正确答案：D
解析：本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1+2+3+4=10次。
第12题：

在窗体上画一个命令按钮，然后编写如下事件过程：
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。
第13题：

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承

正确答案：C
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。
第14题：

在窗体上画一个命令按钮，名称为Command1，然后编写下列程序：
Private Sub Command1_Click()
For i=1 To 2
For j=1 To i
Print String(i,"Hello")
Next j
Print
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A)B)C)
D)H
A．H HH HH
B．H HHHH
C．HHHH
D．H

正确答案：A
解析：分析程序，程序开始循环时i=1,j=1 to 1,Print String(i,"Hello")语句输出一个H，然后执行Print进行换行；当i=2时，j=1 to 2，Print String(i,"Hello")语句输出两行分别为两个HH，然后执行Print换行；当i=3时，退出循环。
第15题：

在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1_ Click() for i = 1 To 4 for j= 0 To i Print Chr＄(65 +i) Next j Print Next iEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。
A．BB CCC DDDD EEEEE
B．B CC DDD EEEE
C．AA AA CCCC DDDDD
D．A BB CCC DDDD

正确答案：A
解析：要记住“Chr＄(65)＝“A””，“Chr＄(97)“a””。变量i表示输出行数，变量j表示输出个数。空打印Print操作是换行。
第16题：

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A. 机床
B. 车床
C. 钻床
D. 轴承

正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第17题：

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．VVV
B．Vis
C．sic
D．11

正确答案：A
解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。
第18题：

Private Sub Commandl Click（）
Dim i As Integer, j As Integer
Dim a （10,10）As Integer
For i=1 To 3
For j= i To 3
a（i,j）=（i-1）*3+j
Print a （i,j）;
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。

正确答案：D
第19题：

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Pfivate Sub Commandl_Click（） Dima（） a=Array（"机床"，"车床"，"钻床"，"轴承"）Print a（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A.机床
B.车床
C.钻床
D.轴承

正确答案：C
C．【解析】本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，通常使用Dim语句来定义数组，其中下标下限默认为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第20题：

在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:
Private Sub Commandl_Click()
For I=1 T0 2
For J=1 To I
Print String(I,″Hello″);
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A．H HH HH
B．H HHHH
C．HHHHH
D．H HH HHHH

正确答案：B
解析：Click事件是在按钮控件上按下然后释放一个鼠标按钮时发生。Print函数用于在指定窗口显示文本。String 函数返回包含指定长度重复字符的字符串。题中嵌套For循环,第一次"i=1",故"for j=1 to 1",输出"H",内层J循环结束,输出空行。第二次"i=2",故"for j=1 to 2",内层J循环2次,输出"HHHH",内层J循环结束,输出空行,I循环结束。
第21题：

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() For i = 1 To 2 For j = 1 To i Print String(i, "Hello") Next j Print Next i End Sub
A．H HH HH
B．H HHHH
C．HHHHH HH HHHH
D．H

正确答案：A
解析：分析程序，程序开始循环时i=1，j=1to1，PrintString(i,"Hello")语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，"Hello")语句输出两行分别为两个HH，然后执行Print换行；当i=3时，退出循环。
第22题：

在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1 Click() a=0 n=InputBox(” ”) For i=l 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

正确答案：D
解析：本题考查VBA程序设计中的循环知识。在本题的程序中，每次循环a都会加1，所以关键问题就是循环共执行多少次。我们已知外循环共执行4次，每次外循环中内循环都执行i次，则内循环共执行的次数为1+2+3+4=10次。
第23题：

在窗体上画一个名称为Comillarldl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(" ") For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。
A．3
B．4
C．5
D．6

正确答案：D
解析：本题是一个简单的双重For-Next循环考题，这里需要注意的是，循环的终值都是由变量设置的。当步长大于0时，循环的初值与终值相等，仍然要执行一次循环；只有当循环变量大于终值的时候才跳出循环。x的值实际上等于循环执行的次数6。如果考生认为Fori=1To1并不执行循环，则会认为选项C为答案。答案为D。

题目

相似考题

参考答案和解析

相关内容