A: Static arrl(3)
B: arrl(1)=100
C: arrl(2)="Hello"
D: arrl(3)123.45
E: Dim arr2()As Integer
F: Dim size As Integer
G: Private Sub Command2_click()
H: size=InputBox("输入:")
I: ReDimarr2(size)
J: End Sub
K: Option Base1
L: Private Sub Command3_click()
M: Dim arr3(3)As Integer
N: End Sub
O: Dim n As Integer
P: Private Sub Command4_Click()
Q: Dim arr4(n)As Integer
R: End Sub
举一反三
- 以下有关数组定义的语句序列中,错误的是 A: Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45 B: Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入:”) ReDim arr2(size) ┄ End Sub C: Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub D: Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ┄ End Sub
- 以下有关数组定义的语句序列中,错误的是 A: Static arrl(3) B: arr1(1)=100 C: arrl(2)="Hello" D: arrl(3)=123.45 E: Dim arr2()As Integer F: Dim size As Integer G: Private Sub Command2_Click() H: size=InputBOX(“输入:”) I: ReDim arr2(size) J: ┄ K: End Sub L: Option Base 1 M: Private Sub Command3_Click() N: Dim arr3(3)As Integer O: ┄ P: End Sub Q: Dim n As Integer R: Private Sub Command4_Click() S: Dim arr4(n)As Integer T: ┄ U: End Sub
- 以下有关数组定义的语句序列中,错误的是______。 A: Static arr1(3) B: arr1(1)=100 C: arr1(2)="Hello" D: arr1(3)=123.45 E: Dim arr2()As Integer F: Dim size As Integer G: Private Sub Command2_Click() H: size=InputBox("输入:") I: ReDim arr2(size) J: … K: End Sub L: Option Base 1 M: Private Sub N: Command3_Click() O: Dim arr3(3)As Integer P: … Q: End Sub R: Dim n As Integer S: Private Sub Command4_Click() T: Dim arr4(n)As Integer U: … V: End Sub
- 以下有关数组定义的语句序列中,错误的是( ) A: Static arr1(3) :arr1(1) = "100" : B: arr1(2) = "Hello" :arr1(3) = "123.45" C: Dim arr2( ),size As Integer D: Private Sub Command2_Click( ) E: size =InputBox("输入:") ReDim arr2(size) ...... F: End Sub G: Option Base 1 Private Sub Command3_Click( ) H: Dim arr3(3) As Integer ...... I: End Sub J: Dim n As Integer Private Sub Command4_Click( ) K: Dim arr4(n) As Integer...... L: End Sub
- 以下有关数组定义的语句序列中,错误的是 A: Static arr1(3) B: Arr1l(1)=100 C: Arr1(2)=“Hello” D: Arr1(3)=123.45 E: Dim art2( )As Integer F: Dim size As Integer G: Private Sub Command2_Click( ) H: size=Input Box(“输入:”) I: ReDinl.arr2(size) J: …… K: End Sub L: Option Base 1 M: Private Sub Command3_Click( ) N: Dim arr3(3) As Integer O: …… P: End Sub Q: Dim n As Integer R: Private Sub Command4_Click( ) S: Dim arr(n) As Integer T: …… U: End Sub
内容
- 0
以下有关数组定义的语句序列中,错误的是______。 A: Static arr1(3)arr1(1)=100arr1(2)="Hello"arr1(3)=123.45 B: Dim arr2() As IntegerDim size As IntegerPrivate Sub Command2_Click()size=InputBox("输入:")ReDim arr2(size)……End Sub C: Option Base 1Private Sub Command3_Click()Dim arr3(3) As Integer…… End Sub D: Dim n As IntegerPrivate Sub Command4_Click()Dim arr4(n) As Integer……End Sub
- 1
运行下面的程序,第二行显示结果是___________。 Private Sub Form_Click() Dim A As Integer Dim i As Integer A = 5 For i = 1 To 9 Call sub1(i, A) Print i, A Next i End Sub Private Sub sub1(x As Integer, y As Integer) Static N As Integer Dim I As Integer For I = 3 To 1 Step -1 N = N + x x = x + 2 Next I y = y + N End Sub
- 2
求给定自然数m和n的最大公约数。请完善程序。 Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r Do r = m Mod n m = n n = r Loop Until__________ Text3.Text = m End Sub Private Sub Command2_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r r = m Mod n Do Until _______ m = n n = r r = m Mod n Loop Text3.Text =____ End Sub Private Sub Command3_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r Do r = m Mod n m = n n = r Loop While________ Text3.Text =______ End Sub Private Sub Command4_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m < n Then r = m: m = n: n = r r = m Mod n Do While______ m = n n = r r = m Mod n Loop Text3.Text =____ End Sube73f1fd63959cc8362d8c82d419c2353.png
- 3
设有如下程序: Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n< 10 Then Call,GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i) /2 =b(i) \2 Then j=j + 1 c(j) = b(i) End If Next Print j End Sub 以下叙述中错误的是 A: 数组b中的偶数被保存在数组c中 B: 程序运行结束时,在窗体上显示的是c数组中元素的个数 C: GetArray过程的参数n是按值传送的 D: 如果输入的数据大于10,则窗体上不显示任何信息
- 4
运行下列程序,单击窗体显示的结果为( )。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3) For i = 2 To 0 Step -1 s = s + a(i) * a(i) Next i Print s End Sub