24点计算机的vb代码,VB算24点

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

End Select

End Sub

Private Sub cmdDo_Click()

For j = 1 To 30

Select Case j

Case 1

For i = 1 To 1

Call Kind(i)

Jieguo = A + B + C + D

If Jieguo = 24 Then

ResultExpression = A & "+" & B & "+" & C & "+" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 2

For i = 1 To 24

Call Kind(i)

Jieguo = A + B + C - D

If Jieguo = 24 Then

ResultExpression = A & "+" & B & "+" & C & "-" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 3

For i = 1 To 24

Call Kind(i)

Jieguo = A * B + C + D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "+" & C & "+" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 4

For i = 1 To 24

Call Kind(i)

Jieguo = A * B + C - D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "+" & C & "-" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 5

For i = 1 To 24

Call Kind(i)

Jieguo = A * B * C + D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "*" & C & "+" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 6

For i = 1 To 24

Call Kind(i)

Jieguo = A * B * C - D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "*" & C & "-" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 7

For i = 1 To 24

Call Kind(i)

Jieguo = A * B * C * D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "*" & C & "*" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 8

For i = 1 To 24

Call Kind(i)

Jieguo = A * B + C * D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "+" & C & "*" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 9

For i = 1 To 24

Call Kind(i)

Jieguo = A * B - C * D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "-" & C & "*" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 10

For i = 1 To 24

Call Kind(i)

Jieguo = A / B + C + D

If Jieguo = 24 Then

ResultExpression = A & "/" & B & "+" & C & "+" & D & "=24"

Num = True

lresult.Caption = ResultExpression

Exit For

End If

Next i

Case 11

For i = 1 To 24

Call Kind(i)

Jieguo = A * B / C + D

If Jieguo = 24 Then

ResultExpression = A & "*" & B & "/" & C & "+" & D & "=24"