itgle.com

在窗体上画一个命令按钮，然后编写如下事件过程：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）

题目

在窗体上画一个命令按钮，然后编写如下事件过程：

Sub BTC（oldCopy（） As Integer, newCopy（） 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（）

Dim m（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．0

B．2

C．10

D．25

相似考题

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

2.在窗体上画一个命令按钮，然后编写如下事件过程：运行后的输出结果是______。A．5B．1C．2D．6

3.在窗体上画一个命令按钮，然后编写如下事件过程：运行后的输出结果是______。A．3B．10C．20D．2

4.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，消息框输出的是系统当前日期和当前时间。

更多“在窗体上画一个命令按钮,然后编写如下事件过程: SubBTC(oldCopy()AsInteger,newCopy()A ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：

    运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是__________。


    正确答案：
    hardware【解析】本题考查消息框的知识。使用MsgBox函数来弹出消息框，此函数的使用格式为：MsgBox(prompt[，buttons][，title][，helpfile，context])其中第一个参数是显示在对话框中的消息，第二个参数是按钮的数目及形式，第三个参数是对话框标题栏显示的字符串，后面的是帮助文件以及帮助上下文编号。第一个参数必需有，其余参数可省略，但是若中间若干个参数省略时不能省略逗号分隔符。本题中第三个参数是变量b，即hardware。

  • 第2题：

    在窗体上画一个命令按钮。然后编写如下事件过程：

    程序运行后，连续单击三次命令按钮，输出的结果是

    A．7 36

    B．15 72

    C．1 5 108

    D．72 256


    正确答案：C
    因为X重新赋值，所以每次循环结果一样。计算一次即可，结果为l5。对于y，内层循环一次，其值为3。共循环12次，所以其值为36。当多次单击命令按钮时，x是普通变量，每次单击只是重新计算一次，执行结果一样，仍然为15。但Y是静态变量，程序没有结束运行之前，仍然保持上一次的值。每单击一次按钮，它将累计本次执行结果。执行三次，结果为36+36+36=108。选择C。

  • 第3题：

    在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

    A)机床

    B)车床

    C)钻床

    D)轴承


    正确答案：C
    本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。

  • 第4题：

    在窗体上画一个命令按钮，其名称为Command]，然后编写如下事件过程：程序运行后，单击命令按钮，消息框输出的是（ ）

    A. 48

    B. 72

    C. 96

    D. 128


    正确答案：B
    奉题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。浅们只需要注意这两个数组元素在循环中被赋了什么值，当i=3 j=3时，al(3，3)=3+3=6，a2(3。3)= al(3，3)+3+3=12．所以最后二者之积为72。

  • 第5题：

    在窗体上画一个命令按钮，然后编写如下事件过程： 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．0

    B．2

    C．10

    D．25


    正确答案：D
    解析：在此题中定义了一个数据拷贝函数，用数组来保存数据，在主调过程中，先用For…Next循环语句给m()赋给，然后调用BTC函数，将m()中的数据赋给n()，最后输出n(5)。在数据拷贝函数中，用了函数LBound(oldCopy())和UBound(old-Copy())分别获得数组的下界和上界，控制循环次数。用newCopy(i)=oldCopy(i)赋值语句，将m数组中的数据赋给n数组。因为m(5)=25，数组n与数组m等价，所以n(5)也是25。

相关内容