整数1至50构成集合M,从中任取25个数构成集合N,输入a,b,c,d,e,六个数,判断是否属于N,输出N请顺便给出程序的解释,无胜感激!抱歉,打漏了,判断六个数是否属于N,若否,输出N
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 16:57:07
![整数1至50构成集合M,从中任取25个数构成集合N,输入a,b,c,d,e,六个数,判断是否属于N,输出N请顺便给出程序的解释,无胜感激!抱歉,打漏了,判断六个数是否属于N,若否,输出N](/uploads/image/z/14443408-64-8.jpg?t=%E6%95%B4%E6%95%B01%E8%87%B350%E6%9E%84%E6%88%90%E9%9B%86%E5%90%88M%2C%E4%BB%8E%E4%B8%AD%E4%BB%BB%E5%8F%9625%E4%B8%AA%E6%95%B0%E6%9E%84%E6%88%90%E9%9B%86%E5%90%88N%2C%E8%BE%93%E5%85%A5a%2Cb%2Cc%2Cd%2Ce%2C%E5%85%AD%E4%B8%AA%E6%95%B0%2C%E5%88%A4%E6%96%AD%E6%98%AF%E5%90%A6%E5%B1%9E%E4%BA%8EN%2C%E8%BE%93%E5%87%BAN%E8%AF%B7%E9%A1%BA%E4%BE%BF%E7%BB%99%E5%87%BA%E7%A8%8B%E5%BA%8F%E7%9A%84%E8%A7%A3%E9%87%8A%2C%E6%97%A0%E8%83%9C%E6%84%9F%E6%BF%80%21%E6%8A%B1%E6%AD%89%2C%E6%89%93%E6%BC%8F%E4%BA%86%2C%E5%88%A4%E6%96%AD%E5%85%AD%E4%B8%AA%E6%95%B0%E6%98%AF%E5%90%A6%E5%B1%9E%E4%BA%8EN%2C%E8%8B%A5%E5%90%A6%2C%E8%BE%93%E5%87%BAN)
整数1至50构成集合M,从中任取25个数构成集合N,输入a,b,c,d,e,六个数,判断是否属于N,输出N请顺便给出程序的解释,无胜感激!抱歉,打漏了,判断六个数是否属于N,若否,输出N
整数1至50构成集合M,从中任取25个数构成集合N,输入a,b,c,d,e,六个数,判断是否属于N,输出N
请顺便给出程序的解释,无胜感激!
抱歉,打漏了,判断六个数是否属于N,若否,输出N
整数1至50构成集合M,从中任取25个数构成集合N,输入a,b,c,d,e,六个数,判断是否属于N,输出N请顺便给出程序的解释,无胜感激!抱歉,打漏了,判断六个数是否属于N,若否,输出N
很完美
Dim M(49) As Integer,N() As Integer
'判断某元素是否属于某数组
Function cf(B() As Integer,nn As Integer) As Boolean 'B()为数组,nn为元素
On Error Resume Next '防止空数组
For Each v In B
If v = nn Then cf = True:Exit For
Next v
End Function
Private Sub Command1_Click()
Dim m1 As Integer,n1 As Integer 'm1存放M()随机下标,n1存放N()上届
'初始化数组a(),1-50
For i = 0 To 49
M(i) = i + 1
Next i
'初始化集合N
Do
Randomize '随机
m1 = M(Int(50 * Rnd)) '生成M()随机下标
If cf(N(),m1) = flase Then '防止N()元素重复
ReDim Preserve N(n1) '重置数组长度
N(n1) = m1 '新元素赋值
n1 = n1 + 1 '数组上届变量加1
End If '结束判断
Loop While UBound(N) < 24 '循环语句块结束
'输入六个数字
Dim k As Integer '存放输入数字
For j = 1 To 6
k = Val(InputBox("请输入6个数字,第" & j & "个数字"))
If cf(N(),k) = False Then '不属于
'输出集合N()
For Each v In N
Print v & ",";
Next v
Print '换行
MsgBox (k & "不属于集合N()")
Else '属于
MsgBox (k & "属于集合N()")
End If
Next j
End Sub
由于你的要求有点歧义,这里假定是判断6个数字中每个数字是否属于集合N,而不是判断是否全部属于,当然,这都是次要的,主要部分的代码已给出,可以自己改.
注:任取25个数还有一种方法是先给M随机排序,再顺序输出25元素,皆可