itgle.com

设有命令按钮Command1的单击事件过程,代码如下: Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem>90 Then Exit For Next End Sub 对于该事件过程,以下叙述中错误的是______。A.a数组中的数据是20个10

题目

设有命令按钮Command1的单击事件过程,代码如下: Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem>90 Then Exit For Next End Sub 对于该事件过程,以下叙述中错误的是______。

A.a数组中的数据是20个100以内的整数

B.语句For Each arrItem In a有语法错误

C.If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数

D.If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环


相似考题
更多“设有命令按钮Command1的单击事件过程,代码如下:Private Sub Command1_Click() Dim a(30) As Inte ”相关问题
  • 第1题:

    设有命令按钮Command1的单击事件过程,代码如下,请填空。

    Private Sub Command1_Click()

    Dim a(30) As Integer

    For i=1 To 30

    a(i) =i

    Next

    For Each arrItem______a

    If arrItem Mod 7=0 Then Print arrItem;

    If arrItem>90 Then Exit For

    Next

    End Sub


    正确答案:In
    In 解析:题考查了For Each…Next语句。与For…Next类似,但For Each…Next专门用于数组或对象“集合”,其一般格式为:
    For Each 成员 In 数组
    循环体
    [Exit For]
    Next[成员]

  • 第2题:

    设有命令按钮Commandl的单击事件过程,代码如下:运行程序,单击命令按钮,消息框输出结果是( )。

    A. 7

    B. 8

    C. 15

    D. 22


    正确答案:D
    本题考查VBA中二维数组和循环的知识。本题中的第一个二重循环为二维数组进行了赋值,第二个循环 完成累加,关键是分析出累加了哪些元素。由循环体可以看出,实 际上3次累加分别累加的是a(1,3)、a(2,2)、a(3、1),实际上就是二维 数组的对角线,累加和为7+8+7=22。

  • 第3题:

    设有一个命令按钮Command1的事件过程以及一个函数过程,程序如下:

    Private Sub Command1_Click()

    Static x as integer

    X=f(x+5)

    Cls

    Print x

    End Sub

    Private function f(x as integer)as integer

    F=x+x

    End function

    连续单击命令按钮3次,第3次单击命令按钮后,窗体上显示的计算结果是

    A)10

    B)30

    C)60

    D)70


    正确答案:D
    【答案】:D
    【知识点】:静态变量的功能和用法
    【解析】:第一次单击:x为静态变量,初值为0,传给f函数的是5,返回值为5+5,则x的值为10。 第二次单击:x为静态变量,值为10,传给f函数的是15,返回值为15+15,则x的值为30。第三次单击:x为静态变量,值为30,传给f函数的是35,返回值为35+35,则x的值为70。故本题选D。

  • 第4题:

    在窗体中有一个名为(Command1的命令按钮,Click事件的代码如下:

    单击命令按钮后,标签显示的结果是( )。


    正确答案:25
    25

  • 第5题:

    设有如下通用过程:在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如 下事件过程:End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是( )。

    A. 30

    B. 25

    C. 20

    D. 15


    正确答案:A
    A)    【解析】本题考查函数的参数。数组作为参数进行传递时,VB中默认的参数传递方式为地址传递。过程Fun的功能是计算数组中所有元素的积。数组的元素为2 4 6 8 10,因此最后文本框中显示的内容为30。

  • 第6题:

    设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下: Private Sub Command1 Click( ) Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次,第3次单击命令按钮后,窗体显示的计算结果是( )。

    A.10

    B.30

    C.60

    D.70


    正确答案:D
    D。【解析】本题考查静态变量,静态变量能将执行后的值储存到变量中。所以当第一次单击按钮时,x=5,x=f(x+5)=5+5=10,所以x=10,第二次单击按钮时,x=f(x+5)=15+15=30,此时x=30,当第三次单击按钮时,x=f(x+5)=35+35=70,所以答案为D。