VB實驗作業，急，馬上要交，VB實驗作業，急，馬上要交

1樓：碧海白鷗

dim t_index, mysum, max, min as double

private sub command1_click()

max = text3(0).text

min = text3(0).text

for i = 0 to 9

if max < text3(i).text then max = text3(i).text

if min > text3(i).text then min = text3(i).text

mysum = mysum + text3(i).text

next

mysum = (mysum - max - min) / 8

text2.text = mysum

mysum = 0

max = 0

min = 0

end sub

private sub form_load()

t_index = 0

mysum = 0

max=0

min=0

end sub

private sub text1_keypress(keyascii as integer)

if keyascii = 13 then

text3(t_index).text = text1.text

text1.text = ""

text1.setfocus

t_index = t_index + 1

if t_index = 10 then

t_index = 0

text1.text = ""

text1.locked = true

text1.enabled = false

command1.setfocus

end if

end if

end sub

2樓：北水村的杜

a(0)=text1(0),,,,,,a(9)=text1(9)b=a(0) c=a(0)

for i=0 to 8

if a(i+1)>a(i) then b=a(i+1)if a(i+1)

df=(a(0)+,,,+a(9)-b-c)/8text2=df

馬上要複習VB題目求解決

a 6 as integer randomize i 1 to 6 a i 5i 1 a i a j i 1 to 6 text1.text a i next i dim a 6 as integer private sub command1 click randomize 無序迴圈 text1.t...

初三馬上要中考了，晚上回家不想寫作業特別困怎麼辦？不是不想進步，就是回家不想寫作業

沒事的。初三了，建議晚上多背書看書，白天刷題。一樣，可以稍許放鬆一下，但不要徹底放鬆 回家不想寫作業，我是初三學生放學回家玩手機，看到作業太難就不想寫，怎麼辦？20 適當的玩，初三我知道很累，控制住時間，可以先放鬆一會再寫，勞逸結合。可能是您 的學習基礎有些差距。所以最重要的是下功夫 補上，沒有捷徑...

形容人沒有信用的成語有哪些要急最好馬上回答

人而無信，不知其可也 孔子 言無常信，行無常貞，惟利所在，無所不傾，若是則可謂小人矣 荀子 信猶五行之土，無定位，無成名，而水金木無不待是以生者。朱熹 若有人兮天一方，忠為衣兮信為裳。盧照齡 你必須以誠待人，別人才會以誠相報 李嘉誠 創業不像讀書，一天可以過好多年，創業必須一步一個腳印走。周晉峰 求...