可視化程序設計實驗報告

上傳人：奔*** IP屬地：河北更新時間：2024-03-03 格式：docx 頁數(shù)：36 大小：1.51MB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩35頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權，請進行舉報或認領

文檔簡介

1、　　XI`AN TECHNOLOGICAL UNIVERSITY　　實驗報告　　實驗課程名稱可視化程序設計　　專業(yè)：信息管理與信息系統(tǒng)　　成績：</p&g

2、t;　　2015年4月20日　　西安工業(yè)大學實驗報告　　一、實驗目的　　（1）熟悉Visual Basic 6.0集成開發(fā)環(huán)境。　　（2）學習怎樣啟動和退出VB　?。?）

3、掌握開發(fā)一個簡單程序的基本步驟。　　（4）掌握簡單代碼的編寫。 　　二、實驗內(nèi)容　?。?）啟動和退出VB　?。?）開發(fā)一個簡單程序。　?。?）將Visual Basic工程編譯生成可執(zhí)行文件。

4、　　三、實驗步驟、數(shù)據(jù)記錄及處理　　1、啟動和退出VB　　<1>進入VB集成開發(fā)環(huán)境　　要進入VB應用程序，首先要運行VB的集成開發(fā)環(huán)境。啟動VB的方法如下：

5、[方法1]　　◇單擊任務欄上的“開始”按鈕；　　◇選擇“程序”文件夾，接著選取“Microsoft Visual Basic 6.0中文版”文件夾，再選取“Microsoft Visual Basic 6.0中文版”項，如圖1-1所示；　　圖1-1 啟動VB的方法1&l

6、t;p>　　單擊鼠標左鍵。　　[方法2]　　單擊任務欄上的“開始”按鈕；　　選擇“程序”文件夾；　　使用“Windows 資源按理器”查找VB可執(zhí)行文件 VB6.exe；

7、　　雙擊圖標。　　[方法3]　　在桌面創(chuàng)建一個VB快捷鍵；　　雙擊該快捷鍵。　　VB啟動后，出現(xiàn)VB6.0的“新建工程”對話框（圖１-2

8、）單擊“打開”按鈕，帶有一個窗體的新工程將被創(chuàng)建，并可以看到VB集成開發(fā)環(huán)境的界面，如圖1-3所示。有的系統(tǒng)啟動后可直接進入圖1-3所示的界面。　　圖1-2 VB6.0的“新建工程”對話框　　圖1-3 VB的集成開發(fā)環(huán)境窗口　　<2>退出VB方法：　?。?

9、）單擊主窗口右上角的“關閉”按鈕。　　（2）執(zhí)行“文件”菜單中的“退出”命令。　?。?）按Alt+Q鍵。　　2、開發(fā)一個簡單程序　　要求：新建一工程，在窗體（Form）上添加一個標簽（Label），當單擊窗體時標簽（Label）顯示“床前明月光”。

10、;　　實驗步驟：　　（1）新建工程　　在桌面上雙擊Microsoft Visual Basic 6.0快捷方式圖標，系統(tǒng)進入Visual Basic6.0集成開發(fā)環(huán)境，并顯示“新建工程”對話框，默認選擇是建立“標準EXE”（即標準工程）。單擊“打開”按鈕，V

11、isual Basic 6.0進入設計模式。如圖1－4所示。　　圖1－4“新建工程”對話框　　單擊“文件”菜單，選擇“新建工程”菜單項，也可進入設計模式。　?。?）設計界面　　在系統(tǒng)提供的名為Form1的窗體上進行界面設計。單擊工具箱

12、上的標簽（Label）控件，在窗體上添加標簽的位置處按下鼠標左鍵，并拖動，調(diào)整虛框的大小，松開鼠標，就將標簽控件添加到窗體上。初始界面如圖1－5所示。　　圖1－5初始界面　?。?）設置屬性　　如表1－1所示。</b

13、>　　表1－1 屬性設置　　設置屬性后的界面如圖1－6所示。　　圖1－6設置屬性后的界面圖1－7第一個程序　?。?）編寫程序代碼　　Private

14、 Sub Form_Click( )　　Label1.Caption = "床前明月光"　　End Sub　?。?）運行程序　　運行VB程序有三種方法：①單擊工具欄上的“啟動”

15、按鈕；②從“運行”菜單中選擇“啟動”菜單項；③按F5鍵。　　例如，單擊工具欄上的“啟動”按鈕運行程序后，單擊窗體，程序運行效果如圖1－7所示。　?。?）保存程序　　單擊工具欄中的“保存”按鈕或單擊“文件”菜單中的“保存工程”菜單項，選擇合適的保存路徑，先保存窗體文件（例如窗體

16、文件名為“實驗一.frm”），然后保存工程文件（例如工程文件名為“實驗一.vbp”）。　　3、將Visual Basic工程編譯生成可執(zhí)行文件　　單擊“文件”菜單中的“生成實驗一.exe”菜單項，就可生成可執(zhí)行的.exe文件。　　退出Visual Basic集成開發(fā)環(huán)境，雙擊實驗一.exe文件，則實驗一.exe文

17、件就可直接運行。　　四、實驗心得　　通過這次實驗，我熟悉了Visual Basic 6.0集成開發(fā)環(huán)境。能夠熟練地啟動和退出VB，掌握了開發(fā)一個簡單程序的基本步驟和簡單代碼的編寫。　　西安工業(yè)大學實驗報告　　一、實驗

18、目的　?。?）掌握命令按鈕、文本框和標簽常用屬性值的設置方法。　?。?）學會使用命令按鈕、文本框和標簽在窗體上建立用戶界面的方法。　?。?）掌握命令按鈕的主要事件的使用。　　二、實驗內(nèi)容&l

19、t;p>　　（1）利用命令按鈕、文本框和標簽判斷密碼是否正確。　?。?）建立應用程序，對兩個文本框中輸入的內(nèi)容進行交換。。　　三、實驗步驟、數(shù)據(jù)記錄及處理　　實驗內(nèi)容　　要求: 在文本框中輸入“goodbaby”，然后單擊“登錄

20、”命令按鈕，則在標簽Label2中顯示“歡迎使用本系統(tǒng)！”；在文本框中輸入“abc”，然后單擊“登錄”命令按鈕，則在標簽Label2中顯示“密碼錯誤！請重新輸入密碼！”。　　步驟：　?。?）設計界面　　在窗體上添加兩個標簽、一個文本框和兩

21、個命令按鈕。初始界面如圖2－1所示。　　圖2－1初始界面圖2－2設置屬性后的界面　?。?）設置屬性　　設置屬性后的界面如圖2－2所示。 　　表2－1屬性設置<

22、;p>　?。?）編寫程序代碼　　Private Sub Command1_Click()　　If Text1.Text=“goodbaby” Then　　Label2.Caption=“歡迎使用本系統(tǒng)！”　　E

23、lse　　Label2.Caption=“密碼錯誤！請重新輸入密碼！”　　End If　　End Sub　　Private Sub Command2_Click()</p

24、>　　End　　End Sub 　?。?）運行程序　?、?在文本框中輸入“goodbaby”，然后單擊“登錄”命令按鈕，則在標簽Label2中顯示“歡迎使用本系統(tǒng)

25、！”。運行結(jié)果如圖2－3所示。　　圖2－3 輸入的密碼正確　?、?在文本框中輸入“abc”，然后單擊“登錄”命令按鈕，則在標簽Label2中顯示“密碼錯誤！請重新輸入密碼！”。運行結(jié)果如圖2－4所示。　　圖2－4 輸入的密碼錯誤　　實驗內(nèi)容</b&

26、gt;　?。?）設計界面　　在窗體上放置兩個Label 控件、兩個TextBox控件和三個CommandButton控件。初　　界面如圖2－5所示。　　圖2－5 初始界面圖2—6 屬性設置

27、后的界面　?。?）屬性設置　　設置屬性后的界面如圖2－6所示。 　　表2－2屬性設置　?。?）編寫程序代碼

28、　　Option Explicit　　Private Sub CmdChange_Click( )　　Dim temp As Integer 　　temp=Text1.Text　　Text1.Text=Text2.Text　　T

29、ext2.Text=temp　　End Sub　　Private Sub CmdExit_Click( )　　Unload Me　　End Sub</p

30、>　　Private Sub CMdCLear_Click( )　　Text1.Text=””　　Text2.Text=””　　Text1.SetFocus　　End Sub<

31、p>　　(4) 運行程序　　執(zhí)行結(jié)果如圖2-7（a）、（b）所示。單擊“清空”按鈕并再數(shù)入數(shù)據(jù)，進行交換。　　圖2-7（a）交換前的界面圖2-7（b）單擊交換后的界面　　四、實驗心得

32、　　通過本次實驗，我掌握命令按鈕、文本框和標簽常用屬性值的設置方法，學會了使用命令按鈕、文本框和標簽在窗體上建立用戶界面的方法并且掌握命令按鈕的主要事件的使用。　　西安工業(yè)大學實驗報告　　一、實驗目的　?。?）掌握邏輯表達式的正確書寫形式。</p&

33、gt;　　（2）掌握單分支與雙分支條件語句的用法，熟悉If….Then…..Else語句。　?。?）掌握選擇結(jié)構中多條件，多分支程序的用法，熟悉Select Case語句。　?。?）掌握For語句的使用。　?。?）掌握Do語句的使用。　?。?）掌握如

34、何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。　　二、實驗內(nèi)容　?。?）編寫程序，利用文本框檢查用戶密碼。提示：可以用文本框的PasswordChar屬性來隱蔽用戶輸入的字符。提示：設密碼是“123456”，利用文本框的PasswordChar屬性可以隱蔽用戶輸入的字符。　?。?）輸入

35、一個數(shù)字（0-6），用中英文顯示星期幾。提示：用多條件多分支選擇語句SelectCase來解決。　?。?）利用For循環(huán)求S=1+(1+2)+(1+2+3)＋．．．+(1+2+3+．．．+n)的值。提示：本題是先進行內(nèi)循環(huán)累加，再進行外循環(huán)累加，因此需要兩個累加器．也可用一個循環(huán)來實現(xiàn)．括號內(nèi)每累加一個數(shù)，就往S中累加一次。　?。?）輸入一個正整數(shù)，利用

36、“當型”循環(huán)判斷是否素數(shù)。提示：“素數(shù)”是除了1和該數(shù)本身，不能被任何整數(shù)整除的數(shù)，判斷一個自然數(shù)是否素數(shù)，只要依次2～n用做除數(shù)去除n，若n不能被其中任何一個數(shù)整除，則n為素數(shù)。　　三、實驗步驟、數(shù)據(jù)記錄及處理　　<一>選擇結(jié)構　　1．實驗內(nèi)容

37、　?。?）建立用戶界面。　?。?）設置對象屬性。　　表4－1 屬性設置　?。?）編寫事件代碼。　　Private Sub Text1_KeyPress(KeyAscii A

38、s Integer)　　If KeyAscii = 13 Then '回車字符的Ascii為13　　If Text1.Text = "123456" Then　　Label1.Caption = "歡迎使用本系統(tǒng)！"<

39、;b>　　Else　　Label1.Caption = "對不起，密碼錯！"　　End If　　Text1.SelStart = 0　　Text1.SelLength = Len(Text

40、1.Text)　　End If　　End Sub　?。?）運行程序　　程序輸出界面如圖4－1，圖4－2所示。　　圖4

41、－1驗證密碼正確圖4－2 驗證密碼不正確 　　2．實驗內(nèi)容　?。?）建立用戶界面。參考圖4－3所示。　　圖4－3 界面設計　　（2）設置對象屬性。　　表4－2 屬

42、性設置　?。?）編寫事件代碼。　　Private Sub Command1_Click()　　Dim n As Integer, m As String　　n = Val(Text1.Text)　　Select

43、 Case n　　Case 1　　m = "星期一（Monday）"　　Case 2　　m = "星期二（Tuesday）"<

44、p>　　Case 3　　m = "星期三（Wednesday）"　　Case 4　　m = "星期四（Thursday）"　　Cas

45、e 5　　m = "星期五（Friday）"　　Case 6　　m = "星期六（Saturday）"　　Case 0

46、;　　m = "星期日（Sunday）"　　Case Else　　m = "重新輸入"　　End Select　　Label2.Caption = m

47、　　End Sub　?。?）運行結(jié)果　　程序輸出界面如圖4－4所示。　　圖4－4 程序運行結(jié)果　　<二>循環(huán)結(jié)構</p

48、>　　1．實驗內(nèi)容　?。?）建立用戶界面。　?。?）設置對象屬性。參考圖5－1所示。　　圖5－1 屬性設置圖5－2 程序運行結(jié)果　?。?）編寫事件代碼。　　Pr

49、ivate Sub Command1_Click( )　　Dim n As Integer, i As Integer, j As Integer, s As Long　　n = Val(Text1.Text)　　j = 0: s = 0　　For i = 1 To n&

50、lt;/p>　　j = j + i　　s = s + j　　Next i　　Label2.Caption = "和數(shù)S="& Str(s)<

51、;/p>　　Text1.SelLength = Len(Text1.Text)　　End Sub　?。?）運行程序　　程序輸出界面如圖5－2所示。

52、2．實驗內(nèi)容　?。?）建立用戶界面。參考圖5－3所示。　　圖5－3 界面設計　?。?）設置對象屬性。　?。?）編寫事件代碼。　　Private Sub Text1_GotFocus( )

53、　　Text1.SelStart = 0　　Text1.SelLength = Len(Text1.Text)　　End Sub　　Private Sub Command1_Click()　　Dim n As Lo

54、ng　　Select Case Val(Text1.Text)　　Case Is < 3　　MsgBox "請輸入一個大于2的整數(shù)", vbInformation + vbOKOnly, "注意"　　Case Is >

55、2147483647　　MsgBox "該數(shù)太大", vbInformation + vbOKOnly, "注意"　　Case Else　　n = Val(Text1.Text)

56、;　　s = 0　　i = 2　　Do While i <= Sqr(n) And s = 0　　If n Mod i = 0 Then　　s = 1

57、　　Else: i = i + 1　　End If　　Loop　　If s = 0 Then　　a = "是一個素數(shù)"<p&

58、gt;　　Else　　a = "不是一個素數(shù)"　　End If　　Label1.Caption = Str(n) & a　　End Select

59、　　Text1.SetFocus　　End Sub　　（4）運行程序　　程序運行結(jié)果如圖5－4所示。　　圖5－4 程序運行結(jié)果<

60、b>　　四、實驗心得　　通過本次實驗，我掌握了邏輯表達式的正確書寫形式，掌握了單分支與雙分支條件語句的用法，熟悉了If….Then…..Else語句，掌握了選擇結(jié)構中多條件，多分支程序的用法，熟悉Select Case語句，掌握了For語句的使用，Do語句的使用以及如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。　　西安工業(yè)大學實驗報告&

61、lt;/p>　　一、實驗目的　　（1）掌握表達式的構成和如何求表達式的值。　?。?）掌握賦值語句的使用。　?。?）掌握InputBox函數(shù)的使用。　?。?）掌握MsgBox語句的使用。

62、　　二、實驗內(nèi)容　?。?）利用InputBox函數(shù)和MsgBox語句求圓的周長。　?。?）利用InputBox函數(shù)輸入三角形的三邊的長度a,b,c,計算三角形的面積并顯示在窗體上。　　三、實驗步驟、數(shù)據(jù)記錄及處理

63、　　1．實驗內(nèi)容　　(1) 設計界面　　在窗體上添加一個命令按鈕。初始界面如圖3－1所示。　　圖3－1 初始界面圖3－2 設置屬性后的界面　　(2)設置屬性

64、　　表3－1 屬性設置　　設置屬性后的界面如圖3－2所示。　　(3)編寫程序代碼　　Private Sub Command1_Click( )　　Const pi = 3.14159<

65、/p>　　Dim r As Single, s As String, s2 As String　　Dim zhouchang As Single　　s = InputBox("請輸入半徑", "輸入半徑", 1)　　r = Val(s)</

66、p>　　zhouchang = 2 * pi * r　　s2 = "半徑=" + s + ",圓的周長=" + Str(zhouchang)　　MsgBox s2, 64, "確認窗口"　　End Sub&#

67、160;　　(4)運行程序　　單擊工具欄上的“啟動”按鈕，進入運行模式。單擊“計算圓的周長”命令按鈕，在輸入框中輸入圓的半徑（例如，輸入“2”），在消息框中輸出半徑和計算出來的圓的周長，如圖3－3所示。　　(a)<

68、;/p>　　(b) (c)　　圖3－3 計算圓的周長　　2．實驗內(nèi)容　　(1)設計界面　　初始界面

69、如圖3－4所示。　　(2)設置屬性　　表3－1 屬性設置　　圖3-4 初始界面　　(3)編寫程序代碼　　Private Sub Form_click(

70、)　　Dim a As Single, b As Single, c As Single　　Dim s As Single, p As Single　　a = InputBox("請輸入三角形的邊a：", "輸入")　　b = In

71、putBox("請輸入三角形的邊b：", "輸入")　　c = InputBox("請輸入三角形的邊c：", "輸入")　　If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c

72、Or Abs(a - c) >= b Or Abs(b - c) >= a) Then　　MsgBox ("你輸入的數(shù)據(jù)有誤！")　　Else　　p = (a + b + c) / 2　　s = Sqr

73、(p * (p - a) * (p - b) * (p - c))　　Print "三角形的面積為："; s　　End If　　End Sub　?。?）運行程

74、序　　如圖3—5（a）（b）（c）（d）所示　　(a) (b)　?。╟）（d）　　圖3－5計算三角形的面積<

75、;p>　　四、實驗心得　　通過這次實驗，我掌握了表達式的構成和如何求表達式的值，掌握了賦值語句的使用，掌握了InputBox函數(shù)的使用和MsgBox語句的使用。　　西安工業(yè)大學實驗報告　　一、實驗目的<

76、p>　　（1）了解一維數(shù)組的用法。　?。?）學會聲明，使用一維數(shù)組。應用數(shù)組解決有關數(shù)組常用算法問題。　?。?）了解二維數(shù)組的用法。　?。?）學會聲明，使用二維數(shù)組。應用數(shù)組解決有關數(shù)組常用算法問題。　　二、實驗內(nèi)容</p

77、>　　（1）將下列文字“鹽城生物工程高等學校計算機系”存放到數(shù)組中，并以倒序打印出來。要求把這14個字符存放到數(shù)組C(14)中，首先依此讀取，然后利用循環(huán)，設置步長為－1初值為14，終值為1，實現(xiàn)倒序輸出。　?。?）編寫程序，建立并輸出一個10*10的矩陣，該矩陣兩條對角線元素為1，其余元素為0。提示：由于矩陣由行，列組成，需要雙下標才能確定一元素位置，所以，使用二維

78、數(shù)組來表示矩陣。設行用n表示，列用m表示，則主對角線元素即為行與列相等的元素（即n=m）,而次對角線的下標滿足：n=11-m。　　三、實驗步驟、數(shù)據(jù)記錄及處理　　1．實驗內(nèi)容　?。?）設計界面。

79、?。?）設置屬性。如圖13－1所示。　　圖13－1 將字符倒序輸出　?。?）編寫程序代碼。　　Private Sub Command1_Click()　　Dim x As Integer, c(1 To 14) As String

80、;　　c(1) = "鹽": c(2) = "城": c(3) = "生": c(4) = "物":c(5) = "工"　　c(6) = "程": c(7) = "高": c(8) = "等": c(9) = "學:c(10)

81、= "校"　　c(11) = "計": c(12) = "算":c(13) = "機":c(14)="系"　　For x = 1 To 14　　Label1.Caption = Label1.Caption + c

82、(x)　　Next x　　For x = 14 To 1 Step -1　　Label2.Caption = Label2.Caption + c(x)　　Next x&l

83、t;p>　　End Sub　?。?）運行程序　　程序輸出界面如圖13－2所示。　　圖13－2 將字符倒序輸出結(jié)果圖13－3 界面設計 　　2．實驗內(nèi)容<

84、/b>　?。?）建立用戶界面。　　在窗體中使用圖片框控件Picture1，參見圖13－3所示，當然也可用列表框控件來顯示矩陣的元素。　?。?）設置對象屬性。　　（3）編寫事件代碼。　　Private Sub Form_Act

85、ivate()　　Dim z(10, 10) As Integer　　For n = 1 To 10　　For m = 1 To 10　　If n = m Or n = 11 - m Then　　z(n, m) = 1</p

86、>　　Else　　z(n, m) = 0　　End If　　Next　　Next</p

87、>　　Picture1.Print　　For n = 1 To 10　　For m = 1 To 10　　Picture1.Print Tab(m * 3); z(n, m); '輸出各元素的值<b&

88、gt;　　Next　　Print '換行　　Next　　End Sub

89、;　?。?）運行程序　　程序輸出界面如圖13－4所示。　　圖13－4 程序運行結(jié)果　　四、實驗心得　　通過本次實驗，我了解了一維數(shù)組和二維數(shù)組的用法，學會了聲明，使用一維數(shù)組和二維數(shù)組，并能夠應用數(shù)組解決有關數(shù)組

90、常用算法問題。　　西安工業(yè)大學實驗報告　　一、實驗目的　?。?）掌握Sub過程的定義。　　（2）掌握Sub過程的調(diào)用。　　（3）掌握Sub過程參數(shù)傳遞規(guī)則。<p&

91、gt;　?。?）掌握Function過程的定義。　　（5）掌握Function過程的調(diào)用。　　（6）掌握Function過程參數(shù)傳遞規(guī)則。　　二、實驗內(nèi)容　?。?）編寫一個求階乘的過程，調(diào)用該過程求4！和6！。

92、　　（2）編寫一個求任意數(shù)的平方的函數(shù)，調(diào)用該函數(shù)求1～10的平方數(shù)。　　三、實驗步驟、數(shù)據(jù)記錄及處理　　<一>Sub過程　　1．設計界面　　在窗體上添加兩個命令按鈕

93、和兩個標簽。初始界面如圖6－1所示。　　圖6－1 初始界面圖6－2 設置屬性后的界面　　2．設置屬性　　表6－1 屬性設置　　設置屬性后的界面如圖6－2所示。　　3．編

94、寫程序代碼　　Private Sub jiecheng(n As Integer, result As Long)　　Dim i As Integer　　result = 1　　For i = 1 To n

95、result = result * i　　Next i　　End Sub　　Private Sub Command1_Click( )　　Dim x As Integer, t As Long&l

96、t;/p>　　x = 4　　Call jiecheng(x, t)　　Label1.Caption = Str(x) + "!=" + Str(t)　　End Sub

97、　　Private Sub Command2_Click( )　　Dim x As Integer, t As Long　　x = 6　　Call jiecheng(x, t)　　Label2.Caption = S

98、tr(x) + "!=" + Str(t)　　End Sub　　4．運行程序　　分別單擊“4！”命令按鈕和“6！”命令按鈕，程序運行效果如圖6－3所示。　　圖6－3 求4！和

99、6！　　<二>Function過程　　1．設計界面　　在窗體上添加一個標簽和一個列表框。初始界面如圖7－1所示。　　圖7－1 初始界面圖7－2 設置屬性后的界面

100、;　　2．設置屬性　　表7－1 屬性設置　　設置屬性后的界面如圖7－2所示　　3．編寫程序代碼　　Private Function power(x As Integer) As Integer

101、　　power = x * x　　End Function　　Private Sub Form_Click( )　　Dim a As Integer　　For a = 1 To 10　　List1.AddIt

102、em power(a)　　Next a　　End Sub　　4．運行程序　　運行程序后，單擊窗體，程序運行效果如圖7－3所示。<

103、;p>　　圖7－3 求1～10的平方數(shù)　　四、實驗心得　　掌握了Sub過程和Function過程的定義、調(diào)用、過程參數(shù)傳遞規(guī)則，遇到了很多不懂的地方，在同學的幫助下解決了困難，完成了這次實驗。　　西安工業(yè)大學實驗報告<b

104、>　　一、實驗目的　?。?）掌握菜單設計器窗口的操作技術。　?。?）掌握下拉式菜單和彈出式菜單的設計方法。　?。?）掌握通過工具條控件創(chuàng)建工具欄的步驟和方法。　?。?）掌握通過狀態(tài)欄控件創(chuàng)建狀態(tài)欄的步驟和方法。<p&

105、gt;　　二、實驗內(nèi)容　?。?）建立一個窗體菜單，測試快捷鍵和訪問鍵的功能。在窗體上放置一個文本框，根據(jù)菜單中選擇的顏色，變換文本框的背景色。　?。?）在上題的基礎上添加一個彈出式菜單，并測試彈出式菜單的執(zhí)行情況。　　（3）創(chuàng)建具有“新建”，“復制”，“打開”和“打印”功能的

106、工具欄　?。?）應用StatusBar控件制作狀態(tài)欄。　　三、實驗步驟、數(shù)據(jù)記錄及處理　　<一>菜單設計　　1．實驗內(nèi)容

107、（1）建立用戶界面　　利用“工具”菜單中的“菜單編輯器”菜單項，建立如圖14-1所示的菜單。　　圖14-1 初始菜單　?。?）屬性設置　　表14-1 菜單設計　　(3)

108、編寫事件代碼　　Private Sub mnuExit_Click()　　End　　End Sub　　Private Sub mnuBlack_Click()<p&

109、gt;　　Text1.BackColor=RGB(0,0,0)　　End Sub　　Private Sub mnuBlue_Click() 　　Text1.BackColor=RGB(0,0,255) 　　End S

110、ub　　Private Sub mnuGreen_Click()　　Text1.BackColor=RGB(0,255,0)　　End Sub　　Private Sub mnuRed_Click()</p&g

111、t;　　Text1.BackColor=RGB(255,0,0)　　End Sub　　Private Sub mnuWhite_Click()　　Text1.BackColor=RGB(255,255,255)&

112、lt;b>　　End Sub　　(4) 運行程序　　測試程序，測試快捷鍵和訪問鍵，觀察運行結(jié)果。　　2．實驗內(nèi)容　　（1）在實驗1的菜單中增加一個菜單項，如表14-2所

113、示　　表14-2 新增菜單項　　（2）修改屬性　　將Text1的對齊屬性Alignment設為“2”（居中），多行屬性MultiLine設為“Ture”，字體Font屬性設為“小三”。　　（3）添加程序代碼<

114、;/b>　　Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _　　X As Single, Y As Single)　　If Button =2 Then Form1.PopupMenu mnuPop,4&

115、lt;p>　　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

116、6 5 4 3 2 1 “　　End Sub　　Private Sub mnuPopStar_Click()　　Text1.Text=””　　Text1.Text=”**********”& Chr(13) &Chr

117、(10) &”**********“　　End Sub　?。?）運行程序　　效果如圖14-2所示　　圖14-2 彈出式菜單效果　　<二&g

118、t;工具欄、狀態(tài)欄設計　　1．實驗內(nèi)容　?。?）建立用戶界面。　　添加一個文本框控件Text1。添加AxtiveX控件。參考圖15－1所示。　　圖15－1 添加控件　　將工具箱中Toolba

119、r和ImageList控件雙擊到窗體上。參考圖2－15－2所示。　　圖15－2 設置界面　?。?）設置對象屬性。　　鼠標指向ImageList控件，單擊右鍵在彈出的快捷菜單中選擇屬性，在打開的“屬性頁”對話框，選擇“圖象”選項卡，單擊“插入圖片”按鈕，選擇圖片。如圖15－3所示。<

120、p>　　圖15－3 插入圖片　　在窗體的工具欄上單擊鼠標右鍵，在彈出的快捷菜單中選擇屬性，打開的“屬性頁”對話框，在“圖象列表”選項中選取ImageList1，建立與圖象列表框的關聯(lián)。參考圖2－15－4所示。　　圖15－4 設置Toolbar的屬性　　選擇“按鈕”選項卡，單擊“插入”按鈕，向工具欄中添加

121、4個工具按鈕，索引分別為1，2，3，4，對應圖象索引值分別為1,2,3,4。參考圖15－5所示。　　圖15－5 建立與圖象列表框的關聯(lián)　?。?）編寫事件代碼。　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p&

122、gt;　　Select Case Button.Index　　Case 1　　Text1.Text = ""　　Case 2　　Debug.Print &

123、quot;復制"　　Case 3　　Debug.Print "打開"　　Case 4　　Debug.Print "打印"&

124、lt;p>　　End Select　　End Sub　?。?）運行程序。　　程序輸出界面如圖15－6所示。　　圖15－6程序運行結(jié)果

125、;　　2．實驗內(nèi)容　?。?）建立用戶界面　　添加AxtiveX控件。向窗體中添加一個StatusBar控件和Timer控件。參考圖15－7所示。　　圖15－7 界面設計圖15－8 插入一個窗格　?。?）設置對象

126、屬性。　　設置Timer控件的Interval屬性為100，右擊StatusBar控件，在彈出的快捷菜單中選擇屬性，在打開的“屬性頁”對話框，選擇“窗格”選項卡。選擇插入窗格命令，插入一個窗格，如圖15－8所示。　　（3）編寫事件代碼。　　Private Sub Form_Load( )&

127、lt;p>　　StatusBar1.Panels(1).Text = "歡迎使用本系統(tǒng)"　　End Sub　　Private Sub Timer1_Timer()　　StatusBar1.Panels(2).Text = Time()</p&g

128、t;　　End Sub　?。?）運行程序　　程序輸出界面如圖15－9所示。　　圖15－9 程序運行結(jié)果　　四、實驗心得</p&g

129、t;　　通過本次試驗，我掌握了菜單設計器窗口的操作技術和下拉式菜單和彈出式菜單的設計方法，掌握了通過工具條控件創(chuàng)建工具欄的步驟和方法和通過狀態(tài)欄控件創(chuàng)建狀態(tài)欄的步驟和方法。　　西安工業(yè)大學實驗報告　　一、實驗目的　?。?）掌握數(shù)據(jù)庫、表、記錄和字段的概念

130、。　?。?）掌握可視化數(shù)據(jù)庫管理器的使用。　?。?）了解使用SQL語句對數(shù)據(jù)庫中的數(shù)據(jù)進行查詢和更新的功能。　　二、實驗內(nèi)容　　使用可視化數(shù)據(jù)庫管理器建立一個名為“Student.mdb”的Access數(shù)據(jù)庫，它包括一個學生學籍表，該

131、表的表名為xjb，各列的名稱、數(shù)據(jù)類型、長度及意義如下所示。　　列名數(shù)據(jù)類型長度意義　　st_No Integer 學號　　name Text 10 姓名<

132、;p>　　sex Text 2 性別　　addr Text 50 地址　　height single 身高

133、　三、實驗步驟、數(shù)據(jù)記錄及處理　　1．數(shù)據(jù)庫的創(chuàng)建　　(1)單擊“外接程序”菜單項的“可視化數(shù)據(jù)管理器”菜單項，啟動“可視化數(shù)據(jù)管理器”，顯示如圖19－1所示的“VisData”窗口。　　圖19－1 可視化數(shù)據(jù)管理器　　(2)選擇“

134、可視化數(shù)據(jù)管理器”中“文件”菜單中的“新建”菜單項用于創(chuàng)建數(shù)據(jù)庫。　　(3)選擇“Microsoft Access”菜單項，單擊該菜單項下的“Version 7.0 MDB”菜單項，打開“選擇要創(chuàng)建的Microsoft Access數(shù)據(jù)庫”對話框。　　(4)選擇新建數(shù)據(jù)庫保存的目錄后，在“文件名”文本框中輸入數(shù)據(jù)庫的名稱student。單擊“確定”，“可

135、視化數(shù)據(jù)管理器”開始在指定的目錄下創(chuàng)建以指定名稱命名的Microsoft Access數(shù)據(jù)庫，如圖19－2所示。　　圖19－2 創(chuàng)建數(shù)據(jù)庫后的“可視化數(shù)據(jù)管理器”界面　　2．向數(shù)據(jù)庫中添加數(shù)據(jù)表　?。?）在“數(shù)據(jù)庫窗口”中右擊鼠標，在彈出的快捷菜單中選“新建表”菜單項，系統(tǒng)將打開“表結(jié)構”對話框，如圖19－3所

136、示。　　圖19－3 “表結(jié)構”對話框　　（2）在“表名稱”文本框中鍵入表名，這里鍵入名稱xjb。　?。?）單擊“添加字段”按鈕，系統(tǒng)顯示“添加字段”對話框，如圖19－4所示。在這個對話框中定義表的字段。單擊“確定”按鈕，這樣我們就定義了xjb表的第一個字段。　　圖19－

137、4 “添加字段”對話框　?。?）需要繼續(xù)添加字段時，單擊“添加字段”按鈕，按與第3步相似的方法添加新的字段，單擊“關閉”按鈕關閉“添加字段”對話框，此時，“表結(jié)構”中顯示將該表所有字段的定義。　　（5）單擊“生成表”按鈕，“可視化數(shù)據(jù)管理器”創(chuàng)建指定的表并關閉“表結(jié)構”對話框。如圖19－5所示。　?。?）若要修

138、改現(xiàn)有表的表結(jié)構，在“數(shù)據(jù)庫窗口”中右擊鼠標，單擊彈出的快捷菜單中“設計”菜單項，系統(tǒng)將打開“表結(jié)構”對話框，對欲修改的字段進行修改即可。　　3．編輯數(shù)據(jù)表中的數(shù)據(jù)　?。?）在“可視化數(shù)據(jù)管理器”中打開數(shù)據(jù)庫student.mdb，如圖2－20－6所示。　?。?）在“數(shù)據(jù)庫窗口”中右擊要添加、修改、或刪除記錄的表

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

可視化程序設計實驗報告

文檔簡介

溫馨提示

最新文檔

評論

可視化程序設計實驗報告

文檔簡介

溫馨提示

最新文檔

評論

免費下載