Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许多人 数值不定)我要求计算机实现排列组合将任意两个人分数和要求 语文超过200 数学超过210 英

来源：学生作业学帮网 编辑：学帮网 时间：2024/05/27 14:36:27

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

'这里的赋值用的是笨方法,如果你的数据是从数据库里读取的话,赋值就比较简单
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

Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许多人 数值不定)我要求计算机实现排列组合将任意两个人分数和要求 语文超过200 数学超过210 英 学VB必须英语好吗?同上. VB好学吗?本人不会英语哦! 属性数据 英语怎么说 使用VB编写设计计算语文、数学、英语这三门课程平均成绩的程序,利用文本框作数据的输入和输出 为什么数据排列组合很有趣 采集数据用英语怎么说? 数据显示用英语怎么说 空间数据成图用英语怎么说? “对数据敏感”英语怎么说? 正在计算数据.英语怎么说 VB的各种的英语字母的含义 不会英语学VB编程我英语不好（可以说就是不会）可以学VB编程吗 vb 数据四舍五入取到小数点后两位VB 排列组合题目一道有八名工作人员分配给甲乙两个部门,其中两名会英语的不能分配到同一部门,另外3名会计算机的也不能分配到同一部门,问有多少种分配方案 vb编程常用英语VB的一些常用英语 最后把中文意思写上啊 用的比较多啊 基础的 我英语狗屁不通 “有关数据显示表明”用英语怎么说? 确认数据用英语怎么表达啊