题目内容
（请给出正确答案）
在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：
Private Sub Commandl_Click()
a=Textl．Value+Text2．Value
MsgBox a
End Sub
Private Sub Form_Load()
TextI．Value=“”
Text2．Value=””
End Sub
程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Su”相关的问题
在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change() TextText=UCase(Text1.Text) End Sub 程序运行后，单击命令按钮，则在Text2文本框中显示的内容是
A．Microsoft Visual Basic
B．microsoft visual basic
C．MICROSOFT VISUAL BASIC
D．空字符串
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
Private Sub Commandl_Click()
S$=InputBox(”请输入一个字符串”)
Textl．Text=S$
End Sub
Private Sub Textl Change()
Label1．Caption=UCase(Mid(Text1．Text，7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【 】。
在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，然后编写如下代码：
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU)，4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序
A．空
B．abcdef
C．abc
D．def
A.1
B.2
C.3
D.4
A.6
B.12
C.18
D.21
在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Textl，再编写如下程序：
Dim 88 As String
Private Sub Textl—KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)＜＞””Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Commandl_Click()
Dim m As String，i As Integer
For i=ten(ss)To 1 Step-1
Ill=m+Mid(88,，i，1)
Next
Textl．Text=UCase(n1)
End Sub
运行程序后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中最示的是
A．NUMBER 100
B．REBMUN
C．REBMUN 100
D．001 REBMUN
窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text=p2(p1(x),y)
Text2.Text=p1(x)
End Sub
Private Function p1(x As Integer)As Integer
x=x+y:y=x+y
p1=x+y
End Function
Private Function p2(x As Integer,y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别为()。
A．2 4 2 4
B．2 4 4 8
C．4 4 8 8
D．10 10 58 58
窗体中有命令按钮Command1和文本框Text1，事件过程如下：
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
else
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox(“请输入一个整数”))
If______ Then
Textl=Str(x)&“是偶数．”
Else
Textl=Str(x)&“是奇数．”
End If
End Sub
运行程序，单击命令按钮，输入19，在Textl中会显示“19是奇数”。那以在程序的空白处应填写()。
A．result(x)=“偶数”
B．result(x)
C．result(x)=“奇数”
D．NOT result(x)
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
