VB计算1*2*3···*m的值,其中m的值由用户输入算法提示1.设置计算变量n和累积变量t,它们的初值都置为12.设计一个循环过程.在循环体中,用赋值语句t=t*n将n的值累乘,赋值语句n=n+1使n的每循

Question

VB 计算1*2*3···*m的值,其中m的值由用户输入
【算法提示】
1.设置计算变量n和累积变量t,它们的初值都置为1
2.设计一个循环过程.在循环体中,用赋值语句 t=t*n 将n的值累乘,赋值语句n=n+1使n的每循环一次都增加1
3.当n的值大于m时,循环结束.
【思考】1.若m的值很大,对程序有什么影响,应该怎样处理?
2.若公式改为1+2+3+···+m,程序又如何修改

Answer 1

’试一下
Private Sub Command1_Click()
Dim t,n,m
m = InputBox("输入一个正整数：",,10)
If IsNumeric(m) Then
m = Val(m)
t = 1:n = 1
Do Until n > m
t = t * n
n = n + 1
Loop
Print t
End If
End Sub
Private Sub Command2_Click()
Dim t,n,m
m = InputBox("输入一个正整数：",,10)
If IsNumeric(m) Then
n = 1:m = Val(m)
n = 1
Do Until n > m
t = t + n
n = n + 1
Loop
Print t
End If
End Sub