秋霞电影网午夜鲁丝片无码,真人h视频免费观看视频,囯产av无码片毛片一级,免费夜色私人影院在线观看,亚洲美女综合香蕉片,亚洲aⅴ天堂av在线电影猫咪,日韩三级片网址入口

VB程序設(shè)計(jì)教程 第四版 課后答案

上傳人:仙*** 文檔編號(hào):28587188 上傳時(shí)間:2021-09-01 格式:DOC 頁(yè)數(shù):14 大?。?1KB
收藏 版權(quán)申訴 舉報(bào) 下載
VB程序設(shè)計(jì)教程 第四版 課后答案_第1頁(yè)
第1頁(yè) / 共14頁(yè)
VB程序設(shè)計(jì)教程 第四版 課后答案_第2頁(yè)
第2頁(yè) / 共14頁(yè)
VB程序設(shè)計(jì)教程 第四版 課后答案_第3頁(yè)
第3頁(yè) / 共14頁(yè)

下載文檔到電腦,查找使用更方便

15 積分

下載資源

還剩頁(yè)未讀,繼續(xù)閱讀

資源描述:

《VB程序設(shè)計(jì)教程 第四版 課后答案》由會(huì)員分享,可在線閱讀,更多相關(guān)《VB程序設(shè)計(jì)教程 第四版 課后答案(14頁(yè)珍藏版)》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

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

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

3、1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空題 1、 11 字符型、字節(jié)型、整型、長(zhǎng)整型、單精度型、雙精度型、貨幣型、邏輯型、日期型、對(duì)象型、變體型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、 雙引號(hào)(英文)、# 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. 將字號(hào)擴(kuò)大為原來(lái)的二倍 3. B 三、編程題(略) 1.文本框、標(biāo)簽和命令按鈕的名稱分別為text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption

6、=text1.text End Sub 2.單價(jià)、數(shù)量、折扣和應(yīng)付款對(duì)應(yīng)的文本框的名稱分別為:text1、text2、text3和text4,計(jì)算和清除命令按鈕的名稱分別為: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)大寫(xiě)”命令按鈕和“轉(zhuǎn)大寫(xiě)”命令按鈕

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é)生成績(jī)的平均分已在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、有共同的地址,那么形參的變化,會(huì)引起實(shí)參的變化(即形參將值回傳給實(shí)參),故可實(shí)現(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 "位置輸入錯(cuò)誤!" 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 ‘成績(jī)輸入 Private Sub Command1_Click() Dim b As books Open "c:\stu.dat" For Append As #1 b.id = InputBox("請(qǐng)輸入學(xué)號(hào)") b.name = InputBox("請(qǐng)輸入姓名") b.sex = InputBox("

33、請(qǐng)輸入性別") b.math = InputBox("請(qǐng)輸入數(shù)學(xué)成績(jī)") b.eng = InputBox("請(qǐng)輸入英語(yǔ)成績(jī)") b.ele = InputBox("請(qǐng)輸入電子成績(jī)") 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 = "英語(yǔ)" 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, "英語(yǔ)" If f < 60 Then Write #2, a, b, "電子" Wend Close #1 Close #2 End Sub

展開(kāi)閱讀全文
溫馨提示:
1: 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

相關(guān)資源

更多
正為您匹配相似的精品文檔
關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話:18123376007

備案號(hào):ICP2024067431號(hào)-1 川公網(wǎng)安備51140202000466號(hào)


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務(wù)平臺(tái),本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請(qǐng)立即通知裝配圖網(wǎng),我們立即給予刪除!