VB實(shí)驗(yàn)報(bào)告一

1、精選優(yōu)質(zhì)文檔-傾情為你奉上本科實(shí)驗(yàn)報(bào)告課程名稱： 人機(jī)界面程序設(shè)計(jì)基礎(chǔ) 實(shí)驗(yàn)項(xiàng)目： 一、VB環(huán)境和可視化編程基礎(chǔ) 實(shí)驗(yàn)地點(diǎn)： 多學(xué)科綜合樓 專業(yè)班級(jí)： 自動(dòng)化0905 學(xué)號(hào)： 學(xué)生姓名： 閆海濤 指導(dǎo)教師： 李何 2012年 12 月 12 日一、實(shí)驗(yàn)?zāi)康暮鸵?、掌握啟動(dòng)與退出Visual Basic的方法。2、掌握建立、編輯和運(yùn)行一個(gè)簡(jiǎn)單的Visual Basic應(yīng)用程序的全過(guò)程。3、掌握定義變量、常量的方法；了解運(yùn)算符和表達(dá)式的使用；熟悉內(nèi)部函數(shù)。4、掌握基本控件的應(yīng)用。二、實(shí)驗(yàn)內(nèi)容和原理1、編寫(xiě)一程序，在文本框中統(tǒng)計(jì)在該窗口上鼠標(biāo)單擊的次數(shù)。提示：使用Form_Click事件；文本框計(jì)

2、數(shù)Text1=Val(Text1)+1。2、使用Print方法，掌握“，”和“；”的區(qū)別；以及Spc（n）函數(shù)、Tab(n)函數(shù)、屬性Current X和Current Y的定位輸出。3、編寫(xiě)一程序，在標(biāo)簽上實(shí)時(shí)顯示系統(tǒng)時(shí)間，系統(tǒng)時(shí)間要求00:00:00AM/PM格式提示：使用Timer控件、Format函數(shù)和Now函數(shù)。4、對(duì)教材上例4-13進(jìn)行改動(dòng)，用輸入框函數(shù)完成輸入，用消息框函數(shù)顯示結(jié)果。5、使用Len()函數(shù)、LenB()函數(shù)、Rnd函數(shù)和Randomize語(yǔ)句、Shell函數(shù)，并對(duì)運(yùn)行結(jié)果進(jìn)行分析。三、主要儀器設(shè)備 計(jì)算機(jī)四、實(shí)驗(yàn)結(jié)果與分析Form1的界面編寫(xiě)一程序，在文本框中統(tǒng)計(jì)

3、在該窗口上鼠標(biāo)單擊的次數(shù)。程序 Private Sub Form_Click()Text1 = Val(Text1) + 1End Sub點(diǎn)擊一次后(2)點(diǎn)擊兩次后2. 使用Print方法，掌握“，”和“；”的區(qū)別；以及Spc（n）函數(shù)、Tab(n)函數(shù)、屬性Current X和Current Y的定位輸出(1)使用Print方法，掌握“，”和“；”的區(qū)別；程序：Private Sub Command2_Click()ClsPrint "末尾無(wú)符號(hào) "Print "末尾有, ",Print "末尾有; "Print "結(jié)束

4、"End Sub運(yùn)行結(jié)果：分析：若print 后 無(wú)“，”和“；”則換行若print 后“，”則空過(guò)一個(gè)Tab距離若print后 “；”則緊接著輸出（2）Spc（n）函數(shù)、Tab(n)函數(shù)程序：Private Sub Command3_Click()ClsPrint "空過(guò)三個(gè)空格" Spc(3); "結(jié)束 "End Sub運(yùn)行結(jié)果：分析：語(yǔ)句空過(guò)3個(gè)空格（3）屬性Current X和Current Y的定位輸出。程序：Private Sub Command5_Click()ClsCurrentX = 1000CurrentY = 1

5、000 Print "輸出位置1000,1000"End Sub運(yùn)行結(jié)果：分析：輸出位置為（1000,1000）3.編寫(xiě)一程序，在標(biāo)簽上實(shí)時(shí)顯示系統(tǒng)時(shí)間，系統(tǒng)時(shí)間要求00:00:00AM/PM格式程序：Private Sub Timer1_Timer()Label2.Caption = Format(Time, "tttttAM/PM")End Sub運(yùn)行結(jié)果：4對(duì)教材上例4-13進(jìn)行改動(dòng)，用輸入框函數(shù)完成輸入，用消息框函數(shù)顯示結(jié)果。程序：Private Sub Form_Load()Label2.Caption = Format(Time, "

6、;tttttAM/PM")Label3.Caption = "雞有2只腳，兔有4只腳，雞兔同籠。"Label4.Caption = "設(shè)籠中雞和兔的總頭數(shù)為h，總腳數(shù)為f。"Label5.Caption = "問(wèn)籠中雞有多少只？兔有多少只？"Command6.Caption = "輸入h和f的值"End SubPrivate Sub Command6_Click() Dim h As Integer, f As Integer h = Val(InputBox("雞和兔的總頭數(shù)", &

7、quot;請(qǐng)輸入", 0) f = Val(InputBox("雞和兔的總腳數(shù)(偶數(shù))", "請(qǐng)輸入", 0) X = (4 * h - f) / 2 Y = (f - 2 * h) / 2 MsgBox " 則籠中雞有" & X & "只，兔有" & Y & "只。"End Sub運(yùn)行結(jié)果：5使用Len()函數(shù)、LenB()函數(shù)、Rnd函數(shù)和Randomize語(yǔ)句、Shell函數(shù)，并對(duì)運(yùn)行結(jié)果進(jìn)行分析。（1）Len()函數(shù)、LenB()函數(shù)程序：Pri

8、vate Sub Command7_Click()ClsPrint Len("歡迎使用VB")End SubPrivate Sub Command8_Click()ClsPrint LenB("歡迎使用VB")End Sub運(yùn)行結(jié)果：Len()函數(shù)LenB()函數(shù)分析：Len()函數(shù)是測(cè)量字符串的長(zhǎng)度，以字節(jié)為單位LenB()函數(shù)是測(cè)量字符串所占的字節(jié)數(shù)（2）Rnd函數(shù)和Randomize語(yǔ)句程序：Private Sub Command9_Click()Print Int(100 * Rnd)End SubPrivate Sub Command10_Click()RandomizePrint Int(100 * Rnd)End Sub運(yùn)行結(jié)果