在窗体上画一个名为Commandl的命令按钮，然后编写如下程序：Private Sub Conunandl_Click()Dim i As IntegerSum=0n=InputBox(”晰a number”)n=Val(n)For i=1 T0 nSum=【 】Nextiprint SumEnd SubFunction fun(t As Integer)As LongP=1For i=1 To tP=P*iNext i【 】End Function以上程序的功能是，计算1 1+2 1+3 1+…+n!，
题目
在窗体上画一个名为Commandl的命令按钮，然后编写如下程序：
Private Sub Conunandl_Click()
Dim i As Integer
Sum=0
n=InputBox(”晰a number”)
n=Val(n)
For i=1 T0 n
Sum=【 】
Nexti
print Sum
End Sub
Function fun(t As Integer)As Long
P=1
For i=1 To t
P=P*i
Next i
【 】
End Function
以上程序的功能是，计算1 1+2 1+3 1+…+n!，其中n从键盘输入，请填空。
相似考题
更多“在窗体上画一个名为Commandl的命令按钮,然后编写如下程序:Private Sub Conunandl_Click()Dim i A ”相关问题
-
第1题：
在窗体上画一个名为Commandl的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是（ ）。A. 4
B. 5
C. 6
D. 8
正确答案：A
A) 【解析】本题考查数组中元素的分析。数组中的第k个元素的值为12-k，因此M(6)数据为6，M(8)为4。
-
第2题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A)机床
B)车床
C)钻床
D)轴承
正确答案：C
本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。 -
第3题：
在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:
Private Sub Commandl_Click()
For I=1 T0 2
For J=1 To I
Print String(I,″Hello″);
Next J
Print
Next I
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A．H HH HH
B．H HHHH
C．HHHHH
D．H HH HHHH
正确答案：B
解析：Click事件是在按钮控件上按下然后释放一个鼠标按钮时发生。Print函数用于在指定窗口显示文本。String 函数返回包含指定长度重复字符的字符串。题中嵌套For循环,第一次"i=1",故"for j=1 to 1",输出"H",内层J循环结束,输出空行。第二次"i=2",故"for j=1 to 2",内层J循环2次,输出"HHHH",内层J循环结束,输出空行,I循环结束。 -
第4题：
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： PrivateSubCommandl_CnCk() aS="VisualBasic"， Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( )。
A．VVV
B．Vis
C．sic
D．11
正确答案：A
-
第5题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
正确答案：C
暂无解析，请参考用户分享笔记 -
第6题：
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：
正确答案：
15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。