VisualBasic程序設(shè)計(jì)作業(yè)題解形成性考核作業(yè)二.

1、Visual Basic 程序設(shè)計(jì)作業(yè)題解形成性考核作業(yè)一、選擇題答案：B答案：D答案：D答案：B答案：b答案：A答案：B答案：C答案：A答案：D答案：C答案：B答案：D答案：C答案：A答案：B答案：C答案：B答案：答案:、填空題答案：下拉式菜單 彈出式菜單答案：打開(kāi)（Open） 保存（Save）答案：文本框.列表框答案：4. Dim數(shù)組名（1 To上界）答案：過(guò)程名 參數(shù)1,參數(shù)2,答案：“工程”“工程屬性”“工程屬性”答案：0答案：不會(huì)用過(guò)程名返回一個(gè)值答案：窗體模塊標(biāo)準(zhǔn)模塊類模塊答案：移出內(nèi)存無(wú)效的狀態(tài)2cos arsiii 晶-?。海ù鸢福海?） 2*cos（ a）*sin（ a ）/

2、（2答案：1） 1<=x and x<12答案：False顏色（Color） 字體（Font） 打?。‵orm1.Show)(2 )a )(2) A+B>=C or a-c<=cJ- 雙日 - C)(3) sqr(s*(s-a)*(s-b)*(s-c)(4)Print)o(3) sin45o :()(3) sin(45/180)a>0 and b>0 or a<0 and b<0答案：For Next Do WhileUntil 條件式Loop DoLoop WhileUntil 條件式答案：3 （因?yàn)樽兞縜被聲明為整型變量%!示整型變量）三、閱

3、讀下列程序，寫(xiě)出程序的運(yùn)行結(jié)果答案：編程人員只需針對(duì)某個(gè)事件編寫(xiě)程序代碼稱為可視化編程。應(yīng)用程序是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段稱為事件驅(qū)動(dòng)。答案：窗體和控件是創(chuàng)建應(yīng)用程序所使用的對(duì)象，方法是對(duì)象的動(dòng)作，事件是對(duì)象的響應(yīng)，屬性可看作對(duì)象的性質(zhì)。答案：傳統(tǒng)編程方式是結(jié)構(gòu)化程序設(shè)計(jì)，它從系統(tǒng)的功能入手，按照工程的標(biāo)準(zhǔn)和嚴(yán)格的規(guī)范將系統(tǒng)分解為若干功能模塊，系統(tǒng)是實(shí) 現(xiàn)功能模塊的函數(shù)和過(guò)程的集合。事件驅(qū)動(dòng)編程則是從所處理的數(shù)據(jù)入手，以數(shù)據(jù)為中心而不是以服務(wù)（功能）為中心來(lái)描述系統(tǒng)。 它把編程問(wèn)題視為一個(gè)數(shù)據(jù)集合，數(shù)據(jù)相對(duì)于功能而言，具有更強(qiáng)的穩(wěn)定性。事件驅(qū)動(dòng)編程與傳統(tǒng)編程方式相比，最大的區(qū)別在于

4、： 前者首先關(guān)系關(guān)心的是所要處理的數(shù)據(jù)，而后者首先關(guān)心的是功能。答案:生后,答：事件驅(qū)動(dòng)的工作過(guò)程為:執(zhí)行其對(duì)應(yīng)的事件過(guò)程代碼。1.啟動(dòng)應(yīng)用程序，裝載和顯示窗體。4.重復(fù)執(zhí)行第2和第3步，直到遇到2 .窗體或窗體上的控件等待事件的發(fā)生。End語(yǔ)句或單擊結(jié)束按鈕停止程序的運(yùn)行。3 .當(dāng)某個(gè)事件發(fā)答案:生后,答：事件驅(qū)動(dòng)的工作過(guò)程為:執(zhí)行其對(duì)應(yīng)的事件過(guò)程代碼。1.啟動(dòng)應(yīng)用程序，裝載和顯示窗體。4.重復(fù)執(zhí)行第2和第3步，直到遇到四、程序設(shè)計(jì)題2 .窗體或窗體上的控件等待事件的發(fā)生。End語(yǔ)句或單擊結(jié)束按鈕停止程序的運(yùn)行。3 .當(dāng)某個(gè)事件發(fā)圖答案：Private Sub Command1_Click(

5、) x = Val(Text1.Text) Select Case x Case Is >= 500 Text2.Text = x * 0.7 Case Is >= 300“不能裱3整除的費(fèi)X-IioqWo。之間不能 被3整除蘸nV Hu nW JI- 1- 1- 1.- 1 t 1 fl fl fjText2.Text = x * 0.8 Case Is >= 200 Text2.Text = x * 0.9 Case Is >= 100 Text2.Text = x * 0.95 End Select End Sub = x * 0.95 End Select En

6、d Sub答案：程序代碼：Private Sub Form_Load() x = 101 Text1.Text = "100" Do While x <= 200 If x Mod 3 <> 0 Then Text1.Text=Text1.Text + Chr(13) + Chr(10) + Trim(Str(x) End If x = x + 1 Loop End Subii. Forml5 6 7 8旺帕5154圖6答案:程序代碼：Private Sub Form Click() Print "*","3", &

7、quot;6", "9", "12" Print "15", "45", "90", "125", "180" Print "16","48", "96", "144", "192" Print "17", "51", "102", "153", "204&q

8、uot; Print "18", "54", "108", "152", "216" End Subii. Fermi-lalxlFroilC除注結(jié)束數(shù)字io和數(shù)字2運(yùn)篇結(jié)果答案：程序代碼：Private Sub Form_Load() Option1(0).Value = False Option1(1).Value = False Option1(2).Value = FalseOption1(3).Value = False End Sub Private Sub Option1_Clic

9、k(Index As Integer) Select Case Index Case 0 Textl.Text = 10 * 2 Case 1 Text1.Text = 10 / 2 Case 2 Text1.Text = 10 + 2 Case 3 Text1.Text = 10 - 2 End Select End Sub Private SubCommand1_Click() End End Sub F oruil輸入一個(gè)整覆星期六Saturday圖8答案：程序代碼：Dim x As Integer Private Function Mystring(x As Integer) As S

10、tring Select Case x Case 1 Mystring ="星期一 "+ Chr(13) + "Monday" Case 2 Mystring =" "Wednesday" Case 4 Mystring ="星期四"+ Chr(13) ="星期六"+ Chr(13) + "Saturday" Case 7 Mystring ="星期二"+ Chr(13) + "Tuesday" Case 3 Mystring

11、 ="星期三"+ Chr(13) + "Thursday" Case 5 Mystring ="星期五"+ Chr(13) + "Friday" Case 6 Mystring 星期日"+ Chr(13) + "Sunday" End Select Label1.Caption = MystringEnd Function Private Sub Text1_Change() x = Val(Text1.Text) Mystring (x) End Sub答案：程序代碼： Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=2 Then MsgBox "You Pressed right button", 0,提示"End I