网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。 Const n=5．m=4 Dim a(m，n) Private Sub+Command1 Click（ ） k=1 For i=1 To m For j=1 To n a(i，j)=k k=k+1 Next j Next i End Sub Private Sub Command2 Click（ ） summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then summ=summ+a(i，j) Else If j=1 Or j=n Then summ=summ+a(i，j) End If End If Next j Next i Print summ End Sub 过程Command1_Click（ ）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click（ ）的作用是（ ）。
A.计算矩阵外围一圈元素的累加和
B.计算矩阵除外围一圈以外的所有元素的累加和
C.计算矩阵第1列和最后一列元素的累加和
D.计算矩阵第1行和最后一行元素的累加和
参考答案
更多 “ 在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。 Const n=5．m=4 Dim a(m，n) Private Sub+Command1 Click（ ） k=1 For i=1 To m For j=1 To n a(i，j)=k k=k+1 Next j Next i End Sub Private Sub Command2 Click（ ） summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then summ=summ+a(i，j) Else If j=1 Or j=n Then summ=summ+a(i，j) End If End If Next j Next i Print summ End Sub 过程Command1_Click（ ）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click（ ）的作用是（ ）。A.计算矩阵外围一圈元素的累加和B.计算矩阵除外围一圈以外的所有元素的累加和C.计算矩阵第1列和最后一列元素的累加和D.计算矩阵第1行和最后一行元素的累加和 ” 相关考题
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（）Dim aa= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1NextPrint a（3）End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．5C．6D．7
考题
在窗体上画一个名称为 \Command1\ 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）Dim a As StringA="123456789"For i=1 To 5Print Space（6-i）;Mid $ （a,______ ,2*i-1）Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果是5456345672345678123456789请填空。
考题
（ 9 ） 在窗体上画 1 个命令按钮和 1 个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写下列事件过程 ：Dim SaveAll As StringPrivate Sub Command1_Click( )Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，在文本框中输入 abcdefg ，单击命令按钮，则文本框中显示的内容是 【 11 】 。
考题
（ 19 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i 10 Then Exit ForNextText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A ） 5B ） 4C ） 3D ） 2
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．VVVB．VisC．sicD．11
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub CommaLndl_Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。A．15B．18C．21D．24
考题
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）c = “ABCD”For n= 1 To 4Print （ ）NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容（ ）。DCDBCDABCD则在（ ）处填入的内容为。A．Left（c,n）B．Right（c,n）C．Mid（c,n,1）D．Mid（c,n,n）
考题
在窗体上画一外名称Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click( )x=0n=InputBox(" ")For i = 1 To nFor j = 1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是【 】。
考题
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num＞6 Print num； num=num+4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是_________。A．13.45.8B．1 3 5C．147D．无数据输出
考题
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．4B．6C．9D．15
考题
在窗体上画一个名称为 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
考题
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．空白B．错误提示C．北京D．上海
考题
在窗体上画一个名称为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
考题
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim b As Integer b=b+1 End Sub 运行程序，三次单击命令按钮后，变量b的值是： ______。A．0B．1C．2D．3
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do UntiL num＞6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．13.45.8B．1 3 5C．1 4 7D．无数据输出
考题
在窗体上画一今名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。A．79B．340C．97D．死循环
考题
在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。A．15B．18C．21D．24
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click () x=0 n=InputBox ("") For i=1 TO n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是( )。A．3B．4C．5D．6
考题
在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer，n As Integer x = 1 n = 0 Do While x＜20 x = x * 3 n = n + 1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是A．15和1B．27和3C．195和3D．600和4
考题
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Cilck()End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是( )。
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是A．54321B．4C．54321D．0
考题
在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。Const n=5．m=4Dim a(m，n)Private Sub+Command1 Click（ ）k=1For i=1 To mFor j=1 To na(i，j)=kk=k+1Next jNext iEnd SubPrivate Sub Command2 Click（ ）summ=0For i=1 To mFor j=1 To nIf i=1 Or i=m Thensumm=summ+a(i，j)ElseIf j=1 Or j=n Thensumm=summ+a(i，j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click（ ）的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2 Click（ ）的作用是（ ）。A.计算矩阵外围一圈元素的累加和B.计算矩阵除外围一圈以外的所有元素的累加和C.计算矩阵第1列和最后一列元素的累加和D.计算矩阵第1行和最后一行元素的累加和
考题
在窗体上画三个命令按钮，其名称分别为Command1、Command2和Command3，然后编写如下事件过程： Private Sub Command1 Click() Command2.Enabled = False Command3.Visible = False End Sub程序运行后，单击命令按钮Command1，则执行的操作是______。A．命令按钮Command2和Command3禁用B．命令按钮Command2和Command3隐藏C．命令按钮Command2隐藏，Command3禁用D．命令按钮Command2禁用，Command3隐藏
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是______。A．15B．18C．21D．24
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： option Base 1 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) For i=1 To UBound(a)a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。A．4B．5C．6D．7
热门标签
最新试卷