大学计算机基础程序课本VB习题参考答案(第1、2章)

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

习题参考答案revised by Alan Wu

第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．Form1

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

四、程序设计题

程序1．界面设计参看图10-1、10-2以及表10-1。

表10-1 实例2各控件的主要属性设置

Private sub Form_Click()

Command2.Enabled = False

Een Sub

Private Sub Command1_Click()

Label2.Visible = False

Label1.Caption = Text1.Text + ": 欢迎使用" + Label1.Caption Text1.Visible = False

Command1.Enabled = False: Command2.Enabled = True

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

第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 Form_Click()

Dim x As Single, y As Single, z As Single

x = InputBox("Please input x")

y = InputBox("Please input y")

z = Sqr((x ^ 3 + Exp(-6) * Log(y)) * Sin(x) * Cos(y) / (x * x + y * y) + (2 * Sin(3.1415923 / 2) + 2 * x * Exp(y)) / Sqr(Abs(x * y)))

Call MsgBox("result is: " & z)

End Sub

程序2．界面设计略，过程设计如下：

方法一、用文本框控件输入圆的半径

Private Sub Command1_Click()

Dim x As Single

x = Text1.Text

Label1.Caption = x * x * 3.141593

End Sub

方法二、用InputBox函数输入圆的半径

Private Sub Command1_Click()

Dim x As Single '若要求计算结果具有15位有效位数，声明x为Double类型 x = InputBox("r=","输入圆的半径")

Label1.Caption = x * x * 3.141593

End Sub

程序3. 界面设计略，过程设计如下：

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer,

X As Single, Y As Single) Randomize

Command1.Left = (Form1.ScaleWidth + 1) * Rnd + Form1.ScaleLeft Command1.Top = (Form1.ScaleHeight + 1) * Rnd + Form1.ScaleTop End Sub

其它程序设计题略