VB新人求幫忙

1樓：匿名使用者

按照你這個思路我稍微修改了下：

private sub command1_click()dim i as integer,max as integer,min as integer

randomize

min=int(rnd*100)

max=min

text1(0)=min

for i = 1 to 5

randomize

text1(i)=int(rnd*100)if val(text1(i))>max then max=val(text1(i))

if val(text1(i))

next i

text2=max

text3=min

end sub

2樓：勞技老師

t(0) = int(rnd * 100)max = t(0)

min = t(0)

這個是不是不用啊?看不出這幾句有什麼意義.

另外建議一下,控制項的名稱最好有明確的含義.

另外,應該先用乙個迴圈對上面的控制項陣列進行賦值,然後再用另外乙個迴圈找出最大數和最小數.

還有乙個問題是,你用的是text屬性,這個是字元型,應該轉換成數字型(按字串排序,則"3">"20",按數字排序則3<20,可以用型別轉化函式)

順便建議:上面的陣列控制項,可以用txtrnd作名字,下面的可以用txtmax和txtmin作為名字,按鈕可以用cmdsort作為名字.

3樓：匿名使用者

private sub command1_click()

dim max as integer, min as integer, sum as integer, i as integer

randomize

for sum = 0 to 5

text1(sum).text = int((rnd * 100) + 1)

next sum

for i = 0 to 5

if val(text1(i).text) < val(text1(min).text) then min = i

if val(text1(i).text) > val(text1(max).text) then max = i

next i

text2.text = text1(min).text

text3.text = text1(max).text

end sub

求VB大神幫忙寫下這題的VB程式

private sub command1 click dim i as integer,j as integerfor i 1 to 9 step 2print spc 2 i for j 10 i to 1 step 1print next print spc 4 for j 1 to i pri...

求vb高手幫忙這個弱智程式設計

option base 1 private sub command3 click dim s 10 as integer,ss as integer ss 0 for i 1 to 10 s i int rnd 100 50 1 50 50分 100分的成縛 ss ss s i print s i ...

vb求質數，理解不了，求幫忙，謝謝

後面一段是求質數的演算法 窮舉法 基本思想是 若 k m 0 則說明 k 不是素數。其中 m 的取值範圍為 2 k的算術平方根。或者簡單一句話 從2到該數字的平方根求餘數，沒有0餘數就是素數。你參考下列 都時錯的 這樣好點 dim a,i private sub command1 click if ...

求VB高手幫忙做一道VB題，關乎在下生死，求好心人幫忙！做

是這個樣子吧，等有時間幫你寫吧，確實挺麻煩的 哎 準備後事吧 一道vb題，求專家高手幫忙填空！20 第乙個空是val w2 10 取第乙個數時w2 0 10 w1,第二個數時w2 w2 10 w1 第二個空是a i w2 只有乙個數字時，a i w2 w2 10 a i w2 一些vb的選擇題,高手...

一道vb題目求大神幫忙， 急 一道vb題目，求大神幫忙！

如題目原文如此，則程式沒有問題，完全正確。具體要看題目的要求。比如 奇數日通行 還是 偶數日限行 急 一道vb題目，求大神幫忙！這個彎路繞大了，36！3.71993e 41，是個億億億億億級的數字，vb中沒有什麼資料型別能精確存放它的結果，而36 7 36 7 只需要算 36 35 34 33 32...