Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim yw%, sx%, yy%, xm$, pj%
xm = TextBox1.Text
yw = Val(TextBox2.Text)
sx = Val(TextBox3.Text)
yy = Val(TextBox4.Text)
pj = (yw + sx + yy) / 3
TextBox5.Text = pj
If pj < 60 Then
Label6.Text = xm & "平均成绩小于60,不能评定奖学金!"
End If
End Sub
End Class
07-06
07-07
“相关推荐”对你有帮助么?
-
非常没帮助
-
没帮助
-
一般
-
有帮助
-
非常有帮助
提交