Question

Vb 排列组合数据

甲 语文100 数学110 英语110
甲 语文100 数学110 英语110
乙 语文101 数学120 英语100
丙 语文105 数学115 英语111
丁 语文90 数学125 英语113
戊 语文95 数学115 英语118
比如说这样(还有许多人 数值不定)
我要求计算机实现排列组合
将任意两个人分数和要求 语文超过200 数学超过210 英语超过210的两人列出来
(有几组列几组 没有msgbox提示下) 请问可以实现么
能不能给个例子

Answer 1

'这里的赋值用的是笨方法，如果你的数据是从数据库里读取的话，赋值就比较简单
Option Explicit
Dim YuWen(0 To 4) As Single, English(0 To 4) As Single, ShuXue(0 To 4) As Single
Dim Xm(0 To 4) As String
Dim i As Integer, j As Integer

Private Sub Command1_Click()
For i = 0 To 3
For j = i + 1 To 4
If YuWen(i) + YuWen(j) > 200 And ShuXue(i) + ShuXue(j) > 210 And English(i) + English(j) > 210 Then
Print Xm(i) & " " & Xm(j)
End If
Next
Next
End Sub

Private Sub Form_Load()
Xm(0) = "甲"
YuWen(0) = 100
ShuXue(0) = 110
English(0) = 110
Xm(1) = "乙"
YuWen(1) = 101
ShuXue(1) = 120
English(1) = 100
Xm(2) = "丙"
YuWen(2) = 105
ShuXue(2) = 115
English(2) = 111
Xm(3) = "丁"
YuWen(3) = 90
ShuXue(3) = 125
English(3) = 113
Xm(4) = "戊"
YuWen(4) = 95
ShuXue(4) = 115
English(4) = 118
End Sub

Answer 2

甲 语文100 数学110 英语110
乙 语文110 数学100 英语110
丙 语文110 数学110 英语100

Answer 3

就只有6种，
100 110 110
110 100 110
110 110 100

Answer 4

三个数排列，所以是A33=3×2×1=6