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

1、第1章Visual Basic 6.0程序设计概述、判断题1 . V 2 . V3 .X说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。4 .V5. X 6 . V 7. X 8 . V 9 . V 10 . X 11 . V 12 . V13.X14 . V 15 . X 16 . V 17 . V 18 . V 19 . V 20 . V二、选择题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

2、）4. 对象 5 . Left、Top 6 .属性、对象名 .属性名 =表达式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)FontItali

3、c (T rue)命令按钮1Name(Command1)Caption(确定(&0)命令按钮2Name(Command2)Caption(结束(& X)过程设计如下：Private sub Form_Click()Comma nd2.E nabled = FalseEen SubPrivate Sub Comma nd1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + :欢迎使用+ Label1.CaptionText1.Visible = FalseComma nd1.E nabled = False: Comma nd2

4、.E nabled = TrueEnd SubPrivate 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() F

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

6、1.Text = Visual BasicEnd SubPrivate Sub Form_Resize()Text1.Top = 0: Text1.Left = 0Text1.Width=Form1.ScaleWidth/2WidthText1.Height=Form1.ScaleHeight/2程序设计 用 Form1.ScaleWidth效 果 优 于 用 Form1.用 Form1.ScaleHeight 优于用 Form1. HeightCommand1.Top = Form1.ScaleHeight - Command1.HeightCommand1.Left = Form1.Sca

7、leWidth - Command1.WidthEnd Sub第 2 章 程序设计基础、判断题1 V2 X 3 X4X 5 V6X 7V8 V9 V10X二、选择题1 B 2 D 3A4 C5C 6B 7 A 8 D9. C10 A三、填空题1 String 243aaa 414556637188 False9 (x Mod 10) * 10 + x 101010 + Int( Rnd * 90 )11a *b Mod c12 Log(x)+Sin(3.141593/6) 13 Const PI=3.141592614 日期 15 Int(x)+1四、程序设计题程序 1界面设计略，过程设计如下

8、： 方法一、用文本框控件输入圆的半径 Private Sub Command1_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 章 结构化程

9、序设计与数组一、判断题1.V 2 .X 3. V 4 .X 5 . V 6.X 7 .X 8 . V 9 .X 10 . V二、选择题1 A 2 D 3 C 4 C 5 D 6 B三、填空题1. If xy Then t=y: y=x: x=t 2. IS3. For i = 0 to 9: B(i) = InputBox(B( & i & )=): Next i4. Dim 5 . String 6 . 8四、程序阅读题(写岀下列程序的运行结果)程序1. 0 5 程序2. 20程序3.2 4 7 11 16程序4.1 4 9 16 25W2WWW3w wvw w4程序5.w w ww tjt

10、w w程序6.3w www www ww4wwwwwwwwwww5五、程序填空题1.(1)q * i(2)s + p * i / q(3) Next i2.(1)r = 0(2)m Mod n3.(1)i + j - 1(2)7 - i(3)Pri nt4.(1)10 + In t(R nd* 90)(2) i + 1To 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

11、 teger, midd As In teger, min As In teger x = InputBox(请输入x的值：)y = 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界

12、面设计略，过程设计如下：Private Sub Form_Click()Dim i As Integer, j As IntegerFor 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 SingleDim i As Integer, n As Integerx = InputBox(请输入 x 的值： )n = InputBox(请输

13、入 n 的值： )t = x / 2: s = t For i = 3 To nt = 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 = 1While t = 0.0001i = i + 1: t = t / i: e = e + tWendPrint eEnd Sub程序 6界面设计略，过程设计如下：Option Base 1Private Sub Form

14、_Click()AsDim n As Integer, a(9, 9) As Integer, i As Integer, j IntegerOn Error GoTo k 下列代码中若出现错误，转到标号为 K 的语句执行。 n = InputBox(请输入 n， 0n10)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

15、) 。For j = 1 To iPrint Space(4 - Len(Trim(Str(a(i, j) 。 Trim(Str(a(i, j) 。Next jPrintNext iExit Subk: MsgBox 输入 n 值小于 1 或大于 10 ，数组下标超界。 End Sub第 4 章 函数与过程、判断题1.X 2.V 3 .X 4.x 5.V 6.X 7 .X 8.V二、填空题1 按地址传送 2 b() As Long3 64 按值传递 5 按地址传递6 Public x As Single7 Static x As Integer8 Form2.y三、程序阅读题（写出下列程序的运

16、行结果）程序 1.s = 2 程序 2. 1程序 3. 1 1 2 1 1 2 1 2 2 2 2 3s = 5 1 1s = 9 1 2 11 3 3 11 4 6 4 1四、程序填空题1（ 1 ）ByeVal(2)k Mod i（ 3）k = k i(4)2（ 1 ）a() Aa Double（2）n-1（ 3）a(j) Abs(xmax) Then xmax = x(i, j): ki = i: kj = jNext j, iEnd Sub22 Change23 定时器不起作用四、程序阅读题程序 1. 116 程序 2. 8程序 3. 23451 程序 4. 小，你好！34512 小李，

17、你好！第 5 章 常用控件1.X 2.x3.x4.V 5.x6V7x 8V9V10.V 11.x 12.X 13 . V14.V15.x 16x 17x 18V19.V20.x 21 .V22. X 23.V24.x 25V二、选择题1. C 2.D 3.B 4B5B 6C 7B 8B 9B 10A11. D 12. C 13. B 14.B 15A16D 17B18B 19B20 A三、填空题1 .上、下、左、左2 缇、无关3 & 、 +4 Enabled5 MaxLength6. Text1.SetFocus7 MultiLine 8 Visible9 Alignment 10 AutoS

18、ize11. ForeColor120或 113 True14 115 AddItem16. 117. List1.Clear 18文本框、列表框19 .下拉式组合框、简单组合框、下拉式列表框20 Scroll 21 Value、判断题24 Timer 25 65535程序 5. 您好欢迎使用 Visual Basic!y = 6 程序 8. n = 1y = 14n = 3n = 5程序 6. 李子 程序 7.苹果橘子葡萄柚子香蕉五、程序填空题1( 1)a(i) = Mid(str1, i, 1) 或 a(i) = Mid(Text1.Text, i, 1)(2)p = j( 3) a(i)

19、 = a(p)(4)Command2.Enabled = True2. ( 1) 1 To 2*i - (2) Command2.Enabled = True (3) Command2.Enabled = False3( 1) Text2.Enabled = False (2) p = 2(3) Print i(4) Val(Text1.Text) 2 或 Val(Text1.Text) 10 ThenLabel1.Caption = ElseIf m num ThenLabel1.Caption = Str(m) & ElseIf m num ThenLabel1.Caption = Str

20、(m) & ElseIf rec 0 ThenLabel1.Caption = 选择了 & n & 个字 , 请选择下一步操作！ Command1(0).Enabled = True: Command1(1).Enabled = TrueElseLabel1.Caption = End IfEnd Sub程序 6界面设计如图 10-4 所示，过程设计如下： Private Sub Form_Load()Label1.Caption = 当前日期： : Text1.Text = DateOption1(0).Caption = 显示日期 : Option1(1).Caption = Option

21、1(0).Value = True: Command1.Caption = 退出 End SubPrivate Sub Option1_Click(Index As Integer)Select Case IndexCase 0Label1.Caption = 当前日期： : Text1.Text = DateCase 1Label1.Caption = 当前时间： : Text1.Text = TimeEnd SelectEnd SubPrivate Sub Command1_Click()EndEnd Sub程序 7过程设计如下：Private Sub Form_Load()Label1.

22、Caption = 当前日期： : Text1.Text = Date Option1(0).Caption = 显示日期 : Option1(1).Caption = Option1(0).Value = True: Command1.Caption = 退出 Combo1.AddItem 年- 月- 日: Combo1.AddItem 月-日- 年Combo1.AddItem 日- 月- 年: Combo1.Text = 年- 月-日End SubPrivate Sub Combo1_Click()Dim n As StringSelect Case Combo1.ListIndexCas

23、e 0: n = yyyy-mm-ddCase 1: n = mm-dd-yyyyCase 2: n = dd-mm-yyyyEnd SelectText1.Text = Format(Date, n)End Sub显示时间 显示时间 Private Sub Option1_Click(Index As Integer)Select Case IndexCase 0: Label1.Caption = 当前日期：: Text1.Text = DateCase 1: Label1.Caption = 当前时间：: Text1.Text = TimeEnd SelectEnd SubPrivate

24、 Sub Command1_Click()EndEnd Sub程序 8. 界面设计如图 10-5 所示，过程设计如下：Private Sub Form_Load()List1.AddItem happy: List1.AddItem appleList1.AddItem student: List1.AddItem computerEnd SubPrivate Sub Command1_Click()List1.AddItem Text1.Text: Text1.SetFocusText1.SelStart = 0: Text1.SelLength = Len(Text1.Text)End S

25、ubPrivate Sub Command3_Click()List1.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command2_Click()If List1.ListIndex -1 ThenList1.RemoveItem List1.ListIndexEnd Sub9界面设计如图 10-6 所示，过程设计如下：六进制 Private Sub Form_Load()Option1(0).Caption = 八进制 : Option1(1).Caption = Option1(2).Caption = 二进

26、制 End SubPrivate Function tran(k As Long, n As Integer) As StringDim x As Integer, y As String * 1, k1 As Longtran = : k1 = Abs(k)Do While k1 0x = k1 Mod nIf x = 10 Theny = Chr(Asc(A) + x - 10)Elsey = CStr(x)tran = y + trank1 = k1 nLoopIf k = 72 Then Timer1.Enabled = False End Sub第 6 章 图形控件和图形方法一、判断

27、题1.V 2.X 3 . V 4.X 5 . V 6.X 7 .X 8 .X 9 . V 10 . V、选择题1C 2B3C 4A 5 A 6 C 7A 8 C 9C 10B 11A 12 B 13B 14C 15C三、填空题1 Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 800 2LoadPicture 3 AutoSize 、 Stretch 、 False、 False 4选中、属性 5形状、矩形6 Picture1.Picture=LodePicture(C:WindowsCloud.bmp)7图片框

28、、其他控件8缇、 SclaeMode 9 颜色10颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序 1. 转动一条红色直线，其轨迹形成一个圆程序 2. 在窗体上随机的位置、用随机的颜色、半径绘制 1000 个空心的圆。 程序 3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。五、程序填空题1( 1) Combo1.ListIndex ( 2) Shape1.BorderStyle ( 3) Combo2.AddItem Str(i) 2( 1) Call pic(2)False(3)n = n + 1(4)LoadPicture(c:w

29、indows1.bmp)( 4) LoadPicture(fn)六、程序设计题程序 1界面设计略，过程设计如下：Private Sub Form_Load() Picture1.ScaleMode = 3End SubPrivate Sub Command1_Click()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, y

30、2), , BEnd Sub程序 2界面设计略，过程设计如下：Private Sub Form_click()Dim r As Single, xo As Single, yo As SingleIf Form1.ScaleHeight Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End Ifxo = Form1.ScaleLeft + Form1.ScaleWidth / 2yo = Form1.ScaleTop + Form1.ScaleHeight / 2 Form1.FillStyl

31、e = 0: Form1.FillColor = vbBlueForm1.DrawWidth = 2: Form1.ScaleMode = 6Form1.Circle (xo, yo), r, vbYellowEnd Sub程序 3界面设计略，过程设计如下：Private 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.TextFor

32、m1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub第 7 章 对话框与菜单程序设计、判断题1.V 2. V 3V4X5X 6X 7V 8V 9V10V二、选择题1D 2A 3C4C5B 6D 7A 8B 9D 10B三、填空题1 窗体控制菜单、下拉式菜单、快捷菜单2 ShowFont3打开文件、另存为、颜色、字体、打印对话框4 工程、部件5 CommonDialog1.Action =3 、 CommonDialog1.ShowColor 6

33、提示信息、对话框类型、对话框标题7 Click8工具9 代码窗口、 Click 10 相同、正四、程序阅读题程序 1. 显示提示信息为“ 5”、标题为“ na 的输出结果”、有一个“确定”按钮的消息 框。程序 2. 显示提示信息为“您选择了第1 项”、标题为“第一项”、有一个“确定”按钮的消息框。五、程序填空题1（ 1） Int（Rnd*100）（ 2 ） Str（i）（3）Exit For2（ 1） False（ 2） Date（ 3 ） CommonDialog1.Color （ 4）m1六、程序设计题程序 1界面设计略，过程设计如下：Private Sub Command1_Click（

34、）CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序 2界面设计略，过程设计如下：Private Sub Command1_Click（）CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序 3界面设计如图 10-9 、表 10-2 所示，过程设计如下：Private Sub Sqr_Click（） Shape1.Shape = 1End SubPrivate Sub Rec_Click()Shape1.Shape = 0 End

35、 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()Shape1.Shape = 5 End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2 End SubPrivate Sub Shzh_Click()Shape1.FillStyle = 3 End Su

36、bPrivate 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 FillColor_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.Color End SubPrivate Sub Exit_Click()EndEnd Sub、判断题1.X 2.V

37、3 .X4V5V 6X 7V8X9.V10 .V 11X12X13V 14X15X二、选择题1A 2 C3B4B5A 6C7C 8B9C 10B11D12B13 B三、填空题1 ChDir2 FileLen3 Change 4 EOF 5 Line Input四、程序阅读题程序 1.y= 1 a=1程序2.NO. 13程序 3.y= 3 a= 2NO. 24窗体： 36 25 169 4 1y= 6 a= 3NO. 3 7文件：1 4 916 25 36y= 10 a= 4 NO. 4 11程序 4.程序5.1程序 6. 1窗体上显示内容：202 21 2文件中内容： 4 68 10123 3

38、31 2 34 4445 555 5五、程序填空题1（ 1）Dim n As Integer （2 ） C:windowscalc.exe （ 3） Output （4）End 2（ 1）For Output As #2 （2）0（ 3 ） temp.dat As c:a1.dat3（ 1） Open e:dataout.txt For Output As #1（2）t1 Mod t2 = 0（3）If flag Then（4）Print coun六、程序设计题程序 1界面设计如图 10-10 所示，过程设计如下：Dim fn As StringPrivate Sub Drive1_Chang

39、e（）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.FileNameEnd IfEnd SubPrivate Sub Command1_Click()Dim yesno As Byteyesno = MsgBox( 确认要删除吗？ , vbYesNo, 删除文件 )If yesno = vbYes Then Kill fnFile1.RefreshEnd Sub程序2建立4 个文本框控件依次输入姓名、出生年月、外语、计算机成绩，按“确认”按钮追加该记录到磁盘文件 d:stud