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判斷題 幫忙做一下啊
5 不同控制元件的tabindex屬性可以相同。7 有宣告語句 dim a 3 to 1，3 as integer，則陣列a是二維動態陣列。這兩個不對,其他的不清楚.我對vb也只是略知一二，您的這些問題好像在書上或是資料裡都有的啊，為什麼非的到這來問呢？vb判斷題 vb判斷題 幫忙做一下啊 1.語句...
兩個C 程式設計題，大俠幫小弟做一下
一 include using namespace std void main for i 0 i 3 i 從小到大排序for j i 1 j 3 j cout 從小到大的順序是 using namespace std void check char m,char n void main void ...
幫忙做一下VB題，救急，多謝了
1 有如下程式 for j 10 to 6 step 1k j next j print k j end執行時輸出的結果是c 6 5 2 有如下程式 a 12345 b abcde for j 1 to 5 c c left a 1 right b 1 next j print c end執行時輸出...