1樓：在世貿天階灌籃的高飛燕草
////////第一題，把**複製就可以了///////
private sub form_click()
clsdim a(1 to 10) as string '學生姓名
dim b(1 to 10) as integer '學生學號
dim c(1 to 10) as single '學生成績
for i = 1 to 10
a(i) = inputbox("請輸入第" & i & "個學生姓名：")
b(i) = inputbox("請輸入第" & i & "個學生學號：")
c(i) = inputbox("請輸入第" & i & "個學生成績：")
sum = sum + c(i)
record = record & "姓名：" & a(i) & space(5) & "學號：" & b(i) & space(5) & "成績：" & c(i) & vbcrlf
next i
p = val(sum) / 10
print record
print "平均成績為：" & p
for i = 1 to 10
if c(i) > 1.1 * p then record1 = record1 & "姓名：" & a(i) & space(5) & "學號：
" & b(i) & space(5) & "成績：" & c(i) & vbcrlf '一等獎
if c(i) > 1.05 * p and c(i) <= 1.1 * p then record2 = record2 & "姓名：
" & a(i) & space(5) & "學號：" & b(i) & space(5) & "成績：" & c(i) & vbcrlf ' 二等獎
next
print "獲得一等獎的名單："
print record1
print "獲得二等獎的名單："
print record2
end sub
////////第二題，把**複製就可以了///////
private sub form_click()
clsdim a(1 to 10)
for i = 1 to 10
a(i) = inputbox("輸入學生" & i & "的成績：")
print "學生" & i & "的成績為：" & a(i)
next i
for i = 10 to 2 step -1
for j = 1 to i - 1
if a(j) < a(j + 1) then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
end if
next j
next i
print "從大到小排序後的結果為："
for i = 1 to 10
print a(i);
next
end sub
2樓：銀狼約定
問下，第一個問題是用陣列還是資料庫儲存資料？
VB題大佬幫忙做一下，求VB大佬幫忙解決一下！！謝謝
private sub command1 click dim i as integer for i 0 to 9 list1.list i 10 int rnd 90 next end sub private sub command2 click list2.clear dim i as integ...
c語言簡單程式設計題目兩道，求高手做一下。高分
第1題 include include define max 200 int main void i file fp if fp fopen in.dat wb null fwrite a,sizeof a 1,fp 將資料寫入檔案,位元組的方式 for i 0 i max i return 0 第...
一些vb的選擇題,高手幫忙做下,謝謝
d a d b d b d b b a b d d d b 樓上兩位都挺強，但是，有幾點要說明一下 gushenkai的解釋稍微有點問題 1.物件是類的例項，例如 按鈕 是一個類，放在窗體上的一個具體的按鈕是一個物件。學生 是一個類，張三同學 是一個物件，類是抽象的，物件是具體的。7.因為語言的編譯...