|密封線線dim a(4,4)
for i = 1 to 4
for j = 1 to 4
a(i ,j) = (i–1) * 3 +j
next j
next i
for i = 3 to 4
for j = 3 to 4
print a(j ,i )；
next j
next i
end sub
程式執行後，單擊命令按鈕，輸出結果是：
9 12
10 13
4. 閱讀程式：
sub s( b( ) as integer)
for i = 1 to 4
b(i) = 2 * i
next i
end sub
private sub command1_click()
dim a(1 to 4) as integer
a(1) = 5
a(2) = 6
a(3) = 7
a(4) = 8
s a( )
for i = 1 to 4
print a(i)
next i
end sub
程式執行後，單擊命令按鈕，輸出結果是24
68五、程式填空（每空2分，滿分20分）
1. 下面的程式用「選擇」法將陣列a中的10個數按降序排列，請在劃線處將程式補充完整。
option base 1
private sub command1_click()
dim a
a = array(67,45,32,52,43,38,87,85,27,23)
for i = 1 to 9
for j = i＋1 to 10
if a(i) < a(j) then
t=a(i
a(i)=a(j
a(j)=t
end if
next j
next i
for i = 1 to 10
print a(i)
next i
end sub
2. 假定建立了乙個工程，包括兩個窗體，name屬性分別為form1和form2，啟動窗體為form2。在form2上畫乙個命令按鈕command1。
程式執行後，要求當單擊該命令按鈕時，窗體form2消失，顯示窗體form1。請在劃線處將程式補充完整。
private sub command1_click()
unload form2
end sub
六、編寫程式（滿分10分）
編寫乙個子函式，完成如下功能：返回陣列a中大於0的元素的個數。
例如：陣列a中的元素為（12，34，23，5，-6，78，0，4，65，49），則函式的返回值應為8。
已知a和n的定義為
const n=10
public a(1 to n) as integer
public x%
private sub command1_click()
randomize
for i=1 to 10
a(i)=int(rnd*-50)+50
next i
call min(a())
print x
end sub
private sub min(b())
for i=1 to 10
if a(i)>0 then x=x+1
next i
溫州職業技術學院
學生黨員服務中心 國防教育文化節策 劃書主辦 學生工作部 承辦 學生黨員服務中心 協辦 各系團學組織 目錄 一 前言3 二 系列活動 一 新生軍訓演示文稿2 二 國防競技賽 拔河比賽3 籃球賽4 三 國防教育講座5 四 演講比賽6 三 相關內容附件 一 人員安排表8 二 附各類 9 前言 兵者，國之...
邢台職業技術學院
高等職業教育 大氣科學技術專業 教學基本要求 徵求意見稿 一 專業名稱 大氣科學技術 二 碼 600201 三 招生物件 普通高中畢業生 三校生 職高 中專 技校畢業生 四 學制與學歷 三年制，專科 五 就業面向 1 能從事基層台站天氣分析與預報工作 2 能從事氣象公共服務業務 3 能從事基層台站人...
江門職業技術學院
關於提交有關專業剖析自評報告 和專業建設規劃的通知 各教學系 部 根據評估要求，請各教學系部按下列要求，於2008年12月12日前向評建辦提交下述各專業的專業剖析自評報告和專業建設規劃。具體要求如下 一 自評報告修改要求 1 寫作條目可按舊指標11條要點，即2008年初專業剖析自評報告基礎上修改，也...