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

题目

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

Private Sub Command1_Click()

Sum =0

For i=3 T0 7

Sum =i+2

Next i

MsgBox sum+i

End Sub

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

相似考题

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

2.有如下函数过程: Function lj(x As Integer) As Long Dim s As Long Dim i As Integer s=0 For i = 1 To x s=s+ i Next i 1j= s End Function在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数： Private Sub Command1 Click() Dim i As Integer Dim sum As Long For i = 1 To 5 sum = sum + 1j(i) Next i Print sum End SubA． 25B．35C．45D．55

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

4.在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()sum=0For i=1 To 100 step 2sum=sum+iNext iMsgBox sumEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。

更多“在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Sum =0 For i=3 ”相关问题

  • 第1题：

    在窗体上添加一个命令按钮，然后编写如下事件过程： 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
    暂无解析，请参考用户分享笔记

  • 第2题：

    在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。

    A．15

    B．18

    C．21

    D．24


    C

  • 第3题：

    在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n 3 Next n Form1.Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。

    A．15

    B．18

    C．21

    D．24


    C

  • 第4题：

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


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

  • 第5题：

    在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) Dim m（10) As Integer, n（10) As Integer i = 3 For t = 1 To 5 m（t) = t n（i) = 2 * i + t Next t Print n（i); m（i) End Sub 窗体运行后，单击命令按钮，显示结果为（）。

    A．3 11

    B．3 15

    C．11 3

    D．15 3


    C

相关内容