更多"下面的程序用于根据文本框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