小王编写VB程序,实现如下功能:在Text1中输入1~9之间的任意一个数字,单击“计算”按钮Command1, 计算该数字的阶乘并显示在标签Label2中。程序运行界面如图所示:
(1)
如图所示,窗体中(不包含窗体本身)的对象共有个(填数字)。
(2)
实现上述功能的VB程序如下,请在划线处填写合适的代码。
Private Sub
Command1_Click()
Dim i As Integer, j
As Integer, s As Long
s = 1
i =
If i >= 1 And i
<= 9 Then
For j = 1 To i
s =
Next j
Label2.Caption =
Str(i) & "的阶乘为:"
& Str(s)
Else
Label2.Caption =
"请重新输入1~ 9之间的任意数字"
End If
End Sub
(3)
程序中,若将变量s的类型由Long改为Integer,在文本框Text1中输入的内容为“9”,单击“计算”按钮后,程序运行将会出现什么情况(单选,填字母:A .溢出 /
B .类型不匹配 / C .要求对象)。
答案: 【1】4
【1】Val(Text1.Text)【2】s * j
【1】A