网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim m（10) As Integer, n（10) As Integer i = 3 For t = 1 To 5 m（t) = t n（i) = 2 * i + t Next t Print n（i); m（i) End Sub 窗体运行后，单击命令按钮，显示结果为（）。
A．3 11
B．3 15
C．11 3
D．15 3
参考答案和解析
C
更多 “在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim m（10) As Integer, n（10) As Integer i = 3 For t = 1 To 5 m（t) = t n（i) = 2 * i + t Next t Print n（i); m（i) End Sub 窗体运行后，单击命令按钮，显示结果为（）。A．3 11B．3 15C．11 3D．15 3” 相关考题
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim m As Integer, n As Integer, p As Integerm=3: n=5: p=0Call Y（m, n, p）Print Str（p）End SubSub Y（ByVal i As Integer, ByVal j As Integer, k As Integer）k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．6C．8D．10
考题
如果存在如下过程：Private Function FMax（a（） As Integer）Dim First As Integer, Last As Integer, i As IntegerFirst=LBound（A）Last=UBound（A）Max=a（First）For i=First To LastIf a（i） Max Then Max=a（i）Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）ReDim m（1 To 4） As Integerm（1） =20: m（2） =30: m（3） =50: m（4） =100c=FMax（m）Print cEnd Sub单击命令按钮，其输出结果为 【12】 。
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC（oldCopy（） As Integer, newCopy（） As Integer）Dim i As IntegerFor i=LBound（oldCopy（） ） To UBound（oldCopy（） ）newCopy（i） =oldCopy（i）Next iEnd SubPrivate Sub Command1_Click（）Dim m（10） As Integer, n（10） As IntegerFor i=1 To 10m（i） =i iNext iCall BTC（m, n）Print n（5）End Sub程序运行后，单击命令按钮输出结果为（ ）。A．0B．2C．10D．25
考题
在窗体上添加一命令按钮，其名为Command1，然后编写代码如下： private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integer n=3 For i=1 To 5 arr(i)=i arr1(n)=2*n+i Next Print arr1(n)；art(n) End Sub 程序的运行结果为A．3 11B．11 3C．13 3D．3 13
考题
以下用户自定义函数 Function Func(a As Integer，b As Integer)As Integer Static m As Integer．i As Integer m=0：i=2 i=i+m+i m=i+a-i-b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k,m) Print P End Sub 程序运行后，单击命令按钮，输出结果为A．8B．9C．10D．11
考题
在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10) As Integer, Arr2(10)As Integer n=3 For i = 1 To 5 Arr1 (i)=i Arr2(n)=2 * n+i Next i Print Arr2(n); Art1 (n)End Sub运行程序后，单击命令按钮，输出结果是( )。A．11 3B．3 11C．13 3D．3 13
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim m As Integer，n As Integer，p As Integer m=3：n=5：p=O Call Y(m，n，p) Print Str(p)End SubSub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i + jEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．4B．6C．8D．10
考题
在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(4)As Integer, x As Integer, sum As Integer n = 4: sum = 0 a (1) = 1 For k = 0 To n - 1 For i = 1 To k + 1 x = k + 2 - i a(x)= a(x)+ a(x - 1) If x ＜ n - k Then Exit For sum = sum + a(x) Next i Next k Print sum End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．5B．6C．8D．11
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim m As Integer, n As Integer, p As Integer m=3: n=5: p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )A．4B．6C．8D．10
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i，A)Next i x = i + 2 Print x；a End Sub Private Sub fun1(n，m) m=m + n * 2 n = n + m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 5B．4 5C．8 4D．3 4
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim in As Integer，n As Integer，p As Integer m=3:n=5:p=0 Call Y(m,n,p) Print Str(p) End Sub Sub Y(ByVal i As Integer，ByVal j As Integer，k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．4B．6C．8D．10
考题
在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,x As Integer For i_1 T0 6 If i=1 Then x=i If i＜=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为( )。A．9B．6C．12D．15
考题
在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A．6B．7C．8D．9
考题
在窗体上画一个名称为CoilTlilandl的命令按钮，然后编写如下事件过程： Private Sub command1 Click() Dim m As Integer， i As Integer， x(3)As Integer For i=0 To 3：x(i)=i：Next i For i = 1 To 2： Call sub1(x，i)：Next i For i = 0 To 3： Print x(i)；： Next i End Sub Private Sub sub1(a()As Integer，k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j ＜ 2 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．0 3 7 5B．0 1 2 3C．3 2 4 5D．0 5 8 3
考题
在窗体上画一个命令按钮Command1，然后编写如下代码： Privae Sub Command1_Click() Dim Arr1(10) As Integer,Arr2(10) As Integer n=3 For i=1 To 5 Arr1(i)=i Art2(n)=2*n+i Next i Print Arr2(n);Arr1(n) End Sub 运行程序后，单击命令按钮，输出结果是( )。A．11 3B．3 11C．13 3D．3 13
考题
以下用户自定义函数 Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4：m=1 P=Func(k，m) Print p End Sub 程序运行后，单击命令按钮，输出结果为A．8B．9C．10D．11
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A．6B．7C．8D．9
考题
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10)As Integer，arr2(10)As Integer n=3 For i=1 To 5 Arr1(i)=i arr2(n)=2*n+i Next i Print arr2(n)；Arr1(n) End Sub 程序运行后，单击命令按钮，输出结果是 ______。A．11 3B．3 11C．13 3D．3 13
考题
在窗体上画一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click( ) Dim m As Integer, n As Integer, p As Integer m=3: n=5:p=0 Call Y(m, n, p) Print Str(p) End Sub Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer) k=i+j End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是A．4B．6C．8D．10
考题
在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是( )。A．2B．3C．4D．5
考题
在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。 private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Print arr1(n)；arr(n) End Sub 程序的运行结果为A．3 11B．11 3C．13 3D．3 13
考题
在窗体上画一个命令按钮，然后编写如下事件过程： Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer) Dim i AS Integer For i=LBound(oldCopy( ))To UBound(oldCopy( )) newCopy(i)=oldCopy(i) Next i End Sub Private Sub Command1 _ Click( ) Dimm(10) As Integer，n(10)As Integer For i=1 To 10 m(i) =i*i Next i Call BTC(m，n) Print n(5) End Sub 程序运行后，单击命令按钮输出结果为A．0B．2C．10D．25
考题
在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：______。A． 3 11B．11 3C．13 3D．3 13
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是A． 11B．10C．9D．8
考题
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Option Base 1 Private Sub fun (a()As Integer，n As Integer) For i=1 To 2 t=a(i)：a(i)=a(5-i+1)：a(5-i+1)=t Next i End Sub Private Sub Command1_Click() Dim arr1(5)As Integer For i=1 To 5 arr1(i)=i Next i Call fun(arr1，5) Print arr1(1)；arr1(2) End SubA．1 2B．2 1C．5 4D．4 5
考题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是A．1 3 5 7B．2 8 14 53C．0 3 21 45D．0 5 11 34
考题
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（ ）。A.13B.14C.15D.16
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是A．6B．7C．8D．9
热门标签
最新试卷