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 "输入的数是...