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

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

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

3、Visual Basic的安裝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= ”復(fù)制 =

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

5、mmand1_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的使用4、掌握 Prin

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

7、d3 的 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.TextEnd Sub五、實驗結(jié)果;.實

8、驗二VB語言基礎(chǔ)和順序結(jié)構(gòu);.一 、實驗?zāi)康?、掌握正確書寫表達式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握 InputBox與 MsgBox的使用4、掌握 Print和 Format 的使用二、 實驗環(huán)境VB6.0三、 實驗內(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 = ""End Sub2、繪制一

9、個label，label 的 border style 屬性為 1-fixed single3、繪制兩個command， command1 的 caption 命名為“產(chǎn)生” ； command2 的 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 = x Mod 10x2 = (x Mod 100) 10;.x3 = x

10、 100Label1 = x1 * 100 + x2 * 10 + x3End Sub五、實驗結(jié)果實驗三選擇結(jié)構(gòu)一、實驗?zāi)康?.1、 掌握邏輯表達式的正確書寫形式。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.Text = ""Text2.Text =

11、""Text3.Text = ""End Sub3、繪制兩個command， command1 的 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 = zEnd IfEnd SubCommand2 的 c

12、aption 為“清空”，并且編寫程序為;.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、command1 的程序代碼為Private Sub Command

13、1_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、command1 的程序代碼為Private Sub Command1_Click()Dim a As Singlea = InputBox(" 輸入一個三位數(shù)，判斷其

14、是否為水仙數(shù)", " 輸入三位數(shù) ")Dim b, c, d;.b = a Mod 10c = (a Mod 100) 10d = a 100If b 3 + c 3 + d 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. 一個富翁試圖與陌生人做一筆換錢生意，換錢規(guī)則為：陌

15、生人每天給富翁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ī)定一天只能考一門。且