违法和不良信息举报 联系客服
免费注册 登录

在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为()。Private Sub fun() Static a

题目

在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a； End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End Sub

A．2 2 2

B．0 0 0

C．2 4 8

D．2 4 6

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

第1题：

在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为，( )。 Private Sub fun(ByVal x As Integer,ByVal y As Integer,Byval z As Integer) z=x^3*y^3 End Sub Private Sub Command1_Click() Dim m As Integer Call fun(2，3，m) Print m End Sub

A．216

B．0

C．35

D．程序不能运行


正确答案：B
解析：当发生了Command1．的单击事件时，调用fun过程，把常量2、3和变量m按值传给形参x、y和z，在过程fun中把表达式“x^3*y^3”的值赋给z，z的值为316。过程调用返回后，由于m是值传递，所以对z的修改并没有改变它的值，m依旧保留原来的值是0。

第2题：

在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Function fun(x As Integer，y As Integer) Static m As Integer Static i As Integer i=i+2 i=i+m+1 m=i+x+y fun=m End Function Private Sub Command1_Click() Dim j As Integer，m As Integer,k As Integer j=4：m=1 k=fun(j,m) Print k； k=fun (j，m) Print k End Sub

A．8 18

B．7 17

C．7 19

D．8 19


正确答案：D
解析：当发生Command1的单击事件时，定义了两个变量j和m，并依次赋值为4和1，然后调用fun函数，把i和m按地址传递给x和y，进入fun函数执行。在fun函数中定义了两个静态变量m和i，执行三条赋值语句后i的值为3，m的值为8，通过给函数名赋值把8作为函数值返回并赋值给k，输出k的值为8；再一次调用函数fun，把j和m依次按地址传给x和y，进入fun函数执行，注意，由于m和i是静态变量，此时的值不再是0，而是上一次退出时的值为3和8。执行三条赋值语句后i的值为14，m的值为19，通过给函数名赋值，把19作为函数值返回并赋值给k，输出k的值为19。

第3题：

在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 ______。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (A)c = fun3 (B)Print c End Sub

A．6

B．8

C．9

D．12


正确答案：C
解析：当单击按钮时，首先调用fun3函数过程，把a的值按地址传递给形参x，在fun3函数中首先定义了一个静态变量t，通过两条赋值语句使t的值变为5，5作为函数的返回值并赋值给c；再一次调用fun3函数，此时需注意，静态变量依旧保持上次退出时的5，所以执行下面的两条语句后，a的值是9，把9作为函数的返回值并赋值给c，因此c的输出值为9。

第4题：

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

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

A)机床

B)车床

C)钻床

D)轴承


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

第5题：

在窗体上画一个命令按钮。然后编写如下事件过程：

程序运行后，连续单击三次命令按钮，输出的结果是

A．7 36

B．15 72

C．1 5 108

D．72 256


正确答案：C
因为X重新赋值，所以每次循环结果一样。计算一次即可，结果为l5。对于y，内层循环一次，其值为3。共循环12次，所以其值为36。当多次单击命令按钮时，x是普通变量，每次单击只是重新计算一次，执行结果一样，仍然为15。但Y是静态变量，程序没有结束运行之前，仍然保持上一次的值。每单击一次按钮，它将累计本次执行结果。执行三次，结果为36+36+36=108。选择C。

第6题：

在窗体上画一个命令按钮，其名称为Command]，然后编写如下事件过程：程序运行后，单击命令按钮，消息框输出的是（ ）

A. 48

B. 72

C. 96

D. 128


正确答案：B
奉题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。浅们只需要注意这两个数组元素在循环中被赋了什么值，当i=3 j=3时，al(3，3)=3+3=6，a2(3。3)= al(3，3)+3+3=12．所以最后二者之积为72。

第7题：

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

程序运行后，单击命令按钮，消息框输出的是系统当前日期和当前时间。


正确答案：
72【解析】本题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。我们只需要注意这两个数组元素在循环中被赋了什么值，当i=3，j=3时，al(3，3)=3 3=6，a2(3，3)=al(3，3) 3 3=12，所以最后二者之积为72。

第8题：

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl—Click() x=InputBox(“请输入一个整数”) Print x+345 End Sub 程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )

A．123345

B．468

C．123

D．345


正确答案：B
解析：InputBox函数返回的是字符串类型值，故x应为字符串类型。执行语句Print x+345时，x的类型自动转换为整型。相当于执行了123、345两数的和，故窗体上的输出内容为468。

第9题：

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

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


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

相关内容