vb 利用Array函数将1,2,3,4,5,6,7,8赋值给数组,再从键盘上输入一个数据...答:Dim a(), i As Integer, x As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8)x = Val(InputBox("请输入一个数"))For i = LBound(a) To UBound(a) If Val(a(i)) = x Then Exit ForNext iIf i > UBound(a) Then MsgBox "没有这个数"Else MsgBox "输入的数是...
VB设计一个程序,使用array函数将第一组3,4,2,1,5,7,8,11,13第二组10...答:Private Sub Command1_Click() Dim c() Cls a = Array(3, 4, 2, 1, 5, 7, 8, 11, 13) b = Array(10, 6, 12, 9, 13, 8, 8, 1, 16) ReDim c(UBound(a)) For i = 0 To UBound(a) Print Tab(5 * i); a(i); Next i Print For ...