网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下面的程序用于根据文本框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，则打印"您的成绩为优秀！"；若Text为2，则打印"您的成绩为良好！"若Text为3，则打印"您的成绩为一般"；否则打印"您的成绩一般以下！"，请填空。Private Sub Command1_Click（）Select Case Val（Text1.Text）Case 【13】Print "您的成绩为优秀！"Case 【14】Print "您的成绩为良好！"Case 【15】Print "您的成绩为一般"Case ElsePrint "您的成绩一般以下！"End SelectEnd Sub ” 相关考题
考题
下面关于文本框的说法中，错误的说法是 ______。A．Text1.Caption="Hello"，是将在文本框Text1中显示HelloB．Text1.Locked＝True，设置该文本框Text1不能编辑C．Text1.PasswordChar＝"#"，设置文本框Text1输入的字符都显示为#，但实际接收的还是输入的内容D．Text1.Visible=False，设置该文本框Text1不可见
考题
（18）在窗体上有一个文本框Text1、Text属性值为空，然后编写下列事件过程： Privte 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
考题
有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click()Me!Text1=""Me!Text2=""Me!Text3=""Me!Text4=""End SubPdvate Sub Command2_Click()If Me!Text1="" Or Me!Text2="" Or Me!Text3=""thenMsgBox"成绩输入不全"ElseMe!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd. 【 】End Sub
考题
窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1，设文本框Text1中内容为 12，文本框Text2中内容为34。下面程序的执行结果为______。Private Sub Command1_ Cilick() Text3.Text = Str＄(Val(Text1.Text)) + Val(Text2.Text) Print val(Text3,Text)End SubA．12B．34C．46D．1234
考题
设有如右图所示的窗体和下列程序：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"，焦点在按钮上
考题
有一个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 SubPrivate Sub Command2_Click()If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""ThenMsgBox "成绩输入不全"ElseMe！Text4＝(【 】＋Val(Me！Text2)＋Val(Me！Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd.【 】End Sub
考题
在窗体上有一个文本框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.PpB.
考题
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：Private Sub Text1 KeyPress(KeyAscii As Integer)Dim str As String,n As Integerstr=UCase(Chr(KeyAscii))n=Len(str)Text1.Text=String(n,str)End Sub程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。A．ppB．pPC．PPD．Pp
考题
在窗体上有一个文本框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．ppB．pPC．PPD．Pp
热门标签
最新试卷
