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

1、本科實(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、編寫一程序，在文本框中統(tǒng)計(jì)在該窗口上鼠標(biāo)單擊的次數(shù)。提示：使用Form_Click事件；文本框計(jì)數(shù)Text1=Val(Te

2、xt1)+1。2、使用Print方法，掌握“，”和“；”的區(qū)別；以及Spc（n）函數(shù)、Tab(n)函數(shù)、屬性Current X和Current Y的定位輸出。3、編寫一程序，在標(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的界面編寫一程序，在文本框中統(tǒng)計(jì)在該窗口上鼠標(biāo)單擊的次數(shù)。

3、程序 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é)束 End Sub運(yùn)行結(jié)果：分析：若print 后無(wú)“，”和“；”則換行若print 后“，”則空過(guò)一個(gè)Tab距

4、離若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 = 1000 Print 輸出位置1000,1000End Sub運(yùn)行結(jié)果：分析：輸出位置為（1000,1000）3.編寫一程序，在標(biāo)簽上實(shí)時(shí)顯示系統(tǒng)時(shí)間，系統(tǒng)時(shí)間要求00:00:00

5、AM/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, tttttAM/PM)Label3.Caption = 雞有2只腳，兔有4只腳，雞兔同籠。Label4.Caption = 設(shè)籠中雞和兔的總頭數(shù)為h，總腳數(shù)為f。Label5.Caption = 問(wèn)籠中雞有多少只？兔有多少只？Comma

6、nd6.Caption = 輸入h和f的值End SubPrivate Sub Command6_Click() Dim h As Integer, f As Integer h = Val(InputBox(雞和兔的總頭數(shù), 請(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)行分析

7、。（1）Len()函數(shù)、LenB()函數(shù)程序：Private 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