zoukankan      html  css  js  c++  java
  • vbs动态数组,asp动态数组

    i = 0: nStr = ""
    Dim MyArray()
    Do
    a = InputBox("循环直到输入4为止")
    ReDim Preserve MyArray(i)
    MyArray(i) = a
    i = i + 1
    Loop Until a = "4"
    For i = 0 To UBound(MyArray)
    nStr = nStr & MyArray(i) & ","
    Next
    MsgBox nStr

    补充:--------------------------------------
    不一定要 redim 后才能给数组赋值
    Dim MyArray(5)
    MyArray(0)=455
    MyArray(1)=500
    .......
    因为这时数组中已有元素 0 到 5 号

    下面的用法就必须 redim 后才能给数组赋值
    dim MyArray()'定义动态数组,此时数组中一个元素都没有
    ReDim Preserve MyArray(3)'重定义数组的元素 为 0 到 3 号
    MyArray(0)=455
    MyArray(1)=500
    MyArray(2)=2
    MyArray(3)=78

    For i = 0 To UBound(MyArray)
    nStr = nStr & MyArray(i) & ","
    Next
  • 相关阅读:
    python 练习 10
    python 练习 9
    运算符
    变量类型
    打印更多的变量
    变量和命名
    数字和数字计算
    第一个程序
    python 练习 8
    python 练习 7
  • 原文地址:https://www.cnblogs.com/xiaofeilong/p/3480511.html
Copyright © 2011-2022 走看看