满意答案
joegogo
2014.07.07
采纳率:49% 等级:10
已帮助:618人
用visual studio 2005,VB语言编写,测试通过Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim add_number As String = "" Dim s As Long Dim incr As Integer = 1 While s < 10 ^ 8 add_number = add_number & CStr(incr) s = s + CInt(add_number) incr = incr + 1 End While MsgBox("用while循环算得S=" & s) '变回初值 add_number = "" s = 0 incr = 1 Do add_number = add_number & CStr(incr) s = s + CInt(add_number) incr = incr + 1 Loop While s < 10 ^ 8 MsgBox("用do while循环算得S=" & s) End SubEnd Class
10分享举报