查人人中国名人网郑州美团外卖招聘:懂vb的来回答
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/12 06:01:04
i是一个变量如 0 45 90等
k也是一个变量如 0 1 2 3 等
现在想x(k)=i 如x(0)=0 x(1)=45 x(2)=90等
应该怎样编写一个程序??
感激不尽
k也是一个变量如 0 1 2 3 等
现在想x(k)=i 如x(0)=0 x(1)=45 x(2)=90等
应该怎样编写一个程序??
感激不尽
应该说的再清楚一点
Private Sub Form_Click()
Dim x() As Variant
ReDim Preserve x(1)
For i = 0 To 90 Step 45
For k = 0 To 2
If UBound(x) < k + 1 Then ReDim Preserve x(UBound(x) + 1)
x(k) = i
i = i + 45
Picture1.Print x(k)
Next k
Next i
End Sub
VB中调试-可行
for k = 0 to 3
i=k*45
x(k)=i
next k
for k = 0 to 3
i=k*45
x(k)=i
next k