在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程A．35B．33C．31D．29

题目

在窗体上添加一个命令按钮，然后编写如下事件过程： Phvate Sub Commanl_Click() Dima(10)As Integer Dimp(3)As InteSer k=5 Fori=1 To 10 a(i)=i Nexti Fori=1 To 3 p(i)=a(i*i) Nexti Fori=1 To 3 k=k+p(i)*2 Nexti Printk End Sub 该程

A．35

B．33

C．31

D．29

相似考题

1.在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a＝Array(“机床”,”车床”,”钻床”,”轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．机床B．车床C．钻床D．轴承

2.在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(10,10)As IntegerDim i,j As IntegerFor i=2 To 4For j=3 To 6Next iText1.Text=a(2,3)+a(4,6)End Sub程序运行后，单击命令按钮，在文本框中显示的值是( )。

3.在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Sum =0For i=3 T0 7Sum =i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。

4.在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：Private Sub Cmd_Click( )Dim sum,kFor k=1 to 6sum=30+kNext kMsgBox sum+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是【 】。

更多“在窗体上添加一个命令按钮,然后编写如下事件过程:Phvate Sub Commanl_Click()Dima(10)As Integer ”相关问题

  • 第1题：

    在窗体上添加一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

    程序运行后，单击命令按钮，在文本框中显示的值是__________。


    正确答案：
    30【解析】本题考查VBA中二维数组和循环的知识。本题属于比较简单的问题，使用了二重循环为二维数组进行了部分赋值，最后求两个数组元素值并求和，注意这两个元素是否已被赋值，若没有赋值则为0。本题中对于a(2，3)赋值为2*3也就是6，a(4，6)赋值为4*6也就是24，最后的结果为6 24=30。

  • 第2题：

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

    A.机床

    B.车床

    C.钻床

    D.轴承


    正确答案：C
    C．【解析】本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，通常使用Dim语句来定义数组，其中下标下限默认为0。本题中的a(2)就是数组的第三个元素即“钻床”。

  • 第3题：

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl)，然后编写如下事件过程：


    正确答案：
    15【解析】本题考查VBA程序中过程调用的知识。由于VBA中，默认情况下，参数是按地址传递(ByRef)，对形参的改变会影响到实参。本题中2的值等于a b，这个z值会返回给实参c，所以文本框中显示的内容为15。

  • 第4题：

    在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：

    Private Sub Command1_Cliek

    Dim b, k

    For k = 1 to 6

    b=23+k

    Next k

    MsgBox b + k

    End Sub

    打开窗体后，单击命令按钮，消息框的输出结果是【 】。


    正确答案：51
    51 解析：本题循环内部完成b=231+2+3+4+5+6的操作，当k=7时，结束循环，故消息框中显示的是51。

  • 第5题：

    在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click（ ） Dima（ ） a=Array（1，3，5，7）s=0Fori=1 t0 3S=S*10+a（i）NextiPrint SEndSub程序运行后，输出结果为（ ）。

    A.135

    B.357

    C.531

    D.753


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

相关内容