第二题
Private Sub Command1_Click()
Dim a As Integer
Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
a = Text1.Text
a1 = a \ 1000
a2 = (a - a1 * 1000) \ 100
a3 = (a - a1 * 1000 - a2 * 100) \ 10
a4 = a - a1 * 1000 - a2 * 100 - a3 * 10
Label1.Caption = "反向数为" & a4 & a3 & a2 & a1
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub

第3题
Private Sub Command1_Click()
Dim a1 As Single
Dim b1 As Single
Dim c1 As Single
Dim a2 As Single
Dim b2 As Single
Dim c2 As Single
Dim x As Single
Dim y As Single
a1 = Text1.Text
b1 = Text2.Text
c1 = Text3.Text
a2 = Text4.Text
b2 = Text5.Text
c2 = Text6.Text
y = (a1 * c2 - a1 * a2 * c1) / (a1 * b2 - a1 * a2 * b2)
x = (c1 - b1 * y) / a1
Label3.Caption = "x=" & x & " " & "y=" & y
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub Text2_Click()
Text2.Text = ""
End Sub
Private Sub Text3_Click()
Text3.Text = ""
End Sub
Private Sub Text4_Click()
Text4.Text = ""
End Sub
Private Sub Text5_Click()
Text5.Text = ""
End Sub
Private Sub Text6_Click()
Text6.Text = ""
End Sub

…

天数
Private Sub Command1_Click()
Dim m As Integer
m = Text1.Text
If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 Then Label2.Caption = "31天"
If m = 4 Or m = 6 Or m = 9 Or m = 11 Then Label2.Caption = "30天"
If m = 2 Then Label2.Caption = "28天"
If m < 1 Or m > 12 Then Label2.Caption = "不存在所给的月份"
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub

闰年
Private Sub Command1_Click()
Dim a As Integer, b As Single, c As Single, d As Single
a = Text1.Text
b = a \ 4
c = a Mod 100
d = a Mod 400
If b = 0 And c <> 0 Then
Label2.Caption = "闰年"
Else: Label2.Caption = "不是闰年"
End If
If d = 0 Then
Label2.Caption = "闰年"
End If
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub

改错
a = Text1.Text
b = a Mod 4
c = a Mod 100
d = a Mod 400

3.16
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x1 As Single
Dim x2 As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
Select Case d
 Case Is > 0
 x1 = (Sqr(d) + b * -1) / (2 * a)
 x2 = (-1 * Sqr(d) + b * -1) / (2 * a)
 Label3.Caption = "x1=" & x1 & "x2=" & x2
 Case 0
 x1 = x1 = (Sqr(d) + b * -1) / (2 * a)
 Label3.Caption = "x=" & x1
 Case Is < 0
 Label3.Caption = "此方程无实数解"
End Select
End Sub

Private Sub Command1_Click()
Dim i As Single, b As Single, t As Single, p As Single
p = Text1.Text
Select Case p
 Case Is < 1000
 t = 0
 i = 0
 b = p
 Label2.Caption = "原始收入：" & p & "元 " & "税率：" & t & "% " & "税金：" & i & "元 " & "实际收入：" & b & "元 "
 Case Is < 3000
 t = 10
 i = p * 0.1
 b = p * 0.9
 Label2.Caption = "原始收入：" & p & "元 " & "税率：" & t & "% " & "税金：" & i & "元 " & "实际收入：" & b & "元 "
 Case Is < 5000
 t = 15
 i = p * 0.15
 b = p * (1 - 0.15)
 Label2.Caption = "原始收入：" & p & "元 " & "税率：" & t & "% " & "税金：" & i & "元 " & "实际收入：" & b & "元 "
 Case Is >= 5000
 t = 20
 i = p * 0.2
 b = p * (1 - 0.2)
 Label2.Caption = "原始收入：" & p & "元 " & "税率：" & t & "% " & "税金：" & i & "元 " & "实际收入：" & b & "元 "
End Select
End Sub
Private Sub Text1_click()
Text1.Text = ""
End Sub