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

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

2、caption輸入“你單擊窗體的次數(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è)置為“一號(hào)”五、實(shí)驗(yàn)結(jié)果VB程序設(shè)計(jì)實(shí)驗(yàn)單元一實(shí)驗(yàn)報(bào)告專業(yè)班級(jí)： 網(wǎng)媒1403班 姓名 凌紫怡 學(xué)號(hào) 201424050320 指導(dǎo)教師： 王自強(qiáng) 完成時(shí)間： 2015年3月21日星期六 實(shí)驗(yàn) 一VB環(huán)境和可視化編程基礎(chǔ)二、 實(shí)驗(yàn)?zāi)康? 了解Visual Basi

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

4、on輸入“復(fù)制效果”；label2的caption輸入“輸入文本”。2、繪制兩個(gè)text。Private Sub Text1_Click()Text1.Text = "VB功能強(qiáng)大，但要下功夫?qū)W習(xí)才能學(xué)好。"End SubPrivate Sub Text2_click()Text2.Text = ""End Sub3、以及兩個(gè)Command。Command1的caption輸入“隸書25磅”；Command2的caption輸入“復(fù)制=>”。Private Sub Command1_Click()Text1.FontName = "隸書&

5、quot;Text1.FontSize = "25"End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)二 VB語言基礎(chǔ)和順序結(jié)構(gòu)一 、實(shí)驗(yàn)?zāi)康?、掌握正確書寫表達(dá)式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握InputBox與MsgBox的使用4、掌握Print和Format的使用二、 實(shí)驗(yàn)環(huán)境 VB6.0三、 實(shí)驗(yàn)內(nèi)容1、輸入半徑的值，分別計(jì)算并輸

6、出圓的面積、圓的周長(zhǎng)和球的體積。四、實(shí)驗(yàn)步驟1、繪制一個(gè)label，caption為r。2、繪制四個(gè)text，編寫程序代碼為：Private Sub Text1_Change()Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub3、繪制三個(gè)command，command1的caption為“圓的面積”；command2的caption為“圓的周長(zhǎng)”；command3的caption為“圓的體積”。編寫程序代碼為：Private Sub Command1_Click()a = 3.1

7、4Text2.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五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)二 VB語言基礎(chǔ)和順序結(jié)構(gòu)一 、實(shí)驗(yàn)?zāi)康?、掌握正確書寫表達(dá)式、賦值語句的規(guī)則2、掌握常用函數(shù)的使用3、掌握InputBox與Msg

8、Box的使用4、掌握Print和Format的使用二、 實(shí)驗(yàn)環(huán)境 VB6.0三、 實(shí)驗(yàn)內(nèi)容2、隨機(jī)產(chǎn)生一個(gè)3位正整數(shù)，然后逆序輸出，產(chǎn)生的隨機(jī)數(shù)與逆序數(shù)同時(shí)顯示。例如735,輸出537.提示：利用“Mod”和“”將一個(gè)3位數(shù)分離出3個(gè)1位數(shù)，然后連接成一個(gè)逆序的3位數(shù)。四、實(shí)驗(yàn)步驟1、繪制一個(gè)text，并編寫程序代碼：Private Sub Text1_Change()Label1 = ""End Sub2、繪制一個(gè)label，label的border style屬性為1-fixed single3、繪制兩個(gè)command，command1的caption命名為“產(chǎn)生”；c

9、ommand2的caption命名為“逆序”并且編寫程序?yàn)椋篜rivate 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) 10x3 = x 100Label1 = x1 * 100 + x2 * 10 + x3End Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)三 選擇結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?、 掌握邏輯表達(dá)式的正確書寫形式。2、 掌握單分支與雙分支條件語

10、句的使用。3、 掌握多分支條件語句的使用。4、 掌握情況語句的使用及其與多分支條件語句之間的區(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 Sub3、繪制兩個(gè)command，command1的caption為“輸出最大值”并且編寫程序代碼為Private

11、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的caption為“清空”，并且編寫程序?yàn)镻rivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Te

12、xt = ""Text4.Text = ""End Sub五、實(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、command1的程序代碼為Private 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五、實(shí)驗(yàn)結(jié)果三、實(shí)驗(yàn)內(nèi)容3、 輸入一個(gè)三位數(shù)

13、，判斷是否為水仙數(shù)。水仙數(shù)的特點(diǎn)：個(gè)位數(shù)、十位數(shù)和百位數(shù)的立方和等于該數(shù)自身的數(shù)。四、實(shí)驗(yàn)步驟1、繪制一個(gè)command，它的caption為“判斷是否為水仙數(shù)”2、command1的程序代碼為Private Sub Command1_Click()Dim a As Singlea = InputBox("輸入一個(gè)三位數(shù)，判斷其是否為水仙數(shù)", "輸入三位數(shù)")Dim b, c, db = a Mod 10c = (a Mod 100) 10d = a 100If b 3 + c 3 + d 3 = a ThenPrint "是"El

14、sePrint "否"End IfEnd Sub五、實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?、 掌握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è)command，它的caption為“計(jì)算”，程序代碼為Pri

15、vate Sub Command1_Click()a = 100000s1 = a * 30Print "陌生人給富人的錢是：" s1n = 0.01s2 = 0For k = 1 To 30s2 = s2 + nn = 2 * nNext kPrint "富人給陌生人的錢是：" s2End Sub五、 實(shí)驗(yàn)結(jié)果實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)一、實(shí)驗(yàn)?zāi)康?、 掌握For語句的使用。5、 掌握Do語句的各種形式的使用。6、 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、實(shí)驗(yàn)環(huán)境 VB6.0三、實(shí)驗(yàn)內(nèi)容2. 用計(jì)算機(jī)安排考試日程。期末某專業(yè)在周一至周六的六天要考a,b,c三門課，考試順序?yàn)橄瓤糰,然后考b,最后考c,規(guī)定一天只能考一門。且c課只能安排