题目内容
（请给出正确答案）
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：
Private Sub Command1 Click（）
X!=Val(Text1．Text)
Select Casc x
Case Is＜-10，Is＞=20
Print"输入错误"
Case Is＜0
Print 20-x
Case Is＜10
Print 20
Case Is＜=20
Print x+10
End Seleet
End Sub
程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。
A.5
B.20
C.25
D.输入错误
如果结果不匹配，请 联系老师 获取答案
更多“设窗体上有一个名为Text1的文本框和一个名为Command…”相关的问题
Private Sub Command1_Click（）
Dim str As String, s As String, c As String
str = UCase（Text1）
s = ""
c = "Z"
While c ＞= "A"
If InStr（str, c） = 0 Then
s = 【7】
End If
c = Chr$（Asc（c） 【8】 ）
Wend
If s ＜＞ "" Then
Text1 = s
End If
End Sub
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（）。
A.13
B.14
C.15
D.16
Private Sub Command1_Click（）
a = InputBox（"Enter an integer"）
b = InputBox（"Enter an integer"）
Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（）。
A．108
B．18
C．810
D．出错
Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub Text1_ 【 7 】 ()
Command1.Enabled = True
End Sub
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise57.vbp，窗体文件名为execise57.frm。
A．5
B．4
C．3
D．2
A．Private Sub Text1_Change() Command1.Caption=“计算机等级考试” End Sub
B．Private Sub Command1_Cick() Caption=“计算机等级考试” End Sub
C．PrivateSubForm1_Click() Text1.Caption=“计算机等级考试” End Sub
D．PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub
