UC知道vb 简单程序 帮忙找错
来源：百度知道 编辑：UC知道 时间：2024/05/09 19:51:24
评一，二，三等奖
1，三门总分大于285 或两门是100，且第三门不低于80 --- 一等奖
2，三门总分大于270 或一门是100，且其他两门不低于75 --- 二等奖
3，三门都不低于70 --- 三等奖
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then
d = a: a = b: b = d
If a < c Then
d = a: a = c: c = d
If b < c Then
d = b: b = c: c = d
If (a + b + c > 285) Or (b = 100 And c > 85) Then
Label4.Caption = "一等奖"
ElseIf (a + b + c > 270) Or (a = 100 And c > 75) Then
Label4.Caption = "二等奖"
ElseIf c >= 70 Then
Label4.Caption = "三等奖"
Else
Label4.Caption = "无"
End If
End If
End If
End If
End Sub
加了括号还是没用
1，三门总分大于285 或两门是100，且第三门不低于80 --- 一等奖
2，三门总分大于270 或一门是100，且其他两门不低于75 --- 二等奖
3，三门都不低于70 --- 三等奖
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then
d = a: a = b: b = d
If a < c Then
d = a: a = c: c = d
If b < c Then
d = b: b = c: c = d
If (a + b + c > 285) Or (b = 100 And c > 85) Then
Label4.Caption = "一等奖"
ElseIf (a + b + c > 270) Or (a = 100 And c > 75) Then
Label4.Caption = "二等奖"
ElseIf c >= 70 Then
Label4.Caption = "三等奖"
Else
Label4.Caption = "无"
End If
End If
End If
End If
End Sub
加了括号还是没用
你这样改一下试试
我测试了。通过......!
答对的话,请给分!
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b Then d = a: a = b: b = d
If a < c Then d = a: a = c: c = d
If b < c Then d = b: b = c: c = d
If (a + b + c > 285) Or (b = 100 And c > 85) Then
Label4.Caption = "一等奖"
ElseIf (a + b + c > 270) Or (a = 100 And c > 75) Then
Label4.Caption = 二等奖"
ElseIf c >= 70 Then
Label4.Caption = "三等奖"
Else
Label4.Caption = "无"
End If
End Sub
ElseIf c >= 70 Then
没括号
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a < b