Question

VB100内7的倍数计算并显示

Answer 1

Private Sub Command1_Click()

Dim i As Integer

Dim sum As Integer

sum = 0

For i = 7 To 100 Step 7

List1.AddItem i

sum = sum + i

Next

Text1.Text = sum ' 和

End Su