有应用代码：Text1.Text="VisualBasic"，其中的Text1、Text和"VisualBasic"分别代表（）

相似题目

• 在表单form1中有两个文本框text1和text2，其初值为空，另有一个命令按钮command1，command1的click事件代码如下：a=rtrim（thisform.text1.value）+rtrim（thisform.text2.value）thisform.print（a）表单运行后，在text1、text2中分别输入123和456，然后单击命令按钮，则输出结果为（）。

  A . 579 B . 456123 C . 123456 D . 321654

  查看最佳答案

• 已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（）。 PrivateSubCommand1_Click（） Text1.Text="湖南省"&"计算机"+"等级考试" Text1.ForeColor=vbRed Text1.BackColor=vbGreen Text1.FontBold=True EndSub

  A . 湖南省计算机等级考试 B . 计算机 C . 等级考试 D . 计算机等级考试

  查看最佳答案

• 在表单form1中有两个文本框text1和text2，其value初值均为"无"，form1的click事件代码如下：a=this.text1.value-this.text2.valuethis.print[a]表单运行后，在text1、text2中分别输入111和222，然后单击表单，则表单左上角显示（）。

  A . 111222 B . -111 C . 222 D . 111-222

  查看最佳答案

• 在表单FORM1中有一个文本框TEXT1，TEXT1的INIT事件代码如下：THIS.VALUE=0TEXT1的VALID事件代码如下：S=0FORi=1TOTHIS.VALUEIFi%5=0S=S+iENDIFENDFORTHIS.VALUE=S在TEXT1中输入22，然后按回车键，TEXT1中将显示（）。

  A . 0 B . 22 C . 50 D . 100

  查看最佳答案

• 在表单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}4 B . 2006/11/2 C . 2006/11/64 D . {^2006/11/2}

  查看最佳答案

• 在表单Form1中有一个文本框text1，text1的InteractiveChange事件代码如下：CHAR1=ALLTRIM（THIS.VALUE）ASC1=ASC（CHAR1）+32THIS.VALUE=CHR（ASC1）该表单运行后，在文本框中输入一个大写ASCII码“T”，则文本框中显示内容将是（）。

  A . T+32 B . T32 C . t D . 97

  查看最佳答案

• 在表单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/2006 B . 11/12/200611/10/2006 C . 2 D . -2

  查看最佳答案

• 窗体上有文本框Text1、Text2和命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()Ifval(Text1.Text)<=3thenText2.Text=“h”ElseText2.Text=“i”EndIfEndSub当用户在文本框Text1中输入6，并单击Command1，则文本框Text2中显示（）。

  查看最佳答案

• 在VB中有一行程序代码：Text1.Text=Visual Basic,其中的Text1 Text和Visual Basic分别代表______。

  查看最佳答案

• 在VB中有一行程序代码：Text1.Text=VisualBasic,其中的Text1Text和VisualBasic分别代表______。（1.0分）

  查看最佳答案

• 在窗体上添加一个文本框，名称为 text1 ，然后编写如下的 load 事件过程，则程序的运行结果是 __________ 。 Private Sub Form_Load Text1.Text= Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub

  查看最佳答案

• 有程序代码： Text1.Text=\Visual Basic\ 其中的 Text1 、 Text 和 \Visual Basic\ 分别代表（ ）。

  查看最佳答案

• 窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。

  <img src='https://img2.soutiyun.com/shangxueba/ask/4359001-4362000/4359886/ct_ctvbbm_choose_05019(20092).jpg' /> 设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是 A．Open"c：\Test29.dat"For Random As1 Put1，1，p C10se 1 B．OpeH"c：\Test29.dat"For Random As 1 Get1，1，p C108C1 C．Open"c：\Test29.dat"For Random As1 Len=Len(p) Put1，1，p C108C1 D．OPell"c：\Test29.dat"For，Random As1 Len=Len(p) Get1，1，p C106e1

  查看最佳答案

• 下图窗体上有三个文本框Text1、Text2和Text3以及一个按钮Command1。为完成已知圆直径求圆周长和圆面积的功能，程序如下：

  <img src='https://img2.soutiyun.com/shangxueba/ask/11175001-11178000/11176558/ct_cstvbm_ctvbbblank_00048(200912).jpg' /> 程序填空处应是______。

  查看最佳答案

• 窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（）处应填入的内容是。

  Private Sub Text1_LostFocus（） Call CheckInput（Text1，500） End Sub Private Sub Text2_LostFocus（） Call CheckInput（Text2，1000） End Sub Sub CheckInput（t As ？，x As Integer） If Val（t.Text）＞x Then MsgBox"请重新输入!" End If End Sub A．Text B．SelText C．Control D．Form

  查看最佳答案

• （28 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 要求文本框 Text1 中输入的数据小于 500 ， 文本

  框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（）处 应填入的内容是（）。 Private Sub Text1_LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2_LostFocus() Call CheckInput(Text2,1000) End Sub Sub CheckInput(t As ？,x As Integer) If Val(t.Text)＞x Then MsgBox" 请重新输入 !" End If End Sub A ） Text B ） SelText C ） Control D ） Form

  查看最佳答案

• 在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：

  Private Sub Command1_Click() Dim x!, y!, z!, t! x = Text1 y = Text2 z = Text3 If x< y then t = x x = y y = t End If If y< z then t = y y = z z = t If x< y then t = x x = y y = t End If End If Label1.Caption = x & "," & y & "," & z End Sub 当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为() A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5

  查看最佳答案

• 已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（）。PrivateSubCommand1_Click（）Text1.Text=&quot;湖南省&quot;&amp;&quot;计算机&quot;+&quot;等级考试&quot;Text1.ForeColor=vbRedText1.BackColor

  A．湖南省计算机等级考试 B．计算机 C．等级考试 D．计算机等级考试

  查看最佳答案

• 在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load（) Open"d:empdat.txt"For Output As 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress（KeyAscii As Integer) If______=13 ThenIf UCase（Text1.Text)=____

  查看最佳答案

• 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 （8) 和 （9) 。

  查看最佳答案

• 在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown（KeyCode As Integer, Shift As Integer) Text1. Text=T

  查看最佳答案

• 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 （6) 和 （7) 。

  查看最佳答案

• 在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form Load（) Open "C:dat.txt" For Output As1 Text1.Text="" End Sub Private Sub Text1_KeyPress（KeyAscii As integer) If______=13 Then If UCase（Text1.Text=______)

  A．KeyAscii "END" B．Text1.Text "END" C．Text1.Text 13 D．KeyAscii 13

  查看最佳答案

• 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click（) Dim inData As String Text1. Text="" Open "d: myfile. txt "For______As 1 Do While ______ Input 1，inData Text1. Text=Text1

  查看最佳答案