VB 计算1*2*3···*m的值,其中m的值由用户输入
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,程序又如何修改
【算法提示】
1.设置计算变量n和累积变量t,它们的初值都置为1
2.设计一个循环过程.在循环体中,用赋值语句 t=t*n 将n的值累乘,赋值语句n=n+1使n的每循环一次都增加1
3.当n的值大于m时,循环结束.
【思考】1.若m的值很大,对程序有什么影响,应该怎样处理?
2.若公式改为1+2+3+···+m,程序又如何修改
赞 我爱考啦 春芽
共回答了13个问题采纳率：84.6% 举报
’试一下
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 Su
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 Su
1年前 追问
7
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗