itgle.com

在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）。A. 20是一个奇数B. 20C. 20是一个偶数D. 2

题目

在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：

程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）。

A. 20是一个奇数

B. 20

C. 20是一个偶数

D. 2

相似考题

1.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。A．27B．28C．29D．30

2.在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click()Text 1="VB programming"Text 2=Text 1Text 1="ABCD"End Sub程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。

3.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是： ______。A．27B．28C．29D．30

4.在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：PrivateSubCommand1_Click()a=1.2c=Len(Str( )+Space(10))Text1.Text=cEndSub程序运行后，单击命令按钮，在文本框中显示( )A.3B.8C.14D.10

更多“ 在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为（ ）。A. 20是一”相关问题

  • 第1题：

    在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labe11，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(TextText)+0.5) LabeCaption=Str(x) End Sub 程序运行后，在文本框中输入653，单击命令按钮，标签中显示的内容是______。

    A．27

    B．28

    C．29

    D．30


    正确答案：C
    解析：程序中各部分值的运算过程为：Text1.Text="28.653"Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)="29"

  • 第2题：

    若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框，且文本框的内容为空，然后编写如下事件代码：

    Private Function f(X As Long)As Boolean

    If x Mod2=0 Then

    f=True

    Else

    f=False

    End If

    End Function

    Private Sub Command1_ Click()

    Dim n As Long

    n=Val(Me!text1)

    p=Ⅱf(f(n)，"Even number"，"Odd number")

    Me!Labell.Caption=n &"is"& p

    End Sub

    窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。


    正确答案：21isoddnumber
    21isoddnumber 解析：函数过程也可称为函数，是一系列由Function和End Function语句包含起来的Visual Basic语句。Function过程和Sub过程很类似，但函数过程可以返回一个值。此题定义一个整型变量Long并把n的值赋予它，n为文本框Text1输入字符转换为数值型的值；当在文本框中输入21，则n的值为21，代入Function函数过程，x为21，对x取模，为偶数时返回True，为奇数时返回False；21是奇数，返回false；IIf涵数调用格式：IIf(条件式，表达式1，表达式2)，条件式值为Tree，函数返回表达式1的值，条件式植为False，函数返回表达式2的值。此处P返回表达式2的值Odd number；&用来强制两个表达式作字符串连接，则最后标签显示内容为21isoddnumber。

  • 第3题：

    在窗体上添加一个命令按钮Command1和一个文本框Text1，并在命令按钮的Click事件过程中编写如下代码： Private Sub Command1_Click（) A = 1.2 C = Len（Str$（A) + Space（10)) Text1.Text = C End Sub 程序运行后，单击命令按钮，在文本框中显示（）。

    A．3

    B．8

    C．14

    D．10


    C

  • 第4题：

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

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


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

  • 第5题：

    在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：

    Private Sub Command1_Click()

    Text1＝"VB programming"

    Text2＝Text1

    Text1＝"ABCD"

    End Sub

    程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。


    正确答案：VB programming
    VB programming 解析：本段程序是先把"VB programming"赋给Text1，然后再把Text1的内容赋给Text2，最后把"ABCD"赋给Text1。最后Text1中的内容是"ABCD"，而Text2中的内容是"VB programming"。

相关内容