内容发布更新时间 : 2025/1/4 15:54:00星期一 下面是文章的全部内容请认真阅读。

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

习题参考答案

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

一、判断题 1．√ 2．√

3．× 说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。 4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．× 11．√ 12．√ 13．× 14．√ 15．× 16．√ 17．√ 18．√ 19．√ 20．√ 二、选择题

1. C 2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D 三、填空题

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

4．对象 5．Left、Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格 8．F 10．Activate、Deactivate 四、程序设计题

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

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

控件 标签控件1 标签控件2 命令按钮1 命令按钮2 属性（属性值） Name(Label1) Name(Label2) FontUnderLine(True) Name(Command1) Name(Command2) 属性（属性值） Caption(\我的第一个VB程序\ Caption(\请输入你的姓名\ FontItalic(True) Caption(\确定(&O)\Caption(\结束(&X)\orm1

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

过程设计如下：

Private sub Form_Click() Command2.Enabled = False Een Sub

Private Sub Command1_Click() Label2.Visible = False

Label1.Caption = Text1.Text + \欢迎使用\ 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 = \程序设计\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．\ 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 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(\输入圆的半径\ Label1.Caption = x * x * 3.141593 End Sub 程序2．略。

第3章 结构化程序设计与数组

一、判断题

1．√ 2．× 3．√ 4．× 5．√ 6．× 7．× 8．√ 9．× 10．√ 二、选择题

1．A 2．D 3．C 4．C 5．D 6．B 三、填空题

1．If x>y Then t=y: y=x: x=t 2．IS

3．For i = 0 to 9: B(i) = InputBox(\4．Dim 5．String 6．8 四、程序阅读题（写出下列程序的运行结果）

程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16 程序4. 1 4 9 16 25

程序5. 程序6.

五、程序填空题

1．（1）q * i （2）s + p * i / q 2．（1）r = 0 （2）m Mod n 3．（1）i + j - 1

（2）7 - i （3）Print

4．（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a(i)=a(j) （4）a(i) Mod 2 = 1 六、程序设计题

程序1．界面设计略，过程设计如下： Private Sub Form_Click()

Dim x As Integer, y As Integer, z As Integer

Dim max As Integer, midd As Integer, min As Integer x = InputBox(\请输入x的值：\ y = InputBox(\请输入y的值：\ z = InputBox(\请输入z的值：\ If x > y Then max = x Else max = y If z > max Then max = z

If x < y Then min = x Else min = y If z < min Then min = z midd = x + y + z - max - min Print max; midd; min End Sub

程序2．界面设计略，过程设计如下： Private Sub Form_Click() Dim x As Single, y As Single x = InputBox(\请输入x的值：\ If x > 3 Then y = x + 3

ElseIf x >= 1 Then y = x * x ElseIf x > 0 Then y = Sqr(x) Else y = 0 End If Print y End Sub

程序3．界面设计略，过程设计如下： Private Sub Form_Click()

（3）Next i

Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To 9

Print Tab((j - 1) * 4); i * j; Next j Print Next i End Sub

程序4．界面设计略，过程设计如下： Private Sub Form_Click()

Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integer x = InputBox(\请输入x的值：\ n = InputBox(\请输入n的值：\ t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print s End Sub

程序5．界面设计略，过程设计如下： Private Sub Form_Click()

Dim e As Single, t As Single, i As Integer e = 2: t = 1: i = 1 While t >= 0.0001

i = i + 1: t = t / i: e = e + t Wend Print e End Sub

程序6．界面设计略，过程设计如下： Option Base 1

Private Sub Form_Click()

Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k '下列代码中若出现错误，转到标号为K的语句执行。 n = InputBox(\请输入n，0

For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next i For i = 3 To n For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, i For i = 1 To n

Print Tab(30 - 2 * i);