以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。
题目
以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。
相似考题
更多“ 以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 ”相关问题
-
第1题：
（ 19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框
Private Sub Command1_Click()
Text1.Text= ” 程序设计 ”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text= ” 等级考试 ”
End Sub
运行以上程序，单击命令按钮后
A ）文本框中显示的是 “ 程序设计 ” ，且焦点在文本框中
B ）文本框中显示的是 “ 等级考试 ” ，且焦点在文本框中
C ）文本框中显示的是 “ 程序设计 ” ，且焦点在命令按钮上
D ）文本框中显示的是 “ 等级考试 ” ，且焦点在命令按钮上
正确答案：B
-
第2题：
有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Commandl_Click()
x=Val(Text1.Text)
If [9] Then
PrintX
Else
Text1.Text=""
[10]
End If
End Sub
正确答案：xMod4=1 AndxMod5=2Tex(1.SetFocus
xMod4=1 AndxMod5=2,Tex(1.SetFocus -
第3题：
窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。
A.文本框中显示的是"程序设计"，且焦点在文本框中
B.文本框中显示的是"等级考试"，且焦点在文本框中
C.文本框中显示的是"程序设计"，且焦点在命令按钮上
D.文本框中显示的是"等级考试"，且焦点在命令按钮上
正确答案：B
B。【解析】单击命令按钮首先激发Command1_Click事件，Command1_Click事件将Text1的文本设为“程序设计”，然后将光标置到文本框，这将激发Text1_GotFocus，执行Text1_GotFocus即为B选项结果。 -
第4题：
在窗体上画一个文本框，名称为Textl，然后编写如下程序：
Private Sub Form_Load()
Open”d：＼temp＼dat．txt”For Output As1
Textl．Text=“”
End Sub
Private Sub Textl KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If UCase(Textl．Text)=【 】Then
Close1
End
Else
Write1，【 】
Textl．Text=…
End If
End If
End SUb
以上程序的功能是：在D盘temp文件夹下建立一个名为dat．txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat．txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
正确答案：“END”Text1．Text
“END”,Text1．Text 解析：当输入值为“END”的时候，退出程序。当输入值不为“END”的时候，将Text1．Text中的内容写入磁盘保存。 -
第5题：
以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除 文本框的内容，在横线处应填写（ ）。
A. x％4=1 And x％5=2
B. x％4=1 Or x％5=2
C. x Mod 4=1 And x Mod 5=2
D. x Mod 4=1 Orx Mod 5=2
正确答案：C
c) 【解析】本题考查条件表达式的描述和如何获得焦点。题中的两个条件“除以4余1，除以5余2”关系为并列关系，可以表示为“x Mod 4=1 And X Mod 5=2”。
-
第6题：
在考生文件夹中有一个工程文件execise46.vbp和窗体文件execise46.frm。在名为Form1的窗体上，有一个名为Cmd1，标题为Move的命令按钮，一个名为VS1的垂直滚动条，一个名为Text1初始内容为空的文本框。它的功能是在文本框中输入一个整数，单击Move按钮后，如果输入的是正数，滚动条中的滚动框向下移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中数值太大”；如果输入的是负数，滚动条中的滚动框向上移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中数值太小”，如下图所示。
要求：
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后把修改过的程序按原名保存。
正确答案：
-
第7题：
下列程序执行后,按住键,并在文本框中输入“a”,则在窗体上输出结果为()。Private Sub Text1_K 下列程序执行后，按住＜Ctrl＞键，并在文本框中输入“a”，则在窗体上输出结果为( )。 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode，Shift End Sub
A．a 2
B．65 2
C．97 1
D．97 2
正确答案：B
解析：文本框的KeyDown事件有两个参数：KeyCode和Shift。KeyCode参数返回用户所操作的那个键的扫描代码，它告诉事件过程用户所操作的物理键，“a”的扫描码为65。Shift参数用来描述用户按下了Shift＞、Ctrl＞与Alt＞键中的一个或多个，当用户按下Shift＞键时，Shift参数的位0将变成1，当用户按下Ctrl＞键时，Shift参数的位1将变成1，当用户按下Alt＞键时，Shift参数的位2将变成1，因此当按下Ctrl＞键时，Shift参数的值为2。 -
第8题：
"在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框，然后编写如下事件过程：
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）
570
略 -
第9题：
下面（）文本框中输入数据后，数据将以*号显示。
- A、单行文本框
- B、多行文本框
- C、数值文本框
- D、密码文本框
正确答案:D -
第10题：
有关表单中“文本框”与“编辑框”的区别，以下叙述正确的是（）。
- A、文本框只能用于输入数据，而编辑框只能用于编辑数据
- B、文本框的内容只能是文本数据，而编辑框的内容可以是文本、数值等多种数据
- C、文本框只能用于输入一段文本，而编辑框则能输入多段文本
- D、文本框允许输入多段文本，而编辑框只能输入一段文本
正确答案:C -
第11题：
单选题窗体上有名称为Command1的命令按钮和名称为Text1的文本框：运行以上程序，单击命令按钮后（ ）。A文本框中显示的是“程序设计”，且焦点在文本框中
B文本框中显示的是“等级考试”，且焦点在文本框中
C文本框中显示的是“程序设计”，且焦点在命令按钮上
D文本框中显示的是“等级考试”，且焦点在命令按钮上
正确答案： A解析：
单击命令按钮后，文本框内容改为“程序设计”，文本框获得焦点，当文本框获得焦点就会触发GotFocus（），从而使文本框中显示的是“等级考试”，且焦点停留在文本框上。 -
第12题：
单选题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：程序运行后，如果在文本框Text1中输入China Beijing，则在文本框Text2中显示的内容是（ ）。AChina Beijing
BChina
CBeijing
DChinaB
正确答案： A解析：
程序运行后，在文本框Text1中输入字符后，会触发它的Change事件，通过中部截取函数Mid把文本框Text1中的内容从第6个字符“B”开始截取后面的字符，得到“Beijing”字符串，然后把截取的字符串在Text2中显示出来。 -
第13题：
窗体上有名称为Cornmandl的命令按钮和名称为Textl的文本框
Private Sub Commandl_Click()
Textl．Text=“程序设计”
nxt1．SetFocus
End Sub
Private Sub Textl_GotFocus()
Textl．Text=”等级考试”
End Sub
运行以上程序，单击命令按钮后
A．文本框中显示的是“程序设计”，且焦点在文本框中
B．文本框中显示的是“等级考试”，且焦点在文本框中
C．文本框中显示的是“程序设计”，且焦点在命令按钮上
D．文本框中显示的是“等级考试”，且焦点在命令按钮上
正确答案：B
解析：运行程序后单击命令按钮，首先执行命令按钮Commandl_Click代码的内容，即Textl文本框获得焦点并显示内容“程序设计”；当文本框获得焦点后，程序执行文本框的Textl_GetFocus事件代码。即文本框显示内容“等级考试”，覆盖了原来文本框的内容，同时文本框获得焦点。 -
第14题：
（7）下列程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Private Sub Command1_Click() x=Val(Text1.Text) IfThen Print x Else ________ Text1.Text="" End If End Sub
正确答案：x Mod 4=1 And x Mod 5=2,Text1.SetFocus
【解析】题目要求程序满足的条件是“除以4余1，除以5余2”，这个条件中包含了一个逻辑并和两个求模运算。其中，逻辑并运算符用“And”表示，取余运算符用Mod表示，因此，程序中的if条件应是“x Mod 4=1 Andx Mod 5=2”；SetFocus方法是将焦点移至指定的控件或窗体。 -
第15题：
设有如右图所示的窗体和下列程序：
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"，焦点在按钮上
正确答案：A
解析：本题考查的考点是有关事件执行过程的。由于先在文本框中输入数据，所以焦点在文本框中。当单击命令按钮时，首先应该执行文本框的LostFocus事件。本题中由于在文本框的LostFocus事件中执行到了Text1.Setfocus，所以焦点不能离开文本框，也就不执行命令按钮的Click事件。 -
第16题：
工程中有Form1、Form2两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。
Private Sub Command1_Click()
IfText1．Text=””Then
MsgBox”请输入半径!”
ElseIf Not IsNumerie(【 】)Then
MsgBox“请输入数值数据!”．
Else
r=Val(【 】)
Form2．Show
【 】．Print”圆的面积是”&3．14”r*r
End If
End Sub
正确答案：Text1．TextTextl．TextForm2
Text1．Text,Textl．Text,Form2 解析：lsNumeric是一个字符串函数，其参数是一个字符串或者数字，返回值是…个布尔值，如果这个参数是纯数字组成，将会返回Trile，否则将返回False，在这里作用是为了检验文本框中输入的是否为纯数据即数值数据，所以第6个空应该填Textl．Text；在判断完成以后要将Text1中的文本内容转化为数字，因此第7个空也应填Textl．Text；最后输入的结果要在Form2中显示出来，所以第8个空应该填Form2，表示利用的是Form2的Print方法。 -
第17题：
有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click(
正确答案：
解析： 由题目可知，Text3中存放的是两个文本框数值的和，所以第1空应该填gal(Me!Text1)；If…Else…End If语句中，缺少结束语句，所以第2空应该填End If；Command3的功能是退出，而退出有两种，一种是退出窗体，一种是退出Access，如果是退出窗体，则使用Close方法，如果是退出Access，则使用Quit方法。 -
第18题：
在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Text1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
正确答案：
【知识点拔】Rnd函数用于产生个小于1但大于或等于0的随机数值，为了生成某一范围内的随机整数，呵使用以下公式：
Int((upperbound-lowerbound+1)*Rnd+Iowerboundl
这里，upperbound足随机数范围的上限，而lowerbound则是随机数范围的下限。
【审题分析】本题在“生成数组”按钮的单击事件过程中，通过For循环生成10个0～100之间(不含0和100)互不相同的随机数，并存入数组a，其叶生成函数的表达式应为：Fix(Rnd*99+1)。为防止生成相同的随机数值，每新生成一个随机数后，都通过For 循环让其与之前生成的一个随机数逐一比较，若新生成的随机数已存在，则将当前循环变量i的值减1，重新为数组元素a(i)生成随机数。
在“查找”按钮的单击事件过程中，通过For循环让数组a中的元素逐一与用户在输入对话框中输入的数相比较，若条件表达式a(1)=num成立，则表示怠到相同的数，并在文本框Text2中显示相关信息。若没找到相同函数，循环结束后循环变量i>i0，则在Text2 文本框内显示该数“不存在于数组中”。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文什sjt5．vbp， 在窗体上画两个命令按钮，属性及其值如表1-23所示。
步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
参考代码：
步骤3：按要求将文件保存至考生文件夹中。 -
第19题：
（ 6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （ 圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （ 其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。
Private Sub Command1_Click()
If Text1.Text= ”” Then
MsgBox “ 请输入半径！ ”
Else If Not IsNumeric( 【 6 】 ) Then
MsgBox “ 请输入数值数据！ ”
Else
r=val( 【 7 】 )
Form2.show
【 8 】 .Print “ 圆的面积是 ” &3.14*r*r
End If
End Sub
正确答案：
-
第20题：
下面哪一种文本框中输入数据后，数据将以*号显示？（）
- A、单行文本框
- B、多行文本框
- C、数值文本框
- D、密码文本框
正确答案:D -
第21题：
“输出色阶”用于调整输出的级别。在该文本框中输入有效数值，可以对素材输出曝光度进行修改。
正确答案:错误 -
第22题：
单选题在（）文本框中输入数据后，数据以*号显示A密码文本框
B单行文本框
C多行文本框
D数值文本框
正确答案： D解析： 暂无解析 -
第23题：
单选题下面（）文本框中输入数据后，数据将以*号显示。A单行文本框
B多行文本框
C数值文本框
D密码文本框
正确答案： D解析： 暂无解析
程序运行后，如果单击命令按钮，则在文本框中显示的内容是（）