1樓：匿名使用者
dim marr%(1 to 10)
private sub command1_click()dim i%
text1.text = ""
for i = 1 to 10
randomize
marr(i) = int(rnd * 41) + 60text1.text = text1.text & marr(i) & " "
next
end sub
private sub command2_click()dim max%, min%, sum%
min = 100
for i = 1 to 10
if marr(i) > max then max = marr(i)
if marr(i) < min then min = marr(i)
sum = sum + marr(i)
next i
text2.text = max
text3.text = min
text4.text = sum / 10end sub
2樓：匿名使用者
dim a(10) as integer
private sub command1_click()me.text1 = ""
me.text2 = ""
me.text3 = ""
me.text4 = ""
randomize
for i = 1 to 10
a(i) = int(rnd * 41 + 60)me.text1 = me.text1 & a(i) & " "
next
end sub
private sub command2_click()sum = a(1): ma = a(1): mi = a(1)for i = 2 to 10
sum = sum + a(i)
if a(i) > ma then ma = a(i)if a(i) < mi then mi = a(i)next
me.text2 = ma
me.text3 = mi
me.text4 = sum / 10
end sub
急急急請做一下下面一題，急急急。。。。請做一下下面一題？
按照題目是週四，不過現實生活是週二望採納 實際 1992年3月16日是週一，可得6 9是週二 題目 1992 3 16是週三，可推知6 9是週四 題好像沒發出來，請您再發一下。6月9日與6月16日差7天，星期數相同，所以只要求16日是星期幾。3月16日到6月16日，經過3月和5月兩個大月，所以是92...
求牛人幫我翻譯一下下面這段英語，謝謝
技術支援 主動您的產品是合格的免費 技術支援在第一個90天。估計截止日期 2012年8月1日維修和服務範圍 主動您的產品是合格的硬體維修和服務在蘋果的有限保修。估計截止日期 2013年5月2日一個有效的購買日期可以快速找到您的蘋果產品，並提供您需要的幫助 技術支援 活躍 你的產品是合格的免費 技術支...
看一下下面這段VB程式的作用
如果過程的級別變數是用 static 關鍵字來宣告的，則只要 正在任何模組中執行，此變數仍會保留它的值。而當所有的 都完成執行後，變數會失去它的範圍和它的值。如果過程中用 dim 宣告變數，則當該過程的 完成執行後，變數就會失去它的範圍和它的值。你的給出過程只是用來判斷敲回車鍵的，模組中肯定還有其它...