實驗報告VisualBasic程序設(shè)計基礎(chǔ).doc

課程名稱 Visual Basic 程序設(shè)計基礎(chǔ)實驗名稱 Visual Basic 程序設(shè)計一、 試驗?zāi)康?通過設(shè)計、運行簡單的VB程序，了解VB界面中對象、屬性、事件的基本概念。學(xué)會獨立使用該系統(tǒng)完成VB程序從編輯、到運行、調(diào)試的全過程。2掌握VB數(shù)據(jù)類型的基本概念。3掌握變量、常量的定義規(guī)則和各種運算符的功能及表達(dá)式的構(gòu)成和求值方法。4了解VB標(biāo)準(zhǔn)函數(shù)，掌握部分常用標(biāo)準(zhǔn)函數(shù)的功能和用法。5.掌握常用內(nèi)部控件的主要屬性、方法和事件及在程序設(shè)計中如何應(yīng)用控件。6熟悉選擇結(jié)構(gòu)程序設(shè)計及循環(huán)結(jié)構(gòu)程序設(shè)計，靈活運用有關(guān)語句解題。7. 學(xué)會用數(shù)組解決實際問題。8. 掌握通用過程的定義和調(diào)用方法；了解參數(shù)傳遞的方式；靈活運用函數(shù)過程和子程序過程。9. 掌握順序文件和隨機文件的使用方法。二、 實驗內(nèi)容、實驗方法及步驟項目一 簡單Visual Basic 6.0程序設(shè)計(1)建立可視用戶界面 (2)設(shè)置可視界面屬性對象屬性設(shè)置值窗體NameForm1CaptionForm1單擊按鈕NameCommand1Caption“單擊”清屏按鈕NameCommand2Caption“清屏”結(jié)束按鈕NameCommand3Caption“結(jié)束”文本框NameText1Caption空白(3)編寫事件驅(qū)動代碼Private Sub Command1_Click()Text1.Text = 大家好，我是于嬌琴！Text1.FontSize = 20End SubPrivate Sub Command2_Click()Text1.Text = End SubPrivate Sub Command3_Click()EndEnd Sub項目二 設(shè)計一個計算器(1)建立可視用戶界面 (2)設(shè)置可視界面屬性對象屬性設(shè)置值窗體NameForm1Caption簡易計算器= 按鈕NamecmdAnsCaption“ = ”計算函數(shù)按鈕NamecmdFormCaption“計算函數(shù)”結(jié)束按鈕NamecmdExitCaption“結(jié)束”文本框NameText1Caption空白文本框NameTex2Caption空白(3)編寫事件驅(qū)動代碼Const PI# = 3.1415926535Private Sub cmdAbs_Click() Text3 = Abs(Val(Text3)End SubPrivate Sub cmdAns_Click() Dim s As Double If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) _ And Not (Combo1.Text = Or Combo1.Text = Mod) And Val(Text2) = 0) Then 判斷兩個文本框中輸入的都是數(shù)值,而且當(dāng)除或取模時除數(shù)不為零時 Select Case Combo1.Text Case s = Val(Text1) + Val(Text2) Case s = Val(Text1) - Val(Text2) Case s = Val(Text1) * Val(Text2) Case s = Val(Text1) / Val(Text2) Case Mod s = Val(Text1) Mod Val(Text2) End Select Label1.Caption = Str(s) Else Label1.Caption = 操作數(shù)錯誤，請重新輸入！ If Not IsNumeric(Text1.Text) Then Text1.SetFocus Else Text2.SetFocus End If End IfEnd SubPrivate Sub cmdCos_Click() Text3 = Cos(Val(Text3) * PI / 180)End SubPrivate Sub cmdExit_Click() EndEnd SubPrivate Sub cmdExp_Click() Text3 = Exp(Val(Text3)End SubPrivate Sub cmdForm_Click() If cmdForm.Caption = 計算函數(shù) Then Form1.Height = 4350 cmdForm.Caption = 四則運算 Else Form1.Height = 2000 cmdForm.Caption = 計算函數(shù) End IfEnd SubPrivate Sub cmdHex_Click() Text3 = Hex(Val(Text3)End SubPrivate Sub cmdLog_Click() Text3 = Log(Val(Text3)End SubPrivate Sub cmdOct_Click() Text3 = Oct(Val(Text3)End SubPrivate Sub cmdRound_Click() Text3 = Round(Val(Text3)End SubPrivate Sub cmdSin_Click() Text3 = Sin(Val(Text3) * PI / 180)End SubPrivate Sub cmdSqr_Click() Text3 = Sqr(Val(Text3)End SubPrivate Sub cmdTan_Click() Text3 = Tan(Val(Text3) * PI / 180)End SubPrivate Sub Combo1_Change()End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End Sub項目三 字體設(shè)置 (1)建立可視用戶界面 在窗體上建立1個文本框、3個frame、2個option、3個check、1個combo(2)設(shè)置可視界面屬性對象屬性設(shè)置值窗體NameForm1CaptionForm1FrameNameFrame1Caption“ 字體 ”FrameNameFrame2Caption“效果 ”FrameNameFrame3Caption“顏色 ”O(jiān)ptionNameOption1Caption“宋體”O(jiān)ptionNameOption2Caption“黑體”CheckNameCheck1Caption“下劃線”CheckNameCheck2Caption“斜體”TextNameText1Text歡迎來到快樂度假村(3)編寫事件驅(qū)動代碼Private Sub combo1_click() Select Case Combo1.Text Case Black Text1.ForeColor = vbBlack Case Red Text1.ForeColor = vbRed Case Blue Text1.ForeColor = vbBlue Case Yellow Text1.ForeColor = vbYellow Case Green Text1.ForeColor = vbGreen End SelectEnd SubPrivate Sub option1_click() Text1.FontName = 宋體End SubPrivate Sub option2_click() Text1.FontName = 黑體End SubPrivate Sub option3_click() Text1.FontName = 華文行楷End SubPrivate Sub option4_click() Text1.FontName = 隸書End SubPrivate Sub check1_click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd SubPrivate Sub check2_click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub check3_click() If Check3.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Text1_Change()End Sub項目四 四季變換(1)建立可視用戶界面 在窗體上建立4個命令按鈕和1個圖片框(2)設(shè)置可視界面屬性對象屬性設(shè)置值窗體NameForm1Caption季節(jié)變化春天按鈕NameCommand1CaptionSpring夏天按鈕NameCommand2CaptionSummer秋天按鈕NameCommand3CaptionAutunm冬天按鈕NameCommand4CaptionWinter圖片框NamePicture1Caption空白(3)編寫事件驅(qū)動代碼Option ExplicitPrivate Sub Command1_Click()Picture1.Picture = LoadPicture(c.JPG)End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture(x.JPG)End SubPrivate Sub Command3_Click()Picture1.Picture = LoadPicture(q.JPG)End SubPrivate Sub Command4_Click()Picture1.Picture = LoadPicture(d.JPG)End Sub Private Sub Command5_Click()EndEnd SubPrivate Sub Picture1_Click()End Sub項目五 XXXXX訂購(1)建立可視用戶界面 在窗體上建立1個list，5個lable、4個text、3個命令按鈕(2)設(shè)置可視界面屬性對象屬性設(shè)置值窗體NameForm1CaptionForm1ListNameList1CaptionList1LableNameLable1Caption“品名”LableNameLable2Caption“單價”LableNameLable3Caption“數(shù)量”LableNameLable4Caption金額TextNameText1Caption空白TextNameText2Caption空白TextNameText3Caption空白TextNameText4Caption空白CommandNameCommand1Caption“確認(rèn)”CommandNameCommand2Caption“重新訂購”CommandNameCommand3Caption“結(jié)束”(3)編寫事件驅(qū)動代碼Dim meal(8), price(8)Dim total As IntegerPrivate Sub Command1_Click() m = Val(Text3.Text) Text4.Text = m * Val(Text2.Text) total = total + Val(Text4.Text) Label5.Caption = 總金額是 & total & 元End SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Label5.Caption = total = 0End SubPrivate Sub Command3_Click() EndEnd SubPrivate Sub Form_Load() meal(0) = 牛腩燴飯 meal(1) = 排骨飯 meal(2) = 宮爆雞丁炒飯 meal(3) = 菠蘿炒飯 meal(4) = 廣東炒飯 meal(5) = 紅燒牛肉面 meal(6) = 咸菜肉絲面 meal(7) = 魚香肉絲面 meal(8) = 菜心蘑菇面 price(0) = 10 price(1) = 10 price(2) = 10 price(3) = 8 price(4) = 8 price(5) = 10 price(6) = 5 price(7) = 8 price(8) = 8 For n = 0 To 8 List1.AddItem meal(n) Next n End SubPrivate Sub List1_Click() t = List1.ListIndex Text1.Text = meal(t) Text2.Text = price(t) Text3.Text = Text4.Text = Label5.Caption = Text3.SetFocusEnd Sub項目六 求組合數(shù)(1)建立可視用戶界面 (2)設(shè)置可視界面屬性對象屬性設(shè)置值窗體NameFrom1CaptionFrom1CommandNameCommand1Caption輸入數(shù)據(jù)CommandNameCommand2Caption排序LableNameLable1Caption最高分LableNameLable2Caption最低分TextNameText1，Text 2Caption空白CommandNameCommand3Caption顯示最高分CommandNameCommand4Caption顯示最低分(3)編寫事件驅(qū)動代碼Dim a(1 To 3) As Integer, b(1 To 3) As IntegerSub compare(x As Integer, y As Integer) Dim t As Integer If x 1 Then position = position - 1 display ElseIf position = 1 Then MsgBox 這是第一個記錄 End If End SubPrivate Sub Command3_Click() If position recordnumber Then position = position + 1 display ElseIf position = recordnumber Then msg$ = 這是最后一個記錄 + Chr$(13) + Chr$(10) msg$ = msg$ + 是否關(guān)閉文件？ reap = MsgBox(msg$, 36, 請選擇) reap = MsgBox(mag$, 36, 請選擇) If resp = 6 Then Close #1 End End If End IfEnd SubPrivate Sub Command4_Click() Dim rec As String Form2.Cls Form2.Show Form2.Print 姓名 單位 年齡 工資 Form2.Print For i = 1 To recordnumber Get #1, i, recordvar rec = rec & recordvar.EmName & & recordvar.Unit & & Str(recordvar.age) & & Str(recordvar.salary) & vbCrLf Next i Form2.Print rec End SubPrivate Sub Command5_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocusEnd SubPrivate Sub Command6_Click() flag = TrueEnd SubPrivat