公司需要我用VB写个小程序，做活动要用，关键是不是专业人士，百度了好久都弄不来，跪求大神弄下，我自己弄了个框架，邮箱370472340@qq.com，财富值没有了，可以QQ洪包...
Jaydon Dim n As Integer
Dim a()
Private Sub Command1_Click()
If n = 0 Then '第点击执行
m = Val(Text1)
ReDim a(1 To m)
For i = 1 To m '数组a元素1至mm数
a(i) = i
0 14