窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮,如图所示。函数fun及命令按钮的单击事件过程如下,请填空。Private Sub Command1_Click()Dim x As Integerx=Val(InputBox(“输入数据”))Text1=Str(fun(x)+fun(x)+fun(x))End SubPrivate Function fun(ByRef n As Integer)Ifn Mod 3=0 Thenn=n+nElsen=n*nEnd I

题目

窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮,如图所示。函数fun及命令按钮的单击事件过程如下,请填空。

Private Sub Command1_Click()

Dim x As Integer

x=Val(InputBox(“输入数据”))

Text1=Str(fun(x)+fun(x)+fun(x))

End Sub

Private Function fun(ByRef n As Integer)

Ifn Mod 3=0 Then

n=n+n

Else

n=n*n

End If

________=n

End Function

当单击命令按钮,在输入对话框中输入2时,文本框中显示的是_______。


相似考题
更多“ 窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮,如图所示。函数fun及命令按钮的单击事件过程如下,请填空。Private Sub Command1_Click()Dim”相关问题
  • 第1题:

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

    A. 30

    B. 25

    C. 20

    D. 15


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

  • 第2题:

    在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

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

    A.2

    B.3

    C.4

    D.5


    正确答案:B
    题只能计算当i>1所循环的次数。注意i在循环体内被强行加3,到For循环时.还要再加步长1,这相当于因此,n=3。选择B。

  • 第3题:

    在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮,编写如下事件过程: Private Sub Command1_Click() Text1.Text=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后.如果单击命令按钮,则在文本框中显示的是

    A.计算机

    B.等级

    C.考试

    D.出错


    正确答案:C
    解析:为了方便使用,VisualBasic为每个控件规定了一个默认属性,在设置这样的属性时,不必给出属性名,通常将该属性称为控件的值。控件值是一个控件的最重要或最常用的属性。在该题中,文本框Text1的默认属性为Text,关键字Me代表的是程序代码所在的窗体。这样,语句“Text1.Text="计算机"”、“Me.Text1="等级"”和“Text1="考试"”是等价的。最终在文本框中显示的是“考试”。

  • 第4题:

    在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下事件过程:程序运行后,单击命令按钮,在文本框中显示的是( )。

    A. 2

    B. 3

    C. 4

    D. 5


    正确答案:B
    B)    【解析】本题考查循环程序的分析。题中循环变量为i,步长为1,循环体中i每次变化都增加3,因此执行一次循环后,i的值增加4,当i大于10时退出循环,所以每次循环后i的值为:3,7,11。当i为11时退出循环,所以循环共执行了3次。

  • 第5题:

    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Text1.Text = "Visual" Me.Text1 = "Basic" Text1 = "Program" End Sub 程序运行后,如果单击命令按钮,则在文本框中显示的是

    A. Visual

    B.Basic

    C.Program

    D.出错


    正确答案:C
    解析:Text是文本框的默认属性。