2007-10-04 15:00:21奶茶
VB成績計算
Private Sub Command1_Click()
Avg = (Val(text1.Text) + Val(text2.Text) + Val(text3.Text)) / 3
Label6.Caption = ”三科平均為” & Avg & ”分”
If Avg >= 85 Then
Label4.Caption = ”你的表現真是棒啊！”
Else
If Avg >= 60 And Avg < 85 Then
Label4.Caption = ”還不錯哩～”
Else
Label4.Caption = ”還要再接再厲哦！”
End If
End If
End Sub
Avg = (Val(text1.Text) + Val(text2.Text) + Val(text3.Text)) / 3
Label6.Caption = ”三科平均為” & Avg & ”分”
If Avg >= 85 Then
Label4.Caption = ”你的表現真是棒啊！”
Else
If Avg >= 60 And Avg < 85 Then
Label4.Caption = ”還不錯哩～”
Else
Label4.Caption = ”還要再接再厲哦！”
End If
End If
End Sub
上一篇：又來摟VB菜單程式寫法
下一篇：水費計算