Question

急求答案。那个好心高手帮帮忙。VB编写程序题。写出“输出1-50之间，能被3整除的数，并累加这些数的和”的

Answer 1

private sub command1_click()
dim sum as integer
dim i as integer
sum=0
for i = 1 to 50
if i mod 3 =0 then
msgbox i &"能被3整除",VbOkOnly+VbInformation,"提示"
sum=sum+i
end if
next i
msgbox "这些数的和为" & sum,VbOkOnly+VbInformation,"提示"

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Dim s As Double
For i = 1 To 50
If i Mod 3 = 0 Then Print i;
s = s + i
Next i
Print
Print "1-50中能被3整除的数的和为" & s
End Sub