赞 tony_sky2008 幼苗
共回答了17个问题采纳率：82.4% 举报
Option Explicit
Private Sub Command1_Click()
Dim s As Single, n As Long, st As String
n = 1
s = 0
Do
DoEvents
s = s + n
st = st & n
If s = 100 Then
MsgBox "计算s=1+3+5+...+n,s=100得值结果为：" & Chr(13) & Chr(10) & st & "= " & s & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "n的值为： " & n
Exit Do
End If
st = st & " + "
n = n + 2
Loop
End Su
Private Sub Command1_Click()
Dim s As Single, n As Long, st As String
n = 1
s = 0
Do
DoEvents
s = s + n
st = st & n
If s = 100 Then
MsgBox "计算s=1+3+5+...+n,s=100得值结果为：" & Chr(13) & Chr(10) & st & "= " & s & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "n的值为： " & n
Exit Do
End If
st = st & " + "
n = n + 2
Loop
End Su
1年前 追问
3
Option Explicit Private Sub Command1_Click() Dim s As Single, n As Long, st As String n = 1 ‘第一个奇数 s = 0 ‘初始值为0 Do ’循环开始 DoEvents ‘转让控制权，注：为了防止死循环。 s = s + n ‘ 循环时，相当于s=1+3+5+...+n st = st & n '为了能知道循环中N出现的值。 If s = 100 Then MsgBox "计算s=1+3+5+...+n,s=100得值结果为：" & Chr(13) & Chr(10) & st & "= " & s & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "n的值为： " & n Exit Do ‘发现S=100，显示结果，退出循环 End If st = st & " + " n = n + 2 ’未发现S=100，n的值变为下一个奇数。 Loop End Sub
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗