《VB程序設(shè)計(jì)》實(shí)驗(yàn)單元一

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

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

2、l(text1)+1 。 四、實(shí)驗(yàn)步驟 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è)置為"一號" 五、實(shí)驗(yàn)結(jié)果 《VB程序設(shè)計(jì)》實(shí)驗(yàn)單元一 實(shí)驗(yàn)報(bào)告 專業(yè)班級： 網(wǎng)媒1403班 姓名 凌紫怡 學(xué)號指導(dǎo)教師： 王自 強(qiáng)—完成時(shí)間：2015年3月21日星期六—

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

4、 學(xué)好?！? Text2 Text="” Command1 Caption= " 隸書 25 磅” Command2 Caption="復(fù)制=>" 四、實(shí)驗(yàn)步驟 1、label1 的caption 輸入"復(fù)制效果"；label2 的caption 輸入“輸入文本” 2、繪制兩個(gè)text 。 Private Sub Text1_Click() Text1.Text = "VB 功能強(qiáng)大，但要下功夫?qū)W習(xí)才能學(xué)好。 ” End Sub Private Sub Text2_click() Text2.Text = "" End Sub 3、以及兩個(gè) 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 五、實(shí)驗(yàn)結(jié)果 實(shí)驗(yàn)二 VB 語言基礎(chǔ)和順序結(jié)構(gòu)

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

7、b 3、繪制三個(gè) 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 五、實(shí)驗(yàn)結(jié)果 實(shí)驗(yàn)二 VB 語言基礎(chǔ)和順序結(jié)構(gòu) 一 、實(shí)驗(yàn)?zāi)康? 1、掌握正確書寫表達(dá)式、賦值語句的規(guī)則 2、掌握常用函數(shù)的使用 3、掌握InputBox與MsgBox的使用 4、掌握 Print 和 Format 的使用 2、 實(shí)驗(yàn)環(huán)境 VB6.0 3、 實(shí)驗(yàn)內(nèi)容 2、隨機(jī)產(chǎn)生一個(gè) 3 位正整數(shù)，然后逆序輸出，產(chǎn)生的隨機(jī)數(shù)與逆序數(shù)同時(shí)顯示。例如 735, 輸 出 537. 提示：利用“ M

9、od和“"將一個(gè)3位數(shù)分離出3個(gè)1位數(shù)，然后連接成一個(gè)逆序的 3位數(shù)。 四、實(shí)驗(yàn)步驟 1、繪制一個(gè) text ，并編寫程序代碼： Private Sub Text1_Change() Label1 = "" End Sub 2、繪制一個(gè) label ， label 的 border style 屬性為 1-fixed single 3、繪制兩個(gè) command commandl的caption 命名為"產(chǎn)生"；command/caption 命名為"逆序" 并且編寫程序?yàn)椋? 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 五、實(shí)驗(yàn)結(jié)果 實(shí)驗(yàn)三 選擇結(jié)構(gòu) 一、實(shí)驗(yàn)?zāi)康? 1、 掌握邏輯表達(dá)式的正確書寫形式。 2、 掌握單分支與雙分支條件語句的使用。 3、 掌握多分支條件語句的使用。 4、 掌握情況語句的使用及其與多分支條件語句

11、之間的區(qū)別 。 二、實(shí)驗(yàn)環(huán)境 VB6.0 、實(shí)驗(yàn)內(nèi)容 1、 輸入 3 個(gè)整數(shù)，輸出最大的數(shù)。 四、實(shí)驗(yàn)步驟 1、繪制一個(gè) label ，它的 caption 是“輸入三個(gè)整數(shù)” 2、繪制四個(gè) text ，并且編寫程序代碼為 Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub 3、繪制兩個(gè)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為"清空”，并且編寫程序?yàn)? Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub

13、 五、實(shí)驗(yàn)結(jié)果 三、實(shí)驗(yàn)內(nèi)容 2、 輸出 150-200 的能被 7 但不能被 3 整除的數(shù)。 四、實(shí)驗(yàn)步驟 1、繪制一個(gè)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 五、實(shí)驗(yàn)結(jié)果 三、實(shí)驗(yàn)內(nèi)容 3、 輸入一個(gè)三位數(shù)，判斷是否為水仙數(shù)。水仙數(shù)的特點(diǎn)

14、：個(gè)位數(shù)、十位數(shù)和百位數(shù)的立方和 等于該數(shù)自身的數(shù)。 四、實(shí)驗(yàn)步驟 1、繪制一個(gè)command它的caption為“判斷是否為‘水仙數(shù)‘” 2、commandl的程序代碼為 Private Sub Command1_Click() Dim a As Single a = InputBox(" 輸入一個(gè)三位數(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 五、實(shí)驗(yàn)結(jié)果 實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu) 一、實(shí)驗(yàn)?zāi)康? 1、 掌握 For 語句的使用。 2、掌握Do語句的各種形式的使用。 3、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。 二、實(shí)驗(yàn)環(huán)境 VB6.0 三、實(shí)驗(yàn)內(nèi)容 1. 一個(gè)富翁試圖與陌生人做一筆換錢生意，換錢規(guī)則為：陌生人每天給富翁 10 萬元錢，直 到滿一個(gè)月(30天)；而富翁第一天給陌生人1分錢，第二天2分，第三天4分……，富翁每天給 陌生人的前是前一天的兩倍，直到滿一個(gè)月。分別顯示富翁給陌生人的錢和陌生人給富翁的錢為多 少？ 四、實(shí)驗(yàn)步驟 1、繪制一個(gè)co

16、mmand它的caption為"計(jì)算"，程序代碼為 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 五、 實(shí) 驗(yàn)結(jié)果 實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu) 一、實(shí)驗(yàn)?zāi)康? 4、 掌握 For 語句的使用。 5、掌握Do語句的各種形式的使用。 6、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。

17、 二、實(shí)驗(yàn)環(huán)境 VB6.0 三、實(shí)驗(yàn)內(nèi)容 2. 用計(jì)算機(jī)安排考試日程。期末某專業(yè)在周一至周六的六天要考 a,b,c 三門課，考試順序?yàn)? 先考 a, 然后考 b, 最后考 c, 規(guī)定一天只能考一門。且 c 課只能安排在周五或周六考。編寫程序安排 考試日程，要求列出滿足條件的所有方案。 四、實(shí)驗(yàn)步驟 1、繪制一個(gè)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 五、 實(shí)驗(yàn)結(jié)果