‘是这意思？
Private Sub Command1_Click()
Dim s As String, a(), i
s = "12345"
ReDim a(1 To Len(s))
For i = 1 To UBound(a)
a(i) = Mid(s, i, 1)
Next
Print Join(a, ",")
End Sub
private sub command1_click()
dim a(5) %
for i=1 to 5
a(i)=i
picture1.print a(i)
next i
end sub
dim s as integer
s = 0
for i = 1 to n
a(i) = i
s = s + a(i)
next i
print s
for i = 1 to 5
a(i)=i
print a(i);
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024