[问答题]

在考生文件夹下有一个工程文件stj3.vbp。窗体上有三个文本框Text1、Text2、Text3,其中Text3可以多行显示,并已经输入了内容(如图所示),Text1用来输入要查找的内容,Text2用来输入要替换的内容。程序运行时,在Text1、Text2中输入文字,单击“替换”按钮,则在Text3中找到Text1中的内容,并用Text2中的内容替换,若未找到,则不替换。此外窗体上还有两个单选按钮,名称依次为Option1、Option2,标题依次为“第一个”“全部”。程序运行后若Option1被选中,则只替换Text3中第一个匹配的字符串,若Option2被选中,则替换text3中所有匹配的字符串。在窗体文件中已经给出了全部的控件,但程序不完整,要求去掉程序中的注释符.把程序中的“?”改为正确的内容。加下图所示。

  试题源程序:
  
  (2)在考生文件夹下有一个工程文件T316.vbp,窗体上已给出所有控件,如下图所示。在text1文本框中输入一个任意的字符串(要求串的长度≥10),然后选择组合框中的三个截取运算选项之一。单击“计算”按钮,将截取运算后的结果显示在text2中。
  窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的“?”处改为正确的内容。

  试题源程序:
  

参考答案与解析:

相关试题

窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Comman

[单选题]窗体上有三个文本框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

  • 查看答案
  • 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和

    [单选题]在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1),外观如图所示。编写如下程序:Private Sub Form_Load()Text1.Text=""Text2.Text=""Text3.Text=""E.nd SubPrivate Sub Command1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)E.nd SubF.unction f(B

  • 查看答案
  • 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和

    [单选题]在窗体上画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 F

  • 查看答案
  • 在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和

    [单选题]在窗体上画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

  • 查看答案
  • 在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名

    [单选题]在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_Click( )D.im x!, y!, z!, t!x = Text1y = Text2z = Text3If x< y Thent = xx = yy = tE.nd IfIf y< z Thent = yy = zz = tIf x< y Thent = xx = yy = tE.nd IfE.

  • 查看答案
  • 在表单form1中有三个文本框text1、text2、text3(它们的valu

    [单选题]在表单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/

  • 查看答案
  • 在窗体中建立了三个文本框,名称分别为text1、text2和text3,编写以下

    [单选题]在窗体中建立了三个文本框,名称分别为text1、text2和text3,编写以下程序段:PrivateSubText2_LostFocus()D.imiAsIntegerIfIsNumeric(Text2)ThenText3.Text="正确!!"E.lseText2.Text=""Text2.SetFocusText3.Text="错误,再输入!!"E.ndIfE.ndSub当在text2中输入字符串"abcd"后

  • 查看答案
  • 在窗体上绘制出3个文本框,名称分别为Text1、Text2和Text3。要求程序

    [试题]在窗体上绘制出3个文本框,名称分别为Text1、Text2和Text3。要求程序运行时,焦点位于Text1,当按Tab键时,焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。

  • 查看答案
  • 窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入

    [单选题]窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是。Private Sub Text1_LostFocus()C.all CheckInput(Text1,500)E.nd SubPrivate Sub Text2_LostFocus()C.all CheckInput(Text2,1000)E.nd SubSub CheckInput(

  • 查看答案
  • 窗体上有名称分别为Text1、Text2的2个文本框,要求文卒框Text1中输入

    [单选题]窗体上有名称分别为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 Ch

  • 查看答案