更多"下面的程序用于根据文本框Text中输入的内容进行以下处理： 若Tex"的相关试题:
[填空题]下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为4，6，则打印“Text的值为4，6”；若Text为1，3，5，7，则打印“Text的值为1，3，5，7”；若Text为8，9，则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。请填空。
Private Sub Command1_Click（ ）
Select Case Val(Text.Text)
Case______
Print "Text的值为4，6"
Case______
Print "Text的值为1，3，5，7"，
Case______
Print "Text的值为8，9"
Case______
Print "Text的值不在范围内"
End Select
End Sub
[填空题]下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为4，6，则打印“Text的值为4，6”；若Text为1，3，5，7，则打印“Text的值为1，3，5，7”；若Text为8， 9，则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。请填空。
Private Sub Command1_Click( )
Select Case Val(Text.Text)
Case 【6】
Print“Text的值为4，6”
Case 【7】
Print“Text的值为1，3，5，7”
Case 【8】
Print“Text的值为8，9”
Case 【9】
Print“Text的值不在范围内”
End Select
End Sub
[填空题]下面的程序用于根据文本框Test中输入的内容进行以下处理：
若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。
Private Sub Command1_Click( )
Selct Case Val(Text1.Text)
Case【 】
Print "您的成绩为优秀！"
Case【 】
Print "您的成绩为良好！"
Case【 】
Print "您的成绩为一般！"
Case Else
Print "您的成绩为一般以下！"
End Select
End Sub
[单项选择]窗体上有名称分别为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 CheckInput(t As ,x As Integer) If Val(t.Text)>x Then
MsgBox "请重新输入！"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[单项选择]窗体上有名称分别为Text1、Text2的两个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中间号（ ）处应填入的内容是
Private Sub Text1_LostFocus（ ）
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus（ ）
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(t As , x As Integer)
If Val(t.Text)＞x Then
MsgBox "请重新输入!"
End If
End Sub
A. Text
B. SelText
C. Control
D. Form
[填空题]
下列过程的功能是：在对多个文本框进行输入时，对第一个文本框(text1)输入完毕后用回车键使焦点跳到第二个文本框(text2)，而不是用TAB键来切换。请填空。
Private Sub [11] KeyDown(KeyCode As Integer,Shift As
Integer)
If KeyCode [12] vbKeyRetum
Then
Text2.SetFocus
End If
End
Sub
[填空题]下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。
Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer)
If [14] Then
Text2. [15]
End If
End Sub
