作业帮VB编程：甲、乙、丙三位预测已进入半决赛的四队A,B,C,D名次甲预测：A第一名,B第二名乙预测：C第一名,D第三名丙预测：D第二名,A第三名比赛结果,甲,乙,丙预测各对一半,试求A,B,C,D四队选手的
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/10 09:13:50
VB编程：甲、乙、丙三位预测已进入半决赛的四队A,B,C,D名次甲预测：A第一名,B第二名乙预测：C第一名,D第三名丙预测：D第二名,A第三名比赛结果,甲,乙,丙预测各对一半,试求A,B,C,D四队选手的
VB编程：甲、乙、丙三位预测已进入半决赛的四队A,B,C,D名次
甲预测：A第一名,B第二名
乙预测：C第一名,D第三名
丙预测：D第二名,A第三名
比赛结果,甲,乙,丙预测各对一半,试求A,B,C,D四队选手
的名次.
要求使用穷举法,求代码
VB编程：甲、乙、丙三位预测已进入半决赛的四队A,B,C,D名次甲预测：A第一名,B第二名乙预测：C第一名,D第三名丙预测：D第二名,A第三名比赛结果,甲,乙,丙预测各对一半,试求A,B,C,D四队选手的
这个不用穷举,自己也可以算出下图的结果.可以验证程序运行结果是否正确.
'在窗体上添加一个名为Command1按钮.
'具体代码如下.
'甲预测：A第一名,B第二名
'乙预测：C第一名,D第三名
'丙预测：D第二名,A第三名
'比赛结果,甲,乙,丙预测各对一半,试求A,B,C,D四队选手的名次
Dim Jia(4), Yi(4), Bing(4) As Integer
'从1到4分别表示A,B,C,D.每个元素保存的值,1即第一名,2即第二名,以此规律类推.'Jia(1)=1表示甲预测A第一名,Bing(4)=2表示丙预测D第二名
Private Sub Command1_Click()
Dim i, j, k, t As Integer
Dim str As String
For i = 1 To 4
For j = 1 To 4
For k = 1 To 4
If i <> j And i <> k And j <> k Then
If Jia(i) <> 0 And Yi(j) <> 0 And Bing(k) <> 0 Then
If Jia(i) <> Yi(j) And Jia(i) <> Bing(k) And Yi(j) <> Bing(k) Then
For t = 1 To 4
If i <> t And j <> t And k <> t Then
str = Chr(64 + t) & "第"
End If
Next t
For t = 1 To 4
If Jia(i) <> t And Yi(j) <> t And Bing(k) <> t Then
str = str & t
End If
Next t
Print Chr(64 + i) & "第" & Jia(i) & " " & Chr(64 + j) & "第" & Yi(j) & " " & Chr(64 + k) & "第" & Bing(k) & " " & str
End If
End If
End If
Next k
Next j
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 4 '数据初始化,全置空
Jia(i) = 0
Yi(i) = 0
Bing(i) = 0
Next i
'将甲乙丙的预测保存起来
Jia(1) = 1 'A第一名
Jia(2) = 2 'B第二名
Yi(3) = 1 'C第一名
Yi(4) = 3 'D第三名
Bing(4) = 2 'D第二名
Bing(1) = 3 'A第三名
End Sub