1、本科實驗報告課程名稱： 人機界面程序設計基礎 實驗項目： 一、VB環境和可視化編程基礎 實驗地點： 多學科綜合樓 專業班級： 自動化0905 學號： 學生姓名： 閆海濤 指導教師： 李何 2012年 12 月 12 日一、實驗目的和要求1、掌握啟動與退出Visual Basic的方法。2、掌握建立、編輯和運行一個簡單的Visual Basic應用程序的全過程。3、掌握定義變量、常量的方法；了解運算符和表達式的使用；熟悉內部函數。4、掌握基本控件的應用。二、實驗內容和原理1、編寫一程序，在文本框中統計在該窗口上鼠標單擊的次數。提示：使用Form_Click事件；文本框計數Text1=Val(Te

2、xt1)+1。2、使用Print方法，掌握“，”和“；”的區別；以及Spc（n）函數、Tab(n)函數、屬性Current X和Current Y的定位輸出。3、編寫一程序，在標簽上實時顯示系統時間，系統時間要求00:00:00AM/PM格式提示：使用Timer控件、Format函數和Now函數。4、對教材上例4-13進行改動，用輸入框函數完成輸入，用消息框函數顯示結果。5、使用Len()函數、LenB()函數、Rnd函數和Randomize語句、Shell函數，并對運行結果進行分析。三、主要儀器設備 計算機四、實驗結果與分析Form1的界面編寫一程序，在文本框中統計在該窗口上鼠標單擊的次數。

3、程序 Private Sub Form_Click()Text1 = Val(Text1) + 1End Sub點擊一次后(2)點擊兩次后2. 使用Print方法，掌握“，”和“；”的區別；以及Spc（n）函數、Tab(n)函數、屬性Current X和Current Y的定位輸出(1)使用Print方法，掌握“，”和“；”的區別；程序：Private Sub Command2_Click()ClsPrint 末尾無符號 Print 末尾有, ,Print 末尾有; ;Print 結束 End Sub運行結果：分析：若print 后無“，”和“；”則換行若print 后“，”則空過一個Tab距

4、離若print后 “；”則緊接著輸出（2）Spc（n）函數、Tab(n)函數程序：Private Sub Command3_Click()ClsPrint 空過三個空格; Spc(3); 結束 End Sub運行結果：分析：語句空過3個空格（3）屬性Current X和Current Y的定位輸出。程序：Private Sub Command5_Click()ClsCurrentX = 1000CurrentY = 1000 Print 輸出位置1000,1000End Sub運行結果：分析：輸出位置為（1000,1000）3.編寫一程序，在標簽上實時顯示系統時間，系統時間要求00:00:00

5、AM/PM格式程序：Private Sub Timer1_Timer()Label2.Caption = Format(Time, tttttAM/PM)End Sub運行結果：4對教材上例4-13進行改動，用輸入框函數完成輸入，用消息框函數顯示結果。程序：Private Sub Form_Load()Label2.Caption = Format(Time, tttttAM/PM)Label3.Caption = 雞有2只腳，兔有4只腳，雞兔同籠。Label4.Caption = 設籠中雞和兔的總頭數為h，總腳數為f。Label5.Caption = 問籠中雞有多少只？兔有多少只？Comma

6、nd6.Caption = 輸入h和f的值End SubPrivate Sub Command6_Click() Dim h As Integer, f As Integer h = Val(InputBox(雞和兔的總頭數, 請輸入, 0) f = Val(InputBox(雞和兔的總腳數(偶數), 請輸入, 0) X = (4 * h - f) / 2 Y = (f - 2 * h) / 2 MsgBox 則籠中雞有 & X & 只，兔有 & Y & 只。End Sub運行結果：5使用Len()函數、LenB()函數、Rnd函數和Randomize語句、Shell函數，并對運行結果進行分析

7、。（1）Len()函數、LenB()函數程序：Private Sub Command7_Click()ClsPrint Len(歡迎使用VB)End SubPrivate Sub Command8_Click()ClsPrint LenB(歡迎使用VB)End Sub運行結果：Len()函數LenB()函數分析：Len()函數是測量字符串的長度，以字節為單位LenB()函數是測量字符串所占的字節數（2）Rnd函數和Randomize語句程序：Private Sub Command9_Click()Print Int(100 * Rnd)End SubPrivate Sub Command10_Click()RandomizePrint Int(100 * Rnd)End Sub