《VisualBasic程序设计基础》陈庆章课后习题参考答案

1、Visual Basic程序设计基础教材习题参考答案第1章Visual Basic 6.0程序设计概述一、判断题1.V 2.V3. X 说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属 性。4.V5.X6 . V7 .X8 . V9 .V10 . X11. V 12. V13.X14,.V 15. X16 .V17 . V18 .V19 . V20 . V二、选择题1. C2. B3 . D4 . C5.B6 . A7 . D8 .A9 . B10. A11 . C12. D三、填空题1 .对象、事件2 .属性、方法、事件3 .控件、屏幕（Screen）4 .对象5 .

2、Left、Top6.属性、.=7 .网格8 .F orm19 .Load 或 Initialize或Resize 或 Activate（自动执行的先后顺序也按此排列）10. Activate、Deactivate四、程序设计题程序1 界面设计参看图10-1、10-2以及表10-1表10-1 实例2各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件1Name(Label1)Caption（我的第一个 VB程序）标签控件2Name(Label2)Caption（”请输入你的姓名”）FontUnderLine(True)FontItalic (T rue)命令按钮1Name(Command

3、1)Caption(确定(&0)命令按钮2Name(Command2)Caption(结束(& X)过程设计如下：Private sub Form_Click()Comma nd2.E nabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = False Label1.Caption = Text1.Text + Text1.Visible = False欢迎使用 + Label1.CaptionCommand1.Enabled = False: Command2.Enabled = True End SubPrivat

4、e Sub Command2_Click()EndEnd Sub程序 2界面设计略，过程设计如下：Private Sub Command1_Click()Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print 欢迎使用 VBEnd SubPrivate Sub Command2_Click()Form1.FontSize = Form1.FontSize - 3 Form1.Cls: Print 欢迎使用 VBEnd SubPrivate Sub Command3_Click()Form1.FontBold = TrueForm1.Cls: P

5、rint 欢迎使用 VBEnd SubPrivate Sub Command4_Click()Form1.FontBold = FalseForm1.Cls: Print 欢迎使用 VBEnd Sub 运行时，不得连续、过多次单击“字体变小”按钮， 适时错误。程序 3界面设计略，过程设计如下(窗体 ScaleHeight 值仅与窗体有效绘图区域的高度有关)：字体变大字体变小字体加粗字体不加粗因为当 FontSize 属性值小于 0 会产生Height 值的计量包括标题、边框，而Private Sub Form_Load()Text1.Text = Visual Basic程序设计 End Su

6、bPrivate Sub Form_Resize()Text1.Top = 0: Text1.Left = 0Form1.Form1.Text1.Width = Form1.ScaleWidth/2 用 Form1.ScaleWidth 效果优于用 WidthText1.Height = Form1.ScaleHeight/2 用 Form1.ScaleHeight 优于用 HeightCommand1.Top = Form1.ScaleHeight - Command1.HeightCommand1.Left = Form1.ScaleWidth - Command1.WidthEnd Su

7、b第 2 章 程序设计基础、判断题1 V 2 X3 X4 X5 V6 X7V 8 V9 V10 X二、选择题1 B 2D3 A4 C5C6B7 A8 D9. C10 A三、填空题1 String243 aaa41455663718 8 False9 (x Mod 10)*10 + x 10 10 10 + Int(Rnd *90 )11 a *b Mod c12 Log(x)+Sin(3.141593/6)13 Const PI=3.141592614日期15Int(x)+1四、程序设计题程序 1界面设计略，过程设计如下： 方法一、用文本框控件输入圆的半径 Private Sub Comman

8、d1_Click()Dim x As Singlex = Text1.TextLabel1.Caption = x * x * 3.141593End Sub方法二、用 InputBox 函数输入圆的半径Private Sub Command1_Click()Dim x As Single 若要求计算结果具有 15 位有效位数，声明 x 为 Double 类 型x = InputBox(r=,输入圆的半径 )Label1.Caption = x * x * 3.141593End Sub程序 2 略。第 3 章 结构化程序设计与数组、判断题1.V 2 .X3 . V 4.X 5 . V 6 .

9、 X 7 . X 8 . V 9 . X10 . V二、选择题1 A 2 D三、填空题1. If xy Then t=y: y=x: x=t2. IS3. For i = 0 to 9: B(i) = InputBox(B( & i & )=): Next i4. Dim5 . String6 . 8四、程序阅读题(写岀下列程序的运行结果)程序1.05程序2.20程序3.2471116程序4.1491625W2WWW3w ww V34W WWW WWWIff WWWWWWww45程序5.W WWW WWW WWW w程序6.五、程序填空题1.(1)q * i(2)s + p * i / q(

10、3)Next i2.(1)r = 0(2)m Mod n3.(1)i + j - 1(2)7 - i( 3)Print4.(1)10 + In t(R nd* 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 IntegerDim max As In teger, midd As In teger, min As In teger x = InputBox(请输入x的值：)y =

11、InputBox(请输入y的值：)z = InputBox(请输入z的值：)If x y The n max = x Else max = yIf z max The n max = zIf x y The n min = x Else min = yIf z 3 The ny = x + 3ElseIf x = 1 Theny = x * xElseIf x 0 Theny = Sqr(x)Elsey = 0End If Print yEnd Sub程序 3界面设计略，过程设计如下： Private Sub Form_Click()Dim i As Integer, j As Integer

12、For i = 1 To 9For j = 1 To 9Print Tab(j - 1) * 4); i * j;Next jPrintNext iEnd Sub程序 4界面设计略，过程设计如下： Private Sub Form_Click()Dim x As Single, s As Single, t As Single Dim i As Integer, n As Integerx = InputBox(请输入 x 的值： )n = InputBox(请输入 n 的值： )t = x / 2: s = tFor i = 3 To nt = t * x / i s = s + t Nex

13、t 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 = 1While t = 0.0001i = i + 1: t = t / i: e = e + tWend Print e End Sub程序 6界面设计略，过程设计如下：Option Base 1Private Sub Form_Click()Dim n As Integer,a(9, 9) As Integer,i AsInteger,AsIntege

14、rOn Error GoTo k下列代码中若出现错误，转到标号为K 的语句执行。请输入n ， 0n10)n = InputBox(For i = 1 To n: a(i, 1) = 1: a(i, i) = 1: Next iFor i = 3 To nFor j = 2 To i - 1a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j, iFor i = 1 To nPrint Tab(30 - 2 * i);For j = 1 To iPrint Space(4 - Len(Trim(Str(a(i, j); Trim(Str(a(i, j);N

15、ext jPrintNext iExit Subk: MsgBox End Sub输入 n值小于 1 或大于 10 ，数组下标超界。 第4章函数与过程、判断题二、填空题2V1 按地址传送324.X36b() As Long 7 Static x As Integer、程序阅读题(写出下列程序的运行结果) 程序 1. s = 26 Public x As Single程序 2. 1程序6X74按值传递8 Form2.y3. 1 1 2 1 1 25 按地址传递四、程序填空题1 4 6 4 11（ 1 ）ByeVal(2)k Mod i（3）k = k i2（ 1 ）a() Aa Double（2

16、）n-1（3）a(j) Abs(xmax) Then xmax = x(i, j): ki = i: kj =jNext j, iEnd Sub第 5 章 常用控件、判断题1.x2.x3.x4.V5 .x6 .V7 .x8.V9.V10.V 11.x12.x13.V14 .V15 .x16 .x17 .x18 .V19.V 20.x21 .V22.x23.V24.x25.V二、选择题1 . C2. D3.B4.B5 . B6 . C7 . B8.B9. B10. A11. D12. C13.B14.B15. A16 . D17 . B18.B19. B20. A三、填空题1. 上、下、左、左2

17、缇、无关3. & 、+4. Enabled5. MaxLength6. Text1.SetFocus7.MultiLine8. Visible9. Alignment10.AutoSize11. ForeColor12. 0或113 . True14 . 115 .AddItem20Scroll21 Value24 Timer25 6553516 117 List1.Clear18文本框、列表框19下拉式组合框、简单组合框、下拉式列表框22 Change23定时器不起作用四、程序阅读题程序 1.116程序 2. 8程序 3.23451程序 4. 小，你好！程序 5. 您好34512小李，你好！

18、欢迎使用 Visual Basic!程序 6. 李子程序 7. y = 6程序 8. n = 1苹果y = 14n = 3橘子n = 5葡萄柚子香蕉五、程序填空题1( 1)a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)(2)p = j( 3) a(i) = a(p)(4 ) Command2.Enabled = True2. ( 1) 1 To 2*i - 1(2) Command2.Enabled = True(3) Command2.Enabled =False3（ 1） Text2.Enabled = False （2）p =

19、2（3）Print i（ 4 ） Val（Text1.Text） 2 或 Val（Text1.Text） 10 ThenLabel1.Caption = 差！重新开始 : Call Form_LoadElseIf m num ThenLabel1.Caption = Str(m) & ElseIf m num ThenLabel1.Caption = Str(m) & ElseIf rec 0 ThenLabel1.Caption = 选择了 & n & 个字 , 请选择下一步操作！ Command1(0).Enabled = True: Command1(1).Enabled = TrueE

20、lseLabel1.Caption = End IfEnd Sub程序 6界面设计如图 10-4 所示，过程设计如下：Private Sub Form_Load()Label1.Caption = 当前日期： : Text1.Text = DateOption1(0).Caption = 显示日期 : Option1(1).Caption = Option1(0).Value = True: Command1.Caption = 退出 End SubPrivate Sub Option1_Click(Index As Integer)Select Case IndexCase 0Label1.

21、Caption = 当前日期： : Text1.Text = DateCase 1Label1.Caption = 当前时间： : Text1.Text = TimeEnd SelectEnd SubPrivate Sub Command1_Click()EndEnd Sub程序 7过程设计如下：Private Sub Form_Load()Label1.Caption = 当前日期： : Text1.Text = DateOption1(0).Caption = 显示日期 : Option1(1).Caption = Option1(0).Value = True: Command1.Cap

22、tion = 退出 Combo1.AddItem 年-月-日: Combo1.AddItem 月-日- 年Combo1.AddItem 日- 月- 年: Combo1.Text = 年-月- 日End SubPrivate Sub Combo1_Click()Dim n As StringSelect Case Combo1.ListIndexCase 0: n = yyyy-mm-ddCase 1: n = mm-dd-yyyyCase 2: n = dd-mm-yyyyEnd SelectText1.Text = Format(Date, n)End SubPrivate Sub Opti

23、on1_Click(Index As Integer)显示时间 显示时间 Select Case IndexCase 0: Label1.Caption = 当前日期： : Text1.Text = DateCase 1: Label1.Caption = 当前时间： : Text1.Text = TimeEnd SelectEnd SubPrivate Sub Command1_Click()EndEnd Sub程序 8. 界面设计如图 10-5 所示，过程设计如下：Private Sub Form_Load()List1.AddItem happy: List1.AddItem apple

24、List1.AddItem student: List1.AddItem computerEnd SubPrivate Sub Command1_Click()List1.AddItem Text1.Text: Text1.SetFocusText1.SelStart = 0: Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command3_Click()List1.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command2_Click()If List1

25、.ListIndex -1 Then List1.RemoveItem List1.ListIndexEnd Sub9界面设计如图 10-6 所示，过程设计如下：六进制 Private Sub Form_Load()Option1(0).Caption = 八进制 : Option1(1).Caption = Option1(2).Caption = 二进制 End SubPrivate Function tran(k As Long, n As Integer) As StringDim x As Integer, y As String * 1, k1 As Longtran = : k1

26、 = Abs(k)Do While k1 0x = k1 Mod nIf x = 10 Then y = Chr(Asc(A) + x - 10) Else y = CStr(x)tran = y + tran k1 = k1 nLoopIf k = 72 Then Timer1.Enabled = False End Sub第 6 章 图形控件和图形方法、判断题1.V2.X3.V4.X5.V6.X7.X8.X9.V10 V二、选择题1 . C 2. B3 . C4 . A5 . A6. C7 . A8 . C9 . C10 B11. A 12. B13. B 14. C 15 .C三、填空题

27、1 Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 800 2LoadPicture3 AutoSize 、 Stretch 、 False、 False4选中、属性5形状、矩形6 Picture1.Picture=LodePicture(C:WindowsCloud.bmp)7图片框、其他控件8缇、 SclaeMode9颜色10颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序 1. 转动一条红色直线，其轨迹形成一个圆程序 2. 在窗体上随机的位置、用随机的颜色、半径绘制 1000

28、个空心的圆。程序 3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变 换。五、程序填空题( 3) Combo2.AddItem Str(i)3) n = n + 14) LoadPicture(fn)1( 1) Combo1.ListIndex(2)Shape1.BorderStyle2( 1) Call pic(2)False亠程程序设oadpicture(c:windows1.bmp)程序 1界面设计略，过程设计如下：Private Sub Form_Load()Picture1.ScaleMode = 3End SubPrivate Sub Command1_Cl

29、ick()Dim x1 As Single, y1 As Single, x2 As Single, y2 As Singlex1 = InputBox(x1=): y1 = InputBox(y1=)x2 = InputBox(x2=): y2 = InputBox(y2=)Picture1.Line (x1, y1)-(x2, y2), , B程序S2b界面设计略，过程设计如下：Private Sub Form_click()Dim r As Single, xo As Single, yo As SingleIf Form1.ScaleHeight Form1.ScaleWidth Th

30、enr = Form1.ScaleHeight / 3 Elser = Form1.ScaleWidth / 3End Ifxo = Form1.ScaleLeft + Form1.ScaleWidth / 2 yo = Form1.ScaleTop + Form1.ScaleHeight / 2 Form1.FillStyle = 0: Form1.FillColor = vbBlue Form1.DrawWidth = 2: Form1.ScaleMode = 6 Form1.Circle (xo, yo), r, vbYellowEnd Sub程序 3界面设计略，过程设计如下：Priva

31、te Sub Form_Load()Dim i As IntegerFor i = 1 To 7: List1.AddItem i: Next iForm1.ScaleMode = 1End SubPrivate Sub List1_Click()Form1.Cls: Form1.ScaleMode = List1.TextForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub第 7 章 对话框与菜单程序设计、判断题1V 2V3V 47.

32、V9 V 10 V二、选择题1D2A4C5B6D7A8B9D10 B三、填空题窗体控制菜单、 打开文件、另存为、颜色、字体、打印对话框CommonDialog1.Action =3 、 CommonDialog1.ShowColor 提示信息、对话框类型、对话框标题 工具9代码窗口、13568下拉式菜单、快捷菜单Click2ShowFont4 工程、部件7 Click10相同、正四、程序阅读题程序 1. 显示提示信息为“ 5”、标题为“ 框。程序 2. 显示提示信息为“您选择了第 1 的消息框。na项”五、程序填空题121) Int(Rnd*100)1) False2)Str(i)2) Dat

33、e程序设计题程序 1界面设计略，过程设计如下：六、的输出结果”、有一个“确定”按钮的消息、标题为3)3)第一项”、有一个“确定”按钮Exit ForCommonDialog1.Color4)m1Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序 2界面设计略，过程设计如下：Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub

34、程序 3界面设计如图 10-9 、表 10-2 所示，过程设计如下： Private Sub Sqr_Click()Shape1.Shape = 1End SubPrivate Sub Rec_Click()Shape1.Shape = 0 End SubPrivate Sub Oval_Click()Shape1.Shape = 2 End SubPrivate Sub Circle_Click()Shape1.Shape = 3 End SubPrivate Sub Rrec_Click()Shape1.Shape = 4 End SubPrivate Sub RSqr_Click()Sh

35、ape1.Shape = 5 End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2 End SubPrivate Sub Shzh_Click()Shape1.FillStyle = 3 End SubPrivate Sub Xiex_Click()Shape1.FillStyle = 4 End SubPrivate Sub ShPJ_Click()Shape1.FillStyle = 6 End Sub Private Sub XJ_Click()Shape1.FillStyle = 7 End SubPrivate Sub FillColo

36、r_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.Color End SubPrivate Sub Exit_Click()EndEnd Sub第8 章 文 件、判断题1X234.V67.V9 V 10 1112X13V1415二、选择题1A234B5A6C78B9C10 11 D12 B13三、填空题1ChDir2FileLen3 Change4 EOF5Line Input四、程序阅读题 程序 1.y= 1a= 1程序2.NO. 1程序3.y= 3y= 6a= 2a= 3NO. 2NO. 3窗体：文件：3625

37、 16162536程序4.程序 5.1程序 6.1窗体上显示内容： 20221 2文件中内容： 468 10 1233 31 2 344 4455 55 5五、程序填空题1（ 1 ） Dim n As Integer（ 2 ） C:windowscalc.exe（3）Output（4）End2（ 1）For Output As #2（2）0（ 3） temp.dat As c:a1.dat3（ 1 ） Open e:dataout.txtFor Output As #1（2）t1 Mod t2 = 0（3）If flag Then（ 4） Print coun六、程序设计题NO. 4y= 10a= 411程序 1界面设计如图 10-10 所示，过程设计如下：Dim fn As StringPrivate Sub Drive1_Change（）Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change（）File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click（）If Right(File1.Path, 1) = Thenfn = File1.Path + File1.FileNameElsefn = File1.Path + + File1.FileName