Question

VB中这个怎么编写？新手求指教

Answer 1

Option Explicit
' 语文对应的输入框名称是 txtyu,,数学txtsu,,外语txtwai,,总分txtzong,,平均分txtping
'自己去判断输入的数是是否小于0 或大于100
'自己去判断输入的数是不是数字..
'有问题可以找我...

Private Sub Command1_Click() '计算总分.
If checkval Then
txtzong.Text = CInt(Trim(txtyu.Text)) + CInt(Trim(txtsu.Text)) + CInt(Trim(txtwai.Text))
End If
End Sub
Private Sub Command2_Click() '计算平均分.
If checkval Then
txtping.Text = (CInt(Trim(txtyu.Text)) + CInt(Trim(txtsu.Text)) + CInt(Trim(txtwai.Text))) / 3
End If
End Sub
Function checkval() As Boolean '检查三个成绩是否填完,如果没有填完那么就填
checkval = False
If Trim(txtyu.Text) = "" Then
MsgBox "请填写完语文成绩!"
txtyu.SetFocus
ElseIf Trim(txtsu.Text) = "" Then
MsgBox "请填写完数学成绩!"
txtsu.SetFocus
ElseIf Trim(txtwai.Text) = "" Then
MsgBox "请填写完外语成绩!"
txtwai.SetFocus
Else
checkval = True
End If
End Function

Answer 2

Option Explicit
dim yw,sx,yy as Integer
Private Sub Command1_Click()
yw=val(text1.text)

sx=val(text2.text）

yy=val(text3.text)
text4.text=yw+sx+yy
end sub
Private Sub Command2_Click()
text5.text=val(text4.text)/3

end sub