青岛科技大学vb答案实验四(2)

3）调试过程记录（错误情况及改正方法）

2．设计程序：求100 以内所有19的倍数的数。并求这些数的和。

要求：点击“显示”按钮时，将结果显示在窗体上。

点击“求和”按钮时，将结果显示在一个文本框中。

1）代码设计如下

Dim b As Integer, c As Integer

Private Sub Command1_Click()

For b = 1 To 100

If b Mod 19 = 0 Then

Print b

End If

Next b

End Sub

Private Sub Command2_Click()

For b = 1 To 100

If b Mod 19 = 0 Then

c = c + b