itgle.com

（ 10 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10a(i) = i * iNext iFor i = 1 To 3p(i) = a(i * i)Next iFor i = 1 To 3k = k + p(i) *2Next iMsgBox kEnd Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是 【 10 】 。

题目

（ 10 ）在窗体上有一个命令按钮 Commandl ，编写事件代码如下：

Private Sub Command1_Click()

Dim a(10), p(3) As Integer

k = 5

For i = 1 To 10

a(i) = i * i

Next i

For i = 1 To 3

p(i) = a(i * i)

Next i

For i = 1 To 3

k = k + p(i) *2

Next i

MsgBox k

End Sub

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

相似考题

1.在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()Dim a(10),p(3)As Integerk=5For i=1 To 10a(i)=i+iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k =k+p(i)*2Next iMsgBox kEnd SuB打开窗体运行后，单击命令按钮，消息框中输出的结果是【 】。

2.在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。A. 1B. 2C. 3D. 4

3.在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下：打开窗体后单击命令按钮，窗体中显示的内容是（ ）。A. 4B. 5C. 10D. 40

4.在窗体上有一个命令按钮Commandl，编写事件代码如下：Private SuB commandl_Click()Dim x As Integer,y As Integerx=12:y=32Call Proc(x,y)OeBug.Print x;yEnd SuBPuBlic SuB Proc(n As Integer,Byval m As Integer)n=n Mod 10m=m Mod 10End SuB打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A．2 32B．12 3C．2 2D．12 32

参考答案和解析
正确答案：
更多“( 10 )在窗体上有一个命令按钮 Commandl ,编写事件代码如下:Private Sub Command1_Click()Dim a( ”相关问题

  • 第1题：

    在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl Click（ ） Dim Y As Integer y=0 Do y=InputBox(”y=”) If(Y Mod l0)+Int(y／10)=10 Then Debug．Print Y； LoopUntil y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是（ ）。

    A.375564281919

    B.105020

    C.1050200

    D.3755642819


    正确答案：D
    D。【解析】此sub的作用是输出个位上的数、十位上的数相加和为l0的数，其中YModl0是求出个位上的数，y／10是求出十位上的数。

  • 第2题：

    在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

    窗体打开运行后，单击命令按钮，则消息框的输出结果是（ ）。

    A)1

    B)2

    C)3

    D)4


    正确答案：D
    本题考查VBA中选择结构的知识。在本题中用了多个If分支结构，这些结构是顺序的而不是嵌套的，所以会顺序执行，判断是否满足条件。首先75不小于60，所以不执行x=1；然后再判断75不小予70，所以不执行x=2；再接着判断75小于80，所以执行x=3；最后判断75小于90，所以执行x=4。最后消息框里输出的x值为4。

  • 第3题：

    在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl Click（ ） Dim dl As Date Dim d2 As Date d1=#12／25／2009#d2=#1／5／2010# MsgBox DateDiff(”ww”，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是（ ）。

    A.1

    B.2

    C.10

    D.11


    正确答案：B
    B。【解析】DateDiff(timeinterval，datel，date2[，firstdayofweek[，firstweekofyear]])返回的是两个日期之间的差值，timeinterval表示相隔时间的类型，ww表示几周；而日期的dl和d2相差两周，故输出2。

  • 第4题：

    在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl Click（ ） Dim X As Integer，Y As Integer x=12：y=32 Call Proc(x，Y) Debug．Print X；Y End Sub Public Sub proc(n As Integer，ByVal in As Integer) n=n Mod 10 m=m Mod 1O End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是（ ）。

    A.232

    B.123

    C.22

    D.1232


    正确答案：A
    A。【解析】由程序可知proc过程作用是将参数的个位求出并赋给本身。它的第一个参数是默认按地址传递，所以它可以改变实参的值，而第二个是按值传递，形参的改变对实参无影响。于是当Callproc(x，y)后X由12变为2，而y仍为32。

  • 第5题：

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

    A.机床

    B.车床

    C.钻床

    D.轴承


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

相关内容