在窗体上建立三个文本框，名称分别为Text1、Text2和Text3，一个命令按纽，名称为command1，如果在TEXT1中输入数200，在TEXT2中输入数150，则执行下列程序后，TEXT3的值为______。 Private Sub Command1_Click() Dim m, n As Integer m = Val (TextText) n = Val (TextText) If n * m = 0 Then Exit Sub End If If m ＜ n Then t =m: m= n: n = t End If Do r = m Mod n m= n n =r Loop While r ＜＞ 0 TextText= m End SubA． 200B．50C．100D．150
在窗体上建立三个文本框，名称分别为Text1、Text2和Text3，一个命令按纽，名称为command1，如果在TEXT1中输入数200，在TEXT2中输入数150，则执行下列程序后，TEXT3的值为______。 Private Sub Command1_Click() Dim m, n As Integer m = Val (TextText) n = Val (TextText) If n * m = 0 Then Exit Sub End If If m ＜ n Then t =m: m= n: n = t End If Do r = m Mod n m= n n =r Loop While r ＜＞ 0 TextText= m End Sub
A． 200
B．50
C．100
D．150
相关考题：
在窗体上画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 Integer,ByVal y As Integer）Do While y0tmp=x Mod yx=yy=tmpLoopf=xEnd Function运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是（ ）。A．4B．6C．8D．12
在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load（）Command1 Enabled=FalseEnd SubPrivate Sub Text1_ ________ （）Command1 Enabled=TrueEnd Sub
在窗体中建立三个文本框，名称分别为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个命令按钮(名称为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
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。A．abcEFGB．abcefgC．ABCefgD．ABCEFG
在窗体中建立了三个文本框，名称分别为text1、text2和text3，编写以下程序段：PrivateSubText2_LostFocus()DimiAsIntegerIfIsNumeric(Text2)ThenText3.Text=正确!!ElseText2.Text=Text2.SetFocusText3.Text=错误,再输入!!EndIfEndSub当在text2中输入字符串abcd后，点击text3，运行的结果为()A.text2的内容清除,text3中显示正确!!B.text3中显示正确!!C.光标聚焦在text2中D.text2的内容清除,text3中显示错误,再输入!!
在名为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．出错
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click()Me!Text1=""Me!Text2=""Me!Text3=""Me!Text4=""End SubPdvate Sub Command2_Click()If Me!Text1="" Or Me!Text2="" Or Me!Text3=""thenMsgBox"成绩输入不全"ElseMe!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd. 【 】End Sub
在窗体上画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文本框显示的内容分别是【 】和【 】。
窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End SubA．12B．34C．46D．1234
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 ______。A．10B．20C．30D．40
有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click()Me！Text1＝""Me！Text2＝""Me！Text3＝""Me！Text4＝""End SubPrivate Sub Command2_Click()If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""ThenMsgBox "成绩输入不全"ElseMe！Text4＝(【 】＋Val(Me！Text2)＋Val(Me！Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd.【 】End Sub
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Command1 Click()Text3=Text1+Text2End SubPrivate Sub Forml Load()Text1＝""Text2=""Text3=""End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是A．abcEFGB．abcefgC．ABCefgD．ABCEFG
在窗体上画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.TextA．4B．6C．8D．12
在窗体上绘制出3个文本框，名称分别为Text1、Text2和Text3。要求程序运行时，焦点位于Text1，当按Tab键时，焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
在考生文件夹中有一个工程文件execise95.vbp及窗体文件execise95.frm。请在名为 Form1的窗体上绘制3个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“计算机等级考试”、Visua1Basic和空白。然后绘制两个单选按钮，其名称分别为 Opt1和Opt2，标题分别为Change和Join。编写适当的事件程序。程序运行后，如果选中Change单选按钮并单击窗体，则Text1文本框中内容与Text2文本框中内容进行交换，并在Text3文本框中显示OK(如下图所示)：如果选中Join单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前，Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。修改后的文件仍按原文件名保存在原文件夹下。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。
在窗体(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．12B．57C．75D．空值
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
在表单form1中有三个文本框text1、text2、text3（它们的value初值均为"无"）和一个命令按钮command1，命令按钮的click事件代码如下：thisform.text3.value=thisform.text1.value-thisform.text2.value表单运行后，在text1、text2中分别输入{^2006/11/6}和4，然后单击command1，则text3显示（）。A、{^2006/11/6}4B、2006/11/2C、2006/11/64D、{^2006/11/2}
在表单form1中有三个文本框text1、text2、text3（它们的value初值均为{}）和一个命令按钮command1，命令按钮的click事件代码如下：x=thisform.text1.valuey=thisform.text2.valuethisform.text3.value=y-x表单运行后，在text1中输入11/12/2006，在text2中输入11/10/2006，然后单击command1，则text3显示（）。A、11/10/200611/12/2006B、11/12/200611/10/2006C、2D、-2
单选题在表单form1中有三个文本框text1、text2、text3（它们的value初值均为"无"）和一个命令按钮command1，命令按钮的click事件代码如下：thisform.text3.value=thisform.text1.value-thisform.text2.value表单运行后，在text1、text2中分别输入{^2006/11/6}和4，然后单击command1，则text3显示（）。A{^2006/11/6}4B2006/11/2C2006/11/64D{^2006/11/2}
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：程序运行后，如果在文本框Text1中输入China Beijing，则在文本框Text2中显示的内容是（ ）。AChina BeijingBChinaCBeijingDChinaB