VB 程序设计求助

Question

选择结构

已知某学院入学测试计分情况为：数学满分50分；计算机满分100分；外语6级为“优秀”加15分，“通过”加8分，外语4级为“合格”加6分，外语只能计一次最高的分数。利用inputbox输入一个学生的对应课程的成绩，编写计算考试总分的程序段。

Answer 1

一个小程序，只为完成功能呀

Dim chengji As Integer
Dim sum As Integer
Dim chengjiforei As String
sum = 0
chengji = InputBox("请输入数学成绩！", "成绩录入")
sum = sum + chengji
chengji = InputBox("请输入计算机成绩！", "成绩录入")
sum = sum + chengji
chengjiforei = InputBox("请输入外语4、6级成绩！", "成绩录入")
If chengjiforei = "优秀" Then
chengji = 15
ElseIf chengjiforei = "通过" Then
chengji = 8
ElseIf chengjiforei = "合格" Then
chengji = 6
End If
sum = sum + chengji
MsgBox "该学生成绩为：" & sum
Exit Sub

Answer 2

Private Sub Form_Load()
Dim i1 As Byte, i2 As Byte, i3 As Byte, i4 As Byte, jiafen As Byte
i1 = InputBox("数学分数")
i2 = Val(InputBox("计算机分数"))
i3 = Val(InputBox("四级分数"))
i4 = Val(InputBox("六级分数"))

If i4 >= 85 Then
jiafen = 15
ElseIf i4 >= 60 And i4 < 85 Then
jiafen = 8
ElseIf i3 >= 60 Then
jiafen = 6
End If

MsgBox "总得分为" & Str(i1 + i2 + jiafen)

End Sub

Answer 3

采用选择结构（SELECT语句）的VB过程：

Private Sub calcAchv()
Dim strInput As String
Dim lTot As Single
Dim lTmp As Single

lTot = 0
strInput = Trim$(InputBox$("请输入数学成绩："))
If strInput = "" Then
MsgBox "请输入正确的数学成绩！"
Exit Sub
ElseIf Not IsNumeric(strInput) Then
MsgBox "请输入正确的数学成绩！"
Exit Sub
End If
lTot = CSng(strInput)
Select Case lTot
Case Is < 0
MsgBox "请输入正确的数学成绩！"
Exit Sub
Case Is > 50
MsgBox "请输入正确的数学成绩！"
Exit Sub
End Select

strInput = Trim$(InputBox$("请输入计算机成绩："))
If strInput = "" Then
MsgBox "请输入正确的计算机成绩！"
Exit Sub
ElseIf Not IsNumeric(strInput) Then
MsgBox "请输入正确的计算机成绩！"
Exit Sub
End If
lTmp = CSng(strInput)
Select Case lTot
Case Is < 0
MsgBox "请输入正确的计算机成绩！"
Exit Sub
Case Is > 100
MsgBox "请输入正确的计算机成绩！"
Exit Sub
End Select

lTot = lTot + lTmp

strInput = Trim$(InputBox$("请输入外语六级成绩（优秀、通过，点取消则表示未通过）："))

Select Case strInput
Case "优秀"
lTmp = 15
Case "通过"
lTmp = 8
Case Else
lTmp = 0
End Select
strInput = Trim$(InputBox$("请输入外语四级成绩（合格，其他或点取消则表示不合格）："))
If strInput = "合格" And lTmp = 0 Then lTmp = 6
lTot = lTot + lTmp

MsgBox "总分：" & CStr(lTot)
End Sub本回答被提问者采纳