其它
9、在窗体上添加一个命令按钮Command1和一个文本框Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click（) a = InputBox（"Enter an Integer") b = InputBox（"Enter an Integer") Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（）。A．108B．18C．810D．出错
题目
9、在窗体上添加一个命令按钮Command1和一个文本框Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： 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．出错
参考答案和解析
相似问题和答案
第1题：
（ 9 ） 在窗体上画 1 个命令按钮和 1 个文本框 ， 其名称分别为 Command1 和 Text1 ， 然后编写下列事件过程 ：
Dim SaveAll As String
Private Sub Command1_Click( )
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，在文本框中输入 abcdefg ，单击命令按钮，则文本框中显示的内容是 【 11 】 。
（ 9 ）【答案】 【 11 】 ABCD
【解析】该题中出现了 3 个内部函数： UCase 、 Left 和 Chr ，其功能分别是转换为大写字母、取左边的字符和求取 ASCII 字符 。 代码的功能是将字符串转换成大写字母形式后取最左边的 4 个字符 ， 并将字符输出 。
第2题：
在窗体上有一个命令按钮，然后编写如下事件过程
Private Sub Commandl_cickc（）
a=InputBox（ "enter the first integer"）
b=InputBox（ "enter the second integer"）
Print b + a
End Sub
程序运行后，单击命令按钮，先后在两个输入框中分别输入"2"和"6"，则输出结果为（ ）。
A．2
B．62
C．8
D．26
第3题：
在窗体中添加一个命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=InputBox(“Enter the Firstinteger”)
b=InputBox(“Enter the Secondinteger”)
Print b+a
End Sub
程序运行后，单击命令按钮，先后在两个输入框中分别输入123和123，则输出结果是( )。
A.246
B.123
C.456
D.123123
第4题：
在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
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．出错
第5题：
在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程： Private Sub Command_Click() Dim x As Integer, y As Integer,z As Integer x=5: y=7: z=0 Me!Text1="" Call p1(x, y, z) Me!Textl=z End Sub Sub p1 (a As Integer, b As Integer, Byval c As Integer) c=a+b End Sub 打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
A．12
B．0
C．5
D．7
第6题：
在窗体上有一个命令按钮和一个文本框。编写如下事件过程：
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
Text1．Text=a
If a ＞ 0 Then
If a Mod 3 = 0 Then
MsgBox "True"
Else
MsgBox "error"
End If
End If
End Sub
程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。
True
第7题：
在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Labell，文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是 ______。
A．27
B．28
C．29
D．30
解析：程序中各部分值的运算过程为：
Text1.Text="28.653"
Val(Text1.Text)=28.653
Val(Text1.Text)+0.5=29.153
Int(Val(Text1.Text)+0.5)=29
x=29
str(x)="29"
第8题：
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：
Dim SaveAll As String
Private Sub Command1_Click（）
Text1.Text=Left（UCase（SaveAll），4）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
SaveAll=SaveAll+Chr（KeyAscii）
End Sub
程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
ABCD
该题中出现了3个内部函数：UCase、Left和Chr，其功能分别是转换为大写字母、取左边的字符和求取ASCII字符。代码的功能是将字符串转换成大写字母形式后取最左边的4个字符，并将字符输出。
第9题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
Call f(x,y,z)
End Sub
Sub f(a As Integer,b As Integer,c As Integer)
c=b*a
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
15
第10题：
在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；
Private Sub Command1_Click()
S＄= InputBox ("请输入1个字符串")
Text1.Text= S＄
End Sub
Private Sub Text1_Change()
Labell.Caption = UCase(Mid(Text1, Text2, 8))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。
BASIC