vb系统中，在两个文本框中输入范围,计算该范围中3的倍数有几个

显示全部楼层 · 2010-6-18 13:35:54

Private Sub Command1_Click()If Val(Text1.Text) > Val(Text2.Text) Then t = Text2.Text: Text2.Text = Text1.Text: Text1.Text = tFor i = Val(Text1.Text) To Val(Text2.Text)If i Mod 3 = 0 Then a = a + 1Next iLabel1.Caption = Val(Text1.Text) & "到" & Val(Text2.Te

千问 · 2010-6-18 13:35:54

Private Sub Command1_Click()
Dim a&, b&, s$
a = Int(Val(Text1) - 0.1) + 1: b = Int(Val(Text2))
For i = a To b Step (b - a) / Abs(a - b)
If i Mod 3 = 0 Then

千问 · 2010-6-18 13:35:54

范围a-范围b dim c as Integer for i=a to b
If I Mod 3 = 0 Then c=c+1nexti