单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End SubA．20 10B．10 20C．2 10D．10 10

题目

单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End Sub

A．20 10

B．10 20

C．2 10

D．10 10

参考答案和解析

正确答案：C

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

相似问题和答案

第1题：

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

Private Sub Command1_Click()

Dim s ， i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

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

正确答案：

第2题：

单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End Sub

A．1 4 9 16

B．1 3 5 7

C．3 6 9 12

D．2 4 6 8

正确答案：A

第3题：

单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a,B)Print a, b End Sub Sub writein(a, ByValB)b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub

A．24 6

B．24 0

C．12 6

D．12 0

正确答案：B

第4题：

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码： Pfivate Sub Command 1 Click（）窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A. 1

B. 2

C. 3

D. 4

正确答案：A
本题考查条件语句的知识。在 If．．．Then…Elself．．．语句中，当某一个条件满足时，将会执行Then后面的语句，并且随后退出条件分支。在本题中，a=75满足第一个条件“a>60”．将执行Then后的语句。将1赋值给变量g，然后结束条件判断。最后将g的值l输出到消息框，所以消息框的输出结果是1。

第5题：

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

Pfivme Sub f(ByVal x As Integer)

x＝x+4

End Sub

Pfivate Sub Commandl_Click()

i＝3

Call f(i)

Ifi>4 Then i＝i*2

MsgBOx I

End Sub

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

正确答案：3
3 解析：本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完Call f(i) 这条语句后i的值不变仍为 3，当然也不满足If语句的条件，故此最后输出结果为3。

第6题：

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

Private Sub Command1_Click()

Dim a As Integer,b As Integer

x=10

y=20

End Sub

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

正确答案：20
20 解析：本题考查IIf函数的知识。对于IIf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x＞y为假，所以返回y的值也就是返回20。

第7题：

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

Private Sub Command1_Click()

sum=0

For i=1 To 100 step 2

Next i

MsgBox sum

End Sub

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

正确答案：2500
2500 解析：本题考查循环的知识。这个问题比较简单，实际上就是求1到100之间的奇数和，最终结果为2500。

第8题：

在窗体中添加命令按钮cmd，并编写如下程序：

Funtion panduan(x As Integer,y As Integer) As Integer

panduan=IIF(x＞y,x,y)

End Function

Private Sub cmd_click()

Dim a As Integer,b As Integer

a=4

b=7

MsgBox panduan( a, b)

End Sub

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

正确答案：7
7 解析：IIf函数是根据第一个表达式的值来取值，如果第一个表达式为True，则返回第二个参数，如果为False，则返回第三个参数。本题中表达式为4＞7，结果为False，故返回7。

第9题：

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

Private Sub Command1_Click（）

Dim s，i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

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

正确答案：

55

单击一次命令按钮之后,窗体中的输出结果为______。Private Sub Command1_ Click() Dim a As Singl

题目

参考答案和解析

相似问题和答案

相关内容