作业帮 > 综合 > 作业

急求vb编写程序,输入一个十进制数N(0 < N < 100),求出能被3整除且小于N的整数.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/30 13:40:51
急求vb编写程序,输入一个十进制数N(0 < N < 100),求出能被3整除且小于N的整数.
用循环I=TO N,依次判断每一个数是否能被3整除(即MOD 3是否0)
急求vb编写程序,输入一个十进制数N(0 < N < 100),求出能被3整除且小于N的整数.
这样才完整:判断不出错.N-1省去了许多判断,提高了效率.
Private Sub Command1_Click()
Dim N As Integer
Dim i As Integer
If IsNumeric(Text1.Text) Then
If N > 0 And N < 100 Then
N = Val(Text1.Text)
For i = 1 To N - 1
If (i Mod 3 = 0) Then
Text2.Text = Text2.Text & i & vbNewLine
End If
Next i
End If
End If
End Su