在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。编写如下程序：Private Sub Form_Load（）Text1.Text=""Text2.Text=""Text3.Text=""End SubPrivate Sub Command1_Click（）x=Val（Text1.Text）y=Val（Text2.Text）Text3.Text=f（x，y）End SubFunction f（ByVal x As Inte

题目

在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。

编写如下程序：

Private Sub Form_Load（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

End Sub

Private Sub Command1_Click（）

x=Val（Text1.Text）

y=Val（Text2.Text）

Text3.Text=f（x，y）

End Sub

Function f（ByVal x As Integer,ByVal y As Integer）

Do While y<>0

tmp=x Mod y

x=y

y=tmp

Loop

f=x

End Function

运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。

A．4

B．6

C．8

D．12

相似考题

1.在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：Function Fun（x As Integer,ByVal y As Integer）As Integerx=x+yIf x<0 ThenFun=xElseFun=yEnd IfEnd FunctionPrivate Sub Command1_Click（）Dim a As Integer,b As Integera=-10：b=5Text1.Text=Fun（a，b）Text2.Text=Fun（a，b）End Sub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。

2.在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。A．4B．6C．8D．12

3.在名为Form1的窗体上添加三个文本框和一个命令按钮，其名称分别为Text1、Text2、Text3和Command1，然后编写如下两个事件过程： Private Sub Command1_Click() Text3=Textl+1Text2 End Sub private Sub Form1_Load() Text1="" Text2="" Text3="" End Sub 打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为( )。A．57B．12C．5D．出错

4.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If xt = xx = yy = tEnd IfIf yt = yy = zz = tIf xt = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为()A.3,5,8B.5,3,8C.8,5,3D.3.8.5

更多“在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Comman ”相关问题

  • 第1题：

    在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：

    Private Sub Commandl Click()

    Text3=Text1+Text2

    End Sub

    Private Sub Form1 Load()

    Text1=" "

    Text2=" "

    Text3=" "

    End Sub

    打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。


    正确答案：57
    57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Commandl的Click事件是：Text3=Text1+Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。

  • 第2题：

    在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：

    Private Sub Command1 Click()

    Text3=Text1+Text2

    End Sub

    Private Sub Forml Load()

    Text1＝""

    Text2=""

    Text3=""

    End Sub

    打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。


    正确答案：57
    57 解析：本题考查对“+”的理解。在VBA中，“+”既可以用作数学运算符，也可以用来连接字符串。题目程序实现将两个文本框中字符串进行连接，然后在第3个文本框中显示，所以应该是57，在连接字符串方面，“+”和“&”是相同的功能，但“&”只能用来连接字符串，而不能进行数学运算。命令按钮 Command1的Click事件是：Text3=Text1-1-Text2是将文本框Text1和Text2的内容进行连接后显示在Text3文本框中，窗体Form1的Load事件是将3个文本框的内容清空。当在文本框中输入内容后，单击命令按钮来触发其Click事件，完成两个字符串的连接。

  • 第3题：

    在窗体(NAME属性为FORM1)上画三个文本框(其NAME属性分别为TEXT1、TEXT2和TEXT3)和一个命令按钮(NAME属性为COMMAND1)，然后编写如下两个事件过程： PRIVATE SUB COMMAND1_CLICK( ) TEXT3=TEXT1+TEXT2 END SUB PRIVATE SUB FORM1_LOAD( ) TEXT1="" TEXT2="" TEXT3="" END SUB 程序运行后，在第一个文本框(TEXT1)和第二个文本框(TEXT2)中分别输入5和7，然后单击命令按钮，则文本框(TEXT3)中显示的内容为( )。

    A．12

    B．57

    C．75

    D．空值


    正确答案：B
    解析：完成文本框(TEXT1)和文本框(TEXT2)内容的求和，然后将结果显示在文本框 (TEXT3)中，但文本框的Value属性返回的值是字符串型，故两个字符串进行“+”运算的结果是字符中叠加，即两个字符串相连接。

  • 第4题：

    在窗体上画1个名称为Command1和命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，

    然后编写如下程序：

    Function Fun(X As Integer,ByVal y As Integer)As Integer

    x=x＋y

    If X＜0 Then

    Fun=x

    Else

    Fun=y

    End If

    End Function

    Private Sub Command1 Click()

    Dim a As Integer,b As Integer

    a=-10:b=5

    Text1.Text=Fun(a,B)Text2.Text=Fun(a, B)End Sub

    程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【 】和【 】。


    正确答案：-5 5
    -5 , 5 解析：Fun函数的目的是修改参数x的值为x＋y，如果x0，则返回x，否则返回y。执行Command1_click时，初始a=-10,b=5，执行第一个Fun函数后，a的值为-5，小于0，故返回a的值-5。执行第二个Fun函数后，a的值为0，不小于0，故函数返回b的值5。所以本题两空分别为-5及5。

  • 第5题：

    在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。编写如下程序： Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text

    A．4

    B．6

    C．8

    D．12


    正确答案：D

相关内容