VB程序设计。在窗体上输出100——200之间(包括100和200)不能被3整除的奇数及这些数的和。

2024年11月30日 06:38
有2个网友回答
网友(1):

用for循环100-200 在循环中用if判断数字能否被三整除,如果能就输出,并放入累加器中 网吧没装vb,写代码比较麻烦。。。(这个代码很容易写)

网友(2):

Private Sub Form_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 100 To 200
If ((i Mod 2) = 1) And ((i Mod 3) <> 0) Then
Print i
sum = sum + i
End If
Next i
Print sum
End Sub