计算机二级
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click（）n = Val（Text1.Text） If n\2 = n/2 Then f = f1（n）Else f = f2（n）End IfPrint f; nEnd SubPublic Function f1（ByRef x）x=x*xf1=x+xEnd FunctionPublic Function f2（ByVal x
题目
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click（）
n = Val（Text1.Text）
If n\2 = n/2 Then
f = f1（n）
Else
f = f2（n）
End If
Print f; n
End Sub
Public Function f1（ByRef x）
x=x*x
f1=x+x
End Function
Public Function f2（ByVal x）
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是（ ）。
A．72 36
B．108 36
C．72 6
D．108 6
相似问题和答案
第1题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。
A．VVV
B．Vis
C．sic
D．11
解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。
第2题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
36
第3题：
（ 19 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i > 10 Then Exit For
Next
Text1.Text = Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A ） 5
B ） 4
C ） 3
D ） 2
第4题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。
第5题：
在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(10,10)As Integer
Dim i,j As Integer
For i=2 To 4
For j=3 To 6
Next i
Text1.Text=a(2,3)+a(4,6)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是( )。
30 解析： 本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2,3)赋值为2*3也就是6，a(4,6)赋值为4*6也就是24，最后的结果为6+24=30。
第6题：
设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的内容是______。
A．30
B．25
C．20
D．15
解析：在Command1_Click过程中，数组arr(1)～arr(5)的初值为2、4、6、8、10，在子函数Fun中，数组arr的内容传送给数组a，在For-Next循环中将其内容相加起来的30赋给变量x，x的内容按地址传送的方式传给变量n，函数Str将n的内容转换成字符串在Text1中显示出来。
第7题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim s As Integer
Dim aa(3, 2) As Integer
For i = 1 To 3
For j = 1 To 2
aa(i, j) = i + j
Next j
Next i
s = aa(1, 2) + aa(2, 1)
Print s
End Sub
程序运行后，单击命令按钮，窗体上显示的值是( )
A. 4
B. 5
C.6
D. 7
第8题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dimarrayl(10，10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i，j)=i+j Nextj Nexti Text1.Text=axvay
A．15
B．14
C．13
D．12
第9题：
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n=0
For i=0 To 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next i
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
3 解析：本题考查循环的知识。Exit语句用于中途退出循环，所以带有Exit语句的循环结束后，一定要判断清楚到底是因为不满足循环条件而退出循环的，还是由于执行到了Exit语句而退出循环的。本题中不等i循环到50就会因为满足If语句的条件从而执行到Exit For语句退出循环，注意到每次循环时除了要执行i=i+3以外，在本次循环结束后还要加上步长1，经过计算在第3次循环的时候由于i的值为11而满足了If语句的条件，执行Exit For后退出循环，此时的n值为3。
第10题：
在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：
程序运行后，单击命令按钮，在文本框中显示的值是__________。
30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。