VB小毛题2道,在此求解,特别简单,看看就会~!要快啊每到20分,请你们帮忙

Question

Dim a As Integer
Dim i As Single
Private Sub Command1_Click()
i = Text1.Text
If i < 0 Then a = 0
If i < 200 Then a = 1
If i >= 200 And i < 400 Then a = 2
If i >= 400 And i < 5000 Then a = 3
If i >= 5000 Then a = 4
Select Case a
Case 0
MsgBox ("非法输入")
Case 1
Text2.Text = Str(i)
Case 2
Text2.Text = i * (1 - 0.03)
Case 3
Text2.Text = i * (1 - 0.04)
Case 4
Text2.Text = i * (1 - 0.05)
End Select
End Sub
TEXT1是应的收入，text2中显示扣税后收入。

Answer 1

TEXT1、TEXT2分别是正数M、N
TEXT3显示最大公约数Dim m, n, t As IntegerPrivate Sub Command1_Click()
m = Val(Text1.Text): n = Val(Text2.Text)
If m <= n Then t = m: m = n: n = t
r = m - n * Int(m / n)
While r <> 0
m = n: n = r: r = m - n * Int(m / n)
Wend
Text3.Text = n
End Sub

Answer 2

第二个也是显示溢出啊,
能把窗体发给我们..??
就现在.
我的EMAIL:[email protected]