vb程序编写（数组）

1。用for循环语句及inputbox()函数输入。

每次循环，由inputbox()函胡谈数d出对话框等待用户输入数据。如：

dim

a(1

to

4)

as

integer

for

i=1

to

4

a(i)=inputbox("请输入")

next

i

如果是二维数组，则用两层循环，类推。

2。用array()函裤宽碰数为数组元素赋值，格式：

数组变巧凯量名=array(数组元素值)

如：

static

a

as

variant

a=array(1,2,3,4,5)

意思就是把1,2,3,4,5这5个数值赋给数组工的各个元素。即a(0)=1...a(4)=5

希望楼主清楚了:)

修改后,,,你第二次点commad(index)时,吧数组里的值又清毁岁搜掉了

Option Base 1

Private a%(), b%(), c$()

Private Sub Command1_Click(Index As Integer)

Dim n%, i%, q$, w$, e$

If Index = 0 Then

n = Val(Text1(0))

ReDim a%(n), b%(n), c$(n)

Randomize

For i = 1 To n

a(i) = Int((Rnd * 99) + 1)

q = a(i) &IIf(a(i) <纤历雀告 10, Space(3), Space(2)) &q

b(i) = Int((Rnd * 99) + 1)

w = b(i) &IIf(b(i) <10, Space(3), Space(2)) &w

e = a(i) + b(i) &IIf(a(i) + b(i) <100, Space(2), Space(1)) &e

Next

Text1(1) = q: Text1(2) = w

Else

For i = 1 To n - 1

e = a(i) + b(i) &IIf(a(i) + b(i) <100, Space(2), Space(1)) &e

Text1(3) = e

End If

End Sub

---