vb问题,求具体解题过程
PrivateSubForm_Click()DimmAsIntegerDimnAsIntegerm=10Dom=m+nForn=10To1Step-1m=m+nNextn...
Private Sub Form_Click()
Dim m As Integer
Dim n As Integer
m = 10
Do
m = m + n
For n = 10 To 1 Step -1
m = m + n
Next n
Loop While m < 50
Print m, n
End Sub 展开
Dim m As Integer
Dim n As Integer
m = 10
Do
m = m + n
For n = 10 To 1 Step -1
m = m + n
Next n
Loop While m < 50
Print m, n
End Sub 展开
展开全部
答案 65,0
m原来就是10，经过了10+9+...+2+1之后，自然是65
m原来就是10，经过了10+9+...+2+1之后，自然是65
追问
大于50输出不，为什么
追答
不输出，直到从10加到1，加完了才输出，因为你外循环是do while，内循环中并没有指定循环退出的条件，所以10循环到1，不运行完毕，绝不会退出来，全部加完之后就是10+55，n仍然是0
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
