画出求满1的平方+2的平方+3的平方+n的平方>10的平方的最小正整数n的程序框图

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/13 00:54:40

画出求满1的平方+2的平方+3的平方+n的平方>10的平方的最小正整数n的程序框图

Rem 语言:Visual Basic 6.0
Sub Main()  '开始
  S = 0 : n = 1
  Do
    S = S + n ^ 2
    If S > 10 ^ 2 Then Exit Do
    n = n + 1
  Loop
  MsgBox n, vbInformation, "输出"
End Sub  '结束