首頁 考試吧論壇 Exam8視線 考試商城 網(wǎng)絡(luò)課程 模擬考試 考友錄 實(shí)用文檔 求職招聘 論文下載
2012中考 | 2012高考 | 2012考研 | 考研培訓(xùn) | 在職研 | 自學(xué)考試 | 成人高考 | 法律碩士 | MBA考試
MPA考試 | 中科院
四六級(jí) | 職稱英語 | 商務(wù)英語 | 公共英語 | 托福 | 托業(yè) | 雅思 | 專四專八 | 口譯筆譯 | 博思
GRE GMAT | 新概念英語 | 成人英語三級(jí) | 申碩英語 | 攻碩英語 | 職稱日語 | 日語學(xué)習(xí) |
零起點(diǎn)法語 | 零起點(diǎn)德語 | 零起點(diǎn)韓語
計(jì)算機(jī)等級(jí)考試 | 軟件水平考試 | 職稱計(jì)算機(jī) | 微軟認(rèn)證 | 思科認(rèn)證 | Oracle認(rèn)證 | Linux認(rèn)證
華為認(rèn)證 | Java認(rèn)證
公務(wù)員 | 報(bào)關(guān)員 | 銀行從業(yè)資格 | 證券從業(yè)資格 | 期貨從業(yè)資格 | 司法考試 | 法律顧問 | 導(dǎo)游資格
報(bào)檢員 | 教師資格 | 社會(huì)工作者 | 外銷員 | 國際商務(wù)師 | 跟單員 | 單證員 | 物流師 | 價(jià)格鑒證師
人力資源 | 管理咨詢師 | 秘書資格 | 心理咨詢師 | 出版專業(yè)資格 | 廣告師職業(yè)水平 | 駕駛員
網(wǎng)絡(luò)編輯 | 公共營養(yǎng)師 | 國際貨運(yùn)代理人 | 保險(xiǎn)從業(yè)資格 | 電子商務(wù)師 | 普通話 | 企業(yè)培訓(xùn)師
營銷師
衛(wèi)生資格 | 執(zhí)業(yè)醫(yī)師 | 執(zhí)業(yè)藥師 | 執(zhí)業(yè)護(hù)士
會(huì)計(jì)從業(yè)資格考試會(huì)計(jì)證) | 經(jīng)濟(jì)師 | 會(huì)計(jì)職稱 | 注冊會(huì)計(jì)師 | 審計(jì)師 | 注冊稅務(wù)師
注冊資產(chǎn)評估師 | 高級(jí)會(huì)計(jì)師 | ACCA | 統(tǒng)計(jì)師 | 精算師 | 理財(cái)規(guī)劃師 | 國際內(nèi)審師
一級(jí)建造師 | 二級(jí)建造師 | 造價(jià)工程師 | 造價(jià)員 | 咨詢工程師 | 監(jiān)理工程師 | 安全工程師
質(zhì)量工程師 | 物業(yè)管理師 | 招標(biāo)師 | 結(jié)構(gòu)工程師 | 建筑師 | 房地產(chǎn)估價(jià)師 | 土地估價(jià)師 | 巖土師
設(shè)備監(jiān)理師 | 房地產(chǎn)經(jīng)紀(jì)人 | 投資項(xiàng)目管理師 | 土地登記代理人 | 環(huán)境影響評價(jià)師 | 環(huán)保工程師
城市規(guī)劃師 | 公路監(jiān)理師 | 公路造價(jià)師 | 安全評價(jià)師 | 電氣工程師 | 注冊測繪師 | 注冊計(jì)量師
化工工程師 | 材料員
繽紛校園 | 實(shí)用文檔 | 英語學(xué)習(xí) | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲
計(jì)算機(jī)等級(jí)考試

2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)(十三)

  5.2.2 數(shù)組元素的輸出

  例:一維數(shù)組的輸出

  二維數(shù)組的輸出

  Option Explicit

  Option Base 1

  Private Sub Form_click()

  Dim k As Integer, i As Integer

  Dim A(4, 5) As Integer, J As Integer, S As String

  '生成數(shù)組

  k = 10

  For i = 1 To 4

  If i Mod 2 <> 0 Then '處理奇數(shù)行

  For J = 1 To 5

  k = k + 1

  A(i, J) = k

  Next J

  Else

  For J = 5 To 1 Step -1 '處理偶數(shù)行

  k = k + 1

  A(i, J) = k

  Next J

  End If

  Next i

  '數(shù)組輸出

  If Check1.Value <> 1 Then

  For i = 1 To 4 '輸出到圖片框

  For J = 1 To 5

  Picture1.Print A(i, J);

  Next J

  Picture1.Print

  Next i

  Else

  For i = 1 To 4 '輸出到多行文本框

  For J = 1 To 5

  S = S & Str(A(i, J))

  Next J

  S = S & Chr(13) & Chr(10)

  Next i

  Text1.Text = S

  End If

  End Sub

  7.2.3 數(shù)組元素的引用

  例5-1 P95

  Option Explicit

  Option Base 1

  Private Sub Form_Click()

  Dim Compare(12) As Integer, i As Integer

  Dim Max As Integer, Min As Integer

  Randomize

  For i = 1 To 12

  Compare(i) = Int(90 * Rnd) + 10

  Print Compare(i);

  Next i

  Print

  Max = Compare(1): Min = Compare(1)

  For i = 2 To 12

  If Compare(i) > Max Then

  Max = Compare(i)

  ElseIf Compare(i) < Min Then

  Min = Compare(i)

  End If

  Next i

  Print " 最大數(shù)是:"; Max

  Print " 最小數(shù)是:"; Min

  End Sub

  例5-7 求裴波拉契數(shù)列。

  Option Base 1

  Option Explicit

  Private Sub Form_Click()

  Dim Fb(18) As Integer, I As Integer

  Fb(1) = 1: Fb(2) = 1

  For I = 3 To 18

  Fb(I) = Fb(I - 2) + Fb(I - 1)

  Next I

  For I = 1 To 18

  Text1 = Text1 & Str(Fb(I)) & ""

  Next I

  End Sub

  例5-8 :

  Option Explicit

  Private Sub Command1_ClicK()

  Dim St As String, Idx As Integer

  Dim A(0 To 25) As Integer

  Dim I As Integer, js As Integer

  Dim CH As String * 1, L As Integer

  St = Text1.Text

  L = Len(St)

  For I = 1 To L

  CH = Mid(St, I, 1)

  If CH >= "A" And CH <= "Z" Then

  Idx = Asc(CH) - Asc("A")

  A(Idx) = A(Idx) + 1

  ElseIf CH >= "a" And CH <= "z" Then

  Idx = Asc(CH) - Asc("a")

  A(Idx) = A(Idx) + 1

  End If

  Print A(Idx)

  Next I

  For I = 0 To 25

  If A(I) <> 0 Then

  js = js + 1

  Text2 = Text2 & Chr(I + Asc("A")) & ":" & Str(A(I)) & ""

  If js Mod 5 = 0 Then Text2 = Text2 & Chr(13) & Chr(10)

  End If

  Next I

  End Sub

  相關(guān)推薦:

  2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總

  計(jì)算機(jī)等級(jí)考試三級(jí)PC技術(shù)過關(guān)心得技巧

  2012年3月計(jì)算機(jī)二級(jí)考試真題匯總

文章搜索
版權(quán)聲明:如果計(jì)算機(jī)等級(jí)考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益,請與我們聯(lián)系800@exam8.com,我們將會(huì)及時(shí)處理。如轉(zhuǎn)載本計(jì)算機(jī)等級(jí)考試網(wǎng)內(nèi)容,請注明出處。