在表单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显示（）。

相似题目

• 在表单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

  查看最佳答案

• 在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： https://assets.asklib.com/images/image2/2017110811221976005.jpg 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）

  A . 444 B . 321123 C . 123321 D . 132231

  查看最佳答案

• 在表单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中有一个编辑框EDIT1，一个文本框TEXT1和一个命令按钮COMMAND1，现要使文本框显示编辑框中被选定的内容，应在COMMAND1的CLICK事件中编写的代码是（）。

  查看最佳答案

• 在表单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

  查看最佳答案

• 在表单中有命令Command1和文本框Text1，将文本框的InputMask属性值设置为$9，999.9，然后在命令按钮的Click事件中输入代码ThisForm.Text1.Value=123456.789，当运行表单时，单击命令按钮，此时文本框中显示的内容为________。

  查看最佳答案

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

  查看最佳答案

• 在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填()。

  <img src='https://img2.soutiyun.com/shangxueba/ask/3102001-3105000/3104740/ct_ctvbbm_choose_04645(20092).jpg' /> Private Sub Text1_ _________() TextText=Text1.Text End Sub A．SetFocus B．Change C．GetFocus D．Click

  查看最佳答案

• 下图窗体上有三个文本框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

  查看最佳答案

• 在名为Form1的窗体上绘制一个文本框（名称为Text1)和一个水平滚动条（名称为 HSl)。在属性窗口中对

  在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性： Min 500 Max 2000 LargeChange 50 SmallChange 20 编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。 <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182470/ct_ctvbjj_ctvbjbasicope_00061(20096).jpg' /> 注意： 要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise58.vbp，窗体文件名为execise58.frm。

  查看最佳答案

• 使用下图，表单名为Form1，表单中有两个命令按钮(Commandl和Command2)、两个标签、两个文本框(Text1和Text2)。<img src='https://img2.soutiyun.com/shangxueba/ask/1650001-1653000/1652644/ct_cstabz200402_ctabchoosef_00446(20096).jpg' />如果在运行表单时，要使表单的标题显示“登录窗口”，则可以在Form1的Load事件中加入语句

  A．THISFORM．CAPTION=“登录窗口” B．FORM1．CAPTION=“登录窗口” C．THISFORM．NAME=“登录窗口” D．FORM1．NAME=“登录窗口”

  查看最佳答案

• 在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2；再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为LeR和Right，如下图所示。

  <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182692/ct_ctvbjj_ctvbjbasicope_00011(20096).jpg' /> 要求： (1)编写适当的事件过程，使得程序运行时，单击LeR按钮，则焦点位于Text1上。 (2)单击Right按钮，则焦点位于Text2上。 注意： 程序中不得使用变量，事件过程中只能写一条语句：文件必须存放在考生文件夹中，工程文件名为execise110.vbp，窗体文件名为execise110.frm。

  查看最佳答案

• 在考生文件夹下有一个工程文件execise3.vbp及窗体文件execise3.frm。在名称为Form1的窗体上已有3个文本框Text1、Text2和Text3，以及程序。请完成以下工作：

  (1)在属性窗口中修改Text3的适当属性，使其在运行时不显示，窗体如下图所示。 <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182683/ct_ctvbjj_ctvbjcompapp_00297(20096).jpg' /> (3)窗体文件中始出了所有事件过程，但不完整，请去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，以便实现以下功能：当光标所在的文本框中无内容时，“剪切”和“复制”菜单项不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”菜单项不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意： 不能修改程序中的其他部分。各菜单项的标题名称必须正确。存盘时，工程文件名为 execise3.vbp，窗体文件名为execise3.frm。

  查看最佳答案

• 在窗体中建立三个文本框，名称分别为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

  查看最佳答案

• 设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输人口令并按回车键(回车键的

  ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序： Private Sub Text 1 KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1．Text=&quot;Teacher&quot;Then Form2．input．Visible=True Else Form2．input．Visible False End If End If Forml．Hide Form2．Show End Sub 菜单结构 标题 名称 级别 成绩管理 mark 1 成绩查询 query 2 成绩录入 mput 3 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（）。 A.把Form1中Text1文本框及相关程序放到Form2窗体中 B.把Form1．Hide、Form2．Show两行移动2个End If之间 C.把If KeyAscii=13 Then改为If KeyAseii=&quot;Teacher&quot;Then D.把2个Form2 input．Visible中的“Form2．”删去

  查看最佳答案

• 在窗体（Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2)和一个命令按钮（Name属性

  在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44，然后单击命令按钮，则输出结果为 A．77 B．33+44 C．3344 D．4433

  查看最佳答案

• （6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。

  <img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/7c4eb92b855187d3640f75c558488d4a.gif' /> Private Sub Command1_Click() If Text1.Text= ”” Then MsgBox “ 请输入半径！ ” Else If Not IsNumeric(【 6 】 ) Then MsgBox “ 请输入数值数据！ ” Else r=val(【 7 】 ) Form2.show 【 8 】 .Print “ 圆的面积是 ” &amp;3.14*r*r End If End Sub

  查看最佳答案

• 设计一个名为form_book的表单，表单的控件名为form1，文件名为form_book，表单的标题为“图书情况统计”。表单中有一个组合框（名称为Combo、一个文本框（名称为Text、两个命令按钮“统计”和“退出”（名称为Command1和Command。 运行表单时，组合框中有3个条目“清华”、“北航”、“科学”（只有3个出版社名称，不能输入新的）可供选择，在组合框中选择出版社名称后，如果单

  查看最佳答案

• 在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress（Key

  查看最佳答案

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

  查看最佳答案