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

相似题目

• 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程： https://assets.asklib.com/images/image2/2017110811322251127.jpg 程序执行后，单击命令按钮，在两个文本框中显示的值分别为（）

  A . 1和0 B . 2和72 C . 3和50 D . 4和168

  查看最佳答案

• 设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:

  查看最佳答案

• 窗体上有两个名称分别为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，以下程序实现的功能是希望在文本框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

  查看最佳答案

• （16 ）在窗体上画两个单选按钮（名称分别为 Option1 、 option2, 标题分别为 “ 宋体 ” 和 “ 黑体 ” ） 、 1 个复选框（名称为 check1, 标题为 “ 粗体 ” ）和 1 个文本框（名称为 text1,text 属性为 “ 改变文字字体 ” ） ，窗体外观如图所示 。 程序运行后 ， 要求 “ 宋体 ” 单选按钮和 “ 粗体 ” 复选框被选中 ， 则以下能够实现上述操作的语句序列是

  <img src='https://img2.soutiyun.com/ask/uploadfile/4887001-4890000/63a34c5c137b801731b9056652595682.gif' /> A) Option1. value = False Check1. value = True B) Option1. value = True Check1. value = 0 C) Option1. value = True Check1. value = 2 D) Option1. value = True Check1. value = 1

  查看最佳答案

• 窗体上有名称分别为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

  查看最佳答案

• 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Form1的窗体画两个Label控件，名称分别为Label1和Label2，其中Label1中显示“总人数”，Label2中显示“总分”，添加两个名称分别为Text1和Text2的文本框，再画两个命令按钮，名称分别为Command1与Command2、标题分别为“读取数据”与“计算总分”，数据文件in5．txt存放成绩。

  要求程序运行后：单击“读取数据”按钮后，从考生文件夹下的in5．txt中读出数据，并在标签Text1中显示人数；单击“计算总分”便在Text2中显示总分并将结果写入考生文件夹下out5．txt文件中；执行完毕，“读取数据”按钮变成“读取完成”，且无效（变灰），如图60-5所示。 <img src='https://img2.soutiyun.com/ask/uploadfile/11274001-11277000/5ec6e2b50afd4185cfebcb98fe4e9b51.png' /> 注意：请在有“？”号的地方填入正确内容，然后删除“？”及代码前的所有注释符（即“‘”号），但不能修改其他部分。存盘时不得改变文件名和文件夹，程序编写完整后执行一次操作，将结果保存到考生文件夹下的out5．txt文件中，否则没有成绩。

  查看最佳答案

• 在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1标签，窗体外观如图a所示，要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下：<img src='https://img2.soutiyun.com/ask/uploadfile/3852001-3855000/3ad4c446cfe70672eb554d750c49f1c4.jpg' />Private Sub Text1_Change（） Call ShowText(Text1) End Sub Private Sub Text2_Change（） Call ShowText(Text2) End Sub Private Sub ShowText(T As TextBox) Labell．Caption="文本框中的内容是："＆T．Text

  End Sub 关于上述程序，以下叙述中错误的是（）。 A.ShowText过程的参数类型可以是Control B.ShowText过程的参数类型可以是Variant C.两个过程调用语句有错，应分别改为Call ShowText(Text1，Text)、Call Show Text (Text2，Text) D.ShowText过程中的T是控件变量

  查看最佳答案

• 在名为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。

  查看最佳答案

• 在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在【 】、【 】和【 】处填入适当的内容，将程序补充完整。

  查看最佳答案

• 创建名称为Form1，标题名为“请输入密码”的窗体。在窗体上画一个标签，名称为 Label1，标题为“请输入您的密码”。在标签的下方画一个文本框，名称为“密码框”，其高度和宽度分别为2000和500。要求在输入密码时，文本框中显示“*”字符。以上这些设置必须在设计过程中进行，运行时的窗体如图1所示。程序中不得使用任何变量。

  注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl．vbp，窗体文件名为ylcl.frm。 <img src='https://img2.soutiyun.com/shangxueba/ask/11067001-11070000/11067794/ct_ctvbjm_basicope_00030(20092).jpg' />

  查看最佳答案

• 在名为Form1的窗体上建立两个分别名为Cmd1和Cmd2的命令按钮，标题分别为“体育”和“美术”，如下图所示。编写适当的事件过程，使程序运行后，若单击“体育”命令按钮，窗体上显示“体育是必修课程”。若单击“美术”命令按钮，窗体上显示“美术是选修课程”。

  <img src='https://img2.soutiyun.com/shangxueba/ask/11184001-11187000/11185687/ct_ctvbjj_ctvbjbasicope_00117(20096).jpg' /> 注意： 程序中不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为execise6.frm，工程文件名为execise6.vbp。

  查看最佳答案

• 在名为Form1的窗体上建立两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“命令按钮1”和“命令按钮2”。要求程序运行后，若单击“命令按钮2”按钮，则把“命令按钮1”按钮移到“命令按钮2”按钮上，使两个按钮重合。运行结果如下图所示。

  <img src='https://img2.soutiyun.com/shangxueba/ask/11274001-11277000/11274950/ct_ctvbjj_ctvbjbasicope_00021(20096).jpg' /> 注意： 在程序中不得使用任何变量(必须通过属性设置来移动控件)；文件必须存放在考生文件夹中，窗体文件名为execise102.frm，工程文件名为execise102.vbp。

  查看最佳答案

• 在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm。在名为Fom1的窗体上有一个名为Text1的文本框，有两个命令按钮(名称分别是Cmd1和Cmd2，标题分别是Read和Save)。要求程序运行后，单击Read按钮，将文本文件in99．txt中的所有数字读到数组arr中，并在文本框内显示出来。随后Read按钮变为无效；然后单击Save按钮，

  求出数组alt中的各元素的立方并赋值回相应的元素，例如，arr(2)=2,则令art(2)=arr(2)*arr(2) *arr(2)=8。把计算后的数组的值全部写入考生文件夹中的文本文件out99.txt中，并在文本框中显示出来，最后Save按钮也变为无效。 <img src='https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11261465/ct_ctvbjj_ctvbjsimpapp_00144(20096).jpg' /> 本程序不完整，请补充完整，并能正确运行。 要求； 去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

  查看最佳答案

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

  查看最佳答案

• 在窗体（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

  查看最佳答案

• 有一个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 Sub Pdvate Sub Command2_Click() If Me!Text1="" Or Me!Text2="" Or Me!Text3=""then MsgBox"成绩输入不全" Else Me!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3 【 】 End Sub Private Sub Command3_Click() Docmd. 【 】 End Sub

  查看最佳答案

• （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

  查看最佳答案

• 在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click（) Text1.Text = InputBox（"请输入数据1") Text2.Text = InputBox（"请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分

  查看最佳答案

• 在窗体上画两个文本框，其名称分别为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

  查看最佳答案

• 在名称为Form1的窗体上建立两个名称分别为Command1和Command2.标题分别为&ldquo;上午&rdquo;和&ldquo;下午&rdquo;的命令按钮。编写适当的事件过程，要求程序运行后，如果单击&ldquo;上午&rdquo;命令按钮，在窗体上显示&ldquo;上午9:00&mdash;12:00&rdquo;；如果单击&ldquo;下午&rdquo;命令按钮，在窗体上显示&ld

  查看最佳答案

• 在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条（Max属性为 10，Min属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。 Priva

  查看最佳答案