VisualBasic程序設(shè)計(jì)作業(yè)答案

1、Visual Basic 程序設(shè)計(jì)作業(yè)答案 作業(yè) 2 、選擇題 1B2C 12B 13 D 3D 4B 5D 6A 7B 8C 9A 10D11C 17C18B 19 D 20B 14 C 15A 16B 、填空題 1下拉式菜單 彈出式菜單 2打開另存為 顏色 字體 打印 3文本框列表框 4 Option Base 1 5 Call 語句 6工程 工程屬性 通用 Form1.Show 70 8Sub 過程的過程名不能返回值，而 Function 過程能通過過程名返回值 9窗體模塊標(biāo)準(zhǔn)模塊 類模塊 10移出內(nèi)存無效狀態(tài) 11( 1)2*Cos *Sin /(2* ) (2) Sqr(s*(s-a

2、)*(s-b)*(s-c) (3) Sin(45*3.14/180) 12( 1) x=1 And x=C Or a-c0 And b0 Or(a0 And b0) 13 False 14 For While Do 153 三、閱讀下列程序，給出程序運(yùn)行結(jié)果。 1程序運(yùn)行后，單擊窗體，輸出結(jié)果為：5050。 2 3 4 3.4 3 5 四、程序設(shè)計(jì)題 1 Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x 100 Then y = x Else If x 200 Then y =

3、9.5 * x Else If x 300 Then y = 0.9 * x Else If x 200 If x Mod 3 0 Then Text1.Text = Text1.Text Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12 Print For I=15 to 18 Print I; For j=3 to 12 Step 3 Print Tab(3*j);j*I; Next j Print Next I End sub 4 Private Sub Command1_Click() Unload Me End Sub Private Sub Optio

4、n1_Click() Text1.Text = 10 * 2 End Sub Private Sub Option2_Click() Text1.Text = 10 / 2 End Sub Private Sub Option3_Click() Text1.Text = 10 + 2 End Sub Private Sub Option4_Click() Text1.Text = 10 - 2 End Sub 5 Private Function Day(n As Integer) Select Case n Case 0 Day = 星期日 & Chr(13) & (Sunday) Case

5、 1 Day = 星期一 & Chr(13) & (Monday) Case 2 Day = 星期二 & Chr(13) & (Tuesday) Case 3 Day = 星期三 & Chr(13) & (Wednesday) Case 4 Day = 星期四 & Chr(13) & (Thursday) Case 5 Day = 星期五 & Chr(13) & (Friday) Case 6 Day = 星期六 & Chr(13) & (Saturday) End Select End Function Private Sub Text1_KeyPress(KeyAscii As Integ

6、er) Dim n As Integer n = Val(Text1.Text) If KeyAscii = 13 Then If n = 0 And n 7 Then Label1.Caption = Day(n) Else MsgBox 請輸入 06 之間的整數(shù)！ End If End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 6 Single) 新建一個(gè)工程，在默認(rèn)的窗體 Form1 上放置一個(gè) Picture 控件，然后編寫如下代碼。 Private Sub Picture1_MouseDown(Bu

7、tton As Integer, Shift As Integer, X As Single, Y As If Button = 2 Then MsgBox You pressed right Button Picture1.MousePointer = vbArrow End If End Sub Single) Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Picture1.MousePointer = vbUpArrow End Sub 7 Private Sub

8、 Form_Load() List1.AddItem 李敏 List1.AddItem 張華 List1.AddItem 呂曉燁 List1.AddItem 趙巍 List1.AddItem 袁莉 List1.AddItem 王津 List1.AddItem 何小渴 List1.AddItem 崔寧 List1.AddItem 陳曦 List1.AddItem 劉偉楠 End Sub Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text Text1.Text = Else MsgBox 請?jiān)谖谋究蛑休斎?/p>

9、信息！ End If End Sub Private Sub Command2_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Command3_Click() If Command3.Caption = 修改 Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Caption = 修改確認(rèn) Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = Comman