1. 阅读程序,回答问题。
(1) 将程序中的空白处补充完整。

Private Sub Form_Click()

    Dim y, s, n As Integer

    n = InputBox("输入n")

    y = 0:

    Do While n \ 10 <> 0

        y = n Mod 10

        s = s + y

        n = n \ 10

    Loop

   

    Print s

End Sub

(2) 将流程图中的空白处补充完整。

①处应填写:;②处应填写:

(3) 若输入n的值为62,程序执行完毕,s的值是,该程序采用类型的算法。(解析法/穷举法)
【考点】
解析算法及程序实现; 流程图识读; 循环结构语句及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通