《VB程序設(shè)計教程 第四版 課后答案》由會員分享，可在線閱讀，更多相關(guān)《VB程序設(shè)計教程 第四版 課后答案（14頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、vb課后習(xí)題答案 第一章 習(xí)題參考答案 一、 填空題 1、對象 事件驅(qū)動 2、編譯運行模式 解釋運行模式 二、 簡答題 1、 簡述VB的特點。 答：①可視化的程序設(shè)計方法 ②面向?qū)ο蟮某绦蛟O(shè)計思想 ③事件驅(qū)動的編程機(jī)制 ④結(jié)構(gòu)化的程序設(shè)計語言 ⑤高度的可擴(kuò)充性 ?、迯?qiáng)大的數(shù)據(jù)庫訪問能力 ⑦支持動態(tài)數(shù)據(jù)交換 ⑧支持對象鏈接與嵌入 2、簡述VB的安裝過程。 答：①向光驅(qū)中放入VB安裝光盤； ②計算機(jī)將運行自動安裝程序，若沒有，執(zhí)行VB目錄下的Setup.exe； ③根據(jù)提示逐一回答問題，并點擊“下一步”； ④點擊“完成”； 2、 如何啟動VB。 答：三種方

2、法： ①單擊“開始”按鈕，選擇“程序”菜單下的“Microsoft Visual Basic 6.0 中文版”菜單項并單擊； ②雙擊桌面上的VB6.0快捷圖標(biāo)； ③在“開始”菜單的運行對話框中輸入命令來啟動VB； 　第二章 習(xí)題參考答案 一、選擇題： 1-10、 DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空題 1． 窗體、控件 2． 屬性值 3． 屬性窗口設(shè)置、代碼窗口設(shè)置 4． 事件過程 5． 對象名、下劃線、事件名 6． Form_Click 　第三章 習(xí)題參考答案 　一、選擇題

3、1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空題 1、 11 字符型、字節(jié)型、整型、長整型、單精度型、雙精度型、貨幣型、邏輯型、日期型、對象型、變體型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、 雙引號(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答題 1、(3) 2、(1 ) 3、（1）常量（關(guān)鍵字） （

4、2）字符型常量 （3）邏輯型常量 （4）變量 （5）字符串常量 （6）變量 （7）字符串常量 （8）變量 （9）日期型常量 （題目應(yīng)是#11/16/1999#） （10）數(shù)值型常量（單精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（1）13 （2）17 （3）#1999-11-12# （4）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）5．25 （4）2 9、（1）-4 （2）

5、2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He 7）16 （8） “-459.65” （9）5 10、（4） 11、（2） 12、（4） 第四章 習(xí)題參考答案 一、選擇題： 1—7: DAABBCD 二、填空題 1． 500.00% 2． 將字號擴(kuò)大為原來的二倍 3． B 三、編程題（略） 1．文本框、標(biāo)簽和命令按鈕的名稱分別為text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption

6、=text1.text End Sub 2．單價、數(shù)量、折扣和應(yīng)付款對應(yīng)的文本框的名稱分別為：text1、text2、text3和text4，計算和清除命令按鈕的名稱分別為：command1和command2。 Private Sub Command1_Click() Text4=val(text1)*val(text2)*val(text3) End Sub Private Sub Command2_Click() Text1=”” : Text2=””: Text3=””: Text4=”” End Sub 3．文本框、“轉(zhuǎn)大寫”命令按鈕和“轉(zhuǎn)大寫”命令按鈕

7、的名稱分別為text1、command1和command2 Private Sub Command1_Click() Text1=Ucase(text1) End Sub Private Sub Command2_Click() Text1=Lcase(text1) End Sub 第五章 習(xí)題參考答案 一、選擇題： 1—11: CAABBABBBCC 二、填空題 1．(3) 2． 1 2 3 3．2 2 3 4．160 5．9 6．78 7．x<=5 (或x<6 或 x<7) 8．B 9．iSum iSum+j 1250 三、編程題 1．Private Su

8、b Form_Click() Dim i%,s% S=0 For i = 101 To 200 step 2 If i mod 3<>0 then Print i S=s+i End If Next i Print s End Sub 2．Private Sub Form_Click() Dim n%,s& S=1:n=0 While s<=400000 N=n+1 S=s*n Wend If s>400000 Then n=n-1 Print n End Sub 3．Private Sub Form_Click() Dim imin%,

9、imax%,i%,R% Imin=100:imax=20 For i=1 to 20 R=Int(Rnd*51+50) If R>imax Then imax=R If R

12、x(Asc(S) - 65 + 1) + 1 End If Next i For i=1 To L Text2=text2 & Chr(64+i) & “=” & x(i) & “ “ If I Mod 7=0 then Text2=text2 & chr(13)+chr(10) Next i End Sub 3．設(shè)學(xué)生成績的平均分已在Mark(1)至Mark(10)中,學(xué)生姓名在name(1)至name(10)中。 Private Sub Command1_click() Dim I%,J%,T%,S$ For i=1 To 9 For j=i+1 To 10

13、 If Mark(i)

14、esp As Single) Dim p!,S!,F!,i% P=1:S=1:i=1:F=x Do P=P*i S=S+F/p Loop Until Abs(F/p)

15、有共同的地址，那么形參的變化，會引起實參的變化（即形參將值回傳給實參），故可實現(xiàn)兩數(shù)交換。 3．Function LF( ByVal x As Single) As Single LF=X*X*X End Function Sub Command1_Click() Dim I% For i=1 To 20 Print I, LF(i) Next i End Sub 4．Function WeekDay(ByVal x As Integer) As String Select Case x Case 0 WeekDay=”星期日” Case 1 WeekDa

16、y=”星期一” Case 2 WeekDay=”星期二” Case 3 WeekDay=”星期三” Case 4 WeekDay=”星期四” Case 5 WeekDay=”星期五” Case 6 WeekDay=”星期六” End Select End Function 5．Function Rand30(ByVal X As`Integer) As Integer Randomize Rand30=Int(Rnd*X+1) End Function Sub Command1_Click() For i=1 To 30 Print Rand30(10

17、0) Next i End Sub 6．Function F1(ByVal X As`Single, ByVal Y As`Single) As Integer If X>Y Then F1=X Else F1=Y End If End Function 7． Function GDBH(ByVal x%) As String Dim i% For i = 3 To x - 3 Step 2 If isp(i) And isp(x - i) Then GDBH = i & "+" & (x - i) & "=" & x Exit Function End

18、If Next End Function Function isp(y%) As Boolean i = 2: k = Int(y / 2) Do While i <= k If y Mod i = 0 Then Exit Do i = i + 1 Loop If i > k Then isp = True Else isp = False End If End Function Private Sub Form_Click() For i = 6 To 40 Step 2 Print GDBH(i) Next i End Sub 8．F

19、unction isQO(ByVal x As Integer) As String If x Mod 2 =0 Then isQO=”偶數(shù)” Else isQO=”奇數(shù)” End If End Function 9．Function F1(ByVal x As Integer) As Boolean If x Mod 17 =0 and x Mod 37 =0Then F1=True Else F1=False End If End Function Private Sub Form_Click() For i = 1000 To 2000 If F1

20、(i) Then Print i End if Next i End Sub 10．Sub F1(a() As Integer, ByVal L1 As Integer, ByVal L2 As Integer) Dim L%, U%, x%, i% L = LBound(a): U = UBound(a) If L1 > U Or L2 > U Then Print "位置輸入錯誤！" Exit Sub End If If L1 > L2 Then x = a(L1) For i = L1 To L2 + 1 Step -1 a(i) = a(i - 1)

21、 Next i a(L2) = x ElseIf L2 > L1 Then x = a(L1) For i = L1 To L2 - 1 a(i) = a(i + 1) Next i a(L2) = x End If End Sub 第九章 習(xí)題參考答案 一、選擇題： 1—3: ADD 二、填空題 1．下拉式 彈出式 2．PopupMenu 3．Visible Enabled 4．- 三、編程題(略) 第十章 習(xí)題參考答案 一、選擇題： 1—3: DBD 二、填空題 1．Load 2．窗體模塊 標(biāo)準(zhǔn)模塊 類模塊 3．DoEv

22、ents 三、編程題 1．(略) 2．Function F(ByVal x&,ByVal Y&) As Integer Dim t&,r& If x

29、Val(Text6) : p.yw = Val(Text7) p.yy = Val(Text8) : p.wl = Val(Text9) p.zf = Val(Text10) Put #1, , p End Sub Private Sub CmdDisplay_Click() Get #1, Val(txtRecord_No), p Text1 = p.ID : Text2 = p.name Text3 = p.z1 : Text4 = p.z2 Text5 = p.scool If p.sex = "男" Then Option1.Value = True Else

30、Option2.Value = True If p.jc = True Then Check1.Value = 1 Else Check1.Value = 0 Text6 = p.sx : Text7 = p.yw Text8 = p.yy : Text9 = p.wl Text10 = p.zf End Sub Private Sub Command3_Click() Text1 = "" : Text2 = "" Text3 = "" : Text4 = "" Text5 = "" : Text6 = "" Text7 = "" : Text8 = "" Text

31、9 = "" : Text10 = "" End Sub Private Sub Form_Load() Open App.Path & "\stu.dat" For Random As #1 Len = Len(p) End Sub Private Sub Form_Unload(Cancel As Integer) Close #1 End Sub Private Sub Text10_GotFocus() Text10 = Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9) End Sub 2.3.4.

32、 Private Type books id As String * 10 name As String * 8 sex As String * 2 math As Integer eng As Integer ele As Integer End Type ‘成績輸入 Private Sub Command1_Click() Dim b As books Open "c:\stu.dat" For Append As #1 b.id = InputBox("請輸入學(xué)號") b.name = InputBox("請輸入姓名") b.sex = InputBox("

33、請輸入性別") b.math = InputBox("請輸入數(shù)學(xué)成績") b.eng = InputBox("請輸入英語成績") b.ele = InputBox("請輸入電子成績") Write #1, b.id, b.name, b.sex, b.math, b.eng, b.ele Close #1 End Sub ‘不及格人員輸出 Private Sub Command2_Click() Dim a, b, c Open "c:\stuo.dat" For Input As #1 While Not EOF(1) Input #1, a, b, c If

34、c = "數(shù)學(xué)" Then List1.AddItem b If c = "英語" Then List2.AddItem b If c = "電子" Then List3.AddItem b Wend Close #1 End Sub ‘將不及格人選出存入stuo.dat Private Sub Command3_Click() Dim a, b, c, d, e, f Dim k% Open "c:\stu.dat" For Input As #1 Open "c:\stuo.dat" For Output As #2 While Not EOF(1) Input #1, a, b, c, d, e, f If d < 60 Then Write #2, a, b, "數(shù)學(xué)" If e < 60 Then Write #2, a, b, "英語" If f < 60 Then Write #2, a, b, "電子" Wend Close #1 Close #2 End Sub