vb 一维数组赋值

显示全部楼层 · 2009-2-16 15:02:02

求个高手帮我做个VB一维数组，是这样的，在IE浏览器打开之后会用消息框弹出一个一维数组 10 20 30 40 ，在单击确定的时候会用msgbox在弹出一个 10 20 30 40 50 60 ，在单击一下确定又会弹出一个 70！就这样简单望个高手帮下忙教教我

千问 · 2009-2-16 15:02:02

好的程序来了!自己写的,已经验证OK!!!Private Sub Command1_Click()Dim arr1(1 To 4) As IntegerDim arr2(1 To 6) As IntegerDim i As IntegerFor i = 1 To 4arr1(i) = i * 10NextFor i = 1 To 6arr2(i) = i * 10NextWebBrowser1.Navigate "http://www.baidu.com/"MsgBox arr1(1) & " " & arr1(2) & " " & arr1(3) & " " & arr1(4)MsgBox ar...

千问 · 2009-2-16 15:02:02

你那么厉害了不会不懂写吧？vba整型定义后全都是赋为0的，并不需要赋值0。w循环这个应该简单吧：写上个看看，没运行过，你试试dimw,qasintergerforw=1to10forq=1to23ability(w,q)=ability(0,q)nextnextmsgboxability...

千问 · 2009-2-16 15:02:02

PrivateSubCommand1_Click()Dima(0To9)'定义个数组大小为10Fori=0To9a(i)=Int(Rnd*10+1)'给数组赋随机值NextiForj=0To9Printa(j)'打印数组的元素值...