实验目的:
学号姓名,以及成绩输入和计算。
实验原理:采用了inputbox,定义了一个av函数,xh & ' ' & 可以采取这样的方式加输入项中的空格。
Dim xh As String, xm As String
Dim chinese As Integer, maths As Integer, english As Integer, av As Integer
Private Sub Command1_Click()
xh = InputBox('请输入学号:', '输入框')
xm = InputBox('请输入姓名:', '输入框')
chinese = InputBox('请输入语文成绩:', '输入框')
maths = InputBox('请输入数学成绩:', '输入框')
english = InputBox('请输入英语成绩:', '输入框')
Text1.Text = xh
Text2