窗体中有命令按钮Command1和文本框Text1，事件过程如下：Function result(ByVal x As Integer)As BooleanIf x Mod 2=0 Thenresult=Trueelseresult=FalseEnd IfEnd FunctionPrivate Sub Command1_Click()x=Val(InputBox(“请输入一个整数”))If______ ThenTextl=Str(x)&“是偶数．”ElseTextl=Str(x)&“是奇数．”End If

题目

窗体中有命令按钮Command1和文本框Text1，事件过程如下：

Function result(ByVal x As Integer)As Boolean

If x Mod 2=0 Then

result=True

else

result=False

End If

End Function

Private Sub Command1_Click()

x=Val(InputBox(“请输入一个整数”))

If______ Then

Textl=Str(x)&“是偶数．”

Else

Textl=Str(x)&“是奇数．”

End If

End Sub

运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写( )。

A．result(x)=“偶数”

B．result(x)

C．result(x)=“奇数”

D．NOT result(x)

相似考题

1.（ 33 ）在窗体中有一个命令按钮 command1 和一个文本框 text1, 编写事件代码如下：Private sub command1_click()For i=1 to 4X=3For j=1 to 3For k=1 to 2X=x+3Next kNext jNext iText1.value=str(x)End sub打开窗体运行后，单击命令按钮，文本框 text1 输出的结果是A ） 6B ） 12C ） 18D ） 21

2.在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,y As Integer,z As IntegerCall f(x,y,z)End SubSub f(a As Integer,b As Integer,c As Integer)c=b*aEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。

3.在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：Private Sub Command_Click()Dim x AS Integer， y As Integer， z As Integerx=5:y=7:z=0Me!Textl=””Call pl(x，y，z)Me!Text1=zEnd SubSub pl(a As Integer，b As Integer，c As Integer)C=a+bEnd Sub打开窗体运行后，单击命令按钮，文本框中显示的内容是【 】 。

4.在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是( )。A．6B．12C．18D．21

参考答案和解析
正确答案：B
解析：result函数对参数进行取模2后判断，所以当参数值为偶数时返回true，返回值为布尔型，所以此处应选B选项。
更多“窗体中有命令按钮Command1和文本框Text1,事件过程如下:Function result(ByVal x As Integer)As B ”相关问题

  • 第1题：

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

    打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。


    正确答案：12
    12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。

  • 第2题：

    窗体中有命令按钮Commandl和文本框Text1，事件过程如下： Function result (By x As Integer)As Boolean If x Mod 2=0 Then result=True else result=False End if End Function PrivateSub Commandl_Click（ ） x=Val(InputBox(”请输入一个整数”)) If __________Then Text1=Str(x)&”是偶数．” Else Text1=Str(x)&”是奇数．” End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么以上程序的空白处应填写（ ）。

    A.result(x)=“偶数”

    B.result(x)

    C.result(x)=“奇数”

    D.NOT result(x)


    正确答案：B
    result函数对参数进行取模2后判断，所以当参数值为偶数时返回true，返回值为布尔型，所以此处应选B选项。

  • 第3题：

    在窗体中有一个命令按钮Command1和一个文本框Text1，事件代码如下： Private Sub Command1_Click（) For i = l To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next i Text1.value = Str（x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是______。

    A．6

    B．12

    C．18

    D．21


    D 解析：此题为3层嵌套循环，经过分析可见l的最外层循环没有实际意义，I值从l到4时，x的结果是一样的。当j=1，k=l时，x=x+3=6，next k，这时k=2，x=6+3=9；最内层循环执行完毕，执行第二层循环，即j=2，重复上面步骤，以此类推到j=3，最终x值为21。

  • 第4题：

    在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：

    Private Sub Command1_Click()

    For I=1 To 4

    X=3

    For j=i To 3

    For k=1 To 2

    X=x+3

    Next k

    Next j

    Next I

    Text]．value=Str(x)

    End Sub

    打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

    A．6

    B．12

    C．18

    D．21


    正确答案：D
    解析：此题为3层嵌套循环，经过分析可见l的最外层循环没有实际意义，I值从l到4时，x的结果是一样的。当j=1，k=l时，x=x+3=6，next k，这时k=2，x=6+3=9；最内层循环执行完毕，执行第二层循环，即j=2，重复上面步骤，以此类推到j=3，最终x值为21。

  • 第5题：

    在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click(． For I =1 To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.value = Str(x． End Sub 打开窗体运行后，单击命令按钮，文本框Text1输出的结果是

    A.6

    B.12

    C.18

    D.21


    正确答案：D
    首先看一下程序结构，本程序有三个For循环，赋值语句"x=3"在第一层循环语句"ForI=1To4"内，也就是说，无论I的值是1还是4，循环的结果都一样，因为在第一轮循环执行结束，第二轮循环开始时，变量x的值都会恢复为3，所以可以将"ForI=1To4"看作只执行了一次。根据"Forj=1To3"和"Fork=1To2"这个嵌套循环，我们可以推算出语句"x=x+3"执行了6次，循环过程如下：j=1时：k=1，x=3+3=6，k=2，x=6+3=9;j=2时：k=1，x=9+3=12，k=2，x=12+3=15;j=3时：k=1，x=15+3=18，k=2，x=18+3=21。所以程序通过语句"Text1.value=Str(x．"，在文本框中输出的结果为21。所以本题答案为D。

相关内容