1樓：匿名使用者
private sub command1_click()
dim arr(1 to 29) as integer, ss(1 to 3) as string
dim i as integer
randomize
for i = 1 to 29
arr(i) = int(rnd * 30 + 1)
next
for i = 1 to 3 '先生成空白系列陣列，每個陣列元素為29個空格
ss(i) = space(29)
next
for i = 1 to 29 '依次讀取每個隨機數
select case arr(i) '根據隨機數的範圍，分別進行處理
case 10, 20, 30
mid(ss(arr(i) \ 10), 28, 2) = arr(i)
case else
mid(ss(arr(i) \ 10 + 1), (arr(i) mod 10) * 3 - 2, 2) _
= format(arr(i), "00")
end select
next
open "c:\11.txt" for output as #1
print #1, ss(1)
print #1, ss(2)
print #1, ss(3)
close #1
end sub
在c盤根目錄下面建立乙個名為"11.txt"的文字檔案進行測試！
2樓：
因為你給的例子 有侷限性 只有到30 假如 用超過30 就他們給的程式就完蛋了 就不適用 需要改
那麼我的思路是這樣的
先找出陣列中 最大的乙個數
再根據條件1 一行放n個數 除一下 得出 多少行 設a個陣列剩下就是比大小的事情了
vb將不明數目txt資料匯入vb排序
3樓：匿名使用者
請給出txt檔案的格式？
4樓：匿名使用者
這個我可以做哈。。。。
你有txt文件沒
用vb編寫乙個程式，對txt文件中的資料進行查詢並輸出
vb將不明數目txt資料匯入vb排序
5樓：匿名使用者
txt有資料格式吧？
是以什麼分割的呢
vb怎麼按「氣泡排序」按鈕實現從小到大排序，並輸出在個文字框中
6樓：匿名使用者
for i = 1 to 10
for j = 1 to 10 - i
if a(j) > a(j + 1) thentemp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
end if
next j
next i
上面是氣泡排序法
7樓：紅山人
dim a%(8)
private sub command1_click()dim s$
for i = 1 to 8
a(i) = int(rnd * 90 + 10)s = s + str(a(i))
next
text1 = s
end sub
private sub command2_click()dim s$
for i = 1 to 7
for j = 1 to 8 - i
if a(j) < a(j + 1) thent = a(j): a(j) = a(j + 1): a(j + 1) = t
end if
next
next
for i = 1 to 8
s = s + str(a(i))
next
text2 = s
end sub
vb求助：判斷讀取的.txt檔案中的資料是否為公升序排列（原始碼）。 5
8樓：
讀10行
把第一行先存到變數裡面
然後判斷 第一行 是否等於 第十行+10 假如相等就是公升序就這麼簡單
9樓：願歲月淨好
是純數字，還是啥都有？？？
急VB輸出排序
程式中用的是 選擇排序法 其演算法是 每次從待排序的記錄中選出關鍵字最小 也可以是最大,本程式中就從大到小排序 的記錄,順序放在已有序的記錄序列的最後 或最前 面,直到全部數列有序。n個數排序,用選擇排序法,要比較n 1次 for i 1 to n 1 每次找到未排序中最大的數.k象一頂帽子,比較前...
vb呼叫excel查詢資料問題
類似問題碰到過，vlookup不能直接查詢三維表，可以巢狀來實現。從你提的問題看，這個表做成 假3維表 應該比較方便檢視資料等，例如。記憶型號 尺寸1 尺寸2 lx1194 j20x20 1 還需要有乙個輔助 用vlookup來定位是 尺寸1 結果還是 尺寸2 結果。建立乙個 對尺寸1 尺寸2 的檢...
快速排序vb解法，快速排序 vb 要每一步的講解
請參照快速排序演算法 dim arr 5 as integer private sub quicksort byref arrvalue as integer,byval intlx as integer,byval intrx as integer arrvalue 是待排的陣列，intlx,in...