在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 5B．4 5C．8 4D．3 4

题目

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．1 5

B．4 5

C．8 4

D．3 4

参考答案和解析

正确答案：C
解析：在本题中，由于两个形参都没有指明用哪种方式进行参数传送，按VisualBasic规定，在默认的情况下，变量的数据传送按传址方式进行。当第一次调用fun1过程时，循环变量i将1传给形参n，变量a将2传给形参m。经计算后，变量m和n值分别为4和5。返回被调过程后，变量i和a的值分别为5和4。经过“Nexti”语句后，循环变量i加了步长得6，大于终值3，退出循环，所以变量x=6+2=8。值得注意的是：在函数的调用过程中，不要使用循环变量作为实参，否则会产生意想不到的结果。

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体上画一个命令按钮＜其名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮；其输出结果为 ______。

A．1 2 3 4

B．2 3 4 5

C．2 3 4 4

D．3 4 5 6

正确答案：B
解析：第一次循环时x的值为2，每次加1，所以答案为2 3 4 5。

第2题：

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

第3题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。

A．VVV

B．Vis

C．sic

D．11

正确答案：A
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。

第4题：

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

正确答案：C
解析：本题考查的是For．．．Next循环语句。For．．．Next循环执行时，先将初始值赋给循环变量，判断是否超过终值；若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长，(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Nextn，则n=21，此时n大于终值20，退出循环。

第5题：

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() For i=1 To 4 If i=1 Then x=i If i＜=4 Then x=X+1 Print x Next i End Sub 程序运行后，单击命令按钮，其输出结果为：_______。

A．1 2 3 4

B．2 3 4 5

C．2 3 4 4

D．3 4 5 6

正确答案：B
解析：第一次循环时x的值为2，每次加1，所以答案为2345。

第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
解析：解题的关键是掌握对格式说明字符的理解。0表示一个数字位，0的个数决定了显示区段的长度，多余的位以0补齐；小数点与O结合使用，可以放在显示区段的任何位置，根据格式字符串的位置，小数部分多余的数字按四舍五入处理。由于本题中变量a为12345，并没有涉及小数，故可以直接在其后补两个0。

第7题：

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Cilck()

End Sub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。

正确答案：hardware
hardware

第8题：

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：

程序运行后，单击命令按钮，其输出结果为__________。

正确答案：
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。

第9题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Privme Sub Command1_Click( ) a$="VisualBasic" Print String(3，a＄) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

A．VVV

B．Vis

C．sic

D．11

正确答案：A
解析：String返回n个字符。如果为字符串，则返回n个字符串的首字符。返回3个"VisualBasic”的首字母“V”。

第10题：

在窗体上画一个命令按钮，其名称为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

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1Click() a =

题目

参考答案和解析

相似问题和答案

相关内容