Private Sub Command1_Click()Dim n As Integer n = Val(Text1.Text) If n <= 180 Then Text2.Text = " 0.4" End If If n > 180 Then If n Mod 60 = 0 Then Text2.Text = CStr(0.4 + (Int(n - 180) / 60) * 0.2) End If If n Mod 60 <> 0 Then Text2.Text = CStr(0.4 + (Int((n - 180) / 60) + 1) * 0.2) End If End IfEnd Sub

界面如下

这样多明了饿\~~~写那么多文字懒的看

....................

我们学过VB~~~~~~~