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

相似题目

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

  查看最佳答案

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

  查看最佳答案

• 假定表单里有文本框对象TEXT1和命令按钮组对象CMG1对象各一个，CMG1中包含CM1和CM2两个命令按钮，如果要在CM1命令按钮的某个事件中访问文本框TEXT1的VALUE属性，下列式子正确的是（）

  A . PARENT.TEXT1.VALUE B . THIS.TEXT1.VALUE C . THISFORM.TEXT1.VALUE D . THIS.THISFORM.TEXT1.VALUE

  查看最佳答案

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

  查看最佳答案

• 假定表单里有文本框对象Text1和组合框对象Combo1各一个。如果要在Combo1的某个事件中访问文本框Text1的Value属性值，下列式子正确的是（）。

  A . THIS.THISFORM.Text1.Value B . THISFORM.Text1.Value C . THIS.PARENT.PARENT.Text1.Value D . THISFORM.PARENT.Text1.Value

  查看最佳答案

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

  查看最佳答案

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

  查看最佳答案

• VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母（）

  查看最佳答案

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

  查看最佳答案

• 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 。

  查看最佳答案

• 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 。

  查看最佳答案

• 在VB.NET中,文本框（Text1）中有选定的文本，执行Text1.SelectedText='数据库'的结果是（）。

  查看最佳答案

• 有一个窗体Form1，其中有一个文本编辑框Text1和一个命令按钮Command1。运行窗体后在文本编辑框中输入一串字符，单击命令按钮后该窗体的标题改变为文本编辑框中输入的字符串。则宏命令SetValue的参数设置是( )。

  A．“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1] B．“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1] C．“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1] D．“项目”：[Forms]![Form1]![Text1]，“表达式”：[Forms]![Form1]![Command1]

  查看最佳答案

• 窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click（）

  A．5 B．8 C．9 D．10

  查看最佳答案

• 在名为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=“登录窗口”

  查看最佳答案

• 在考生文件夹下有一个工程文件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。

  查看最佳答案

• 在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：

  Private Sub Form. Click() Open "d：\test\smtext1.txt" For Input As 1 Do While Not Line Input 1，aspects whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close 1 Open "d：\test\smtext2.txt" For Output As 1 Print 1, ______ Close 1 End Sub 上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。

  查看最佳答案

• 设工程中有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

  查看最佳答案

• 9、在VB.NET中,文本框（Text1）中有选定的文本，执行Text1.SelectedText=&quot;数据库&quot;的结果是（）。

  A．&quot;数据库&quot;将替换原来选定的文本 B．&quot;数据库&quot;将插入到原来选定的文本之前 C．&quot;数据库&quot;将插入到原来选定的文本之后 D．文本框中只有&quot;计算机&quot;信息

  查看最佳答案

• 在窗体中有一个文本框Text1，编写事件代码如下：PrivatesubForm_Click（）X=val（Inputbox（&quot;输入x的值&quot;））Y=1IfX＜＞0ThenY=2Text1.Value=YEndSub打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（）

  A．1 B．2 C．3 D．4

  查看最佳答案