實驗五陣列應用程式設計(3個學時)
一 、實驗目的
1. 掌握陣列的宣告、陣列元素的引用。
2. 掌握靜態陣列和動態陣列的使用差別。
3. 應用陣列解決與陣列有關的常用演算法問題。
4. 學會使用控制項陣列。
二 、實驗內容
1. 設計乙個窗體,在窗體的單擊事件中程式設計實現:
輸出5行5列方陣,使對角線上元素為1,其他元素為0。
1)**設計如下
private sub form_click()
dim a(1 to 5, 1 to 5) as single
for i = 1 to 5
for j = 1 to 5
if i = j then
a(i, j) = 1
else
a(i, j) = 0
end if
next j
next i
for i = 1 to 5
for j = 1 to 5
currentx = j * 300
currenty = i * 300
print a(i, j)
next j
next i
end sub
2)將執行結果的介面截下來貼上在下面:
3)除錯過程記錄(錯誤情況及改正方法)
一開始沒有寫currentx = j * 300
currenty = i * 300
結果整個在第一列輸出了
改正:新增currentx = j * 300
currenty = i * 300
2. 設有乙個6×6的方陣,其中的元素是隨機產生的10 - 99 之間的兩位數. 分別求出主對角線和次對角線上元素之和,以及方陣中最小的元素的位置和值.
要求:程式執行後,單擊「產生」按鈕時,輸出方陣。單擊「計算」按鈕時,輸出對角線元素之和,以及最小元素的值與位置。
1) **設計如下
dim a(1 to 6, 1 to 6) as single
private sub command1_click()
for i = 1 to 6
for j = 1 to 6
randomize
a(i, j) = int(99 * rnd + 1)
next j
next i
for i = 1 to 6
for j = 1 to 6
currentx = j * 300
currenty = i * 300
print a(i, j)
next j
next i
end sub
private sub command2_click()
dim b as single, c as single, d as single
b = a(1, 1)
for i = 1 to 6
for j = 1 to 6
if b > a(i, j) then
b = a(i, j)
& "," & j & ")")
end if
if i = j then
c = c + a(i, j)
end if
if i + j = 6 then
d = d + a(i, j)
end if
next j
next i
= c= d= bend sub
2)將執行結果的介面截下來貼上在下面:
3)除錯過程記錄(錯誤情況及改正方法)
錯誤:沒有加randomize
每次都產生相同的隨機數序列
改正新增randomize
3.設計程式:某一維陣列共有7個元素,元素的值有鍵盤輸入,當單擊「輸入」 按鈕時,將原陣列輸出到乙個標籤中,當單擊「排序」按鈕時,將陣列按由小到大的順序排序後顯示在另乙個標籤中。
1)**設計如下
dim a(1 to 7) as single
private sub command1_click()
for i = 1 to 7
= & str(a(i))
next i
end sub
private sub command2_click()
dim b as single, c as single, d as single
for b = 1 to 6
for i = 1 to 6
if a(i) > a(i + 1) then
c = a(i)
a(i) = a(i + 1)
a(i + 1) = c
end if
next i
next b
for i = 1 to 7
= & str(a(i))
next i
end sub
private sub form_click()
for i = 1 to 7
a(i) = inputbox("請輸入陣列的值", a(i), "")
next i
end sub
2)將執行結果的介面截下來貼上在下面
3)除錯過程記錄(錯誤情況及改正方法)
化工實習報告 青島科技大學
化工作為工業發展的前提產業,隨著經濟全球化的發展,與中國面臨的壓力與挑戰的日益增大,化工的發展與清潔化工越來越重要。作為21世紀的建設者,我們積極參見去中國石化的實習,以實現理論與實際得結合。中國石化集團齊魯石化公司勝利煉油廠是全國頗具規模的煉油企業之一,於1966年4月動工建設,1967年10月投...
青島科技大學精美求職簡歷
自薦信尊敬的領導 您好,首先感謝您在百忙之中審閱我的自薦信,當您翻開這一頁的時候,您已經為我開啟了通往機遇與成功的第一扇大門。我將努力讓您在短時間內了解我。我是 大學20xx屆的應屆畢業生,我所學的專業。經過4年的大學生活,在師友的嚴格教益及個人的不斷努力下,我已經具備了紮實的專業基礎知識,同時為了...
青島科技大學分離工程A
2007 2008二分離工程a 化工學院葉慶國 化工05級1 5班 答案寫在答題紙上,寫在試題紙上無效 一 簡答題 28分,每題4分 1 給出相平衡關係常用的幾種表達方式。2 寫出絕熱操作的簡單平衡級的設計變數。3 解釋什麼是清晰與不清晰分割。4 分離過程的特徵是什麼?說明有幾種型別的分離劑?5 實...