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

1、Visual Basic程序設(shè)計(jì)基礎(chǔ)教材習(xí)題參考答案第1章 Visual Basic 6.0程序設(shè)計(jì)概述一、判斷題1 23× 說明：同類控件（如兩個(gè)標(biāo)簽）相互重疊，設(shè)計(jì)時(shí)可以設(shè)置“置前”、“置后”屬性。4 5× 6 7× 8 9 10× 11 1213× 14 15× 16 17 18 19 20二、選擇題1. C 2. B 3D 4C 5B 6A 7D 8A 9B 10A 11C 12D三、填空題1對(duì)象、事件 2屬性、方法、事件 3控件、屏幕（Screen）4對(duì)象 5Left、Top 6屬性、<對(duì)象名>.<屬性名&

2、gt;=<表達(dá)式>7網(wǎng)格 8Form19Load或Initialize或Resize或Activate（自動(dòng)執(zhí)行的先后順序也按此排列）10Activate、Deactivate四、程序設(shè)計(jì)題程序1界面設(shè)計(jì)參看圖10-1、10-2以及表10-1。表10-1 實(shí)例2各控件的主要屬性設(shè)置控件屬性（屬性值）屬性（屬性值）標(biāo)簽控件1Name(Label1)Caption("我的第一個(gè)VB程序")標(biāo)簽控件2Name(Label2)Caption("請(qǐng)輸入你的姓名")FontUnderLine(True)FontItalic(True)命令按鈕1Name(

3、Command1)Caption("確定(&O)")命令按鈕2Name(Command2)Caption("結(jié)束(&X)")過程設(shè)計(jì)如下：Private sub Form_Click() Command2.Enabled = FalseEen SubPrivate Sub Command1_Click() Label2.Visible = False Label1.Caption = Text1.Text + ": 歡迎使用" + Label1.Caption Text1.Visible = False Command

4、1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click() EndEnd Sub程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Command1_Click() '字體變大 Form1.FontSize = Form1.FontSize + 3 Form1.Cls: Print "歡迎使用VB"End SubPrivate Sub Command2_Click() '字體變小 Form1.FontSize = Form1.FontSize - 3 Form

5、1.Cls: Print "歡迎使用VB"End SubPrivate Sub Command3_Click() '字體加粗 Form1.FontBold = True Form1.Cls: Print "歡迎使用VB"End SubPrivate Sub Command4_Click() '字體不加粗 Form1.FontBold = False Form1.Cls: Print "歡迎使用VB"End Sub運(yùn)行時(shí)，不得連續(xù)、過多次單擊“字體變小”按鈕，因?yàn)楫?dāng)FontSize屬性值小于0會(huì)產(chǎn)生適時(shí)錯(cuò)誤。程序3界面設(shè)

6、計(jì)略，過程設(shè)計(jì)如下（窗體Height值的計(jì)量包括標(biāo)題、邊框，而ScaleHeight值僅與窗體有效繪圖區(qū)域的高度有關(guān)）：Private Sub Form_Load() Text1.Text = "Visual Basic 程序設(shè)計(jì)"End SubPrivate Sub Form_Resize() Text1.Top = 0: Text1.Left = 0 Text1.Width = Form1.ScaleWidth/2 '用 Form1.ScaleWidth效果優(yōu)于用Form1. Width Text1.Height = Form1.ScaleHeight/2 &#

7、39;用 Form1.ScaleHeight優(yōu)于用Form1. Height Command1.Top = Form1.ScaleHeight - Command1.Height Command1.Left = Form1.ScaleWidth - Command1.WidthEnd Sub第2章 程序設(shè)計(jì)基礎(chǔ)一、判斷題1 2× 3× 4× 5 6× 7 8 9 10×二、選擇題1B 2D 3A 4C 5C 6B 7A 8D 9. C 10A三、填空題1String 24 3"aaa" 4145 56 63 718 8Fal

8、se9(x Mod 10) * 10 + x 10 1010 + Int( Rnd * 90 ) 11a * b Mod c12Log(x)+Sin(3.141593/6) 13Const PI=3.1415926 14日期 15Int(x)+1四、程序設(shè)計(jì)題程序1界面設(shè)計(jì)略，過程設(shè)計(jì)如下：方法一、用文本框控件輸入圓的半徑Private Sub Command1_Click() Dim x As Single x = Text1.Text Label1.Caption = x * x * 3.141593End Sub方法二、用InputBox函數(shù)輸入圓的半徑Private Sub Comma

9、nd1_Click() Dim x As Single '若要求計(jì)算結(jié)果具有15位有效位數(shù)，聲明x為Double類型 x = InputBox("r=","輸入圓的半徑") Label1.Caption = x * x * 3.141593End Sub程序2略。第3章 結(jié)構(gòu)化程序設(shè)計(jì)與數(shù)組一、判斷題1 2× 3 4× 5 6× 7× 8 9× 10二、選擇題1A 2D 3C 4C 5D 6B三、填空題1If x>y Then t=y: y=x: x=t 2IS3For i = 0 to 9

10、: B(i) = InputBox("B(" & i & ")="): Next i4Dim 5String 68四、程序閱讀題（寫出下列程序的運(yùn)行結(jié)果）程序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 （3）Next i2（1）r = 0 （2）m Mod n3（1）i + j - 1 （2）7 - i （3）Print4（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a

11、(i)=a(j) （4）a(i) Mod 2 = 1六、程序設(shè)計(jì)題程序1界面設(shè)計(jì)略，過程設(shè)計(jì)如下：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("請(qǐng)輸入x的值：") y = InputBox("請(qǐng)輸入y的值：") z = InputBox("請(qǐng)輸入z的值：") If x > y Then max = x El

12、se 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; minEnd Sub程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Click() Dim x As Single, y As Single x = InputBox("請(qǐng)輸入x的值：") If x > 3 Then y = x + 3 ElseIf x &

13、gt;= 1 Then y = x * x ElseIf x > 0 Then y = Sqr(x) Else y = 0 End If Print yEnd Sub程序3界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Click() 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 iEnd Sub程序4界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Click() Dim x As Single

14、, s As Single, t As Single Dim i As Integer, n As Integer x = InputBox("請(qǐng)輸入x的值：") n = InputBox("請(qǐng)輸入n的值：") t = x / 2: s = t For i = 3 To n t = t * x / i s = s + t Next i Print sEnd Sub程序5界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Click() Dim e As Single, t As Single, i As Integer e = 2: t = 1:

15、 i = 1 While t >= 0.0001 i = i + 1: t = t / i: e = e + t Wend Print eEnd Sub程序6界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Option Base 1Private Sub Form_Click() Dim n As Integer, a(9, 9) As Integer, i As Integer, j As Integer On Error GoTo k '下列代碼中若出現(xiàn)錯(cuò)誤，轉(zhuǎn)到標(biāo)號(hào)為K的語句執(zhí)行。 n = InputBox("請(qǐng)輸入n，0<n<10") For i = 1 To

16、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); For j = 1 To i Print Space(4 - Len(Trim(Str(a(i, j); Trim(Str(a(i, j); Next j Print Next i Exit Subk: MsgBox "輸入n值小于1或大于10，數(shù)組下標(biāo)超界。"E

17、nd Sub第4章 函數(shù)與過程一、判斷題1× 2 3× 4× 5 6× 7× 8二、填空題1按地址傳送 2b() As Long 36 4按值傳遞 5按地址傳遞6Public x As Single 7Static x As Integer 8Form2.y三、程序閱讀題（寫出下列程序的運(yùn)行結(jié)果）程序1. s = 2 程序2. 1 程序3. 1 1 2 1 1 2 1 2 2 2 2 3 s = 5 1 1 s = 9 1 2 1 1 3 3 1 1 4 6 4 1四、程序填空題1（1）ByeVal （2）k Mod i （3）k = k i

18、（4）Call pp(i)2（1）a() Aa Double （2）n-1 （3）a(j) < a(k)3（1）a() As Double, n As Integer （2）t = t * x （3）f = s五、程序設(shè)計(jì)題程序1界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Function fsum(x() As Double, n As Integer) As Double Dim i As Integer For i = 1 To n fsum = fsum + x(i) Next i fsum = fsum / nEnd Function程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private

19、 Sub ff(a() As Single, n As Integer) Dim i As Integer, x As Single For i = 1 To n 2 x = a(n - i + 1): a(n - i + 1) = a(i): a(i) = x Next iEnd Sub程序3界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub find(x() As Single, m As byte, n As Byte, _xmax As Single,ki As Byte,kj As Byte） xmax = x(1,1): ki = 1: kj = 1 For i = 1 To m F

20、or j = 1 To n If Abs(x(i, j) > Abs(xmax) Then xmax = x(i, j): ki = i: kj = j Next j, i End Sub第5章 常用控件一、判斷題1× 2× 3× 4 5× 6 7× 8 910 11× 12× 13 14 15× 16× 17× 1819 20× 21 22× 23 24× 25二、選擇題1C 2D 3B 4B 5B 6C 7B 8B 9B 10A11D 12C 13B 14

21、B 15A 16D 17B 18B 19B 20A三、填空題1上、下、左、左 2緹、無關(guān) 3&、<Alt>+<Y> 4Enabled 5MaxLength6Text1.SetFocus 7MultiLine 8Visible 9Alignment 10AutoSize11ForeColor 120或1 13True 141 15AddItem161 17List1.Clear 18文本框、列表框19下拉式組合框、簡(jiǎn)單組合框、下拉式列表框 20Scroll 21Value22Change 23定時(shí)器不起作用 24Timer 2565535四、程序閱讀題程序1. 1

22、16 程序2. 8程序3. 23451 程序4. 小，你好！ 程序5. 您好34512 小李，你好！ 歡迎使用Visual Basic!程序6. 李子 程序7.y = 6 程序8.n = 1蘋果 y = 14 n = 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*i1 （2）Command2.Enabled = True （3）Command2.Enab

23、led = False3（1）Text2.Enabled = False （2）p = 2 （3）Print i （4）Val(Text1.Text) < 2 或 Val(Text1.Text) <= 1 （5）KeyAscii = 134（1）List1.ListCount （2）List1.RemoveItem I （3）i = i + 15（1）Timer1.Enabled = True （2）x 3600 （3）(x Mod 3600) 60 或 (x - 3600 * h) 60 （4）x = x + 1 6（1）Label1.Left （2）Label1.Left =

24、-Label1.Width六、程序設(shè)計(jì)題程序1. 界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Command1_Click() If Command1.Caption = "顯示" Then Print "歡迎使用Visual Basic！": Command1.Caption = "清除" Else Form1.Cls: Command1.Caption = "顯示" End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_L

25、oad()Form1.Cls: Command1.Caption = "顯示": Command2.Caption = "退出"End Sub程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Load() Text1.MaxLength = 1: Text1.Text = ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Label1.Caption = CStr(KeyAscii)End Sub程序3界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Const pwd As S

26、tring = "123456" '預(yù)設(shè)密碼為123456Private Sub Command1_Click() Cls: Print "歡迎進(jìn)入！"End SubPrivate Sub Form_Load() Command1.Caption = "進(jìn)入": Command1.Enabled = Falsew Text1.Text = "": Text1.PasswordChar = "*"End SubPrivate Sub Text1_KeyPress(KeyAscii As I

27、nteger) If KeyAscii = 13 Then If Text1.Text = pwd Then m = MsgBox("口令正確，歡迎進(jìn)入！"): Command1.Enabled = True Else m = MsgBox("口令錯(cuò)誤,請(qǐng)重新輸入！"): Text1.Text = "" End If End IfEnd Sub程序4界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Dim num As Integer, m As Integer, rec As IntegerPrivate Sub Form_Load() Command1.

28、Caption = "出題": Command1.Enabled = True Text1.Text = "": Text1.Enabled = False: rec = 0End SubPrivate Sub Command1_Click() Randomize: num = Int(Rnd * 100) + 1: Text1.Enabled = True Label1.Caption = "": Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click() EndEnd S

29、ubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then m = Val(Text1.Text): rec = rec + 1: Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text): Text1.SetFocus If rec > 10 Then Label1.Caption = "差！重新開始": Call Form_Load Else If m > num Then Label1.Caption = Str(m) &am

30、p; "大了！" ElseIf m < num Then Label1.Caption = Str(m) & "小了！" Else If rec < 5 Then Label1.Caption = "好！猜對(duì)了。" Else Label1.Caption = "還行！猜對(duì)了。" End If Call Form_Load End If End If End IfEnd Sub程序5界面設(shè)計(jì)如圖10-3所示，過程設(shè)計(jì)如下：Private Sub Form_Load() Command1(0).En

31、abled = False: Command1(1).Enabled = False Command1(2).Enabled = False: Label1.Caption = ""End SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 Clipboard.Clear: Clipboard.SetText Text1.SelText Text1.SelText = "": Label1.Caption = "請(qǐng)選擇要粘貼的位置！" Com

32、mand1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = True Case 1 Clipboard.Clear: Clipboard.SetText Text1.SelText Label1.Caption = "請(qǐng)選擇要粘貼的位置！": Command1(0).Enabled = False Command1(1).Enabled = False: Command1(2).Enabled = True Case Else Text1.SelText = Clipboard.Ge

33、tText(): Form_Load Label1.Caption = "粘貼完成！" End SelectEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, _X As Single, Y As Single) Dim n As Integer n = Text1.SelLength If n > 0 Then Label1.Caption = "選擇了" & n & "個(gè)字,請(qǐng)選擇下一步操作！" Command1(0).E

34、nabled = True: Command1(1).Enabled = True Else Label1.Caption = "" End IfEnd Sub程序6界面設(shè)計(jì)如圖10-4所示，過程設(shè)計(jì)如下：Private Sub Form_Load() Label1.Caption = " 當(dāng)前日期：": Text1.Text = Date Option1(0).Caption = "顯示日期": Option1(1).Caption = "顯示時(shí)間" Option1(0).Value = True: Comman

35、d1.Caption = "退出"End SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Label1.Caption = "當(dāng)前日期：": Text1.Text = Date Case 1 Label1.Caption = "當(dāng)前時(shí)間：": Text1.Text = Time End SelectEnd SubPrivate Sub Command1_Click() EndEnd Sub程序7過程設(shè)計(jì)如下：Private Sub Form

36、_Load() Label1.Caption = " 當(dāng)前日期：": Text1.Text = Date Option1(0).Caption = "顯示日期": Option1(1).Caption = "顯示時(shí)間" Option1(0).Value = True: Command1.Caption = "退出" Combo1.AddItem "年-月-日": Combo1.AddItem "月-日-年" Combo1.AddItem "日-月-年":

37、Combo1.Text = "年-月-日"End SubPrivate Sub Combo1_Click() Dim n As String Select Case Combo1.ListIndex Case 0: n = "yyyy-mm-dd" Case 1: n = "mm-dd-yyyy" Case 2: n = "dd-mm-yyyy" End Select Text1.Text = Format(Date, n)End SubPrivate Sub Option1_Click(Index As Inte

38、ger) Select Case Index Case 0: Label1.Caption = "當(dāng)前日期：": Text1.Text = Date Case 1: Label1.Caption = "當(dāng)前時(shí)間：": Text1.Text = Time End SelectEnd SubPrivate Sub Command1_Click() EndEnd Sub程序8. 界面設(shè)計(jì)如圖10-5所示，過程設(shè)計(jì)如下：Private Sub Form_Load() List1.AddItem "happy": List1.AddItem &

39、quot;apple" List1.AddItem "student": List1.AddItem "computer"End SubPrivate Sub Command1_Click() List1.AddItem Text1.Text: Text1.SetFocus Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Command4_Click() E

40、ndEnd SubPrivate Sub Command2_Click() If List1.ListIndex <> -1 Then List1.RemoveItem List1.ListIndexEnd Sub9界面設(shè)計(jì)如圖10-6所示，過程設(shè)計(jì)如下：Private Sub Form_Load() Option1(0).Caption = "八進(jìn)制": Option1(1).Caption = "十六進(jìn)制" Option1(2).Caption = "二進(jìn)制"End SubPrivate Function tran(k

41、 As Long, n As Integer) As String Dim x As Integer, y As String * 1, k1 As Long tran = "": k1 = Abs(k) Do While k1 > 0 x = k1 Mod n If x >= 10 Then y = Chr(Asc("A") + x - 10) Else y = CStr(x) tran = y + tran k1 = k1 n Loop If k < 0 Then tran = "-" + tranEnd Fun

42、ctionPrivate Sub Option1_Click(Index As Integer) Dim k As Long, n As Integer k = Val(Text1.Text) Select Case Index Case 0 Label2.Caption = "八進(jìn)制": n = 8 Case 1 Label2.Caption = "十六進(jìn)制": n = 16 Case 2 Label2.Caption = "二進(jìn)制": n = 2 End Select Text2.Text = tran(k, n)End Sub1

43、0界面設(shè)計(jì)如圖10-7所示，過程設(shè)計(jì)如下：Private Sub Form_Load() Label1.Left = Width / 2 - Label1.Width / 2 Label1.AutoSize = True HScroll1.Min = 1: HScroll1.Max = 1000 HScroll1.SmallChange = 10: HScroll1.LargeChange = 100 HScroll1.Value = 500: Timer1.Interval = 500End SubPrivate Sub HScroll1_Change() Timer1.Interval =

44、 HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer() Label1.FontSize = Label1.FontSize + 2 Label1.Left = Width / 2 - Label1.Width / 2 If Label1.FontSize >= 72 Then Timer1.Enabled = FalseEnd Sub第6章 圖形控件和圖形方法一、判斷題1 2× 3 4× 5 6× 7&#

45、215; 8× 9 10二、選擇題1C 2B 3C 4A 5A 6C 7A 8C 9C 10B11A 12B 13B 14C 15C三、填空題1 Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002LoadPicture 3AutoSize、Stretch、False、False 4選中、屬性5形狀、矩形 6Picture1.Picture=LodePicture("C:WindowsCloud.bmp")7圖片框、其他控件 8緹、SclaeMode 9顏色10顏色、圓弧起點(diǎn)處轉(zhuǎn)

46、角、圓弧終點(diǎn)處轉(zhuǎn)角、橢圓縱軸與橫軸長(zhǎng)度之比四、程序閱讀題程序1. 轉(zhuǎn)動(dòng)一條紅色直線，其軌跡形成一個(gè)圓程序2. 在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制1000個(gè)空心的圓。程序3. 在圖片框內(nèi)繪制多個(gè)黃色邊框矩形，填充樣式在“實(shí)心”、“透明”間交替變換。五、程序填空題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:windows1.bmp") （4）LoadPicture(fn)六、程序

47、設(shè)計(jì)題程序1界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Load() Picture1.ScaleMode = 3End SubPrivate Sub Command1_Click() Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox("x1="): y1 = InputBox("y1=") x2 = InputBox("x2="): y2 = InputBox("y2=") Picture1.Line

48、(x1, y1)-(x2, y2), , BEnd Sub程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_click() Dim r As Single, xo As Single, yo As Single If Form1.ScaleHeight < Form1.ScaleWidth Then r = Form1.ScaleHeight / 3 Else r = Form1.ScaleWidth / 3 End If xo = Form1.ScaleLeft + Form1.ScaleWidth / 2 yo = Form1.ScaleTop + Form1.Sca

49、leHeight / 2 Form1.FillStyle = 0: Form1.FillColor = vbBlue Form1.DrawWidth = 2: Form1.ScaleMode = 6 Form1.Circle (xo, yo), r, vbYellowEnd Sub程序3界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Form_Load() Dim i As Integer For i = 1 To 7: List1.AddItem i: Next i Form1.ScaleMode = 1End SubPrivate Sub List1_Click() Form1.Cls:

50、 Form1.ScaleMode = List1.Text Form1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub第7章 對(duì)話框與菜單程序設(shè)計(jì)一、判斷題1 2 3 4× 5× 6× 7 8 9 10二、選擇題1D 2A 3C 4C 5B 6D 7A 8B 9D 10B三、填空題1窗體控制菜單、下拉式菜單、快捷菜單 2ShowFont3打開文件、另存為、顏色、字體、打印對(duì)話框 4工程、部件5CommonDial

51、og1.Action =3、CommonDialog1.ShowColor6提示信息、對(duì)話框類型、對(duì)話框標(biāo)題 7Click8工具 9代碼窗口、Click 10相同、正四、程序閱讀題程序1. 顯示提示信息為“5”、標(biāo)題為“na的輸出結(jié)果”、有一個(gè)“確定”按鈕的消息框。程序2. 顯示提示信息為“您選擇了第1項(xiàng)”、標(biāo)題為“第一項(xiàng)”、有一個(gè)“確定”按鈕的消息框。五、程序填空題1（1）Int(Rnd*100) （2）Str(i) （3）Exit For 2（1）False （2）Date （3）CommonDialog1.Color （4）m1六、程序設(shè)計(jì)題程序1界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private

52、 Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序2界面設(shè)計(jì)略，過程設(shè)計(jì)如下：Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序3界面設(shè)計(jì)如圖10-9、表10-2所示，過程設(shè)計(jì)如下：Private Sub Sqr_Click() Shape1.Shape = 1End SubPrivate Sub Rec_Click() Shape1.Shape = 0End SubPrivate Sub Oval_Click() Shape1.Shape = 2End SubPrivate Sub Cir