参考答案:[操作步骤]
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
Dim s As Long
Dim i As Integer
m=Val(Text1.Text)
’将文本框中的字符转换成数值型
n=Val(Text2.Text)
s=0
For i=m To n-m
t=f(i) ’调用函数得到N的阶乘
s=s+t
Next
lblResult.Caption=s
End Sub
Private Function f(ByRef x As Integer)AsLong ’ByRef为传址传递
Dim t As Long
t=1
For i=1 To x ’实现对数值进行阶乘运算
t=t*i
Next
f=t ’返回计算结果
End Function
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
答案解析:[考点] 本题考点有:标签的Caption属性、Val()函数和For循环语句。
Function f()过程函数用于实现对数值阶乘的运算,Val()函数实现将文本框中的字符转换成数值型,通
我来回答:
最新试题