Question

计算并输出一个整数各位数字之和。利用，while、do while、for语句中的两种。

Answer 1

我利用ACCESS2007按你的要求作了如下解答：

建立一个窗体，在窗体上建立2个文本框，3个计算按钮，1个关闭按钮。

2个文本框分别用来接收输入的整数，和用来显示计算结果的；

3个计算按钮分别是按你要求的3种计算方法；

1个关闭按钮是用来关闭窗体的。

在3个计算按钮的“单击”事件中分别输入如下代码（一个按钮对应一段代码）

第一段代码（For/Next 方式）：

  sz_y = Me.Text0

  n = Len(sz_y)

  hj = 0

  For i = 1 To n

    m = Mid(sz_y, i, 1)

    hj = hj + m

  Next i

  Me.Text2 = hj

第二段代码（Do While/Loop 方式）：

  sz_y = Me.Text0

  n = Len(sz_y)

  hj = 0

  i = 1

  Do While i <= n

    m = Mid(sz_y, i, 1)

    hj = hj + m

    i = i + 1

  Loop

  Me.Text2 = hj

第三段代码（While/Wend 方式）：

  sz_y = Me.Text0

  n = Len(sz_y)

  hj = 0

  i = 1

  While i <= n

    m = Mid(sz_y, i, 1)

    hj = hj + m

    i = i + 1

  Wend

  Me.Text2 = hj