Private Sub Form1_load()
a = Val(InputBox("输入英语成绩", "输入"))
b = Val(InputBox("输入计算机成绩", "输入"))
c = Val(InputBox("输入数学成绩", "输入"))
d = (a + b + c) / 3
MsgBox "平均成绩为" & d
End Sub
Private Sub Form1_load()
a = Val(text1.text)
b = Val(text2.text)
c = Val(text3.text)
d = (a + b + c) / 3
MsgBox "平均成绩为" & d
End Sub
我直接写的还没试,你试试看,不能用跟我说
温馨提示:答案为网友推荐,仅供参考