Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/07/28 13:44:26
Vb 排列组合数据
甲 英语110
甲 英语110
乙 英语100
丙 英语111
丁 英语113
戊 英语118
比如说这样(还有许多人 数值不定)
我要求计算机实现排列组合
将任意两个人分数和要求 语文超过200 数学超过210 英语超过210的两人列出来
(有几组列几组 没有msgbox提示下) 请问可以实现么
能不能给个例子
甲 英语110
甲 英语110
乙 英语100
丙 英语111
丁 英语113
戊 英语118
比如说这样(还有许多人 数值不定)
我要求计算机实现排列组合
将任意两个人分数和要求 语文超过200 数学超过210 英语超过210的两人列出来
(有几组列几组 没有msgbox提示下) 请问可以实现么
能不能给个例子
![Vb 排列组合数据甲 英语110甲 英语110乙 英语100丙 英语111丁 英语113戊 英语118比如说这样(还有许](/uploads/image/z/17375069-29-9.jpg?t=Vb+%E6%8E%92%E5%88%97%E7%BB%84%E5%90%88%E6%95%B0%E6%8D%AE%E7%94%B2+%E8%8B%B1%E8%AF%AD110%E7%94%B2+%E8%8B%B1%E8%AF%AD110%E4%B9%99+%E8%8B%B1%E8%AF%AD100%E4%B8%99+%E8%8B%B1%E8%AF%AD111%E4%B8%81+%E8%8B%B1%E8%AF%AD113%E6%88%8A+%E8%8B%B1%E8%AF%AD118%E6%AF%94%E5%A6%82%E8%AF%B4%E8%BF%99%E6%A0%B7%28%E8%BF%98%E6%9C%89%E8%AE%B8)
'这里的赋值用的是笨方法,如果你的数据是从数据库里读取的话,赋值就比较简单
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 Su
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 Su