在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()Dim x As Integer,y As Integerx=12：y=32Call p(x,y)MsgBox x*yEnd SubPublic Sub p(n As Integer,By Val m As Integer)n=n Mod 10m=m Mod 10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为【】。

题目

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click()

Dim x As Integer,y As Integer

x=12：y=32

Call p(x,y)

MsgBox x*y

End Sub

Public Sub p(n As Integer,By Val m As Integer)

n=n Mod 10

m=m Mod 10

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为【】。

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

相似问题和答案

第1题：

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

A．机床

B．车床

C．钻床

D．轴承

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

第2题：

在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码： Private Sub Commandl_click() m＝2.17 n＝Len(Str$(m) +Space(5) ) Me!Text1＝n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。

A．5

B．8

C．9

D．10

正确答案：D
解析：本题考查基本字符串函数的知识。在VBA中，Str函数用于将数字转换成字符串，当数字转换为字符串时，总会预留一个空格给前面的正负号。如果参数是正数，回传的字符串会有一个前置空格。2.17转换成字符串“2.17”，后面再连接上5个空格，然后用Len函数来求长度，最后结果为10。

第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题：

在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )

A．0

B．1

C．2

D．3

正确答案：D
解析：由Static语句定义的变量只建立一次，能在过程结束后保存原值。题中第一次单击命令按扭时，a的初始值为o，执行语句后a的值变为1；在第二次单击按扭时，a的初始值应保留上次的结果值1，执行语句后 a的值变为2；同理在第三次单击按扭后，变量 a的值变为3。

第5题：

在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。

A．11

B．a=11

C．0

D．False

正确答案：D
解析：程序中“MsgBox a=b＋c”表示在消息框中显示a与b＋c的值比较的结果，由“a=0:b=5:c=6”可知，0! =11，所以消息框的输出结果为FALSE。

第6题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Private Sub Commandl_Click() A＝75 IfA<60 Then x＝1 IFA<70 Then x＝2 IfA<80 Then x＝3 IFA<90 Then x＝4 MsgBox x End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是( )。

A．1

B．2

C．3

D．4

正确答案：D
解析：本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x＝1；然后再判断75不小于 70，所以不执行x＝2 再接着判断75小于80，所以执行x＝3 最后判断75小于90，所以执行x＝4。最后消息框里输出的x值为4。

第7题：

在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。

A．1

B．2

C．3

D．4

正确答案：D
解析： if语句为if条件表达式1 Then语句1，当条件表达式1为真时要执行语句1。在程序中，A＝95，A＞90为真，因此执行语句“I＝4”，输出结果为4。

第8题：

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

Private Sub Command1_Click（）

Dim s，i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为。

正确答案：

第9题：

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_CliCk() A=75 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。

A．1

B．2

C．3

D．4

正确答案：B
解析：“If条件表达式I Then条件表达式1为真时要执行的语句序列”，在程序中，A=75，即A＞70，执行“If A＞70 Then I=2”，所以，I=2。

第10题：

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。

A．空白

B．错误提示

C．北京

D．上海

正确答案：D
解析：OptionBase0约定了数组下标从0开始，city(1)则为数组的第二个元素，即显示的内容为“上海”。

在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Private Sub Command1_Click(

题目

相似问题和答案

更多相关问题

相关内容