下面的程序用于根据文本框Text中输入的内容进行以下处理：若Text为1，则打印"您的成绩为优秀！"；若Text为2，则打印"您的成绩为良好！"若Text为3，则打印"您的成绩为一般"；否则打印"您的成绩一般以下！"，请填空。Private Sub Command1_Click（）Select Case Val（Text1.Text）Case 【13】Print "您的成绩为优秀！"Case 【14】Print "您的成绩为良好！"Case 【15】Print "您的成绩为一般"Case ElsePrin
题目
下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为1，则打印"您的成绩为优秀！"；若Text为2，则打印"您的成绩为良好！"
若Text为3，则打印"您的成绩为一般"；否则打印"您的成绩一般以下！"，请填空。
Private Sub Command1_Click（）
Select Case Val（Text1.Text）
Case 【13】
Print "您的成绩为优秀！"
Case 【14】
Print "您的成绩为良好！"
Case 【15】
Print "您的成绩为一般"
Case Else
Print "您的成绩一般以下！"
End Select
End Sub
相似考题
更多“下面的程序用于根据文本框Text中输入的内容进行以下处理: 若Text为1,则打印"您的成绩为 ”相关问题
-
第1题：
设有如右图所示的窗体和下列程序：
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事件。 -
第2题：
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String，n As Integer str=UCase(Chr(KeyAscii)) n=Len(str)。 Text1．Text=String(n，str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（ ）。
A.A.pp B.pP C.ｐｐ D.Pp
B.
正确答案：B
B。【解析】解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n，str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“P”后，str为大写字母“P”，n=1，String(nstr)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。 -
第3题：
在窗体上有一个文本框Text1，Text属性值为空，然后编写如下事件过程：Private Sub Text1_KeyPress(Key Ascii As Integer)Dim str As String, n As Integer str=UCase(Chr(Key Ascii)) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
正确答案：B
解析：解答本题的前提是了解以下几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；string(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。 -
第4题：
有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click()
Me！Text1＝""
Me！Text2＝""
Me！Text3＝""
Me！Text4＝""
End Sub
Private Sub Command2_Click()
If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""Then
MsgBox "成绩输入不全"
Else
Me！Text4＝(【 】＋Val(Me！Text2)＋Val(Me！Text3))/3
【 】
End Sub
Private Sub Command3_Click()
Docmd.【 】
End Sub
正确答案：Val(Me！Text1)End IfQuit
Val(Me！Text1),End If,Quit 解析：由题目可知，Text4中存放的是3科成绩的平均成绩，所以要把3个科目的成绩加起来除以3，所以第1空应该填Val(Me！Text1)，获得输入科目的成绩。If... Else... End If语句中，缺少结束语句，所以第2空应该填空End If。
Command3的功能是退出，而退出有两种，一种是退出窗体，一种是退出Access，如果是退出窗体，则使用Close方法，如果是退出Access，则使用Quit方法。 -
第5题：
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1 KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A．pp
B．pP
C．PP
D．Pp
正确答案：B
解析：解答本题的前提是了解下列几个函数的作用：UCase函数的作用是将某字符串中的字符全部转成大写；String(n,str)函数的作用是返回n个重复字符的字符串；Len函数的作用是返回字符串的长度。因为KeyPress事件中接收KeyAscii参数为输入键的ASCII码，输入小写字母“p”后，str为大写字母“P”，n=1，String(n,str)为“P”，所以Text1中在按下键盘上的键时又添加了一个“P”。