计算机二级
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Forn=1 To 20 If n Mod 3＜＞Thenm=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。A．15B．18C．21D．24
题目
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Forn=1 To 20 If n Mod 3＜＞Thenm=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A．15
B．18
C．21
D．24
相似问题和答案
第1题：
在窗体上画一个名称为Commandl命令按钮，然后编写如下事件过程： Private Sub Commandl_click() c="ABCD" For n=1 To 4 Print______ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 D CD BCD ABCD 则在______处填入的内容为。
A． Left(c,n)
B．Right(c,n)
C．Mid(c,n,1)
D．Mid(c,n,n)
解析：由显示内容可以看出，题目要求每次从右开始取n的字符，而从右开始取n的字符的语句为Right(c,n)。
第2题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2) 就是数组的第三个元素即“钻床”。
第3题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl_Click()
Dimi As Integer,j As Integer
Dima(10,10)As Integer
Fori=1 To 3
Forj=1 To 3
a(i，j)=(i-1)*3+j
Printa(i，j)；
Nextj
Nexti
End Sub
A．
B．
C．
D．
第4题：
在窗体上画一个命令按钮(名称为 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。
第5题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Prirate Sub Commandl_click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。
A．software andhardware
B．software
C．hardware
D．1
第6题：
在窗体上画一个名称为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． 6
B．7
C．8
D．9
解析：本题中fun函数的功能是偶数时返回2，奇数时返回1。而1到5中，有三个奇数，两个偶数。所以s是三个1和两个2之和。故s=7。
第7题：
在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Commandl_Click()
a$=”software and hardware”
b$=Right(a$，8)
c$=Mid(a$，1，8)
MsgBox a$，bs，cS，1
End sub
则在弹出的信息框标题栏中显示的标题是( )。
A．software and hardware
B．hardware
C．software
D．1
解析：MsgBox函数的格式为：MsgBox(msg[，type][，title][，helpfile,context])该函数有5个参数，除第二个参数外，其余参数都是可选的。Mid函数用于提取字符串中的指定位数，函数调用格式为Mid(string，start[，length])，其中start为必要参数，为Long型，为被取出部分的首字符的位置。如果start超过string的字符数，Mid返回空串。Right函数格式为Right(string，length)，返回值为String型，其中包含从字符串右边取出的指定数量的字符。所以选B。
第8题：
在窗体上画一个名称为Commandl的命令按钮，一个名称为Labell的标签，然后编写如下事件过程： Private Sub Commandl_Click() S=0 Fori=1 To 15 x=2*i-1 If x Mod3=0 Thens=S+1 Nexti Labe11.Caption=S End Sub 程序运行后，单击命令按钮，则标签中显示的内容是( )。
A．1
B．5
C．27
D．45
第9题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。
第10题：
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )
A．123345
B．468
C．123
D．345
解析：InputBox函数返回的是字符串类型值，故x应为字符串类型。执行语句Print x+345时，x的类型自动转换为整型。相当于执行了123、345两数的和，故窗体上的输出内容为468。