《VB程序設(shè)計》實驗單元一

1、VB程序設(shè)計實驗單元一實驗報告專業(yè)班級： 姓名 學(xué)號 指導(dǎo)教師：王自強 完成時問：2015年3月21日星期六實驗一 VB環(huán)境和可視化編程基礎(chǔ)1、 實驗?zāi)康? 了解 Visual Basic 的安裝2 掌握啟動與退出 Visual Basic3掌握建立、編輯和運行一個簡單應(yīng)用程序的全過程4掌握基本控件的使用二、實驗環(huán)境VB6.0三、實驗內(nèi)容1、編寫一程序，在文本框中統(tǒng)計在該窗口上鼠標(biāo)單擊的次數(shù)。提示：對窗口編寫兩個事件：Form_Load事件對文本框初值設(shè)為空；Form_Click事件對文本框計數(shù)。對文本框計數(shù)：Text1=Val(text1)+1 。四、實驗步驟1、繪制Label1的capti

2、on輸入"你單擊窗體的次數(shù)：”2、繪制text。編程為：Private Sub Form_Click()Text1.Text = Val(Text1.Text) + 1End SubPrivate Sub Form_Load()Text1.Text =""End Sub3、text 的 font size 設(shè)置為"一號" 五、實驗結(jié)果VB程序設(shè)計實驗單元一實驗報告專業(yè)班級：網(wǎng)媒1403班 姓名 凌紫怡 學(xué)號指導(dǎo)教師： 王自強完成時間：2015年3月21日星期六實驗一 VB環(huán)境和可視化編程基礎(chǔ)2、 實驗?zāi)康? 了解 Visual Basic 的安

3、裝2 掌握啟動與退出 Visual Basic3掌握建立、編輯和運行一個簡單應(yīng)用程序的全過程4掌握基本控件的使用二、實驗環(huán)境VB6.0三、實驗內(nèi)容2、命令按鈕、字號、內(nèi)容和格式的復(fù)制練習(xí)。按鈕1 :使得Text1中的文本按要求改變。按鈕2:將Text1中選定的文本復(fù)制到 Text2.控件名屬性Form1Caption="實驗 2"Label1復(fù)制文本Label2輸入文本Text1Text= "VB功能強大，但變下功夫?qū)W習(xí)才能學(xué)好。”Text2Text="”Command1Caption= " 隸書 25 磅”Command2Caption=&q

4、uot;復(fù)制=>"四、實驗步驟1、label1 的caption 輸入"復(fù)制效果"；label2 的caption 輸入“輸入文本”2、繪制兩個text 。Private Sub Text1_Click()Text1.Text = "VB 功能強大，但要下功夫?qū)W習(xí)才能學(xué)好?！盓nd SubPrivate Sub Text2_click()Text2.Text = ""End Sub3、以及兩個 Command Command的caption 輸入“隸書 25磅“；Commande勺caption 輸入“復(fù)制 =>”。Pri

5、vate Sub Command1_Click()Text1.FontName = " 隸書 "Text1.FontSize = "25"End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub五、實驗結(jié)果實驗二 VB 語言基礎(chǔ)和順序結(jié)構(gòu)一 、實驗?zāi)康?、掌握正確書寫表達式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握InputBox與MsgBox的使用

6、4、掌握Print 和 Format 的使用2、 實驗環(huán)境VB6.03、 實驗內(nèi)容1、輸入半徑的值，分別計算并輸出圓的面積、圓的周長和球的體積。四、實驗步驟1、繪制一個label ， caption 為 r 。2、繪制四個text ，編寫程序代碼為：Private Sub Text1_Change()Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub3、繪制三個 command commandl的 caption 為"圓的面積”；command2勺caption 為&qu

7、ot;圓的周長"； command3勺caption 為“圓的體積”。編寫程序代碼為：Private Sub Command1_Click()a = 3.14Text2.Text = a * Text1.Text * Text1.TextEnd SubPrivate Sub Command2_Click()a = 3.14Text3.Text = 2 * a * Text1.TextEnd SubPrivate Sub Command3_Click()a = 3.14Text4.Text = 4 / 3 * a * Text1.Text * Text1.Text * Text1.Te

8、xtEnd Sub五、實驗結(jié)果實驗二 VB 語言基礎(chǔ)和順序結(jié)構(gòu)一 、實驗?zāi)康?、掌握正確書寫表達式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握InputBox與MsgBox的使用4、掌握Print 和 Format 的使用2、 實驗環(huán)境VB6.03、 實驗內(nèi)容2、隨機產(chǎn)生一個3 位正整數(shù)，然后逆序輸出，產(chǎn)生的隨機數(shù)與逆序數(shù)同時顯示。例如 735, 輸出 537.提示：利用“ Mod'和“"將一個3位數(shù)分離出3個1位數(shù)，然后連接成一個逆序的3位數(shù)。四、實驗步驟1、繪制一個text ，并編寫程序代碼：Private Sub Text1_Change()Label1 = &quo

9、t;"End Sub2、繪制一個label ， label 的 border style 屬性為 1-fixed single3、繪制兩個 command commandl的caption 命名為"產(chǎn)生"；command/caption 命名為"逆序"并且編寫程序為：Private Sub Command1_Click()Text1.Text = Int(Rnd * 900 + 100)End SubPrivate Sub Command2_Click()Dim x%, x1%, x2%, x3%x = Val(Text1.Text)x1 =

10、x Mod 10x2 = (x Mod 100) 10x3 = x 100Label1 = x1 * 100 + x2 * 10 + x3End Sub五、實驗結(jié)果實驗三 選擇結(jié)構(gòu)一、實驗?zāi)康?、 掌握邏輯表達式的正確書寫形式。2、 掌握單分支與雙分支條件語句的使用。3、 掌握多分支條件語句的使用。4、 掌握情況語句的使用及其與多分支條件語句之間的區(qū)別 。二、實驗環(huán)境VB6.0、實驗內(nèi)容1、 輸入3 個整數(shù)，輸出最大的數(shù)。四、實驗步驟1、繪制一個label ，它的caption 是“輸入三個整數(shù)”2、繪制四個text ，并且編寫程序代碼為Private Sub Form_Load()Text1

11、.Text = ""Text2.Text = ""Text3.Text = ""End Sub3、繪制兩個command commandl的caption為“輸出最大值”并且編寫程序代碼為Private Sub Command1_Click()x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)If x > y And x > z ThenText4.Text = xElseIf y > z ThenText4.Text = yElseText4.Text

12、 = zEnd IfEnd SubCommand的caption為"清空”，并且編寫程序為Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub五、實驗結(jié)果三、實驗內(nèi)容2、 輸出 150-200 的能被 7 但不能被 3 整除的數(shù)。四、實驗步驟1、繪制一個command它的caption為“輸出150-200的能被7但不能被3整除的數(shù)”2、commandl的程序代碼為Pr

13、ivate Sub Command1_Click()Dim a As IntegerFor a = 150 To 200If a Mod 7 = 0 And a Mod 3 > 0 Then Print aNext aEnd Sub五、實驗結(jié)果三、實驗內(nèi)容3、 輸入一個三位數(shù)，判斷是否為水仙數(shù)。水仙數(shù)的特點：個位數(shù)、十位數(shù)和百位數(shù)的立方和等于該數(shù)自身的數(shù)。四、實驗步驟1、繪制一個command它的caption為“判斷是否為水仙數(shù)”2、commandl的程序代碼為Private Sub Command1_Click()Dim a As Singlea = InputBox("

14、輸入一個三位數(shù)，判斷其是否為水仙數(shù)", " 輸入三位數(shù)")Dim b, c, db = a Mod 10c = (a Mod 100) 10d = a 100If b A 3 + c A 3 + d A 3 = a ThenPrint " 是"ElsePrint " 否"End IfEnd Sub五、實驗結(jié)果實驗四 循環(huán)結(jié)構(gòu)一、實驗?zāi)康?、 掌握 For 語句的使用。2、掌握Do語句的各種形式的使用。3、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、實驗環(huán)境VB6.0三、實驗內(nèi)容1. 一個富翁試圖與陌生人做一筆換錢生意，換

15、錢規(guī)則為：陌生人每天給富翁 10 萬元錢，直到滿一個月(30天)；而富翁第一天給陌生人1分錢，第二天2分，第三天4分，富翁每天給陌生人的前是前一天的兩倍，直到滿一個月。分別顯示富翁給陌生人的錢和陌生人給富翁的錢為多少？四、實驗步驟1、繪制一個command它的caption為"計算"，程序代碼為Private Sub Command1_Click()a = 100000s1 = a * 30Print " 陌生人給富人的錢是： " s1n = 0.01s2 = 0For k = 1 To 30s2 = s2 + nn = 2 * nNext kPrint " 富人給陌生人的錢是： " s2End Sub五、 實 驗結(jié)果實驗四循環(huán)結(jié)構(gòu)一、實驗?zāi)康?、 掌握 For 語句的使用。5、掌握Do語句的各種形式的使用。6、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、實驗環(huán)境VB6.0三、實驗內(nèi)容2. 用計算機安排考試日程。期末某專業(yè)在周一至周六的六天要考a,b,c 三門課，考試順序為先考 a, 然后考 b, 最后考 c, 規(guī)定一