《VisualBasic程序設(shè)計基礎(chǔ)》陳慶章課后習題參考答案

1、Visual Basic程序設(shè)計基礎(chǔ)教材習題參考答案第1章Visual Basic 6.0程序設(shè)計概述一、判斷題1.V 2.V3. X 說明：同類控件（如兩個標簽）相互重疊，設(shè)計時可以設(shè)置“置前”、“置后”屬 性。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 .網(wǎng)格8 .F orm19 .Load 或 Initialize或Resize 或 Activate（自動執(zhí)行的先后順序也按此排列）10. Activate、Deactivate四、程序設(shè)計題程序1 界面設(shè)計參看圖10-1、10-2以及表10-1表10-1 實例2各控件的主要屬性設(shè)置控件屬性（屬性值）屬性（屬性值）標簽控件1Name(Label1)Caption（我的第一個 VB程序）標簽控件2Name(Label2)Caption（”請輸入你的姓名”）FontUnderLine(True)FontItalic (T rue)命令按鈕1Name(Command

3、1)Caption(確定(&0)命令按鈕2Name(Command2)Caption(結(jié)束(& X)過程設(shè)計如下：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界面設(shè)計略，過程設(shè)計如下：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 運行時，不得連續(xù)、過多次單擊“字體變小”按鈕， 適時錯誤。程序 3界面設(shè)計略，過程設(shè)計如下(窗體 ScaleHeight 值僅與窗體有效繪圖區(qū)域的高度有關(guān))：字體變大字體變小字體加粗字體不加粗因為當 FontSize 屬性值小于 0 會產(chǎn)生Height 值的計量包括標題、邊框，而Private Sub Form_Load()Text1.Text = Visual Basic程序設(shè)計 End Su

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

7、b第 2 章 程序設(shè)計基礎(chǔ)、判斷題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四、程序設(shè)計題程序 1界面設(shè)計略，過程設(shè)計如下： 方法一、用文本框控件輸入圓的半徑 Private Sub Comman

8、d1_Click()Dim x As Singlex = Text1.TextLabel1.Caption = x * x * 3.141593End Sub方法二、用 InputBox 函數(shù)輸入圓的半徑Private Sub Command1_Click()Dim x As Single 若要求計算結(jié)果具有 15 位有效位數(shù)，聲明 x 為 Double 類 型x = InputBox(r=,輸入圓的半徑 )Label1.Caption = x * x * 3.141593End Sub程序 2 略。第 3 章 結(jié)構(gòu)化程序設(shè)計與數(shù)組、判斷題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四、程序閱讀題(寫岀下列程序的運行結(jié)果)程序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六、程序設(shè)計題程序1界面設(shè)計略，過程設(shè)計如下：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界面設(shè)計略，過程設(shè)計如下： 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界面設(shè)計略，過程設(shè)計如下： 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界面設(shè)計略，過程設(shè)計如下： 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界面設(shè)計略，過程設(shè)計如下：Option Base 1Private Sub Form_Click()Dim n As Integer,a(9, 9) As Integer,i AsInteger,AsIntege

14、rOn Error GoTo k下列代碼中若出現(xiàn)錯誤，轉(zhuǎn)到標號為K 的語句執(zhí)行。請輸入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 ，數(shù)組下標超界。 第4章函數(shù)與過程、判斷題二、填空題2V1 按地址傳送324.X36b() As Long 7 Static x As Integer、程序閱讀題(寫出下列程序的運行結(jié)果) 程序 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、緹、無關(guān)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界面設(shè)計如圖 10-4 所示，過程設(shè)計如下：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過程設(shè)計如下：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. 界面設(shè)計如圖 10-5 所示，過程設(shè)計如下：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界面設(shè)計如圖 10-6 所示，過程設(shè)計如下：六進制 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顏色、圓弧起點處轉(zhuǎn)角、圓弧終點處轉(zhuǎn)角、橢圓縱軸與橫軸長度之比四、程序閱讀題程序 1. 轉(zhuǎn)動一條紅色直線，其軌跡形成一個圓程序 2. 在窗體上隨機的位置、用隨機的顏色、半徑繪制 1000

28、個空心的圓。程序 3. 在圖片框內(nèi)繪制多個黃色邊框矩形，填充樣式在“實心”、“透明”間交替變 換。五、程序填空題( 3) Combo2.AddItem Str(i)3) n = n + 14) LoadPicture(fn)1( 1) Combo1.ListIndex(2)Shape1.BorderStyle2( 1) Call pic(2)False亠程程序設(shè)oadpicture(c:windows1.bmp)程序 1界面設(shè)計略，過程設(shè)計如下：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界面設(shè)計略，過程設(shè)計如下：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界面設(shè)計略，過程設(shè)計如下：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 章 對話框與菜單程序設(shè)計、判斷題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程序設(shè)計題程序 1界面設(shè)計略，過程設(shè)計如下：六、的輸出結(jié)果”、有一個“確定”按鈕的消息、標題為3)3)第一項”、有一個“確定”按鈕Exit ForCommonDialog1.Color4)m1Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序 2界面設(shè)計略，過程設(shè)計如下：Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub

34、程序 3界面設(shè)計如圖 10-9 、表 10-2 所示，過程設(shè)計如下： 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窗體上顯示內(nèi)容： 20221 2文件中內(nèi)容： 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六、程序設(shè)計題NO. 4y= 10a= 411程序 1界面設(shè)計如圖 10-10 所示，過程設(shè)計如下：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