1樓：匿名使用者
dim i as integer
i = 1
do while i <= 5500
print i; "," ;
i = i + 1
loop
這樣就可以~ 至於複製不太可能 因為窗體上的文字都是畫上去的~你要能複製 你不如將內容 放入text文字框中
2樓：匿名使用者
列印到窗體上（無法複製）
dim i as integer
i = 1
do while i <= 5500
print i; ",";
i = i + 1
if i mod 10 = 0 then printloop
用 text 輸入（注意需要設定其 multiline 屬性為 true）：
dim i as integer
dim s as string
i = 1
do while i <= 5500
s = s & i & ","
i = i + 1
if i mod 10 = 0 then s = s & vbcrlf
loop
text1.text = s
3樓：匿名使用者
要能否複製下來的話，要輸入textbox，窗體的不行dim i as integer
i = 1
text1.text=""
do while i <= 5500
text1.text = text1.text & i & ","
i = i + 1
loop
急VB輸出排序
程式中用的是 選擇排序法 其演算法是 每次從待排序的記錄中選出關鍵字最小 也可以是最大,本程式中就從大到小排序 的記錄,順序放在已有序的記錄序列的最後 或最前 面,直到全部數列有序。n個數排序,用選擇排序法,要比較n 1次 for i 1 to n 1 每次找到未排序中最大的數.k象一頂帽子,比較前...
vb呼叫 排序 分類 輸出資料，vb呼叫 排序 分類 輸出txt文件資料
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 ...
VB判斷是否為數字
dl 會飛的青蛙 if isnumeric a false thenmsgbox 該數不為數字 友情提示 end if 忘記什麼樣的叫整數了！沒有小數點的都叫整數嗎？如果可以拿小數點判斷就用instr a,0 就是有小數點 興 isnumeric 函式示例 本示例使用 isnumeric 函式判斷變...