教材课后习题参考答案新版_学生版(1-4)章_介绍

《Visual Basic程序设计基础》教材

习题

第1章Visual Basic 6.0程序设计概述

习题

一、判断题

参考答案：

1．√2．√3．√4．×5．√6．×7．√8．×9．√10．√11．×12．√13．×14．√15．√

二、选择题

参考答案：

1. C

2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．D

三、填空题

参考答案：

1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）

4．Left 5. Top 6．属性、<对象名>.<属性名>=<表达式>

7．网格8．F o rm1

9．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）

10．Activate、Deactivate

四、程序设计题

参考代码：

程序1．界面设计参看表1。

表1 各控件的主要属性设置

过程设计如下：

Private Sub Command1_Click()

Label2.Visible = False ‘使控件Label2看不见

Label1.Caption = Text1.Text + ": 欢迎使用" + Label1.Caption Text1.Visible = False ‘使控件Text1看不见Command1.Enabled = False ‘使控件Command1不能用Command2.Enabled = True ‘使控件Command2能用End Sub

Private Sub Command2_Click()

End ‘结束程序运行

End Sub

程序2．界面设计，

过程设计如下：

Private Sub Command1_Click() '字体变大

Form1.FontSize = Form1.FontSize + 3

Form1.Cls: Print "欢迎使用VB"

End Sub

Private Sub Command2_Click() '字体变小

Form1.FontSize = Form1.FontSize - 3

Form1.Cls

Print "欢迎使用VB"

End Sub

Private Sub Command3_Click() '字体加粗

Form1.FontBold = True

Form1.Cls: Print "欢迎使用VB"

End Sub

Private Sub Command4_Click() '字体不加粗

Form1.FontBold = False

Form1.Cls: Print "欢迎使用VB"

End Sub

运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。

程序3．

界面设计运行效果图

过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：

Private Sub Form_Load()

Text1.Text = "Visual Basic 程序设计"

End Sub

Private Sub Form_Resize()

Text1.Top = 0: Text1.Left = 0

Text1.Width = Form1.ScaleWidth/2 '用Form1.ScaleWidth效果优于用Form1. Width

Text1.Height = Form1.ScaleHeight/2 '用Form1.ScaleHeight优于用Form1. Height

Command1.Top = Form1.ScaleHeight - Command1.Height

Command1.Left = Form1.ScaleWidth - Command1.Width

End Sub

Private Sub Command1_Click()

End

End Sub

第2章程序设计基础

习题

一、判断题

1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×

二、选择题

1．B 2．D 3．A 4．C 5．C 6．B 7．A 8．D 9. C 10．A

三、填空题

参考答案

1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 8．False

9．(x Mod 10) * 10 + x \ 10 10．10 + Int( Rnd * 90 ) 11．a * b Mod c

12．Log(x)+Sin(3.141593/6) 13．Const PI=3.1415926 14．日期15．Int(x)+1

四、程序设计题

参考答案

程序1、

Private Sub Command1_Click()

Dim x As Double, y#, s#

x = Val(InputBox("请输入x"))

y = Val(InputBox("请输入y"))

s = Sqr( (x ^ 3 + Exp(-6) * Log(y)) * (Sin(x)* Cos(y)) / (x * x + y * y) _

+ (2 * Sin(90 * 3.14156 / 180) + 2 * x * Exp(y)) / Sqr(Abs(x * y)))

Print "当x="; x; "当y="; y; "时，计算结果:"; s

End Sub

程序2、

Private Sub Command1_Click()

Dim s As Double, l As Double

Dim r As Double

Const pi = 3.1415926

r = Val(Text1.Text)

l = 2 * 3.1415926 * r

s = r * r * 3.1415926