在表单form1中有两个文本框text1和text2,其初值为空,另有一个命令按钮command1,command1的click事件代码如下:a=rtrim(thisform.text1.value)+rtrim(thisform.text2.value)thisform.print(a)表单运行后,在text1、text2中分别输入123和456,然后单击命令按钮,则输出结果为()。
有如下VB程序段: Private Sub Command1_Click() Dim a As Long a=Val(Text1.Text) Print a End Sub 其中"Private Sub Command1_Click()"的作用是()。
已知一窗体上命令按钮Command1的Click事件代码如下,则单击Command1后,文本显示的文字为()。 PrivateSubCommand1_Click() Text1.Text="湖南省"&"计算机"+"等级考试" Text1.ForeColor=vbRed Text1.BackColor=vbGreen Text1.FontBold=True EndSub
在表单form1中有两个文本框text1和text2,其value初值均为"无",form1的click事件代码如下:a=this.text1.value-this.text2.valuethis.print[a]表单运行后,在text1、text2中分别输入111和222,然后单击表单,则表单左上角显示()。
有应用代码:Text1.Text="VisualBasic",其中的Text1、Text和"VisualBasic"分别代表()
在表单FORM1中有一个文本框TEXT1,TEXT1的INIT事件代码如下:THIS.VALUE=0TEXT1的VALID事件代码如下:S=0FORi=1TOTHIS.VALUEIFi%5=0S=S+iENDIFENDFORTHIS.VALUE=S在TEXT1中输入22,然后按回车键,TEXT1中将显示()。
在表单form1中有三个文本框text1、text2、text3(它们的value初值均为"无")和一个命令按钮command1,命令按钮的click事件代码如下:thisform.text3.value=thisform.text1.value-thisform.text2.value表单运行后,在text1、text2中分别输入{^2006/11/6}和4,然后单击command1,则text3显示()。
在表单Form1中有一个文本框text1,text1的InteractiveChange事件代码如下:CHAR1=ALLTRIM(THIS.VALUE)ASC1=ASC(CHAR1)+32THIS.VALUE=CHR(ASC1)该表单运行后,在文本框中输入一个大写ASCII码“T”,则文本框中显示内容将是()。
在表单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显示()。
在VB中有一行程序代码:Text1.Text=VisualBasic,其中的Text1Text和VisualBasic分别代表______。(1.0分)
在窗体上添加一个文本框,名称为 text1 ,然后编写如下的 load 事件过程,则程序的运行结果是 __________ 。 Private Sub Form_Load Text1.Text= Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub
有程序代码: Text1.Text=\Visual Basic\ 其中的 Text1 、 Text 和 \Visual Basic\ 分别代表( )。
窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号()处应填入的内容是。
在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Open"d:empdat.txt"For Output As 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If______=13 ThenIf UCase(Text1.Text)=____
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click() Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后,单击命令按钮,两个文本框中显示的内容分别为 (8) 和 (9) 。
在窗体上画两个文本框,名字分别为Text1和Text2,然后编写下列程序。程序运行后,如果在文本框 Text2中输入lmn,那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress(Key
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程: Private Sub Command1 Click() Text1.Text = InputBox("请输入数据1") Text2.Text = InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分
在某一 VB 程序中有程序代码段:Dim A,B,C As StringA="35"B="53"C=A+B请分析运行该段代码后,C值为()
在窗体上画两个文本框,然后编写程序。程序运行后,如果在第一个文本框中输入A和B、C、D或a、b、c、d,则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_KeyDown(KeyCode As Integ
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: Private Sub Command1_Click() Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后,单击命令按钮,两个文本框(Text1和Text2)内容分别为 (6) 和 (7) 。
下列程序的功能是把顺序文件smtextl.txt的内容全部读入内存,并在文本框Textl中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open "smtext1.txt" 【13】 As 【14】 Do While 【15】 Input 2,inDataText1.Text=Text1.Text
在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Click() Text1.Text=“VB程序设计” End Sub PrivmeSubText1_Change() Picture1.Print"VB Programming" End Sub 程序运行后,单击窗体,则在文本框中显示的内容是 【7】 ,而在图片框中显示的内容是 【8】 。
在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序: Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (