根据题意描述算法
Public Function FirstPrize() As String
Dim SecondFirst,SecondSecond,Winner As String
If CInt(Rnd*10)>=5 Then
SecondFirst="一班"
Else
SecondFirst="二班"
End If
If CInt(Rnd*10)>=5 Then
SecondSecond="三班"
Else
SecondSecond="四班"
End If
If CInt(Rnd*10)>=5 Then
Winner=SecondFirst
Else
Winner=SecondSecond
End...全部
Public Function FirstPrize() As String
Dim SecondFirst,SecondSecond,Winner As String
If CInt(Rnd*10)>=5 Then
SecondFirst="一班"
Else
SecondFirst="二班"
End If
If CInt(Rnd*10)>=5 Then
SecondSecond="三班"
Else
SecondSecond="四班"
End If
If CInt(Rnd*10)>=5 Then
Winner=SecondFirst
Else
Winner=SecondSecond
End If
FirstPrize=Winner
End Function。
收起