1樓：年少總輕狂
編譯通過。直接粘進去可驗證。
最大值最小值的個數可以用兩個整數標示，等你找玩最大和最小了再迴圈比較一次，有和最大相同的就最大值個數加一，最小值同理。
dim max%, min%, i%, t%, maxh%, minh%, b(10) as integer
private sub form_click()randomize
for i = 0 to 9
b(i) =fix(rnd * 99 - 10) +10)next i
max = b(0)
min = b(0)
for i = 0 to 9
if b(i) >max then
max = b(i)
end if
if b(i) min = b(i)
end if
next i
print "最大值為", max, "最小值為", minmaxh = 0
minh = 0
for i = 0 to 9
if b(i) =max then
maxh = maxh + 1
end if
if b(i) =min then
minh = minh + 1
end if
next i
print "最大值個數為", maxh, "最小值個數為", minh
end sub
2樓：網友
試寫。sub from1_click()
dim x(9) as integer
dim i as integer
for i = 0 to 9
x(i) =rnd()*90+10
print i & x(i)
nextdim maxx as integer,minx as integer
maxx=x(0)
minx =x(0)
for i = 0 to 9
if x(i) >maxx then max =x(i)if x(i) for i = 0 to 9
if x(i) =maxx then cmax = cmax+1if x(i) =minx then cmin = cmin+1nextprint "最小值 " minx & 共"& cmin & 個。
print "最大值 " maxx & 共"& cmax & 個。
end sub
3樓：一拳超人
再用一次迴圈加乙個判斷不就好了。假設你第二步求出的最大值是99，最小值是10，**如下：
for i= 0 to 9
if a(i)=99 then maxnum=maxnum+1if a(i)=10 then minnum=minnum+1next i
print maxnum,minnum
vb中的陣列是什麼意思？
4樓：丶憤怒的小紅帽
樓主您好：
無論是在物件導向的程式設計中，還是在程序導向的程式設計中，陣列都是常用的資料結構，vb 中的陣列可以由基本的資料型別組成，也可以由物件組成：由基本的資料型別組成的資料在使用時與程序導向的程式設計方法一致，而由物件組成的陣列在使用時要增加乙個建立物件的操作，它與物件導向的程式設計方法一致。
陣列概述：
陣列不是一種資料型別，而是一組有序基本型別變數的集合，陣列的使用方法與記憶體變數相同，但功能遠遠超過記憶體變數。
陣列特點
vb 中的陣列有以下主要特點：
1）陣列是一組相同型別的元素的集合。
2）陣列中各元素有先後順序，它們在記憶體中按排列吮吸連續儲存在一起。
3）所有的陣列元素是用乙個變數名命名的乙個集合體，而且每乙個陣列元素在記憶體中獨佔乙個記憶體單元，可視同為乙個記憶體變數。為了區分不同的陣列元素，每乙個陣列元素都是通過陣列名和下標來訪問的，4）使用陣列時們必須對陣列進行「宣告」，即先宣告後使用。所謂「宣告」，就是對陣列名、陣列元素的資料型別、陣列元素的個數進行定義。
5樓：佼以丹
1 2 3 1 4 7 4 5 6 轉置後：2 5 8 7 8 9 3 6 9
**示例： private sub form_load() dim a(2, 2) as long, b(2, 2) as long dim i as long, j as long, n as long'---a 陣列賦值for i = 0 to 2 fo r j = 0 to 2 n = n + 1 a(i, j) = n next ne xt'---a 陣列輸出 print "轉置前：" for i = 0 to 2 for j = 0 to 2 print a(i, j); next print next'---a 陣列轉置後放到b 陣列for i = 0 to 2 for j = 0 to 2 b(j, i) = a(i, j) next next'---b 陣列輸出print "轉置後：
for i = 0 to 2 for j = 0 to 2 print b(i, j); next prin t nextend sub
6樓：網友
預設是從0開始的，也就是0 to 10
一樣的啦。簡單點解釋a(10)就是a(0),a(1)..a(10)a(1 to 10)就是a(1),a(2),a(3)..a(10)
dim a(10,10) 初始為a(0,0)而dim a(1 to 10，1 to 10)初始為a(1,1)如果你在dim a(10,10)前面宣告。
option base 1 兩個應該就一樣了 把初始值設定為1了。
VB在textbox中輸出陣列，VB給陣列賦值後如何在文字框Text裡輸出
private sub form load dim a 1 to 1000 as integer 在text的屬性欄設定這2個屬性 text1.scrollbars 2 vertical text1.multiline truetext1.text for i 1 to 1000 a i i tex...
vb陣列插入，陣列元素的插入 VB
1 text2中的內容是由手工輸入還是由電腦隨機生成？2 插入的位置如何界定？比如輸入1，是插入第一個元素的前面還是後面？vb這樣在陣列中新增新資料？沒有好方法，只能用迴圈把插入點以後的所有元素後移一個，然後在插入點寫入新增的資料。給你一個方法，但是 來不及幫你寫了 1 陣列自己可以定義成不定大小的...
求VB陣列問題
在general中定義 dim a 10,10 as integer,b 10,10 as integer 設定 框picture1的autoredraw屬性為true,text1的mutiline屬性為true.private sub form activate 如果a已有值,則省略以下5行 fo...