关于动态数组
--------------------编程问答--------------------
Private Sub Command1_Click()‘Command1的单击事件
Text1.Text = "" '将文本框清空
Dim S As Long, i As Long '声明两个变量，一个是长整形（Long），一个是字符串类型（string）
Dim A() '定义一个动态数组，没有说明是什么类型的
Do '循环开始
ReDim Preserve A(S) '重定义动态数组维数，Preserve 关键字表示保持原有的数据
A(S) = InputBox("请输入字符串，输入空串时结束", "输入") '出现一个输入对话框，并将得到的值放入动态数组的最后一个元素里
S = S + 1'S在原有的值上面加一
Loop Until A(S - 1) = "" '直到数组的倒数第二个元素的内容为空就结束循环
For i = 0 To S - 2 '循环从0开始，到s-2结束
Text1.Text = Text1.Text & "第" & CStr(i + 1) & "个是：" & CStr(A(i)) & " "
'将“第X个”（其中的X代表某一个数字）和数组里的第X-1个元素连在一起并且再和文本框原有的内容连在一起
Next i
Erase A'清除动态数组A所使用的内存
这个程序是通过动态数组来记录每一次输入，当输入为空时就结束输入，将数组的内容依次串起来输出到文本框上。上面的CStr函数将变量专程字符串，在这里是将数字转换成字符串。 --------------------编程问答-------------------- 谢了。。 --------------------编程问答-------------------- 还有个小问题，为什么要s+1 啊 --------------------编程问答-------------------- 加一是为了提高动态数组A的维数，好存放下一个数据。大哥~~~，懂了能给分了不~~,^_^
补充：VB , 基础类
