UC知道VB 2道数组设计问题
来源：百度知道 编辑：UC知道 时间：2024/06/10 02:53:33
第一题:利用文本框T1向数组A存放任意个互不相同的整数.
然后向文本框T2输入一个数,并从数组A中删除与X值相同的那个元素
第二题:任意输入10个数,存放在数组A中,然后只保留数组A中数组相同的第一个元素,而删除其余元素.
例: 原547635476
现54763
这两道题有一个共性就是都涉及到了删除元素,删除数组中元素的思路应该怎样设计啊?还有移位的我也不太懂.希望高手能帮我解答这两道题,步骤明确点,讲解详细点,能让我从中受到启发.在下感激不尽!!!!
希望能用这种格式解答
Static k As Integer
k = k + 1
a(k) = CInt(t1.Text)
t1.Text = ""
t1.SetFocus
然后向文本框T2输入一个数,并从数组A中删除与X值相同的那个元素
第二题:任意输入10个数,存放在数组A中,然后只保留数组A中数组相同的第一个元素,而删除其余元素.
例: 原547635476
现54763
这两道题有一个共性就是都涉及到了删除元素,删除数组中元素的思路应该怎样设计啊?还有移位的我也不太懂.希望高手能帮我解答这两道题,步骤明确点,讲解详细点,能让我从中受到启发.在下感激不尽!!!!
希望能用这种格式解答
Static k As Integer
k = k + 1
a(k) = CInt(t1.Text)
t1.Text = ""
t1.SetFocus
2/
Private Sub Command1_Click()
Dim a
a = Array(5, 4, 7, 3, 5, 4, 7, 6)
m = 1
For i = 1 To UBound(a)
For j = 0 To m - 1
If a(i) = a(j) Then Exit For
Next j
If j = m Then
a(m) = a(i)
m = m + 1
End If
Next i
ReDim Preserve a(m - 1)
For i = 0 To m - 1
Print a(i)
Next i
End Sub