




已閱讀5頁,還剩5頁未讀, 繼續(xù)免費(fèi)閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
信 息 工 程 學(xué) 院實(shí)驗(yàn)報(bào)告的內(nèi)容與格式按任課教師的要求書寫。 程序設(shè)計(jì)基礎(chǔ)(VB) 實(shí)驗(yàn)/實(shí)習(xí)報(bào)告學(xué)院:動物科技學(xué)院班級:動科123姓名:王珂學(xué)號:2012010848 成績:A實(shí)習(xí)四、數(shù)組與自定義數(shù)據(jù)類型1、 實(shí)驗(yàn)/實(shí)習(xí)過程T1代碼設(shè)計(jì):Private Sub Command1_Click() Dim C(0 To 7) A = Array(1, 3, 5, 2, 4, 18, 50, 25) B = Array(5, 27, 30, 35, 60, 41, 87, 33) For i = 0 To 7 C(i) = A(i) + B(i) Next Print a(), b(), c() For i = 0 To 7 Print A(i), B(i), C(i) NextEnd Sub運(yùn)行結(jié)果:T2代碼設(shè)計(jì):Private Sub Command1_Click() Dim a() As Integer n = Val(Text1.Text) m = Val(Text2.Text) ReDim a(1 To n, 1 To m) As Integer For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 901) Picture1.Print Tab(5 * (j - 1) + 2); a(i, j); Next Next r = 1: c = 1 For i = 1 To n For j = 1 To m If a(r, c) a(i, j) Then r = i c = j End If Next Next Print 矩陣中的最大值為: & a(r, c) Print Print 位置: & r & 行, & c & 列 End Sub運(yùn)行結(jié)果:T3代碼設(shè)計(jì):Private Sub Command1_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Picture1.Print a(i); Next Picture1.Print Print For i = 1 To 5 t = a(i) a(i) = a(11 - i) a(11 - i) = t Next Picture1.Print 調(diào)換后的數(shù)組: For i = 1 To 10 Picture1.Print a(i); NextEnd Sub運(yùn)行結(jié)果:T4代碼設(shè)計(jì):Private Sub Command1_Click() Dim A() As Single Dim B(5 To 9) As Integer n = Val(InputBox(請輸入學(xué)生人數(shù):) ReDim A(1 To n) For i = 1 To n A(i) = Round(Rnd * 61 + 40, 1) Next For i = 1 To n Select Case A(i) Case Is 60 B(5) = B(5) + 1 Case Is 70 B(6) = B(6) + 1 Case Is 80 B(7) = B(7) + 1 Case Is 90 B(8) = B(8) + 1 Case Is = 100 B(9) = B(9) + 1 End Select NextPicture1.Print 不及格有; B(5); 人 For i = 6 To 9 Picture1.Print i * 10; 到; i * 10 + 9; 之間有; B(i); 人 NextEnd Sub運(yùn)行結(jié)果:T5代碼設(shè)計(jì):Private Sub Command1_Click() a = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2) b = Array(1, 0, X, 9, 8, 7, 6, 5, 4, 3, 2) c = Text1.Text If Len(c) 17 Then MsgBox 你輸入的位數(shù)不夠 Exit Sub End If s = 0 For i = 0 To 16 t = Val(Mid(c, i + 1, 1) s = s + t * a(i) Next d = s Mod 11 Picture1.Print 第十八位編碼是: & b(d)End Sub運(yùn)行結(jié)果:T7代碼設(shè)計(jì):Private Sub Command1_Click() Dim a(1 To 15) a(1) = Chr(Int(Rnd * 26 + 65) n = 1 Do While n a(j).q Then l = j End If Next t = a(l) a(l) = a(i) a(i) = t Next Picture1.Print Picture1.Print Tab(10); 校運(yùn)動會100米成績表 Picture1.Print String(30, ) For i = 1 To 10 Picture1.Print 第 & i & 名, a(i).q & 號, a(i).p & 秒 NextEnd Sub運(yùn)行結(jié)果:2、 實(shí)驗(yàn)/實(shí)習(xí)總結(jié)T1,使用了數(shù)組,以及數(shù)組間的加法運(yùn)算。T2,產(chǎn)生了隨機(jī)數(shù)組,使用了IF結(jié)構(gòu)以及FOR NEXT 結(jié)構(gòu)。T3,同T2,并且進(jìn)行了數(shù)組間的調(diào)換,使用picture屬性比text感覺更方便。T4,套用了Select Case結(jié)構(gòu)進(jìn)行條件判斷。T5,使用了Len函數(shù)對輸入位數(shù)進(jìn)行了判定。T7,在確定如何按條件執(zhí)行時(shí)想了很久,最后添加了一步判定ture o
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 福建省東山縣第二中學(xué)2025屆化學(xué)高二下期末聯(lián)考試題含解析
- 校外培訓(xùn)用戶管理辦法
- 極端氣候預(yù)警管理辦法
- 沖擊地壓防治管理辦法
- 作戰(zhàn)數(shù)據(jù)存儲管理辦法
- 河南省核查員管理辦法
- 兵棋推演中的智能決策技術(shù):基于大語言模型的探索與應(yīng)用
- 星級管理辦法舉措建議
- 江蘇沛縣公墓管理辦法
- 合肥廠區(qū)定位管理辦法
- 企業(yè)消防安全責(zé)任制模板
- 2025屆黑龍江省哈爾濱四十七中學(xué)七年級英語第二學(xué)期期末統(tǒng)考試題含答案
- 人工智能通識課程開課方案
- 2025-2030中國智慧政務(wù)行業(yè)發(fā)展策略及投資潛力預(yù)測報(bào)告
- 【中考真題】2025年福建中考數(shù)學(xué)真題試卷(含解析)
- 2025年四川省宜賓市中考數(shù)學(xué)真題試卷及答案解析
- 2025年時(shí)事政治考試題及答案(300題)
- 楊浦區(qū)“十五五”規(guī)劃綱要及專項(xiàng)規(guī)劃編制工作方案
- 2025年中國氧化鎂項(xiàng)目投資計(jì)劃書
- T/CIE 186-2023業(yè)務(wù)研發(fā)安全運(yùn)營一體化能力成熟度模型
- 電極檢驗(yàn)標(biāo)準(zhǔn)
評論
0/150
提交評論