作业帮Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许多人 数值不定)我要求计算机实现排列组合将任意两个人分数和要求 语文超过200 数学超过210 英
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 20:20:47
Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许多人 数值不定)我要求计算机实现排列组合将任意两个人分数和要求 语文超过200 数学超过210 英
Vb 排列组合数据
甲 英语110
甲 英语110
乙 英语100
丙 英语111
丁 英语113
戊 英语118
比如说这样(还有许多人 数值不定)
我要求计算机实现排列组合
将任意两个人分数和要求 语文超过200 数学超过210 英语超过210的两人列出来
(有几组列几组 没有msgbox提示下) 请问可以实现么
能不能给个例子
Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许多人 数值不定)我要求计算机实现排列组合将任意两个人分数和要求 语文超过200 数学超过210 英
'这里的赋值用的是笨方法,如果你的数据是从数据库里读取的话,赋值就比较简单
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