1、XIAN TECHNOLOGICAL UNIVERSITY實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)課程名稱 可視化程序設(shè)計(jì) 專 業(yè)： 信息管理與信息系統(tǒng) 成 績： 2015 年 4 月 20 日西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2015年3月22日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目熟悉VB的開發(fā)環(huán)境，程序設(shè)計(jì)的基本步驟實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professio

2、nal,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)驗(yàn)?zāi)康?（1）熟悉Visual Basic 6.0集成開發(fā)環(huán)境。 （2）學(xué)習(xí)怎樣啟動和退出VB （3）掌握開發(fā)一個簡單程序的基本步驟。 （4）掌握簡單代碼的編寫。 二、實(shí)驗(yàn)內(nèi)容 （1）啟動和退出VB （2）開發(fā)一個簡單程序。 （3）將Visual Basic工程編譯生成可執(zhí)行文件。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理1、啟動和退出VB <1>進(jìn)入VB集成開發(fā)環(huán)境 要進(jìn)入VB應(yīng)用程序，首先要運(yùn)行VB的集成開發(fā)環(huán)境。啟動VB的方法如下： 方法1 單擊任務(wù)欄上的“開始”按鈕； 選擇“程序”文件夾，接著選取“Microsoft

3、Visual Basic 6.0中文版”文件夾，再選取“Microsoft Visual Basic 6.0中文版”項(xiàng)，如圖1-1所示；圖1-1 啟動VB的方法1 單擊鼠標(biāo)左鍵。 方法2 單擊任務(wù)欄上的“開始”按鈕； 選擇“程序”文件夾； 使用“Windows 資源按理器”查找VB可執(zhí)行文件 VB6.exe； 雙擊圖標(biāo)。 方法3 在桌面創(chuàng)建一個VB快捷鍵； 雙擊該快捷鍵。VB啟動后，出現(xiàn)VB6.0的“新建工程”對話框（圖-2）單擊“打開”按鈕，帶有一個窗體的新工程將被創(chuàng)建，并可以看到VB集成開發(fā)環(huán)境的界面，如圖1-3所示。有的系統(tǒng)啟動后可直接進(jìn)入圖1-3所示的界面。圖1-2 VB6.0的“新建

4、工程”對話框 圖1-3 VB的集成開發(fā)環(huán)境窗口<2>退出VB方法：（1） 單擊主窗口右上角的“關(guān)閉”按鈕。（2） 執(zhí)行“文件”菜單中的“退出”命令。（3） 按Alt+Q鍵。2、開發(fā)一個簡單程序要求：新建一工程，在窗體（Form）上添加一個標(biāo)簽（Label），當(dāng)單擊窗體時(shí)標(biāo)簽（Label）顯示“床前明月光”。實(shí)驗(yàn)步驟：（1）新建工程在桌面上雙擊Microsoft Visual Basic 6.0快捷方式圖標(biāo)，系統(tǒng)進(jìn)入Visual Basic6.0集成開發(fā)環(huán)境，并顯示“新建工程”對話框，默認(rèn)選擇是建立“標(biāo)準(zhǔn)EXE”（即標(biāo)準(zhǔn)工程）。單擊“打開”按鈕，Visual Basic 6.0進(jìn)入設(shè)

5、計(jì)模式。如圖14所示。圖14“新建工程”對話框單擊“文件”菜單，選擇“新建工程”菜單項(xiàng)，也可進(jìn)入設(shè)計(jì)模式。（2）設(shè)計(jì)界面在系統(tǒng)提供的名為Form1的窗體上進(jìn)行界面設(shè)計(jì)。單擊工具箱上的標(biāo)簽（Label）控件，在窗體上添加標(biāo)簽的位置處按下鼠標(biāo)左鍵，并拖動，調(diào)整虛框的大小，松開鼠標(biāo)，就將標(biāo)簽控件添加到窗體上。初始界面如圖15所示。圖15初始界面（3）設(shè)置屬性如表11所示。表11 屬性設(shè)置對象屬性屬性值Form1Caption我的第一個VB程序Label1Caption 設(shè)置屬性后的界面如圖16所示。  圖16設(shè)置屬性后的界面 圖17第一個程序（4）編寫程序代碼Private Su

6、b Form_Click( )Label1.Caption = "床前明月光"End Sub（5）運(yùn)行程序運(yùn)行VB程序有三種方法：單擊工具欄上的“啟動”按鈕；從“運(yùn)行”菜單中選擇“啟動”菜單項(xiàng)；按F5鍵。例如，單擊工具欄上的“啟動”按鈕運(yùn)行程序后，單擊窗體，程序運(yùn)行效果如圖17所示。（6）保存程序單擊工具欄中的“保存”按鈕或單擊“文件”菜單中的“保存工程”菜單項(xiàng)，選擇合適的保存路徑，先保存窗體文件（例如窗體文件名為“實(shí)驗(yàn)一.frm”），然后保存工程文件（例如工程文件名為“實(shí)驗(yàn)一.vbp”）。3、將Visual Basic工程編譯生成可執(zhí)行文件單擊“文件”菜單中的“生成實(shí)驗(yàn)一

7、.exe”菜單項(xiàng)，就可生成可執(zhí)行的.exe文件。退出Visual Basic集成開發(fā)環(huán)境，雙擊實(shí)驗(yàn)一.exe文件，則實(shí)驗(yàn)一.exe文件就可直接運(yùn)行。四、實(shí)驗(yàn)心得通過這次實(shí)驗(yàn)，我熟悉了Visual Basic 6.0集成開發(fā)環(huán)境。能夠熟練地啟動和退出VB，掌握了開發(fā)一個簡單程序的基本步驟和簡單代碼的編寫。 專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2015年3月22日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目常用基本控件使用實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由

8、空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告一、實(shí)驗(yàn)?zāi)康?（1）掌握命令按鈕、文本框和標(biāo)簽常用屬性值的設(shè)置方法。 （2）學(xué)會使用命令按鈕、文本框和標(biāo)簽在窗體上建立用戶界面的方法。 （3）掌握命令按鈕的主要事件的使用。二、實(shí)驗(yàn)內(nèi)容 （1）利用命令按鈕、文本框和標(biāo)簽判斷密碼是否正確。 （2）建立應(yīng)用程序，對兩個文本框中輸入的內(nèi)容進(jìn)行交換。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理1 實(shí)驗(yàn)內(nèi)容要求: 在文本框中輸入“goodbaby”，然后單擊“登錄”命令按鈕，則在標(biāo)簽Labe

9、l2中顯示“歡迎使用本系統(tǒng)！”；在文本框中輸入“abc”，然后單擊“登錄”命令按鈕，則在標(biāo)簽Label2中顯示“密碼錯誤！請重新輸入密碼！”。 步驟：（1）設(shè)計(jì)界面在窗體上添加兩個標(biāo)簽、一個文本框和兩個命令按鈕。初始界面如圖21所示。 圖21初始界面 圖22 設(shè)置屬性后的界面（2）設(shè)置屬性設(shè)置屬性后的界面如圖22所示。 表21屬性設(shè)置對象屬性屬性值Label1Caption請輸入密碼：Command1Caption登陸Command2Caption退出Label2Caption Label2BorderStyle1-Fixed SingleText1Text Te

10、xt1MaxLength16Text1PasswordChar*Form1Caption登陸界面（3）編寫程序代碼Private Sub Command1_Click() If Text1.Text=“goodbaby” Then Label2.Caption=“歡迎使用本系統(tǒng)！” Else Label2.Caption=“密碼錯誤！請重新輸入密碼！” End IfEnd Sub Private Sub Command2_Click() EndEnd Sub （4）運(yùn)行程序 在文本框中輸入“goodbaby”，然后單擊“登錄”命令按鈕，則在標(biāo)簽Label2中顯示“歡迎使用本

11、系統(tǒng)！”。運(yùn)行結(jié)果如圖23所示。圖23 輸入的密碼正確 在文本框中輸入“abc”，然后單擊“登錄”命令按鈕，則在標(biāo)簽Label2中顯示“密碼錯誤！請重新輸入密碼！”。運(yùn)行結(jié)果如圖24所示。圖24 輸入的密碼錯誤2 實(shí)驗(yàn)內(nèi)容（1）設(shè)計(jì)界面在窗體上放置兩個Label 控件、兩個TextBox控件和三個CommandButton控件。初界面如圖25所示。 圖25 初始界面 圖26 屬性設(shè)置后的界面 （2）屬性設(shè)置設(shè)置屬性后的界面如圖26所示。 表22屬性設(shè)置對象屬性名稱屬性值Form1Caption交換Label1Caption輸入第1個數(shù)Label2Caption輸入第2個數(shù)Text1T

12、ext空Text2Text空Command1NameCmdChangeCaption交換DefaultTureCommand2NameCmdClearCaption清空Command3NameCmdExitCaption退出（3）編寫程序代碼 Option Explicit Private Sub CmdChange_Click( ) Dim temp As Integer temp=Text1.Text Text1.Text=Text2.Text Text2.Text=temp End Sub Private Sub CmdExit_Click( ) Unload Me End Sub Pr

13、ivate Sub CMdCLear_Click( ) Text1.Text=” Text2.Text=” Text1.SetFocus End Sub(4) 運(yùn)行程序 執(zhí)行結(jié)果如圖2-7（a）、（b）所示。單擊“清空”按鈕并再數(shù)入數(shù)據(jù)，進(jìn)行交換。 圖2-7（a）交換前的界面 圖2-7（b）單擊交換后的界面 四、實(shí)驗(yàn)心得 通過本次實(shí)驗(yàn)，我掌握命令按鈕、文本框和標(biāo)簽常用屬性值的設(shè)置方法，學(xué)會了使用命令按鈕、文本框和標(biāo)簽在窗體上建立用戶界面的方法并且掌握命令按鈕的主要事件的使用。西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告 專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教

14、師姬浩實(shí)驗(yàn)日期2015年3月25日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目VB控制結(jié)構(gòu)實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)驗(yàn)?zāi)康?（1）掌握邏輯表達(dá)式的正確書寫形式。 （2）掌握單分支與雙分支條件語句的用法，熟悉If.Then.Else語句。 （3）掌握選擇結(jié)構(gòu)中多條件，多分支程序的用法，熟悉Select Case語句。 （4）掌握For語句的使用。 （5）掌

15、握Do語句的使用。 （6）掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、實(shí)驗(yàn)內(nèi)容 （1）編寫程序，利用文本框檢查用戶密碼。提示：可以用文本框的PasswordChar屬性來隱蔽用戶輸入的字符。提示：設(shè)密碼是“123456”，利用文本框的PasswordChar屬性可以隱蔽用戶輸入的字符。 （2）輸入一個數(shù)字（0-6），用中英文顯示星期幾。提示：用多條件多分支選擇語句SelectCase來解決。 （3）利用For循環(huán)求S=1+(1+2)+(1+2+3)+(1+2+3+n)的值。提示：本題是先進(jìn)行內(nèi)循環(huán)累加，再進(jìn)行外循環(huán)累加，因此需要兩個累加器也可用一個循環(huán)來實(shí)現(xiàn)括號內(nèi)每累加一個數(shù)，就往S中累加一

16、次。 （4）輸入一個正整數(shù)，利用“當(dāng)型”循環(huán)判斷是否素?cái)?shù)。提示：“素?cái)?shù)”是除了1和該數(shù)本身，不能被任何整數(shù)整除的數(shù)，判斷一個自然數(shù)是否素?cái)?shù)，只要依次2n用做除數(shù)去除n，若n不能被其中任何一個數(shù)整除，則n為素?cái)?shù)。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理<一>選擇結(jié)構(gòu)1實(shí)驗(yàn)內(nèi)容（1）建立用戶界面。（2）設(shè)置對象屬性。表41 屬性設(shè)置對象屬性屬性值說明Frame1Caption請輸入您的密碼：  Text1Text 清空PasswordChar*只顯示字符“*”Label1Caption  FontName黑體字體名稱fontSize三號字體大小（3）編寫事件

17、代碼。Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then '回車字符的Ascii為13 If Text1.Text = "123456" Then Label1.Caption = "歡迎使用本系統(tǒng)！" Else Label1.Caption = "對不起，密碼錯！" End If Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End IfEnd Sub（4）運(yùn)行程序程序輸出界面如圖4

18、1，圖42所示。 圖41 驗(yàn)證密碼正確 圖42 驗(yàn)證密碼不正確 2實(shí)驗(yàn)內(nèi)容（1）建立用戶界面。參考圖43所示。圖43 界面設(shè)計(jì)（2）設(shè)置對象屬性。表42 屬性設(shè)置對象屬性屬性值說明Form1Caption星期 Label1Caption輸入一個數(shù)字（0-6） Label2Caption 空BorderStyle1-Fixed Single邊框樣式 Command1Caption星期 DefaultTrue缺省命令按鈕Text1Text“”空（3）編寫事件代碼。Private Sub Command1_Click()Dim n As I

19、nteger, m As Stringn = Val(Text1.Text)Select Case nCase 1m = "星期一（Monday）"Case 2m = "星期二（Tuesday）"Case 3m = "星期三（Wednesday）"Case 4m = "星期四（Thursday）"Case 5m = "星期五（Friday）"Case 6m = "星期六（Saturday）"Case 0m = "星期日（Sunday）"Case Elsem

20、 = "重新輸入" End Select Label2.Caption = mEnd Sub （4）運(yùn)行結(jié)果程序輸出界面如圖44所示。圖44 程序運(yùn)行結(jié)果<二>循環(huán)結(jié)構(gòu)1實(shí)驗(yàn)內(nèi)容（1）建立用戶界面。（2）設(shè)置對象屬性。參考圖51所示。 圖51 屬性設(shè)置 圖52 程序運(yùn)行結(jié)果（3）編寫事件代碼。Private Sub Command1_Click( )Dim n As Integer, i As Integer, j As Integer, s As Longn = Val(Text1.Text)j = 0: s = 0For i = 1 To nj = j +

21、is = s + jNext iLabel2.Caption = "和數(shù)S=" & Str(s)Text1.SelLength = Len(Text1.Text)End Sub（4）運(yùn)行程序程序輸出界面如圖52所示。2實(shí)驗(yàn)內(nèi)容（1）建立用戶界面。參考圖53所示。圖53 界面設(shè)計(jì)（2）設(shè)置對象屬性。（3）編寫事件代碼。 Private Sub Text1_GotFocus( )Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub Private Sub Command1_Click()Dim n

22、 As LongSelect Case Val(Text1.Text)Case Is < 3MsgBox "請輸入一個大于2的整數(shù)", vbInformation + vbOKOnly, "注意"Case Is > 2147483647MsgBox "該數(shù)太大", vbInformation + vbOKOnly, "注意"Case Elsen = Val(Text1.Text)s = 0i = 2Do While i <= Sqr(n) And s = 0If n Mod i = 0 Thens

23、 = 1Else: i = i + 1End IfLoopIf s = 0 Thena = "是一個素?cái)?shù)"Elsea = "不是一個素?cái)?shù)"End IfLabel1.Caption = Str(n) & aEnd SelectText1.SetFocusEnd Sub（4）運(yùn)行程序程序運(yùn)行結(jié)果如圖54所示。圖54 程序運(yùn)行結(jié)果四、實(shí)驗(yàn)心得通過本次實(shí)驗(yàn)，我掌握了邏輯表達(dá)式的正確書寫形式，掌握了單分支與雙分支條件語句的用法，熟悉了If.Then.Else語句，掌握了選擇結(jié)構(gòu)中多條件，多分支程序的用法，熟悉Select Case語句，掌握了For語句的使

24、用，Do語句的使用以及如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2015年3月25日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目數(shù)據(jù)的輸入、輸出實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)驗(yàn)?zāi)康?（1）掌握表達(dá)式的構(gòu)成和如何求表達(dá)式的值。 （2）

25、掌握賦值語句的使用。 （3）掌握InputBox函數(shù)的使用。 （4）掌握MsgBox語句的使用。二、實(shí)驗(yàn)內(nèi)容 （1）利用InputBox函數(shù)和MsgBox語句求圓的周長。 （2）利用InputBox函數(shù)輸入三角形的三邊的長度a,b,c,計(jì)算三角形的面積并顯示在窗體上。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理1實(shí)驗(yàn)內(nèi)容(1) 設(shè)計(jì)界面在窗體上添加一個命令按鈕。初始界面如圖31所示。 圖31 初始界面 圖32 設(shè)置屬性后的界面(2) 設(shè)置屬性表31 屬性設(shè)置對象屬性屬性值Command1Caption計(jì)算圓的周長Form1CaptionInputBox和MsgBox舉例設(shè)置屬性后的界面如圖32所示。(3) 編

26、寫程序代碼Private Sub Command1_Click( ) Const pi = 3.14159 Dim r As Single, s As String, s2 As String Dim zhouchang As Single s = InputBox("請輸入半徑", "輸入半徑", 1) r = Val(s) zhouchang = 2 * pi * r s2 = "半徑=" + s + ",圓的周長=" + Str(zhouchang) MsgBox s2, 64, "確認(rèn)窗口&quo

27、t;End Sub (4) 運(yùn)行程序單擊工具欄上的“啟動”按鈕，進(jìn)入運(yùn)行模式。單擊“計(jì)算圓的周長”命令按鈕，在輸入框中輸入圓的半徑（例如，輸入“2”），在消息框中輸出半徑和計(jì)算出來的圓的周長，如圖33所示。(a) (b) (c)圖33 計(jì)算圓的周長2實(shí)驗(yàn)內(nèi)容(1) 設(shè)計(jì)界面初始界面如圖34所示。(2) 設(shè)置屬性表31 屬性設(shè)置對象屬性屬性值Form1Caption求三角形的面積圖3-4 初始界面 (3) 編寫程序代碼 Private Sub Form_click()Dim a As Single, b As Single, c As SingleDim s As Single, p

28、As Singlea = InputBox("請輸入三角形的邊a：", "輸入")b = InputBox("請輸入三角形的邊b：", "輸入")c = InputBox("請輸入三角形的邊c：", "輸入")If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c Or Abs(a - c) >= b Or Abs(b - c) >= a) Then MsgBox (&

29、quot;你輸入的數(shù)據(jù)有誤！")Elsep = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print "三角形的面積為：" sEnd IfEnd Sub（4）運(yùn)行程序如圖35（a）（b）（c）（d）所示 (a) (b) （c） （d）圖35 計(jì)算三角形的面積四、實(shí)驗(yàn)心得通過這次實(shí)驗(yàn)，我掌握了表達(dá)式的構(gòu)成和如何求表達(dá)式的值，掌握了賦值語句的使用，掌握了InputBox函數(shù)的使用和MsgBox語句的使用。 西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程

30、可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2015年4月12日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目VB數(shù)組應(yīng)用實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)驗(yàn)?zāi)康?（1）了解一維數(shù)組的用法。 （2）學(xué)會聲明，使用一維數(shù)組。應(yīng)用數(shù)組解決有關(guān)數(shù)組常用算法問題。 （3）了解二維數(shù)組的用法。 （4）學(xué)會聲明，使用二維數(shù)組。應(yīng)用數(shù)組解決有關(guān)數(shù)組常用算法問題。二、實(shí)驗(yàn)內(nèi)容 （1）將下列

31、文字“鹽城生物工程高等學(xué)校計(jì)算機(jī)系”存放到數(shù)組中，并以倒序打印出來。要求把這14個字符存放到數(shù)組C(14)中，首先依此讀取，然后利用循環(huán)，設(shè)置步長為1初值為14，終值為1，實(shí)現(xiàn)倒序輸出。 （2）編寫程序，建立并輸出一個10*10的矩陣，該矩陣兩條對角線元素為1，其余元素為0。提示：由于矩陣由行，列組成，需要雙下標(biāo)才能確定一元素位置，所以，使用二維數(shù)組來表示矩陣。設(shè)行用n表示，列用m表示，則主對角線元素即為行與列相等的元素（即n=m）,而次對角線的下標(biāo)滿足：n=11-m。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理1實(shí)驗(yàn)內(nèi)容（1）設(shè)計(jì)界面。（2）設(shè)置屬性。如圖131所示。圖131 將字符倒序輸出（3）編寫程序代

32、碼。 Private Sub Command1_Click()Dim x As Integer, c(1 To 14) As Stringc(1) = "鹽": c(2) = "城": c(3) = "生": c(4) = "物" :c(5) = "工"c(6) = "程": c(7) = "高": c(8) = "等": c(9) = "學(xué):c(10) = "校"c(11) = "計(jì)"

33、: c(12) = "算" :c(13) = "機(jī)":c(14)= "系"For x = 1 To 14 Label1.Caption = Label1.Caption + c(x) Next xFor x = 14 To 1 Step -1 Label2.Caption = Label2.Caption + c(x) Next xEnd Sub（4）運(yùn)行程序程序輸出界面如圖132所示。 圖132 將字符倒序輸出結(jié)果 圖133 界面設(shè)計(jì) 2實(shí)驗(yàn)內(nèi)容（1）建立用戶界面。在窗體中使用圖片框控件Picture1，參見圖133所示，

34、當(dāng)然也可用列表框控件來顯示矩陣的元素。（2）設(shè)置對象屬性。（3）編寫事件代碼。Private Sub Form_Activate()Dim z(10, 10) As IntegerFor n = 1 To 10 For m = 1 To 10 If n = m Or n = 11 - m Then z(n, m) = 1 Else z(n, m) = 0 End If NextNext Picture1.Print For n = 1 To 10 For m = 1 To 10 Picture1.Print Tab(m * 3); z(n, m); '輸出各元素的值 Next Prin

35、t '換行NextEnd Sub（4）運(yùn)行程序程序輸出界面如圖134所示。圖134 程序運(yùn)行結(jié)果四、實(shí)驗(yàn)心得 通過本次實(shí)驗(yàn)，我了解了一維數(shù)組和二維數(shù)組的用法，學(xué)會了聲明，使用一維數(shù)組和二維數(shù)組，并能夠應(yīng)用數(shù)組解決有關(guān)數(shù)組常用算法問題。西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2015年4月12日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目VB過程設(shè)計(jì)實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/

36、98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)驗(yàn)?zāi)康模?）掌握Sub過程的定義。（2）掌握Sub過程的調(diào)用。（3）掌握Sub過程參數(shù)傳遞規(guī)則。 （4）掌握Function過程的定義。 （5）掌握Function過程的調(diào)用。（6）掌握Function過程參數(shù)傳遞規(guī)則。二、實(shí)驗(yàn)內(nèi)容 （1）編寫一個求階乘的過程，調(diào)用該過程求4！和6！。 （2）編寫一個求任意數(shù)的平方的函數(shù)，調(diào)用該函數(shù)求110的平方數(shù)。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理<一>Sub過程1設(shè)計(jì)界面在窗體上添加兩個命令按鈕和兩個標(biāo)簽。初始界面如圖61所示。 圖

37、61 初始界面 圖62 設(shè)置屬性后的界面2設(shè)置屬性表61 屬性設(shè)置對象屬性屬性值Command1Caption求4！Command2Caption求6！Label1Caption Label1BorderStyle1-Fixed SingleLabel2Caption Label2BorderStyle1-Fixed Single設(shè)置屬性后的界面如圖62所示。 3編寫程序代碼Private Sub jiecheng(n As Integer, result As Long) Dim i As Integer result = 1 For i = 1 To n re

38、sult = result * i Next i End SubPrivate Sub Command1_Click( ) Dim x As Integer, t As Long x = 4 Call jiecheng(x, t) Label1.Caption = Str(x) + "!=" + Str(t)End Sub Private Sub Command2_Click( ) Dim x As Integer, t As Long x = 6 Call jiecheng(x, t) Label2.Caption = Str(x) + "!=&quo

39、t; + Str(t)End Sub 4運(yùn)行程序分別單擊“4！”命令按鈕和“6！”命令按鈕，程序運(yùn)行效果如圖63所示。圖63 求4！和6！<二>Function過程1設(shè)計(jì)界面在窗體上添加一個標(biāo)簽和一個列表框。初始界面如圖71所示。 圖71 初始界面 圖72 設(shè)置屬性后的界面 2設(shè)置屬性表71 屬性設(shè)置對象屬性屬性值Label1Caption求110的平方數(shù)List1List 設(shè)置屬性后的界面如圖72所示 3編寫程序代碼Private Function power(x As Integer) As Integer power = x * xEn

40、d Function Private Sub Form_Click( ) Dim a As Integer For a = 1 To 10 List1.AddItem power(a) Next aEnd Sub 4運(yùn)行程序運(yùn)行程序后，單擊窗體，程序運(yùn)行效果如圖73所示。圖73 求110的平方數(shù) 四、實(shí)驗(yàn)心得 掌握了Sub過程和Function過程的定義、調(diào)用、過程參數(shù)傳遞規(guī)則，遇到了很多不懂的地方，在同學(xué)的幫助下解決了困難，完成了這次實(shí)驗(yàn)。西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2

41、015年4月14日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目菜單、工具欄、狀態(tài)欄設(shè)計(jì)實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)驗(yàn)?zāi)康模?）掌握菜單設(shè)計(jì)器窗口的操作技術(shù)。（2）掌握下拉式菜單和彈出式菜單的設(shè)計(jì)方法。（3）掌握通過工具條控件創(chuàng)建工具欄的步驟和方法。（4）掌握通過狀態(tài)欄控件創(chuàng)建狀態(tài)欄的步驟和方法。二、實(shí)驗(yàn)內(nèi)容（1）建立一個窗體菜單，測試快捷鍵和訪問鍵的功能。

42、在窗體上放置一個文本框，根據(jù)菜單中選擇的顏色，變換文本框的背景色。（2）在上題的基礎(chǔ)上添加一個彈出式菜單，并測試彈出式菜單的執(zhí)行情況。（3）創(chuàng)建具有“新建”，“復(fù)制”，“打開”和“打印”功能的工具欄（4）應(yīng)用StatusBar控件制作狀態(tài)欄。三、實(shí)驗(yàn)步驟、數(shù)據(jù)記錄及處理<一>菜單設(shè)計(jì)1實(shí)驗(yàn)內(nèi)容（1）建立用戶界面 利用“工具”菜單中的“菜單編輯器”菜單項(xiàng)，建立如圖14-1所示的菜單。圖14-1 初始菜單（2）屬性設(shè)置表14-1 菜單設(shè)計(jì)標(biāo)題名稱快捷鍵顏色（&C）mnuColor紅色mnuRedCtrl+R藍(lán)色mnuBlueCtrl+B綠色mnuGreenCtrl+GLine白

43、色mnuWhiteCtrl+W黑色mnuBlackCtrl+K退出（&X）mnuExit(3) 編寫事件代碼 Private Sub mnuExit_Click() End End Sub Private Sub mnuBlack_Click() Text1.BackColor=RGB(0,0,0)End Sub Private Sub mnuBlue_Click() Text1.BackColor=RGB(0,0,255) End Sub Private Sub mnuGreen_Click() Text1.BackColor=RGB(0,255,0) End Sub Private

44、 Sub mnuRed_Click()Text1.BackColor=RGB(255,0,0) End Sub Private Sub mnuWhite_Click() Text1.BackColor=RGB(255,255,255) End Sub(4) 運(yùn)行程序 測試程序，測試快捷鍵和訪問鍵，觀察運(yùn)行結(jié)果。2實(shí)驗(yàn)內(nèi)容（1） 在實(shí)驗(yàn)1的菜單中增加一個菜單項(xiàng)，如表14-2所示表14-2 新增菜單項(xiàng)標(biāo)題名稱可見性彈出菜單mnuPopFalse打印星號mnuPopStar打印字母mnuPopNum（2） 修改屬性 將Text1的對齊屬性Alignment設(shè)為“2”（居中），多行屬性MultiLin

45、e設(shè)為“Ture”，字體Font屬性設(shè)為“小三”。（3）添加程序代碼 Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _ X As Single, Y As Single) If Button =2 Then Form1.PopupMenu mnuPop,4 End Sub Private Sub mnuPopNum_Click() Text1.Text=” Text1.Text=”1 2 3 4 5 6 7 8 9 0”& Chr(13) & Chr(10) &”0 9 8 7 6 5 4

46、3 2 1 “ End Sub Private Sub mnuPopStar_Click() Text1.Text=” Text1.Text=”*”& Chr(13) & Chr(10) &”*“ End Sub（4）運(yùn)行程序 效果如圖14-2所示圖14-2 彈出式菜單效果<二>工具欄、狀態(tài)欄設(shè)計(jì)1實(shí)驗(yàn)內(nèi)容（1）建立用戶界面。添加一個文本框控件Text1。添加AxtiveX控件。參考圖151所示。圖151 添加控件將工具箱中Toolbar和ImageList控件雙擊到窗體上。參考圖2152所示。圖152 設(shè)置界面（2）設(shè)置對象屬性。鼠標(biāo)指向ImageList

47、控件，單擊右鍵在彈出的快捷菜單中選擇屬性，在打開的“屬性頁”對話框，選擇“圖象”選項(xiàng)卡，單擊“插入圖片”按鈕，選擇圖片。如圖153所示。圖153 插入圖片在窗體的工具欄上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇屬性，打開的“屬性頁”對話框，在“圖象列表”選項(xiàng)中選取ImageList1，建立與圖象列表框的關(guān)聯(lián)。參考圖2154所示。圖154 設(shè)置Toolbar的屬性選擇“按鈕”選項(xiàng)卡，單擊“插入”按鈕，向工具欄中添加4個工具按鈕，索引分別為1，2，3，4，對應(yīng)圖象索引值分別為1,2,3,4。參考圖155所示。圖155 建立與圖象列表框的關(guān)聯(lián)（3）編寫事件代碼。Private Sub Toolbar1_

48、ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Text1.Text = ""Case 2Debug.Print "復(fù)制"Case 3Debug.Print "打開"Case 4Debug.Print "打印"End SelectEnd Sub（4）運(yùn)行程序。程序輸出界面如圖156所示。圖156程序運(yùn)行結(jié)果2實(shí)驗(yàn)內(nèi)容（1）建立用戶界面添加AxtiveX控件。向窗體中添加一個StatusBar控件和Timer控件

49、。參考圖157所示。 圖157 界面設(shè)計(jì) 圖158 插入一個窗格（2）設(shè)置對象屬性。設(shè)置Timer控件的Interval屬性為100，右擊StatusBar控件，在彈出的快捷菜單中選擇屬性，在打開的“屬性頁”對話框，選擇“窗格”選項(xiàng)卡。選擇插入窗格命令，插入一個窗格，如圖158所示。（3）編寫事件代碼。Private Sub Form_Load( )StatusBar1.Panels(1).Text = "歡迎使用本系統(tǒng)"End SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2).Text = Time()End Sub（4）

50、運(yùn)行程序程序輸出界面如圖159所示。圖159 程序運(yùn)行結(jié)果四、實(shí)驗(yàn)心得通過本次試驗(yàn)，我掌握了菜單設(shè)計(jì)器窗口的操作技術(shù)和下拉式菜單和彈出式菜單的設(shè)計(jì)方法，掌握了通過工具條控件創(chuàng)建工具欄的步驟和方法和通過狀態(tài)欄控件創(chuàng)建狀態(tài)欄的步驟和方法。西安工業(yè)大學(xué)實(shí)驗(yàn)報(bào)告專業(yè)信息管理與信息系統(tǒng)班級130513姓名賈丹丹學(xué)號130513117實(shí)驗(yàn)課程可視化程序設(shè)計(jì)指導(dǎo)教師姬浩實(shí)驗(yàn)日期2015年4月14日同實(shí)驗(yàn)者實(shí)驗(yàn)項(xiàng)目VB數(shù)據(jù)庫設(shè)計(jì)實(shí)驗(yàn)設(shè)備及器材硬件：IBM PC 及其兼容機(jī)，要求CPU為Pentium166以上，內(nèi)存在32MB以上，硬盤有200MB以上的自由空間。軟件：操作系統(tǒng)為中文Windows 95/98或Windows 2000 Professional,開發(fā)環(huán)境為Visual Basic 6.0 中文企業(yè)版。一、實(shí)