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

《《VB程序設(shè)計》實驗單元一》由會員分享，可在線閱讀，更多相關(guān)《《VB程序設(shè)計》實驗單元一（10頁珍藏版）》請在裝配圖網(wǎng)上搜索。

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

2、l(text1)+1 。 四、實驗步驟 1、繪制Label1的caption輸入"你單擊窗體的次數(shù)：” 2、繪制text。編程為： Private Sub Form_Click() Text1.Text = Val(Text1.Text) + 1 End Sub Private Sub Form_Load() Text1.Text ="" End Sub 3、text 的 font size 設(shè)置為"一號" 五、實驗結(jié)果 《VB程序設(shè)計》實驗單元一 實驗報告 專業(yè)班級： 網(wǎng)媒1403班 姓名 凌紫怡 學(xué)號指導(dǎo)教師： 王自 強—完成時間：2015年3月21日星期六—

3、 實驗一 VB環(huán)境和可視化編程基礎(chǔ) 2、 實驗?zāi)康? 1 了解 Visual Basic 的安裝 2 掌握啟動與退出 Visual Basic 3掌握建立、編輯和運行一個簡單應(yīng)用程序的全過程 4掌握基本控件的使用 二、實驗環(huán)境 VB6.0 三、實驗內(nèi)容 2、命令按鈕、字號、內(nèi)容和格式的復(fù)制練習(xí)。 按鈕1 :使得Text1中的文本按要求改變。 按鈕2:將Text1中選定的文本復(fù)制到 Text2. 控件名 屬性 Form1 Caption="實驗 2" Label1 復(fù)制文本 Label2 輸入文本 Text1 Text= "VB功能強大，但變下功夫?qū)W習(xí)才能

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

5、Command的caption 輸入“隸書 25磅“；Commande勺caption 輸入“復(fù)制 =>”。 Private Sub Command1_Click() Text1.FontName = " 隸書 " Text1.FontSize = "25" End Sub Private Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub 五、實驗結(jié)果 實驗二 VB 語言基礎(chǔ)和順序結(jié)構(gòu)

6、 一 、實驗?zāi)康? 1、掌握正確書寫表達式、賦值語句的規(guī)則 2、掌握常用函數(shù)的使用 3、掌握InputBox與MsgBox的使用 4、掌握 Print 和 Format 的使用 2、 實驗環(huán)境 VB6.0 3、 實驗內(nèi)容 1、輸入半徑的值，分別計算并輸出圓的面積、圓的周長和球的體積。 四、實驗步驟 1、繪制一個 label ， caption 為 r 。 2、繪制四個 text ，編寫程序代碼為： Private Sub Text1_Change() Text2.Text = "" Text3.Text = "" Text4.Text = "" End Su

7、b 3、繪制三個 command commandl的 caption 為"圓的面積”；command2勺caption 為"圓的周長"； command3勺caption 為“圓的體積”。 編寫程序代碼為： Private Sub Command1_Click() a = 3.14 Text2.Text = a * Text1.Text * Text1.Text End Sub Private Sub Command2_Click() a = 3.14 Text3.Text = 2 * a * Text1.Text End Sub Private Sub Command3

8、_Click() a = 3.14 Text4.Text = 4 / 3 * a * Text1.Text * Text1.Text * Text1.Text End Sub 五、實驗結(jié)果 實驗二 VB 語言基礎(chǔ)和順序結(jié)構(gòu) 一 、實驗?zāi)康? 1、掌握正確書寫表達式、賦值語句的規(guī)則 2、掌握常用函數(shù)的使用 3、掌握InputBox與MsgBox的使用 4、掌握 Print 和 Format 的使用 2、 實驗環(huán)境 VB6.0 3、 實驗內(nèi)容 2、隨機產(chǎn)生一個 3 位正整數(shù)，然后逆序輸出，產(chǎn)生的隨機數(shù)與逆序數(shù)同時顯示。例如 735, 輸 出 537. 提示：利用“ M

9、od和“"將一個3位數(shù)分離出3個1位數(shù)，然后連接成一個逆序的 3位數(shù)。 四、實驗步驟 1、繪制一個 text ，并編寫程序代碼： Private Sub Text1_Change() Label1 = "" End Sub 2、繪制一個 label ， label 的 border style 屬性為 1-fixed single 3、繪制兩個 command commandl的caption 命名為"產(chǎn)生"；command/caption 命名為"逆序" 并且編寫程序為： Private Sub Command1_Click() Text1.Text = Int(Rnd

10、* 900 + 100) End Sub Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1.Text) x1 = x Mod 10 x2 = (x Mod 100) \ 10 x3 = x \ 100 Label1 = x1 * 100 + x2 * 10 + x3 End Sub 五、實驗結(jié)果 實驗三 選擇結(jié)構(gòu) 一、實驗?zāi)康? 1、 掌握邏輯表達式的正確書寫形式。 2、 掌握單分支與雙分支條件語句的使用。 3、 掌握多分支條件語句的使用。 4、 掌握情況語句的使用及其與多分支條件語句

11、之間的區(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 = "" Text3.Text = "" End Sub 3、繪制兩個command commandl的caption為“輸出最大值”并且編寫程序代碼為 Private Sub Command1_Click() x = Val(Text1.

12、Text) y = Val(Text2.Text) z = Val(Text3.Text) If x > y And x > z Then Text4.Text = x ElseIf y > z Then Text4.Text = y Else Text4.Text = z End If End Sub Command的caption為"清空”，并且編寫程序為 Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub

13、 五、實驗結(jié)果 三、實驗內(nèi)容 2、 輸出 150-200 的能被 7 但不能被 3 整除的數(shù)。 四、實驗步驟 1、繪制一個command它的caption為“輸出150-200的能被7但不能被3整除的數(shù)” 2、commandl的程序代碼為 Private Sub Command1_Click() Dim a As Integer For a = 150 To 200 If a Mod 7 = 0 And a Mod 3 > 0 Then Print a Next a End Sub 五、實驗結(jié)果 三、實驗內(nèi)容 3、 輸入一個三位數(shù)，判斷是否為水仙數(shù)。水仙數(shù)的特點

14、：個位數(shù)、十位數(shù)和百位數(shù)的立方和 等于該數(shù)自身的數(shù)。 四、實驗步驟 1、繪制一個command它的caption為“判斷是否為‘水仙數(shù)‘” 2、commandl的程序代碼為 Private Sub Command1_Click() Dim a As Single a = InputBox(" 輸入一個三位數(shù)，判斷其是否為水仙數(shù) ", " 輸入三位數(shù) ") Dim b, c, d b = a Mod 10 c = (a Mod 100) \ 10 d = a \ 100 If b A 3 + c A 3 + d A 3 = a Then Print " 是" Else

15、 Print " 否" End If End Sub 五、實驗結(jié)果 實驗四 循環(huán)結(jié)構(gòu) 一、實驗?zāi)康? 1、 掌握 For 語句的使用。 2、掌握Do語句的各種形式的使用。 3、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。 二、實驗環(huán)境 VB6.0 三、實驗內(nèi)容 1. 一個富翁試圖與陌生人做一筆換錢生意，換錢規(guī)則為：陌生人每天給富翁 10 萬元錢，直 到滿一個月(30天)；而富翁第一天給陌生人1分錢，第二天2分，第三天4分……，富翁每天給 陌生人的前是前一天的兩倍，直到滿一個月。分別顯示富翁給陌生人的錢和陌生人給富翁的錢為多 少？ 四、實驗步驟 1、繪制一個co

16、mmand它的caption為"計算"，程序代碼為 Private Sub Command1_Click() a = 100000 s1 = a * 30 Print " 陌生人給富人的錢是： "; s1 n = 0.01 s2 = 0 For k = 1 To 30 s2 = s2 + n n = 2 * n Next k Print " 富人給陌生人的錢是： "; s2 End Sub 五、 實 驗結(jié)果 實驗四 循環(huán)結(jié)構(gòu) 一、實驗?zāi)康? 4、 掌握 For 語句的使用。 5、掌握Do語句的各種形式的使用。 6、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。

17、 二、實驗環(huán)境 VB6.0 三、實驗內(nèi)容 2. 用計算機安排考試日程。期末某專業(yè)在周一至周六的六天要考 a,b,c 三門課，考試順序為 先考 a, 然后考 b, 最后考 c, 規(guī)定一天只能考一門。且 c 課只能安排在周五或周六考。編寫程序安排 考試日程，要求列出滿足條件的所有方案。 四、實驗步驟 1、繪制一個command它的caption設(shè)為“安排考試日程”，并且程序編寫為： For i = 1 To 6 For j = 1 To 6 For l = 5 To 6 If i < j And j < l Then Print "a"; i, "b"; j, "c"; l Next l Next j Next i 五、 實驗結(jié)果