1樓：幸福答案
vb天地幸福答案給你作答：
dim a(1 to 20, 1 to 20) as integer, yy as integer, sx as integer
private sub command1_click() '輸出最高分
x = a(1, 1): y = a(1, 2)
for i = 1 to 20
if x < a(i, 1) then x = a(i, 1)
if y < a(i, 2) then y = a(i, 2)
next
print "語文最高分是：" & x & "，"; "數學最高分是：" & y
print "語文平均分是："; yy / 20; "，"; "數學平均分是：" & sx / 20
end sub
private sub command2_click() '重置按鈕
clsyy = 0: sx = 0
form_load
end sub
private sub command3_click() '輸出各分數段人數
s1 = 0: s2 = 0: s3 = 0
for i = 1 to 20
n = (a(i, 1) + a(i, 2)) * 0.5
select case n
case is < 60
s1 = s1 + 1
case is <= 80
s2 = s2 + 1
case is > 80
s3 = s3 + 1
end select
next
print "兩科平均分低於60分的有：" & s1 & "人"
print "兩科平均分是60至80分的有：" & s2 & "人"
print "兩科平均分是80分以上的有：" & s3 & "人"
end sub
private sub form_load() '生成20個學生的兩科成績並計算平均分
show
print "語文"; " 數學"; " 兩科平均分"
randomize
for i = 1 to 20
for j = 1 to 2
a(i, j) = int(rnd * 61) + 40
if j = 1 then yy = yy + a(i, j)
if j = 2 then sx = sx + a(i, j)
next
print format(a(i, 1), "!@@@@@@@@@@@"); format(a(i, 2), "!@@@@@@@@@@@"); format((a(i, 1) + a(i, 2)) / 2, "!
@@@@@@@@@@@")
next
end sub
珠海的朋友們，小弟跪求，珠海的朋友們，小弟跪求
玩 珠海十景 圓明新園 東澳島 麗島銀灘 共樂園 鵝嶺共樂 珠海漁女 漁女香灣 農科中心 農科觀奇 飛沙灘 飛沙踏浪 珠海烈士陵園 獅山浩氣 黃楊山景區 黃楊金臺 淇澳島 淇澳訪古 固定景點 海泉灣 溫泉 遊樂場 御溫泉，珍珠樂園，石景山公園索道，野狸島 休閒散步 海天驛站 情侶路綠道單車遊等 吃 ...
百分求助朋友們幫幫我
還是放棄吧,女孩都是這樣的,都是很嚮往以前的生活,因為以前有著美好的回憶,而且他也不是真正意義上的,那心靈上接受了你,他心理還是有以前的男朋友的,即使她和你在一起的,如果他的男朋友不出現,也許你們會很幸福,可一但他出現了,你們的生活還是會有裂痕的,還是找一個愛自己的人吧 如果愛她,就祝福她幸福吧 畢...
這樣的男人，朋友們你們怎麼選，女生朋友們，你們是怎麼看周圍單純老實的男生的呢？
那男生應該來說是不錯的 至於你喜不喜歡那是個人的事 如果不喜歡的話，就不要再浪費別人感情 早點傷害總比遲傷害的好 時間越久越難分開 不過我得提醒你，離開他了你會不適應的 畢竟人家照顧你不少 你也許還會後悔沒有他 選擇在你手上，自己作決定叭 自己的事，尤其的感情方面，別人只能建議，真正的作用還是起不了...