以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。
以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。
相关考题：
在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）num=Val（Text1.Text）If 【8】 ThenPrint numElseText1.Text=""【9】End IfEnd Sub
有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Command1_Click（）x=Val（Text1.Text）If 【6】 ThenPrint xElseText1.Text=""【7】End IfEnd Sub
（12）在窗体上画一个文本框，名称为 Text1，然后编写如下程序：Private Sub Form_Load( )Open "d:\temp\dat.txt" For Output As #1Text1.Text=""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf UCase(Text1.Text)= 【14】 ThenClose #1EndElseWrite #1, 【15】Text1.Text=""End IfEnd IfEnd Sub以上程序的功能是：在 D 盘 temp 文件夹下建立一个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空。
（ 19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框Private Sub Command1_Click()Text1.Text= ” 程序设计 ”Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text= ” 等级考试 ”End Sub运行以上程序，单击命令按钮后A ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中B ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中C ）文本框中显示的是 “ 程序设计 ” ，且焦点在命令按钮上D ）文本框中显示的是 “ 等级考试 ” ，且焦点在命令按钮上
窗体上有名称为Cornmandl的命令按钮和名称为Textl的文本框Private Sub Commandl_Click()Textl．Text=“程序设计”nxt1．SetFocusEnd SubPrivate Sub Textl_GotFocus()Textl．Text=”等级考试”End Sub运行以上程序，单击命令按钮后A．文本框中显示的是“程序设计”，且焦点在文本框中B．文本框中显示的是“等级考试”，且焦点在文本框中C．文本框中显示的是“程序设计”，且焦点在命令按钮上D．文本框中显示的是“等级考试”，且焦点在命令按钮上
有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。Private Sub Commandl_Click()x=Val(Text1.Text)If [9] ThenPrintXElseText1.Text=""[10]End IfEnd Sub
（7）下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub
窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。A.文本框中显示的是"程序设计"，且焦点在文本框中B.文本框中显示的是"等级考试"，且焦点在文本框中C.文本框中显示的是"程序设计"，且焦点在命令按钮上D.文本框中显示的是"等级考试"，且焦点在命令按钮上
设有如右图所示的窗体和下列程序：Private Sub Command1_Click() Text1.Text="Visual Basic" End Sub Private Sub Text1_LostFocus() If Text1.Text＜＞"BASIC" Then Text1.Text=" " Text1.SetFocus End If End Sub程序运行时，在Text1文本框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是( )。A．文本框中无内容，焦点在文本框中B．文本框中为"Basic"，焦点在文本框中C．文本框中为"Basic"，焦点在按钮上D．文本框中为"Visual Basic"，焦点在按钮上
在窗体上画一个文本框，名称为Textl，然后编写如下程序：Private Sub Form_Load()Open”d：＼temp＼dat．txt”For Output As1Textl．Text=“”End SubPrivate Sub Textl KeyPress(KeyAscii As Integer)IfKeyAscii=13 ThenIf UCase(Textl．Text)=【 】ThenClose1EndElseWrite1，【 】Textl．Text=…End IfEnd IfEnd SUb以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
工程中有Form1、Form2两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。Private Sub Command1_Click()IfText1．Text=””ThenMsgBox”请输入半径!”ElseIf Not IsNumerie(【 】)ThenMsgBox“请输入数值数据!”．Elser=Val(【 】)Form2．Show【 】．Print”圆的面积是”3．14”r*rEnd IfEnd Sub
以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除 文本框的内容，在横线处应填写（ ）。A. x％4=1 And x％5=2B. x％4=1 Or x％5=2C. x Mod 4=1 And x Mod 5=2D. x Mod 4=1 Orx Mod 5=2
有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click(
在考生文件夹中有一个工程文件execise46.vbp和窗体文件execise46.frm。在名为Form1的窗体上，有一个名为Cmd1，标题为Move的命令按钮，一个名为VS1的垂直滚动条，一个名为Text1初始内容为空的文本框。它的功能是在文本框中输入一个整数，单击Move按钮后，如果输入的是正数，滚动条中的滚动框向下移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中数值太大”；如果输入的是负数，滚动条中的滚动框向上移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中数值太小”，如下图所示。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后把修改过的程序按原名保存。
在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Text1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
下列程序执行后,按住键,并在文本框中输入“a”,则在窗体上输出结果为()。Private Sub Text1_K 下列程序执行后，按住＜Ctrl＞键，并在文本框中输入“a”，则在窗体上输出结果为( )。 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode，Shift End SubA．a 2B．65 2C．97 1D．97 2
（ 6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （ 圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （ 其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。Private Sub Command1_Click()If Text1.Text= ”” ThenMsgBox “ 请输入半径！ ”Else If Not IsNumeric( 【 6 】 ) ThenMsgBox “ 请输入数值数据！ ”Elser=val( 【 7 】 )Form2.show【 8 】 .Print “ 圆的面积是 ” 3.14*r*rEnd IfEnd Sub
有关表单中“文本框”与“编辑框”的区别，以下叙述正确的是（）。A、文本框只能用于输入数据，而编辑框只能用于编辑数据B、文本框的内容只能是文本数据，而编辑框的内容可以是文本、数值等多种数据C、文本框只能用于输入一段文本，而编辑框则能输入多段文本D、文本框允许输入多段文本，而编辑框只能输入一段文本
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框：运行以上程序，单击命令按钮后（ ）。A文本框中显示的是“程序设计”，且焦点在文本框中B文本框中显示的是“等级考试”，且焦点在文本框中C文本框中显示的是“程序设计”，且焦点在命令按钮上D文本框中显示的是“等级考试”，且焦点在命令按钮上
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：程序运行后，如果在文本框Text1中输入China Beijing，则在文本框Text2中显示的内容是（ ）。AChina BeijingBChinaCBeijingDChinaB