在窗体上画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

题目

在窗体上画1个命令按钮，并编写如下事件过程i

Private Sub Commandl—Click()

Dim a(3，3)

For m=1 T0 3

F0r 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

Prim

Next m

End Sub

运行程序，单击命令按钮，窗体上显示的内容为

A．2 0 0

B．2 0 4

C．2 3 0

D．2 0 0

相似考题

1.（ 24 ）在窗体上画 1 个命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim a(3,3)For m=1 To 3For n=1 To 3If n=m Or n=4-m Thena(m,n)=0End IfPrint a(m,n);Next nPrintNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为A ）2 0 00 4 00 0 6B ）2 0 40 4 04 0 6C ）2 3 03 4 00 0 6D ）2 0 00 4 50 5 6

2.在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为( )A．0B．1C．2D．3

3.在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。A．空白B．错误提示C．北京D．上海

4.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

更多“在窗体上画1个命令按钮,并编写如下事件过程iPrivate Sub Commandl—Click()Dim a(3,3)For m=1 T0 ”相关问题

  • 第1题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$="VisualBasic" Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是

    A．VVV

    B．Vis

    C．sic

    D．11


    正确答案：A
    解析：本题考查字符串函数。 String返回n个字符。如果为字符串，则返回n个字符串的首字符。据此，本题的正确答案为A，即返回3个“Visual Basic”的首字母“V”。

  • 第2题：

    在窗体上画1个命令按钮，并编写如下事件过程： private Sub Command1_Click（ ） For i=5 To 1 Step-0．8 Print Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为（ ）。

    A.5 4 3 2 1 1

    B.5 4 3 2 1

    C.4 3 2 1 1

    D.4 4 3 2 1 1


    正确答案：A
    A。【解析】step可以设置For循环的步长，所以程序执行6次，Int(i)是求不大于自变量i的最大整数。

  • 第3题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A.机床

    B.车床

    C.钻床

    D.轴承


    正确答案：C
    暂无解析，请参考用户分享笔记

  • 第4题：

    在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： 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循环控制语句，做好此题的关键是掌握For循环语句的执行过程。For循环首先把“初值”赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把“循环变量+步长”的值赋给循环变量，重复上述过程。据此，如果For循环的终值等于初值，For循环也会执行一次循环。本题需要输出执行完Forn循环后n值，应为21。根据前述，当执行完n=20的循环时，n被赋值21，然后再取检验它是否超过了终值。故正确答案为C。

  • 第5题：

    在窗体上画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选项。

相关内容