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

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

2、（2答案：1） 1<=x and x<12答案：False顏色（Color） 字體（Font） 打印（Form1.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 （因為變量a被聲明為整型變量%!示整型變量）三、閱

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

4、： 前者首先關(guān)系關(guān)心的是所要處理的數(shù)據(jù)，而后者首先關(guān)心的是功能。答案:生后,答：事件驅(qū)動的工作過程為:執(zhí)行其對應(yīng)的事件過程代碼。1.啟動應(yīng)用程序，裝載和顯示窗體。4.重復(fù)執(zhí)行第2和第3步，直到遇到2 .窗體或窗體上的控件等待事件的發(fā)生。End語句或單擊結(jié)束按鈕停止程序的運行。3 .當(dāng)某個事件發(fā)答案:生后,答：事件驅(qū)動的工作過程為:執(zhí)行其對應(yīng)的事件過程代碼。1.啟動應(yīng)用程序，裝載和顯示窗體。4.重復(fù)執(zhí)行第2和第3步，直到遇到四、程序設(shè)計題2 .窗體或窗體上的控件等待事件的發(fā)生。End語句或單擊結(jié)束按鈕停止程序的運行。3 .當(dāng)某個事件發(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整除的費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運篇結(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輸入一個整覆星期六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