



[单选题]窗体上有三个文本框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)和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)和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)和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,还有一个名称为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(它们的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,编写以下程序段:PrivateSubText2_LostFocus()D.imiAsIntegerIfIsNumeric(Text2)ThenText3.Text="正确!!"E.lseText2.Text=""Text2.SetFocusText3.Text="错误,再输入!!"E.ndIfE.ndSub当在text2中输入字符串"abcd"后
[试题]在窗体上绘制出3个文本框,名称分别为Text1、Text2和Text3。要求程序运行时,焦点位于Text1,当按Tab键时,焦点从Text1越过Text2直接跳到Text3上。本题不得使用任何变量。程序运行时的窗体界面如图2—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
[单选题]窗体上有名称分别为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中输入的数据小于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