vb 一维数组赋值

来源：百度知道 编辑：UC知道 时间：2024/05/05 05:52:03
求个高手帮我做个VB一维数组，是这样的，在IE浏览器打开之后会用消息框弹出一个一维数组 10 20 30 40 ，在单击确定的时候会用msgbox在弹出一个 10 20 30 40 50 60 ，在单击一下确定又会弹出一个 70！就这样简单 望个高手帮下忙 教教我

好的程序来了!自己写的,已经验证OK!!!

Private Sub Command1_Click()
Dim arr1(1 To 4) As Integer
Dim arr2(1 To 6) As Integer
Dim i As Integer
For i = 1 To 4
arr1(i) = i * 10
Next
For i = 1 To 6
arr2(i) = i * 10
Next
WebBrowser1.Navigate "http://www.baidu.com/"
MsgBox arr1(1) & " " & arr1(2) & " " & arr1(3) & " " & arr1(4)
MsgBox arr2(1) & " " & arr2(2) & " " & arr2(3) & " " & arr2(4) & " " & arr2(5) & " " & arr2(6)
MsgBox 70
End Sub

添加一个WebBrowser控件,一个Command控件

我也是VB爱好者,以后互相学习,研究!!!