困扰多时的VB筛选问题

来源：百度知道 编辑：UC知道 时间：2024/05/25 20:17:38
有N个数字，如果我一次性随机输入其中的M（m <=n）个，让程序一次性输出剩余部分，用VB应该怎么写？热心大虾帮帮忙啦！
功力不行，搞了很久，没有搞出来。
帮忙下搞个代码行吗,比如共有10个数字,我随机输入几个(输入的个数不定),要怎么选,才能最后一次性输出没有选中的?

看看这个行不?

Option Base 1
Dim AllFiles(10) As String '例如这个数组里存放的是1-10十个数

Private Sub Form_Load() '给AllFiles()赋值
For M = 1 To 10
AllFiles(M) = M
Next M
End Sub

Private Sub Form_Resize()

Dim EnterNumber(10) As String '这个数组存放你输入的数字

For Q = 1 To 10 '给EnterNumber赋值,最多输入十个数
X = InputBox("请输入第" & Q & "个数,输入为空则开始筛选.")
If X = "" Then Exit For '如果没有输入数字的话,则开始进行筛选
EnterNumber(Q) = X
Next Q

For A = 1 To Q '这两个循环进行筛选
For B = 1 To 10
If AllFiles(B) = EnterNumber(A) Then AllFiles(B) = "Empty" '"空"的英语写法我没有写错吧?
Next B
Next A

Print "未被选中的数有 ";

For C = 1 To 10
If IsNumeric(AllFiles(C)) = True Then Print AllFiles(C) & Space(3); '判断并输出是数字的数组元素
Next C

End Sub

option base 1
dim d(10) as integer ,p(10) as boolean,a as integer,i as integ