问题描述：5位跳水高手参加10米高台跳水决赛,有好事者让5人据实力预测比赛结果．A选手说：B第二,我第三我要的是VB代码,不是什么C语言或是其他的!麻烦各位运行成功后,粘贴一下代码,

Question

问题描述：5位跳水高手参加10米高台跳水决赛,有好事者让5人据实力预测比赛结果． A选手说：B第二,我第三
【我要的是VB代码,不是什么C语言或是其他的!】
麻烦各位运行成功后,粘贴一下代码,谢谢了!
问题描述：5位跳水高手参加10米高台跳水决赛,有好事者让5人据实力预测比赛结果．
A选手说：B第二,我第三；
B选手说：我第二,E第四；
C选手说：我第一,D第二；
D选手说：C最后,我第三；
E选手说：我第四,A第一．
决赛成绩公布之后,每位选手的预测都只说对了一半,即一对一错．请编程解出比赛的实际名次．
随机生成20个三位数,在Picture1中以每行5个的格式输出,并找出其中的升序数,在Picture2中以每行5个的格式输出!
这个题目也可以试下!

Answer 1

Private Sub Command1_Click()
Dim a, b, c, d, e As Integer
For a = 1 To 5
For b = 1 To 5
For c = 1 To 5
For d = 1 To 5
For e = 1 To 5
If a b And a c And a d And a e And b c And b d And b e And c d And c e And d e Then
If (b = 2 Xor a = 3) And (b = 2 Xor e = 4) And (c = 1 Xor d = 2) And (c = 5 Xor d = 3) And (e = 4 Xor a = 1) Then
Print "a="; a, "b="; b, "c="; c, "d="; d, "e="; e
End If
End If
Next e
Next d
Next c
Next b
Next a

End Sub