更多“ 在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:程序运行后,单击命令按钮,消息框输出的是系统当前日期和当前时间。 ”相关问题
  • 第1题:

    在窗体上画一个命令按钮,其名称为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。

  • 第2题:

    在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:

    程序运行后,在文本框中输入3,然后单击命令按钮,则Y的值变为__________。


    正确答案:
    9【解析】本题考查多分支语句SelectCase的知识。SelectCase用于实现多分支结构,其使用格式为: 其功能是根据“测试表达式”的值,从多个语句块中选择符合条件的一个语句块执行.如果测试表达式的值等于某一个表达式的值,则选择该语句块的语句执行,执行完毕后退出Case结构。本题中由于x的值为3,符合第一个Case语句的条件,所以执行y=x*x后退出Case结构,最后Y的值为9。

  • 第3题:

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

    程序运行后,单击命令按钮,将产生l00个1000以内的随机整数,放入数组aft中,然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min,请填空。


    正确答案:
    1000arr(i)>Maxarr(i)<Min【解析】本题考查VBA中程序设计的知识。对于这个问题,首先要产生l00个1000以内的随机整数,放入数组an"中,由于Rnd函数可以产生0~l之间的随机数,所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值,然后在循环中把数组元素依次与最大值和最小值比较,如果比当前的最大值还大,则让这个数组元素成为新的最大值:如果比当前的最小值还小,则让这个数组元素成为新的最小值,接着继续比较直至数组元素都比较一遍为止。

  • 第4题:

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

    Pfivae Sub Commandl_click()

    a=0

    For i=1 To 2

    For j=1 To 4

    If i Mod 2<>0 Then

    a=a-1

    End If

    a=a+1

    Next j

    Next I

    MsgBox a

    End Sub

    程序运行后,单击命令按钮,消息框中的输出结果是______。


    正确答案:4
    4 解析: 本题考查多重循环的知识。类似这种问题要把握住两点:首先看内循环里面完成了什么工作,有什么规律,然后看外循环和内循环的次数。本题中内循环和外循环的次数完全无关,则每次外循环和内循环都会执行4次。可以看出当j=1和。i=3时由于满足If语句的条件,所以会先执行a=a-1后执行a=a+1,实际上相当于a的值没有变化;当j=2和j=4叫时由于不满足If语句的条件,所以只能执行a=a+1。也就是说外循环每执行一次a的值都会加2,由于外循环共执行2次,所以结果为4。

  • 第5题:

    在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序:

    窗体打开运行后,单击命令按钮,则消息框的输出结果为__________。


    正确答案:
    2500【解析】本题考查循环的知识。这个问题比较简单,实际上就是求l到100之间的奇数和,最终结果为2500。