VB问题 VBVB 利用Array函数给数组a赋值

利用Array函数给数组a赋值（数组元素的个数及每个元素的值自己设定），从键盘上输入一个数据，在数组中进行查找，如果数组中有，则删除数组中的这个元素，如果没有则提示“没有这个数”。

答案：Private Sub Command1_Click() '用字典高效简洁
    Dim arr, i, n, s, temp()
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    s = InputBox("输入一个值")
    Print "处理前：" & Join(arr, ",")
    With CreateObject("Scripting.Dictionary")
        For i = LBound(arr) To UBound(arr)
            If CStr(arr(i)) <> s Then .Add arr(i), ""
        Next
        If .Count < UBound(arr) + 1 Then
            arr = .keys
            Print "处理后：" & Join(arr, ",")
        Else
            MsgBox "未找到符合条件的值！"
        End If
    End With
End Sub

上一个：VB算术运算符 中的单进双舍 该怎么解释？
下一个：求VC++，vb以及易语言的各种源代码