VB課程設計之陣列2實驗報告

2022-05-20 15:32:01 字數 2349 閱讀 6393

實驗報告

實驗目的:

(1) 掌握靜態陣列和動態陣列定義及使用

(2) 掌握陣列元素的引用,陣列的輸入和輸出

(3) 掌握「控制項陣列」的使用

實驗內容:

(1) 在名稱為form1的窗體上有乙個名稱為shape1的形狀控制項畫乙個名稱為l1的列表框,並在屬性視窗中設定列表項的值為1,2,3,4,5,將窗體的標題設為「圖形控制項」。單擊列表框中的某一項,則按照所選的值該錶形狀控制項的形狀。例如,選擇3,則形狀控制項被設為圓形,如下圖所示。

要求:窗體檔案儲存為工程檔案儲存為

程式**:

private sub l1_click()

=end sub

(2) 介面如上圖所示,窗體上所有物件的名稱屬性都使用預設值。單擊命令按鈕時候計算出最後得分。計算方法是去掉乙個最高得分和乙個最低得分,求剩下得分的平均值再乘以難度係數,最後結果保留到小數點後面兩位。

要求窗體檔案儲存為工程檔案儲存為

程式**:

option base 1

private sub command1_click()

dim a as variant

a = array(val( val( val( val( val( val(

max = a(1)

min = a(1)

for i = 2 to 6

if max < a(i) then max = a(i)

if min > a(i) then min = a(i)

next i

for i = 1 to 6

sum = a(i) + sum

next i

= int((sum - max - min) / 4 * * 100) / 100

end sub

(3) 名稱為form1的窗體上有乙個命令按鈕,單擊命令按鈕,利用隨機函式生成乙個6行6列的整型陣列(取值範圍【10,90】)。找出摸個指定行內最大的元素所在的列號。

要求:窗體檔案儲存為工程檔案儲存為

程式**:

private sub command1_click()

dim a(1 to 6, 1 to 6) as integer

for i = 1 to 6

for j = 1 to 6

a(i, j) = int(rnd * 81 + 10)

next j

next i

for i = 1 to 6

for j = 1 to 6

print a(i, j);

next j

print

next i

m = inputbox("請輸入要所要選定的行數")

max = 1

for i = 2 to 6

if a(m, max) < a(m, i) then max = i

next i

print "最大元素所在列號="; max

end sub

(4) 名稱為form1的窗體上有乙個命令按鈕,單擊命令按鈕輸入乙個班10個學生的姓名和成績,然後對學生成績降序排序,輸出排序後的成績和學生姓名。

要求:窗體檔案儲存為工程檔案儲存為

程式**:

private type student

nam as string * 8

mark as integer

end type

private sub command1_click()

dim a(1 to 10) as student, t as student

for i = 1 to 10

a(i).nam = inputbox("請輸入第" & i & "個學生的姓名:")

a(i).mark = inputbox("請輸入第" & i & "個學生的成績:")

next i

print "姓名成績"

for i = 1 to 10

print a(i).nam; tab(12); a(i).mark

next i

print "排序後:"

print "姓名成績"

for i = 1 to 9

max = i

for j = i + 1 to 10

if a(max).mark < a(j).mark then max = j

next j

t = a(i)

a(i) = a(max)

a(max) = t

next i

for i = 1 to 10

print a(i).nam; tab(12); a(i).mark

next i

end sub

VB課程設計報告 2

計算機課程設計報告 題目系別年級專業 班級學號 學生姓名 指導教師 設計時間 目錄第一章前言2 1.1 選題背景 1.2選題意義 1.3 具體功能及亮點 第二章功能需求分析3 2.1程式設計環境的選擇 2.2系統可行性 第三章系統設計和實現4 3.1設計方案 2.2具體 3.3技術問題及解決方法 3...

課程設計實驗報告

上海應用技術學院 課程設計 2011 2012學年第二學期 設計題目成績記錄簿 院 系 電腦科學與資訊工程學院 專業計算機應用技術 班級 12104006 學號 1210400631 學生姓名溫源 設計時間 2013.07.1 2012.07.12 指導教師宋智禮 提交日期 上海應用技術學院課程設計...

課程設計實驗報告

實驗報告 課程名稱統計學課程設計 實驗類別 綜合性 設計性 其他 實驗專案統計學課程設計 專業班級 姓名 學號 實驗室號實驗組號 實驗時間批閱時間 指導教師成績 瀋陽工業大學實驗報告 適用經 管 文 法專業 專業班級學號姓名 實驗專案 spss資料處理 附件 1 瀋陽工業大學實驗報告 適用經 管 文...