Question

vb 生成一个数组 删除数组元素

图7是删除数组中的一个元素。单击按钮“生成”在text1中显示一个具有10个元素的有序数列，在text2中输入一个数，单击按钮“删除”，如果数组中没有这个数，提示错误。如果在数组中，则在text3中显示删除这个数后的有序数列（此时有9个元素）。单击按钮“返回”回到主界面图1。

如何编程？

Answer 1

Dim a(1 To 10) As Integer
Private Sub Command1_Click()
    Dim b As Integer
    Randomize
    a(1) = Int(Rnd() * 100)
    b = Int(Rnd() * 100)
    Text1.Text = a(1)
    For i = 2 To 10
        a(i) = a(i - 1) + b
        Text1.Text = Text1.Text & " " & a(i)
    Next i
End Sub
Private Sub Command2_Click()
    Text3.Text = ""
    For i = 1 To 10
        If a(i) = Val(Text2.Text) Then Exit For        
    Next i
    If i = 11 Then
        MsgBox "在这10个元素的有序数列中没有要删除的数！"
        Exit Sub
    Else
        For j = i To 9
            a(j) = a(j + 1)
        Next j
    End If
    For i = 1 To 9
        Text3.Text = Text3.Text & a(i) & " "
    Next i
End Sub

Answer 2

首先dim 一个数组 然后遍历数组 如果数组项等于要删除的 就 去掉 最后把数组显示在text里