VB實(shí)驗(yàn)三實(shí)驗(yàn)報(bào)告-2016

1、實(shí) 驗(yàn) 報(bào) 告 三課 程VB程序設(shè)計(jì)實(shí)驗(yàn)項(xiàng)目VB數(shù)組應(yīng)用(6學(xué)時(shí))成 績專業(yè)班級(jí)國際經(jīng)濟(jì)與貿(mào)易1501姓 名鄧成元學(xué) 號(hào)201531100828實(shí)驗(yàn)日期實(shí)驗(yàn)?zāi)康模?）掌握一維數(shù)組（靜態(tài)、動(dòng)態(tài)）定義及使用（2）掌握二維數(shù)組（靜態(tài)、動(dòng)態(tài)）定義及使用（3）掌握“控件數(shù)組”的使用（4）掌握數(shù)組相關(guān)算法（求最值，排序，查找）（5）通過數(shù)組鞏固循環(huán)及多重循環(huán)程序設(shè)計(jì)實(shí)驗(yàn)內(nèi)容【實(shí)驗(yàn)1】對(duì)一維數(shù)組A(1 to 10)先賦值1、3、5、7、9、11、13、15、17、19，然后再輸出。程序運(yùn)行界面如下圖所示。（5分）掌握一維靜態(tài)數(shù)組的定義及使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)1 代碼】Option Base 1Dim A(1

2、To 10) As IntegerPrivate Sub Command1_Click() Dim i As Integer For i = 1 To 10 A(i) = 2 * i - 1 Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print A(i) Next iEnd SubPrivate Sub Form_Load()End Sub【實(shí)驗(yàn)1 典型結(jié)果】【實(shí)驗(yàn)2】用Array函數(shù)對(duì)一維數(shù)組進(jìn)行賦值，程序運(yùn)行界面如下圖（5分）掌握一維動(dòng)態(tài)數(shù)組的定義及使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)2 代碼】Op

3、tion Base 1Dim aPrivate Sub Command1_Click() a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)End SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print a(i); Next iEnd SubPrivate Sub Form_Load()End Sub【實(shí)驗(yàn)2 典型結(jié)果】【實(shí)驗(yàn)3】動(dòng)態(tài)數(shù)組聲明及輸入輸出，程序運(yùn)行界面如下圖所示。（10分）掌握動(dòng)態(tài)數(shù)組的使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)3 代碼】Private Sub Command1_

4、Click() Dim a() As Integer n = 3 ReDim a(n) a(1) = 10 a(2) = 20 a(3) = 30 Print a(1), a(2), a(3) Print "用Redim Preserve a(n)改變數(shù)組大小" n = 4 ReDim Preserve a(n) a(4) = 40 Print a(1), a(2), a(3), a(4) End Sub【實(shí)驗(yàn)3 典型結(jié)果】【實(shí)驗(yàn)4】靜態(tài)聲明一個(gè)二維數(shù)組，輸入和輸出該數(shù)組各元素的值 （10分）要求：1.計(jì)算并輸出數(shù)組主對(duì)角線和次對(duì)角線元素的和。 2.交換1、3行后輸出整個(gè)數(shù)

5、組的值 3.交換數(shù)組的行與列后輸出整個(gè)數(shù)組的值掌握二維數(shù)組的定義及使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)4 代碼】【實(shí)驗(yàn)4 典型結(jié)果】【實(shí)驗(yàn)5】利用控件數(shù)組模擬電話撥號(hào)程序，界面設(shè)計(jì)如圖4-4所示。要求按任意一個(gè)字符，在文本框中顯示，最多可撥11位數(shù)字字符，單擊“重?fù)堋卑粹o，重新顯示原來所撥的號(hào)碼。建立Command1控件數(shù)組，索引為09；Command2和Command3分別為“重?fù)堋?、“清屏”按鈕；Timer1控件為“重?fù)堋狈?wù)。（10分）掌握控件組的使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)5 代碼】Dim no As String, i As IntegerPrivate Sub Command1_Click(Index A

6、s Integer) Text1.Text = Text1.Text & IndexEnd SubPrivate Sub Command2_Click() no = Text1.Text Text1.Text = "" i = 1 Timer1.Interval = 200 Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() Text1.Text = ""Timer1_Timer()Private Sub Timer1_Timer() Text1.Text=Text1.text&

7、;mid(no,i,1) i=i+1 If i >Len(no) Then Timer1.Enabled=False End Sub【實(shí)驗(yàn)5 典型結(jié)果】【實(shí)驗(yàn)6】隨機(jī)產(chǎn)生10個(gè)100999之間的數(shù)以遞增順序存放在列表框中，并實(shí)現(xiàn)對(duì)列表框內(nèi)數(shù)據(jù)插入、刪除等操作，使得列表框內(nèi)數(shù)據(jù)還是有序。程序運(yùn)行界面如下圖所示（10分）掌握數(shù)組插入與刪除操作實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)6 代碼】【實(shí)驗(yàn)6 典型結(jié)果】【實(shí)驗(yàn)7】設(shè)計(jì)一個(gè)利用簡單組合框?qū)Ω魇?、直轄市名稱維護(hù)的應(yīng)用程序。要求：添加不重復(fù)的省或直轄市到組合框中，對(duì)不正確的可修改，以按漢字內(nèi)碼順有序顯示。運(yùn)行效果如下圖所示。（10分）掌握數(shù)組常用算法：插入與刪除操

8、作實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)7 代碼】【實(shí)驗(yàn)7 典型結(jié)果】【實(shí)驗(yàn)8】用比較法對(duì)數(shù)組中的元素按升序排列，程序運(yùn)行界面如下圖所示。（10分）掌握數(shù)組常用算法：數(shù)組排序?qū)嶒?yàn)結(jié)果：【實(shí)驗(yàn)8 代碼】【實(shí)驗(yàn)8 典型結(jié)果】【實(shí)驗(yàn)9】選擇法對(duì)數(shù)組中的元素按升序排列，程序運(yùn)行界面如下圖所示。（10分）掌握數(shù)組常用算法：數(shù)組排序?qū)嶒?yàn)結(jié)果：【實(shí)驗(yàn)9 代碼】【實(shí)驗(yàn)9 典型結(jié)果】【實(shí)驗(yàn)10】用冒泡對(duì)數(shù)組中的元素按升序排列，程序運(yùn)行如下圖所示。（10分）掌握數(shù)組常用算法：數(shù)組排序?qū)嶒?yàn)結(jié)果：【實(shí)驗(yàn)10 代碼】【實(shí)驗(yàn)10 典型結(jié)果】【選做1】利用一維數(shù)組，統(tǒng)計(jì)一個(gè)班學(xué)生成績059，6069，7079，8089，90100各分?jǐn)?shù)段的人數(shù)，生成一個(gè)各分?jǐn)?shù)段的柱狀圖。人數(shù)為運(yùn)行時(shí)輸入，成績給定方法要求為鍵盤輸入。（5分）掌握控件數(shù)組的使用實(shí)驗(yàn)結(jié)果：【選做1 代碼】【選做1 典型