在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m Forj=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 Tom For j=1 To n If i=1 Or i=m Then summ=summ+a(

题目

在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m Forj=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 Tom 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中存放—个m行n列的矩阵；过程Command2 Click()的作用是______。

A．计算矩阵外围一圈元素的累加和

B．计算矩外围一圈以外的所有元素的累加和

C．计算矩阵第1列和最后—列元素的累加和

D．计算矩阵第1行和最后—行元素的累加和

相似考题

1.在窗体上画1个命令按钮，并编写如下事件过程iPrivate Sub Commandl—Click()Dim a(3，3)For m=1 T0 3F0r n=1 To 3If n=m Or n=4-m Thena(m，n)=m+nElsea(m，n)：0End IfPrint a(m，n)；Next nPrimNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为A．2 0 0B．2 0 4C．2 3 0D．2 0 0

2.在窗体上画—个名称为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

3.在窗体上画一个名称为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

4.在窗体上画一个名称为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、Command2,并编写如下程序 Const n=5,m=4 Dim a(m,n) ”相关问题

  • 第1题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(p，m，n) p=p + 1 : m = m + 1 : n =n + 1 Print p;m;n End Sub Private Sub Command1_Click() x=6 : y=4 : z=2 Call sub1(x，y+1，(z)) Print x；y；z End Sub 程序运行后，单击命令按钮，则窗体上第二行显示的内容是

    A．7 6 3

    B．7 4 2

    C．6 4 2

    D．4 6 3


    正确答案：B
    解析：本题考察的是函数过程的调用和参数传送。当发生了Command1的单击事件时，调用函数过程sub1，虽然sub1函数过程在定义时3个参数都被定义成传址方式传送，但在调用时只有第1个参数是变量，按引用传送，其他两个参数均按传值传送。参数传送后，进入subl函数过程执行，p、m和n均加1分别得到的值为7、6和3。函数过程调用返回后，只有x的值发生了变化，变为7，y和z的值仍为4和2。

  • 第2题：

    在窗体上画一个名称为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．54321

    B．4

    C．54321

    D．0


    正确答案：A
    解析：本题针对输出格式的问题。因字符串没有正负号，所以输出的字符之间没有空格；而数字有正负号，输出的字符之间应有空格。数组x被定义为字符串型变量，n+1的计算结果自动转换成字符串赋给x(n)，所以输出的字符之间是没有空格的。

  • 第3题：

    在窗体上画一个名称为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．15

    B．18

    C．21

    D．24


    正确答案：C
    解析：本题考查的是For．．．Next循环语句。For．．．Next循环执行时，先将初始值赋给循环变量，判断是否超过终值；若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长，(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Nextn，则n=21，此时n大于终值20，退出循环。

  • 第4题：

    在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1 Click（ ） Dim a(3，3) For m=1 To 3 For n=1 To 3 If n=m or n=4—m Then a(m．n)=m+n Else a(m，n)=0 End If Print a(m，n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。

    A.2 0 0 0 4 0 0 0 6

    B.2 0 4 0 4 0 4 0 6

    C.2 3 0 3 4 0 0 0 6

    D.2 0 0 0 4 5 0 5 6


    正确答案：B
    B。【解析】本题考查了嵌套的For循环，答案为B选项。

  • 第5题：

    在窗体上画三个命令按钮，其名称分别为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隐藏


    正确答案：D

  • 第6题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

    A．15

    B．18

    C．21

    D．24


    正确答案：C
    解析：本题考查的是For...Next循环语句。For...Next循环执行时，先将初始值赋给循环变量，判断是否超过终值，若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Nextn，则n=21，此时n大于终值20，退出循环。

相关内容