VB第三章课后习题答案

1、 、单项选择题 1、 设x=4,y=6,则以下不能在窗体上显示出“ A=10得语句就是（） A、PrintA=x+yB、PrintA=;x+y C、Prin tA=+Str（x+y）D、Prin tA= b=4 PRINT b v a END 运行后，输出得结果就是 A、4 3 ( ) B、-1 C、 0 D、 显示出 错信息 4、在窗体（名称为Form1）上画一个名称为 Text1得文本框与一个名称为 mand1得命令 按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命 令按钮得标题设置为“计算机等级考试”。以下能实现上述操作得事件过程就是 A、 Private S

2、ub Text1_Cha nge() B、Private Sub man d1_Click() mand1、Caption= ”计算机等级考试” Capti on= ”计算机等级考试” End Sub End Sub C、Private Sub Form1_Click() D 、 Private Sub mand1_Click() Text1 、Caption= ”计算机等级考试”Text1 、Text= ”计算机等级考试” End Sub End Sub 5、假定有如下得窗体事件过程 : Private Sub Form_Click() a$ = Microsoft Visual Basic

3、 b$ = Right(a$, 5) c = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后单击窗体 ,则在弹出得信息框中得标题栏中显示得信息就是( ) A、 Microsoft Visual B 、 Microsoft C、 Basic D 、 5 6、窗体上放置了三个文本框 ,若在 Text1 中输入 456,在 Text2 中输入 78,在程序中执行了 语句 Text3=Text1+Text2 后 ,则在 Text3 中显示 ( ) A、 434 B 、 45678 C、 溢出 D、 语法错误 7、执行下面得程序 ,单击窗体 ,则

4、在窗体上显示得就是 ()。 Option Explicit Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer b = 6: c = 6 、 5 a = b = c Print a End Sub A 、 1B、 -1C、 0D、 语法错误 说明 : False- 0 True -1 8、语句 PRINT “INT(-13 、2)=”;INT(-13 、2) 得输出结果为 : A、 INT(-13 、2)= -13 、2 B 、 INT(-13 、2)= 13 、2 C、 INT(-13 、2)= -13D

5、、 INT(-13 、2)= -14 、填空题 1、在窗体上画一个命令按钮 ,然后编写如下事件过程 Private Sub mand1_Click() a = lnputBox(请输入一个整数”) b = InputBox(请输入一个整数”) Print a + b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321与456,输出结果为_321456 2、 执行下面得程序段后,b得值为300 。 a=300 b=20 a=a+b b=a-b a=a-b 3、 在窗体上画一个文本框与一个图片框，然后编写如下两个事件过程： Private Sub Form_Click() Te

6、xt1、Text = VB 程序设计 End Sub Private Sub Text1_Change() Picture1、Print VB Programming End Sub 程序运行后，单击窗体,在文本框中显示得内容就是VB程序设计，而在图片框中显示 得内容就是 VB Programming 。 4、 在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox(请输入一个整数”) Print x + Text1、Text End Sub 程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击确定”

7、按钮后,则在窗体上显示得内容就是 123456 。 5、 如果在立即窗口中执行以下操作： a = 8 (vCR就是回车键，下同) b = 9 Print a b 则输出结果就是 False 。 6、在窗体上画一个名称为mand1得命令按钮与三个名称分别为Labell、Label2、Label3 得标签，然后编写如下代码： Private x As Integer N=10 Private Sub mand1_Click() Z=10+0=10 Y=0+10=10 Static y As Integer X=0+10=10 Dim z As Integer N=10 n = 10 Z=10+0=

8、10 z = n + z Y=10+10=20 X=10+10=20 y = y + z x = x + z N=10 Z=10+0=10 Label1、Caption = x Y=20+10=30 Label2、Caption = y X=20+10=30 Label3、Caption = z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示得内容分别就是30 30 10。 7、若在一个应用程序窗体上，依次创建了 mandButton、TextBox、 Label等控件，则运行 该程序显示窗体时，mandButton会首先获得焦点。 &在窗体上画一个名称为mand1得命令按

9、钮，然后编写如下事件过程： Private Sub ma nd1_Click() a$=VisualBasic Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示得内容就是VVV 。 9、输入下列程序 Private Sub mand1_Click() Text1 、Text= ” 努力” End Sub Private Sub mand2_Click() Textl、Text= ” 学习” End Sub 单击mand2按钮,又单击mand1按钮,在文本框中显示 努力_ _ 。 10、要使Print方法在Form_Load()事件过程中有效，必须将_窗体得Visible 属性设置为True,或者