第5章數(shù)組和自定義類型(4學(xué)時(shí)理論+4學(xué)時(shí)上機(jī))

1、計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1 1本章目錄本章目錄1 1課后習(xí)題講解課后習(xí)題講解 輸入一個(gè)字符串輸入一個(gè)字符串，反序輸出。，反序輸出。 Private Sub Command1_Click() s = Text1 For i = Len(s) To 1 Step -1 y = y + Mid(s, i, 1) Next i Print y End Sub Private Sub Command2_Click() s = InputBox(輸入一個(gè)字符串輸入一個(gè)字符串) For i = Len(s) To 1 Step -1 Print Mid(s, i

2、, 1); Next i End Sub計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2 2本章目錄本章目錄2 2第第5 5章章 數(shù)組和自定義類型數(shù)組和自定義類型 5.1 5.1 數(shù)組數(shù)組5.2 5.2 數(shù)組的基本操作數(shù)組的基本操作5.3 5.3 列表框和組合框控件列表框和組合框控件5.4 5.4 自定義類型及其數(shù)組自定義類型及其數(shù)組( (不要求不要求) )5.5 5.5 綜合應(yīng)用綜合應(yīng)用計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3 3本章目錄本章目錄3 3問題：?jiǎn)栴}：（1）mark只能放一個(gè)學(xué)生的成績(jī)，無(wú)法統(tǒng)計(jì)高于平均分只能放一個(gè)學(xué)生的成績(jī)

3、，無(wú)法統(tǒng)計(jì)高于平均分的人數(shù)。的人數(shù)。（2）若用簡(jiǎn)單變量保存）若用簡(jiǎn)單變量保存100個(gè)學(xué)生的成績(jī)，則需定義個(gè)學(xué)生的成績(jī)，則需定義100個(gè)變量和使用個(gè)變量和使用100句輸入語(yǔ)句。由此引入了句輸入語(yǔ)句。由此引入了數(shù)組數(shù)組。5.1 5.1 數(shù)組數(shù)組5.1.1 5.1.1 數(shù)組的概念數(shù)組的概念1.1.引例引例 求求100100個(gè)學(xué)生的平均成績(jī)個(gè)學(xué)生的平均成績(jī)，并統(tǒng)計(jì)高于平均分，并統(tǒng)計(jì)高于平均分的人數(shù)的人數(shù)markaver = 0For i = 1 To 100 mark =Val(InputBox(輸入學(xué)生成績(jī)輸入學(xué)生成績(jī)) aver = aver + markNext iaver = aver / 1

4、00Print aver, mark計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4 4本章目錄本章目錄4 42.數(shù)組的概念數(shù)組的概念 數(shù)組數(shù)組:一組具有一組具有相同類型相同類型變量的集合，用一個(gè)變量的集合，用一個(gè)統(tǒng)一統(tǒng)一的的名字作為標(biāo)識(shí)。名字作為標(biāo)識(shí)。數(shù)組元素?cái)?shù)組元素:數(shù)組中的每一個(gè)數(shù)據(jù)稱為一個(gè)數(shù)組中的每一個(gè)數(shù)據(jù)稱為一個(gè)數(shù)組元素?cái)?shù)組元素。作用作用：用用一個(gè)數(shù)組名一個(gè)數(shù)組名代表邏輯上相關(guān)的一批數(shù)據(jù)，代表邏輯上相關(guān)的一批數(shù)據(jù)，用用下標(biāo)下標(biāo)表示該數(shù)組中的各個(gè)元素，和循環(huán)語(yǔ)句結(jié)合使表示該數(shù)組中的各個(gè)元素，和循環(huán)語(yǔ)句結(jié)合使用，使得程序書寫簡(jiǎn)潔。用，使得程序書寫簡(jiǎn)潔。使用使用：必

5、須先聲明后使用。必須先聲明后使用。分類分類：根據(jù)數(shù)組下標(biāo)個(gè)數(shù)的不同：根據(jù)數(shù)組下標(biāo)個(gè)數(shù)的不同,分為分為一維數(shù)組一維數(shù)組和和多維數(shù)組多維數(shù)組計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)5 5本章目錄本章目錄5 55.1.2 5.1.2 定長(zhǎng)數(shù)組及聲明定長(zhǎng)數(shù)組及聲明1.一維數(shù)組聲明：一維數(shù)組聲明： Dim Dim 數(shù)組名數(shù)組名( ( 下標(biāo)下界下標(biāo)下界 ToTo 上界上界) ) As 類型類型說(shuō)明：說(shuō)明：例：例： Dim mark(99) As Integer Dim X(1 to 10) As Single下標(biāo)下界缺省為下標(biāo)下界缺省為0，下標(biāo)上界為常數(shù)。，下標(biāo)上界為常數(shù)。數(shù)

6、組大小為：下標(biāo)上界數(shù)組大小為：下標(biāo)上界 -下標(biāo)下界下標(biāo)下界 +1。作用：聲明了數(shù)組名、數(shù)組大小、維數(shù)、類型作用：聲明了數(shù)組名、數(shù)組大小、維數(shù)、類型在內(nèi)存分配一塊連續(xù)的區(qū)域。在內(nèi)存分配一塊連續(xù)的區(qū)域。計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)6 6本章目錄本章目錄6 6如：如：Dim mark(99) As IntegerDim mark(99) As Integer 聲明了一維定長(zhǎng)整型數(shù)組聲明了一維定長(zhǎng)整型數(shù)組 mark ，共有共有100個(gè)元素，下標(biāo)范圍為個(gè)元素，下標(biāo)范圍為 0 To 99；mark數(shù)組的各元素是數(shù)組的各元素是mark(0)，mark(1)，mark

7、(99)；mark(i) 表示由下標(biāo)表示由下標(biāo) i 的值決定是哪一個(gè)元素。的值決定是哪一個(gè)元素。mark(99)mark(99)mark(98)mark(98)mark(2)mark(2)mark(1)mark(1)mark(0)mark(0)mark數(shù)組內(nèi)存分配如下：數(shù)組內(nèi)存分配如下：每個(gè)數(shù)組元素有一個(gè)唯一的順序號(hào)。每個(gè)數(shù)組元素有一個(gè)唯一的順序號(hào)。下標(biāo)不能超出數(shù)組聲明時(shí)的上、下界范圍，否則下標(biāo)不能超出數(shù)組聲明時(shí)的上、下界范圍，否則會(huì)產(chǎn)生會(huì)產(chǎn)生“下標(biāo)越界下標(biāo)越界”錯(cuò)誤錯(cuò)誤 。數(shù)組元素的使用規(guī)則與同類型的簡(jiǎn)單變量相同。數(shù)組元素的使用規(guī)則與同類型的簡(jiǎn)單變量相同。計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB)

8、 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)7 7本章目錄本章目錄7 7例例5.1 用數(shù)組解決問題的程序用數(shù)組解決問題的程序如下：如下： Dim mark(99) As IntegerDim mark(99) As Integer 聲明數(shù)組聲明數(shù)組mark Dim aver!, n%, i% Dim aver!, n%, i% aver = 0 aver = 0 For i = 0 To 99For i = 0 To 99 輸入成績(jī)，求分?jǐn)?shù)和輸入成績(jī)，求分?jǐn)?shù)和 mark(i)mark(i) = InputBox( = InputBox(輸入學(xué)生的成績(jī)輸入學(xué)生的成績(jī)) aver = aver + aver

9、 = aver + mark(i)mark(i) Next iNext i aver = aver / 100 aver = aver / 100 求求100人的平均分人的平均分 n = 0n = 0 For i = 0 To 99 For i = 0 To 99 統(tǒng)計(jì)高于平均分的人數(shù)統(tǒng)計(jì)高于平均分的人數(shù) If If mark(i) avermark(i) aver ThenThen n = n + 1 n = n + 1 Next i Next i MsgBoxMsgBox ( (平均分平均分: : & aver & & aver & 高于平均分人數(shù)高于平均分

10、人數(shù): : & n) & n) mark(99)mark(99)mark(98)mark(98)mark(2)mark(2)mark(1)mark(1)mark(0)mark(0)計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)8 8本章目錄本章目錄8 82.2.多維數(shù)組聲明多維數(shù)組聲明Dim Dim 數(shù)組名數(shù)組名( (下界下界1 To 上界上界1，(下界下界2 To 上界上界2) As 類型類型下標(biāo)數(shù)決定了數(shù)組的維數(shù)，數(shù)組的大小為每一維大下標(biāo)數(shù)決定了數(shù)組的維數(shù)，數(shù)組的大小為每一維大小的乘積。小的乘積。例：例： Dim x(2,4) As Long聲明了一

11、個(gè)長(zhǎng)整型的二維數(shù)組聲明了一個(gè)長(zhǎng)整型的二維數(shù)組 x；共占據(jù)；共占據(jù)35個(gè)長(zhǎng)整個(gè)長(zhǎng)整型變量的空間型變量的空間 。x(1,4)x(1,3)x(1,2)x(1,1)x(1,0) x(2,4)x(2,3)x(2,2)x(2,1)x(2,0) x(0,4)x(0,3)x(0,2)x(0,1)x(0,0) 二維數(shù)組的數(shù)組元素是按二維數(shù)組的數(shù)組元素是按“列優(yōu)先列優(yōu)先 ”的順序存放的。的順序存放的。例：例：Dim T1(10) As Integer, n As Integer Dim T2(n) As Integer n=3 Print T1(n) print T1(10)(1)(1)在窗體級(jí)或標(biāo)準(zhǔn)模塊中可以重

12、定義數(shù)組的下界在窗體級(jí)或標(biāo)準(zhǔn)模塊中可以重定義數(shù)組的下界 Option Base n Option Base n 設(shè)置默認(rèn)下界為設(shè)置默認(rèn)下界為n 例如：設(shè)置默認(rèn)下界為例如：設(shè)置默認(rèn)下界為1 1的語(yǔ)句是的語(yǔ)句是 Option Base 1Option Base 1：(2)(2)正確區(qū)分?jǐn)?shù)組下標(biāo)在不同位置的含義正確區(qū)分?jǐn)?shù)組下標(biāo)在不同位置的含義例：例：Dim T(10) As Integer, i As IntegerFor i = 0 To 10 T(i) = i Print T(i)Next iprint T(10)T T數(shù)組中下標(biāo)為數(shù)組中下標(biāo)為1010的那個(gè)元素的那個(gè)元素定義了一個(gè)定義了一個(gè)T

13、T數(shù)組數(shù)組, ,由由(0(010)1110)11個(gè)元素組成個(gè)元素組成(3)(3)數(shù)組聲明時(shí)下標(biāo)只能是數(shù)組聲明時(shí)下標(biāo)只能是常數(shù)，其它地方可以是變量常數(shù)，其它地方可以是變量 計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1010本章目錄本章目錄1010練習(xí)練習(xí)1:Dim arr(-2 To 5)該語(yǔ)句定義的數(shù)組元素的個(gè)數(shù)是該語(yǔ)句定義的數(shù)組元素的個(gè)數(shù)是( )。練習(xí)練習(xí)2:執(zhí)行下面程序段后執(zhí)行下面程序段后:Dim a%(5), b%(5)For j = 1 To 4 a(j) = 3 * j b(j) = a(j) * 3Next jText1.Text = b(j 2)文本框

14、中的值是文本框中的值是( )j=1a(1)=3*1=3b(1)=3*3=9j=2a(2)=3*2=6b(2)=6*3=18j=3a(3)=3*3=9b(3)=9*3=27j=4a(4)=3*4=12b(4)=12*3=36j=54?8 8a(0)a(1)a(2)a(3)a(4)a(5)b(0)b(1)b(2)b(3)b(4)b(5)計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1111本章目錄本章目錄11111、如果在程序中沒有特別聲明，即程序中沒有使用、如果在程序中沒有特別聲明，即程序中沒有使用Option Basic 1 語(yǔ)句，語(yǔ)句，缺省下界和關(guān)鍵字缺省下界和關(guān)鍵字

15、TO時(shí)，則表示下標(biāo)的取值時(shí)，則表示下標(biāo)的取值。A、從、從0開始，等價(jià)于開始，等價(jià)于0 to 上界上界 B、從、從2開始開始C、從、從1開始，等價(jià)于開始，等價(jià)于1 to 上界上界 D、等價(jià)于、等價(jià)于 n to 上界上界2、使用下列語(yǔ)句定義數(shù)組，定義正確的是、使用下列語(yǔ)句定義數(shù)組，定義正確的是。 Dim n as Integer Const m = 5 Dim A(m) as Integer Dim B(1 to 6) as Integer Dim C(-5 to 5) as Long Dim D(0 to n ) as singleA、一維數(shù)組、一維數(shù)組ABCB、一維數(shù)組、一維數(shù)組ABCDC、一

16、維數(shù)組、一維數(shù)組ABD3、有如下數(shù)組說(shuō)明語(yǔ)句：、有如下數(shù)組說(shuō)明語(yǔ)句：dim A(6) as integerdim B(3, -1 to 4) as single A數(shù)組的大小為數(shù)組的大小為個(gè)數(shù)組元素，個(gè)數(shù)組元素，B數(shù)組的大小為數(shù)組的大小為個(gè)數(shù)組元素。個(gè)數(shù)組元素。 A、6, 18 B、7, 24 C、7, 12 D、6, 25計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1212本章目錄本章目錄12125.1.3 動(dòng)態(tài)數(shù)組及聲明動(dòng)態(tài)數(shù)組及聲明 用用DimDim語(yǔ)句聲明語(yǔ)句聲明，賦，賦空維數(shù)空維數(shù)例例：Dim A( ) As IntegerReDim ReDim 動(dòng)態(tài)數(shù)組名

17、動(dòng)態(tài)數(shù)組名(下界下界 TO TO 上界上界.).) ReDimReDim語(yǔ)句中的數(shù)組上、下界可以是語(yǔ)句中的數(shù)組上、下界可以是常量常量或是或是有已知值的有已知值的變量變量 在過程中可以在過程中可以多次多次使用使用ReDimReDim 每次使用每次使用RedimRedim語(yǔ)句，會(huì)使原有數(shù)據(jù)丟失語(yǔ)句，會(huì)使原有數(shù)據(jù)丟失 例例：Redim A(5) Redim A(2,3) 例例：ReDim Preserve A(2, 4)只能修改最后一維的只能修改最后一維的大小大小計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1313本章目錄本章目錄1313分析：分析：(1) 聲明：聲明動(dòng)態(tài)數(shù)

18、組聲明：聲明動(dòng)態(tài)數(shù)組mark()；(2) 輸入：輸入學(xué)生人數(shù)輸入：輸入學(xué)生人數(shù)n； 定義動(dòng)態(tài)數(shù)組的大小定義動(dòng)態(tài)數(shù)組的大小mark( 1 to n)； 用循環(huán)輸入每個(gè)學(xué)生的成績(jī)用循環(huán)輸入每個(gè)學(xué)生的成績(jī)(3) 處理：重定義數(shù)組，讓其增加兩個(gè)元素處理：重定義數(shù)組，讓其增加兩個(gè)元素(平均值平均值和和人數(shù)人數(shù)) 求各成績(jī)的和及平均值，放入求各成績(jī)的和及平均值，放入mark(n+1)； 用循環(huán)和判斷統(tǒng)計(jì)大于平均值的人數(shù)用循環(huán)和判斷統(tǒng)計(jì)大于平均值的人數(shù)mark(n+2) (4) 輸出：輸出各人成績(jī)、平均值和高于平均值的人數(shù)輸出：輸出各人成績(jī)、平均值和高于平均值的人數(shù)計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序

19、設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1414本章目錄本章目錄1414 Dim mark() As Integer , n%, i% 動(dòng)態(tài)數(shù)組聲明動(dòng)態(tài)數(shù)組聲明 aver = 0 n = Val(InputBox(請(qǐng)輸入學(xué)生人數(shù)請(qǐng)輸入學(xué)生人數(shù)) ReDim mark(1 To n) For i = 1 To n 本循環(huán)結(jié)構(gòu)輸入成績(jī)本循環(huán)結(jié)構(gòu)輸入成績(jī) mark(i) = Val(InputBox(輸入第輸入第 & i & 位學(xué)生的成績(jī)位學(xué)生的成績(jī)) Print mark(i) Next i ReDim Preserve mark(1 To n + 2) For i = 1 To n 本循環(huán)結(jié)

20、構(gòu)求分?jǐn)?shù)和本循環(huán)結(jié)構(gòu)求分?jǐn)?shù)和 mark(n + 1) = mark(n + 1) + mark(i) Next i mark(n + 1) = mark(n + 1) / n 求平均分求平均分 For i = 1 To n 本循環(huán)結(jié)構(gòu)統(tǒng)計(jì)高于平均分的人數(shù)本循環(huán)結(jié)構(gòu)統(tǒng)計(jì)高于平均分的人數(shù) If mark(i)mark(n + 1) Then mark(n + 2)=mark(n + 2)+1 Next i Print 平均分：平均分：, mark(n + 1) Print 高于平均分的人數(shù)：高于平均分的人數(shù)：; mark(n + 2)計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(

21、VB)1515本章目錄本章目錄1515 Dim a() As Integer, i%, j%, m%, n%ReDim a(3)Print 重定義成一維數(shù)組重定義成一維數(shù)組For i = 0 To 3 a(i) = I2 Print a(i)Next im = 1n = 2ReDim a(m, n)Print 重定義成二維數(shù)組重定義成二維數(shù)組For i = 0 To m For j = 0 To n a(i, j) = i *10+ j Print i, j, a(i, j) next jNext i例題例題:選講選講計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)161

22、6本章目錄本章目錄16165.2 5.2 數(shù)組的基本操作數(shù)組的基本操作 利用循環(huán)結(jié)構(gòu)利用循環(huán)結(jié)構(gòu) 利用利用Array函數(shù)函數(shù) Dim A(10) As Integer For i = 0 To 10 A(i) = i Next i 聲明的數(shù)組必須是聲明的數(shù)組必須是可調(diào)數(shù)組可調(diào)數(shù)組或是或是省略圓括號(hào)省略圓括號(hào)的數(shù)組的數(shù)組 數(shù)組類型必須是數(shù)組類型必須是萬(wàn)能型萬(wàn)能型 下界默認(rèn)為下界默認(rèn)為0 0 上界由上界由UboundUbound函數(shù)獲取函數(shù)獲取 Dim B( ), C B = Array (1, 2, 3, 4) C = Array (aa, bb, cc)計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程

23、序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1717本章目錄本章目錄17172.2.數(shù)組的輸入、簡(jiǎn)單輸出數(shù)組的輸入、簡(jiǎn)單輸出（1 1）用用Inputbox函數(shù)函數(shù)輸入輸入 例：例：Dim A(5) As IntegerDim A(5) As Integer For i = 0 To 5 For i = 0 To 5 A(i) = Val(Inputbox(A(i) = Val(Inputbox(輸入第輸入第 & i & 個(gè)數(shù)個(gè)數(shù)) Next i Next i（2 2）用用print 語(yǔ)句語(yǔ)句輸出輸出 例：例： For i = 0 To 5 For i = 0 To 5 print print

24、 A(i) A(i) Next iNext i計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)1818本章目錄本章目錄18183.3.數(shù)組間的賦值數(shù)組間的賦值 例：例：Dim A(4) As Integer, B() As Integer, i%Dim A(4) As Integer, B() As Integer, i% 給給A A數(shù)組的各個(gè)元素賦值數(shù)組的各個(gè)元素賦值 B = A B = A ReDim B (4) For i = 0 To 4 B(i) = A(i) Next i(UBound(A)(UBound(A) 賦值號(hào)兩邊的賦值號(hào)兩邊的數(shù)組類型數(shù)組類型必須一致

25、必須一致 被賦值的數(shù)組（左邊）必須是一個(gè)動(dòng)態(tài)數(shù)組被賦值的數(shù)組（左邊）必須是一個(gè)動(dòng)態(tài)數(shù)組4 4、數(shù)組的輸出、數(shù)組的輸出 例例5.35.3 形成形成5 55 5的方陣，分別輸出方陣中各元素、的方陣，分別輸出方陣中各元素、上三角和上三角和下三角下三角元素元素 Dim sc%(4, 4) Picture1.Print 產(chǎn)生方陣數(shù)據(jù)產(chǎn)生方陣數(shù)據(jù) For i = 0 To 4 For j = 0 To 4 sc(i, j) = i * 5 + j Picture1.Print Tab(j * 5); sc(i, j); Next j Picture1.Print 換行換行 Next i Picture2.

26、Print 顯示上三角數(shù)組元素顯示上三角數(shù)組元素 For i = 0 To 4 For j = i To 4 Picture2.Print Tab(j * 5); sc(i, j); Next j Picture2.Print 換行換行 Next i計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2020本章目錄本章目錄20205 5、求數(shù)組和、最值、位置、求數(shù)組和、最值、位置例例5.45.4 求一維數(shù)組中各元素之和、最小數(shù)組元素，并求一維數(shù)組中各元素之和、最小數(shù)組元素，并將最小值數(shù)組元素與數(shù)組中第一個(gè)元素交換將最小值數(shù)組元素與數(shù)組中第一個(gè)元素交換v求元素和求元素和 通過

27、循環(huán)將每個(gè)元素進(jìn)行累加通過循環(huán)將每個(gè)元素進(jìn)行累加Option Base 1 設(shè)置數(shù)組的默認(rèn)下界為設(shè)置數(shù)組的默認(rèn)下界為1Dim aa = Array(26, 43, 22, 87, 33, 19, 37, 59, 76, 69)For i = 1 To UBound(a) sum = sum + a( i )Next i該方法得到數(shù)組該方法得到數(shù)組a a的上界的上界計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2121本章目錄本章目錄2121求數(shù)組中最小元素求數(shù)組中最小元素求最大值求最大值的方法與求最小的方法與求最小值相似值相似思考思考:如何求最小值的下標(biāo)如何求最小值的下

28、標(biāo)A(1)A(2)A(3)A(4)A(5)A(6)2643228719min262219min = A(1)If A(i) min Then min = A(i)End IfFor i = 2 To 6 Next i：imin=1：imin=i33計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2222本章目錄本章目錄2222下標(biāo)下標(biāo)12345678910初值初值26 43 61 873319 37 59 7669下標(biāo)下標(biāo)12345678910交換交換 1943 61 87 33 2637 59 76 69將最小元素與數(shù)組中第一個(gè)元素交換將最小元素與數(shù)組中第一個(gè)元素交換:

29、t = a(1) : a(1) = a(imin) : a(imin) = timin計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2323本章目錄本章目錄2323復(fù)習(xí)：編寫一個(gè)程序復(fù)習(xí)：編寫一個(gè)程序，按每行，按每行5個(gè)數(shù)顯示有個(gè)數(shù)顯示有n個(gè)斐波個(gè)斐波那契數(shù)序列。如那契數(shù)序列。如: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55.Dim x() As LongDim n%, i%n = Val(InputBox(輸入序列數(shù)輸入序列數(shù))ReDim x (n - 1)x(0) = 1x(1) = 1For i = 2 To n - 1 x(i) = x(i

30、 - 1) + x(i - 2)Next iFor i = 0 To n - 1 Print x(i), If (i + 1) Mod 5 = 0 Then PrintNext i分析：除序列分析：除序列中第中第1和第和第2兩兩個(gè)元素均為個(gè)元素均為1外外,其他元素是其他元素是前兩個(gè)元素的前兩個(gè)元素的和和.輸入序號(hào)輸入序號(hào)n,顯示前顯示前n個(gè)數(shù)個(gè)數(shù).計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2424本章目錄本章目錄24246 6、數(shù)組排序、數(shù)組排序 選擇法排序選擇法排序思路：從思路：從n個(gè)數(shù)中選最小數(shù)的下標(biāo)，結(jié)束循環(huán)后與第個(gè)數(shù)中選最小數(shù)的下標(biāo)，結(jié)束循環(huán)后與第1個(gè)個(gè)互換

31、互換A(1) A(2) A(3) A(4) A(5) A(6)A(1) A(2) A(3) A(4) A(5) A(6) 8 6 9 3 2 7 imin = 1 8 6 9 3 2 7 imin = 1從剩下的從剩下的n-1個(gè)數(shù)中選最小的數(shù)，結(jié)束循環(huán)與第個(gè)數(shù)中選最小的數(shù)，結(jié)束循環(huán)與第2個(gè)互換個(gè)互換依次類推依次類推2 2 4 45 5A(1) A(imin)A(1) A(imin)2 2 6 9 3 6 9 3 8 8 7 76 9 3 8 7 imin = 26 9 3 8 7 imin = 2 4 43 3 9 9 6 6 8 7 8 7A(2) A(imin)A(2) A(imin)計(jì)算

32、機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2525本章目錄本章目錄2525 iMin = 1 iMin = 1 For j = 2 To n For j = 2 To n If A(j) A(iMin) Then iMin = JIf A(j) A(iMin) Then iMin = J Next j Next j T = A(i)T = A(i) A(i) = A(iMin) A(i) = A(iMin) A(iMin) = T A(iMin) = T2 23 3i ii+1i+1 Dim A(), iMin%, n%, i%, j%, t% Dim A(), iMi

33、n%, n%, i%, j%, t% A = Array(8, 6, 9, 3, 2, 7) A = Array(8, 6, 9, 3, 2, 7) n = UBound(A) n = UBound(A) 選擇法排序選擇法排序計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2626本章目錄本章目錄2626 冒泡法排序（從小到大）冒泡法排序（從小到大） 當(dāng)所有元素比較一次后，最小數(shù)冒出當(dāng)所有元素比較一次后，最小數(shù)冒出 依次類推依次類推注意：比較的方向注意：比較的方向A(1) A(2) A(3) A(4) A(5) A(6)A(1) A(2) A(3) A(4) A(5) A

34、(6) 8 6 9 8 6 9 3 23 2 7 7A(4) A( 5 ) A(4) A( 5 ) 8 6 8 6 9 29 2 3 7 3 78 8 6 26 2 9 3 7 9 3 78 28 2 6 9 3 7 6 9 3 7A(1) A( 2 )A(1) A( 2 )2 72 73 23 29 29 2A(3) A( 4 ) A(3) A( 4 ) 6 26 2A(2) A( 3 ) A(2) A( 3 ) 8 28 22 2 8 6 9 3 7 8 6 9 3 7思路：思路： 將相鄰的兩個(gè)數(shù)比較，當(dāng)次序不對(duì)時(shí)互換位置將相鄰的兩個(gè)數(shù)比較，當(dāng)次序不對(duì)時(shí)互換位置 計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基

35、礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2727本章目錄本章目錄2727 If If a(j)a(j-1)a(j)a(j-1) Then Then T=a(j) : a(j)=a(j-1) : a(j-1)=T T=a(j) : a(j)=a(j-1) : a(j-1)=T End If End If Dim A(), n%, i%, j%, t% A = Array(8, 6, 9, 3, 2, 7) n = UBound(A) 冒泡法排序（從小到大）冒泡法排序（從小到大）For i=0 to nFor i=0 to n 輸出數(shù)組中的元素輸出數(shù)組中的元素 print a(i);print

36、 a(i);Next iNext i計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2828本章目錄本章目錄28287.7.插入數(shù)據(jù)插入數(shù)據(jù) 插入數(shù)據(jù)基本思想是：插入數(shù)據(jù)基本思想是：1 1）首先查找待插入數(shù)據(jù)在數(shù)組中的位置首先查找待插入數(shù)據(jù)在數(shù)組中的位置 k k ；2 2）然后從最后一個(gè)元素開始往前直到下標(biāo)為然后從最后一個(gè)元素開始往前直到下標(biāo)為 k k 的元的元素依次往后移動(dòng)一個(gè)位置；素依次往后移動(dòng)一個(gè)位置；3) 3) 第第 k k 個(gè)元素的位置騰出，將數(shù)據(jù)插入。個(gè)元素的位置騰出，將數(shù)據(jù)插入。 1 4 7 10 13 16 19 22 25 14 k x 例例5.75.7

37、在有序數(shù)組在有序數(shù)組a a中插入數(shù)值中插入數(shù)值x x。 計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)2929本章目錄本章目錄2929 Dim a(), i%, k%, x%, n% a = Array(1, 4, 7, 9, 12, 23, 56) n = UBound(a) 獲得數(shù)組的上界獲得數(shù)組的上界 x = 14 For k = 0 To n 查找欲插入數(shù)查找欲插入數(shù)x在數(shù)組中的位置在數(shù)組中的位置 If x n Then MsgBox (找不到此數(shù)據(jù)找不到此數(shù)據(jù)) : Exit Sub For i = k + 1 To n 將將x后的元素左移后的元素左移 a(i

38、 - 1) = a(i) Next i n = n - 1 ReDim Preserve a(n) 數(shù)組元素減少一個(gè)數(shù)組元素減少一個(gè) For i = 0 To n 顯示刪除后的各數(shù)組元素顯示刪除后的各數(shù)組元素 Print a(i); Next i例例5.8計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3232本章目錄本章目錄3232復(fù)習(xí)和作業(yè)復(fù)習(xí)和作業(yè) 什么是數(shù)組什么是數(shù)組 靜態(tài)數(shù)組的聲明靜態(tài)數(shù)組的聲明 動(dòng)態(tài)數(shù)組的聲明動(dòng)態(tài)數(shù)組的聲明 數(shù)組的簡(jiǎn)單使用數(shù)組的簡(jiǎn)單使用書面作業(yè)書面作業(yè): p123 1, 2, 3, 4上機(jī)作業(yè)上機(jī)作業(yè): 例題例題5.4，實(shí)驗(yàn)，實(shí)驗(yàn)E 1, 2,

39、 3, 4, 5計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3333本章目錄本章目錄33335.3 5.3 列表框和組合框控件列表框和組合框控件 列表框和組合框?qū)嵸|(zhì)是列表框和組合框?qū)嵸|(zhì)是一維字符串?dāng)?shù)組一維字符串?dāng)?shù)組的使用的使用列表框列表框 可顯示多個(gè)選項(xiàng)供用戶選擇，不能直接修改可顯示多個(gè)選項(xiàng)供用戶選擇，不能直接修改其中的內(nèi)容。其中的內(nèi)容。組合框組合框 組合了組合了文本框文本框和和列表框列表框的特性而形成的一種的特性而形成的一種控件?？丶?。組合框有組合框有3種樣式。種樣式。計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3434本章目錄本章目錄34

40、341 1、列表框和組合框重要屬性、列表框和組合框重要屬性(1) List List List List是一個(gè)集合是一個(gè)集合(2) ListIndexListIndex 選項(xiàng)的序號(hào)選項(xiàng)的序號(hào) (從從0開始開始)(3) ListCount ListCount 項(xiàng)目數(shù)量項(xiàng)目數(shù)量 (4) Text Text 被選定的文本內(nèi)容被選定的文本內(nèi)容 (5) Sorted Sorted 指定指定選項(xiàng)是否按字母順序排序選項(xiàng)是否按字母順序排序共有屬性共有屬性:ListIndex = 3計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3535本章目錄本章目錄3535List1. ListInd

41、ex List1. ListIndex = 2List1. ListCount List1. ListCount = 6List1. Sorted List1. Sorted = FalseList1. Text List1. Text 為為 C/C+程序設(shè)計(jì)程序設(shè)計(jì) List1.ListList1.List(List1.ListIndexList1.ListIndex) 等價(jià)于等價(jià)于List1.Text List1.Text 計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3636本章目錄本章目錄3636設(shè)置列表框的風(fēng)格設(shè)置列表框的風(fēng)格0-0-標(biāo)準(zhǔn)標(biāo)準(zhǔn)1-1-復(fù)選框的風(fēng)

42、格復(fù)選框的風(fēng)格設(shè)置列表框是否允許選擇多項(xiàng)設(shè)置列表框是否允許選擇多項(xiàng)0- 0- 禁止多選禁止多選 1-1-簡(jiǎn)單多選簡(jiǎn)單多選 2-2-擴(kuò)展多選擴(kuò)展多選表示對(duì)應(yīng)項(xiàng)是否被選中，是一個(gè)數(shù)組表示對(duì)應(yīng)項(xiàng)是否被選中，是一個(gè)數(shù)組list1.Selected(0)、list1.Selected(2)列表框列表框List的屬性的屬性計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3737本章目錄本章目錄3737組合框組合框Combo的屬性的屬性 0 0-下拉式組合框下拉式組合框 ( (既可選擇又可輸入既可選擇又可輸入) ) Style 1 1-簡(jiǎn)單組合框簡(jiǎn)單組合框 (既可選擇又可輸入既可選擇又

43、可輸入) 2 2-下拉列表下拉列表 ( (只能選擇只能選擇, , 不能輸入不能輸入) )Style=0Style=0Style=1Style=1Style=2Style=2計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3838本章目錄本章目錄38382 2、常用方法、常用方法v AddItemAddItem方法：把一個(gè)項(xiàng)目加入列表方法：把一個(gè)項(xiàng)目加入列表 對(duì)象對(duì)象. AddItem . AddItem 項(xiàng)目字符串項(xiàng)目字符串 , ,索引值索引值 索引值：決定新增項(xiàng)在列表中的位置，如果省略，索引值：決定新增項(xiàng)在列表中的位置，如果省略，則新增項(xiàng)目添加在最后。則新增項(xiàng)目添加在最

44、后。v RemoveItemRemoveItem方法：刪除列表中指定項(xiàng)目方法：刪除列表中指定項(xiàng)目 對(duì)象對(duì)象. RemoveItem . RemoveItem 索引值索引值v ClearClear：清除列表中所有項(xiàng)目清除列表中所有項(xiàng)目 例如：例如：List1.Clear 全部清除全部清除實(shí)驗(yàn)實(shí)驗(yàn)E 7計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)3939本章目錄本章目錄39393 3、重要事件、重要事件列表框：列表框：ClickClick、DblClickDblClick組合框：組合框：ClickClick例例5.9：編寫一個(gè)能對(duì)列表框編寫一個(gè)能對(duì)列表框進(jìn)行項(xiàng)目添加、修進(jìn)

45、行項(xiàng)目添加、修改和刪除的應(yīng)用程序。改和刪除的應(yīng)用程序。 關(guān)鍵：關(guān)鍵：1 1）獲得選中的下標(biāo)）獲得選中的下標(biāo)ListIndex2 2）不能直接修改列表框，）不能直接修改列表框，l先將內(nèi)容輸入在文本框中，先將內(nèi)容輸入在文本框中，l再更新列表框再更新列表框 計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4040本章目錄本章目錄4040Private Sub Form_Load() List1.AddItem 大學(xué)計(jì)算機(jī)基礎(chǔ)大學(xué)計(jì)算機(jī)基礎(chǔ) List1.AddItem VB.NET程序設(shè)計(jì)程序設(shè)計(jì) .End Sub Private Sub List1_Click() 選中某項(xiàng)目選

46、中某項(xiàng)目,在在Label1顯示內(nèi)容和下標(biāo)顯示內(nèi)容和下標(biāo) Label1 = List1.Text & 下標(biāo)為：下標(biāo)為： & List1.ListIndexEnd SubPrivate Sub Command1_Click() 添加新項(xiàng)目添加新項(xiàng)目 List1.AddItem Text1 Text1 = End SubPrivate Sub Command2_Click() 刪除選中的項(xiàng)目刪除選中的項(xiàng)目 List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click() 清除所有項(xiàng)目清除所有項(xiàng)目 List1.Cle

47、arEnd Sub例例5.9計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4141本章目錄本章目錄41414 4、應(yīng)用、應(yīng)用例例5.10編寫一個(gè)編寫一個(gè)使用屏幕字體、使用屏幕字體、字號(hào)的程序字號(hào)的程序 例例5.11使用列表框?qū)崿F(xiàn)排序、查找、刪除使用列表框?qū)崿F(xiàn)排序、查找、刪除(自學(xué)自學(xué))例例5.12使用組合框?qū)κ『椭陛犑褂媒M合框?qū)κ『椭陛犑忻Q管理市名稱管理(自學(xué)自學(xué))計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4242本章目錄本章目錄42425.5 5.5 綜合應(yīng)用綜合應(yīng)用- -分類統(tǒng)計(jì)分類統(tǒng)計(jì)1.1.綜合應(yīng)用綜合應(yīng)用- -分類統(tǒng)計(jì)分類統(tǒng)計(jì) 將

48、一批數(shù)據(jù)分類統(tǒng)計(jì)每一類中包含的個(gè)數(shù)。將一批數(shù)據(jù)分類統(tǒng)計(jì)每一類中包含的個(gè)數(shù)。例如：統(tǒng)計(jì)學(xué)生成績(jī)優(yōu)、良、中、及格、不及格人數(shù)。例如：統(tǒng)計(jì)學(xué)生成績(jī)優(yōu)、良、中、及格、不及格人數(shù)。 這類問題要掌握這類問題要掌握分類條件表達(dá)式的書寫分類條件表達(dá)式的書寫和和使用計(jì)使用計(jì)數(shù)變量保存相應(yīng)的計(jì)數(shù)數(shù)變量保存相應(yīng)的計(jì)數(shù)。計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4343本章目錄本章目錄4343綜合應(yīng)用綜合應(yīng)用- -分類統(tǒng)計(jì)分類統(tǒng)計(jì)例例5.14 5.14 輸入一串字符，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù)輸入一串字符，統(tǒng)計(jì)各字母出現(xiàn)的次數(shù) u統(tǒng)計(jì)統(tǒng)計(jì)26個(gè)字母出現(xiàn)的個(gè)數(shù)，必須聲明一個(gè)個(gè)字母出現(xiàn)的個(gè)數(shù)，必須聲

49、明一個(gè)具有具有26個(gè)元素的個(gè)元素的數(shù)組數(shù)組A(1 to 26)，每個(gè)元素的下標(biāo)表示對(duì)應(yīng)的字母，元素的值，每個(gè)元素的下標(biāo)表示對(duì)應(yīng)的字母，元素的值表示對(duì)應(yīng)字母出現(xiàn)的次數(shù)。表示對(duì)應(yīng)字母出現(xiàn)的次數(shù)。u 從輸入的字符串中逐一取出字符從輸入的字符串中逐一取出字符C，轉(zhuǎn)換成大寫字符，轉(zhuǎn)換成大寫字符(不區(qū)分不區(qū)分大小寫大小寫)，再求得其在數(shù)組中的下標(biāo)。，再求得其在數(shù)組中的下標(biāo)。u關(guān)鍵表達(dá)式：關(guān)鍵表達(dá)式： j= Asc( UCase(C) ) 65 +1 A(j)= A(j) + 1A(1) A(2) A(3)A(24) A(25) A(26) “A”“B”“C”“X”“Y”“Z”計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(

50、VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4444本章目錄本章目錄4444Private Sub Command1_Click() Dim a(1 To 26) As Integer, c As String * 1 le = Len(Text1) 求字符串的長(zhǎng)度求字符串的長(zhǎng)度 For i = 1 To le c = UCase(Mid(Text1, i, 1) 取一個(gè)字符，轉(zhuǎn)換成大寫取一個(gè)字符，轉(zhuǎn)換成大寫 If c = A And c 0 Then Picture1.Print ; Chr$(j + 64); =; a(j);: n = n + 1 If n Mod 6 = 0 And n 0

51、 Then Picture1.Print End If Next j End Sub例例5.14計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4545本章目錄本章目錄45452 2、綜合應(yīng)用、綜合應(yīng)用- -數(shù)據(jù)輸入數(shù)據(jù)輸入應(yīng)用：在財(cái)務(wù)、工程計(jì)算中，經(jīng)常需要對(duì)大量的數(shù)應(yīng)用：在財(cái)務(wù)、工程計(jì)算中，經(jīng)常需要對(duì)大量的數(shù) 據(jù)進(jìn)行輸入和編輯。據(jù)進(jìn)行輸入和編輯。問題問題: : InputBox一次輸入一個(gè)數(shù)據(jù)，而后不能修改一次輸入一個(gè)數(shù)據(jù)，而后不能修改 一個(gè)文本框也只能輸入一項(xiàng)一個(gè)文本框也只能輸入一項(xiàng)改進(jìn)：可利用文本框、字符串函數(shù)通過編程實(shí)現(xiàn)。改進(jìn)：可利用文本框、字符串函數(shù)通過編程實(shí)現(xiàn)

52、。例例5.155.15在文本框輸入數(shù)據(jù)在文本框輸入數(shù)據(jù), ,并允許修改和自動(dòng)識(shí)別非數(shù)并允許修改和自動(dòng)識(shí)別非數(shù)字?jǐn)?shù)據(jù)字?jǐn)?shù)據(jù); ;輸入結(jié)束將它們按分隔符分離后存放在數(shù)組中輸入結(jié)束將它們按分隔符分離后存放在數(shù)組中v利用利用KeyasciiKeyascii參數(shù)過濾非法數(shù)據(jù)，文本框本身具有編參數(shù)過濾非法數(shù)據(jù)，文本框本身具有編輯功能；輯功能；v利用利用ReplaceReplace函數(shù)去除重復(fù)輸入的分隔符。函數(shù)去除重復(fù)輸入的分隔符。v利用利用SplitSplit函數(shù)函數(shù)將輸入的內(nèi)容分離到數(shù)組中。將輸入的內(nèi)容分離到數(shù)組中。計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4646本章目錄本

53、章目錄4646Option ExplicitDim a() As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim Lenstra As Integer, j As Integer Dim Stra As String, S As String * 1 S = Chr(KeyAscii) Select Case S Case 0 To 9, , ., - 09,逗號(hào)，負(fù)號(hào)，小數(shù)點(diǎn)逗號(hào)，負(fù)號(hào)，小數(shù)點(diǎn) 為有效數(shù)字串，可以繼續(xù)輸為有效數(shù)字串，可以繼續(xù)輸入入 Case Else 輸入非數(shù)字字符，去除非法字符輸入非數(shù)字字符，去除非法字符,再輸入再輸入 KeyAscii = 0 End SelectEnd Sub例例5.15計(jì)算機(jī)技術(shù)基礎(chǔ)計(jì)算機(jī)技術(shù)基礎(chǔ)(VB) 程序設(shè)計(jì)語(yǔ)言程序設(shè)計(jì)語(yǔ)言(VB)4747本章目錄本章目錄4747Private Sub Command1_Click() Dim temp As String Dim i As Integer temp = Replace(Text1, , ,) 去除出現(xiàn)的連