Private Sub Command1_Click()
If Val(Me.Text1.Text) <= 15 Then
Me.Text2.Text = 5
Else
If Val(Me.Text1.Text) <= 30 Then
Me.Text2.Text = 9
Else
If Val(Me.Text1.Text) <= 45 Then
Me.Text2.Text = 12
Else
If Val(Me.Text1.Text) <= 60 Then
Me.Text2.Text = 14
Else
If Val(Me.Text1.Text) <= 75 Then
Me.Text2.Text = 16
Else
Me.Text2.Text = 20
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
如果你看不懂在联系我