1樓：匿名使用者
您好，這是不能的，建議去正規醫院**，
vb運用控制項陣列，編寫乙個資料降序排列的小程式
2樓：匿名使用者
module module1
sub main()
dim a(500) as integerdim temp as integer
for i = 1 to 500 step 1a(i) = int(rnd() * 1000 + 10)next
for i = 1 to 500 step 1for j = 1 to 500 - i step 1if a(j) < a(j + 1) thentemp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
end if
next j
next i
for i = 1 to 500 step 1console.write(a(i) & vbcrlf)next
end sub
end module
這個是隨機生成500個隨機數字，並將資料降序排列的例子，不會再追問。滿足的話請採納吧，謝謝
3樓：匿名使用者
這個可以用for to next來實現
用vb編寫程式，在文字框1中輸入一段文字，單擊「統計」按鈕，分別統計英文本母和數字符的個數並顯示出來
4樓：匿名使用者
private sub command1_click()dim sz as integer, zm as integerfor i = 1 to len(text1.text)select case mid(text1.text, i, 1)case "a" to "z", "a" to "z"
zm = zm + 1
case "0" to "9"
sz = sz + 1
end select
next i
text2.text = "字母的個數為：" & zmtext3.text = "數字的個數為：" & szend sub
用vb寫乙個小程式.
vb編寫乙個**小程式，要求每次**的數字不重複
5樓：落葉l無情
dim n as integer
dim a()
private sub command1_click()
if n = 0 then '第一次點選時執行
m = val(text1)
redim a(1 to m)
for i = 1 to m '生成陣列a，元素為1至m這m個數
a(i) = i
next
for i = 1 to m - 1 '隨機打亂陣列a中元素
r = int(rnd * m + 1)
tmp = a(i)
a(i) = a(r)
a(r) = tmp
next
end if
n = n + 1 '計數點選次數
if n > val(text1) then '次數超過指定次數，**結束
msgbox "**結束！"
exit sub
end if
text2 = a(n) '從陣列中抽出第n個數，由於陣列中是隨機排列，所以相當於生成乙個隨機數，並且不會重複
end sub
6樓：z葉亮
只要將**中的「text1」修改成「texebox1.text」即可
text2 也要修改一下
用vb語言編寫程式，用VB語言編寫程式
我用兩個文字框和乙個命令按鈕來實現 其中文字框 text1 用來存放 輸入資料 text2用來存放處理後的結果 用command1實現以上功能 private sub command1 click text2.text val text1.text 10end sub 你把要求說的不太詳細，我只是按...
用VB寫小程式可以代替鍵盤輸入，用VB寫乙個小程式可以代替鍵盤輸入
真長啊 private sub command3 click dim i as long 單擊後等同於如下效果 1 按鍵盤的 alt tab 是先按alt然後不鬆開alt按tab 目的就是為了切換 sendkeys 2 按鍵盤的 tab 4下 for i 1 to 4 sendkeys next i...
用VB寫小程式，用VB寫乙個小程式
private sub form load form1.visible falsedim cpuset dim cpu set cpuset getobject winmgmts instancesof win32 processor for each cpu in cpuseta cpu.proc...
用vb語言編寫程式隨機生成兩個，用vb語言編寫乙個程式，隨機生成兩個100 300之間的正整數，顯示他們，並求這兩個數的最大公約數
瘋狂小鳥 如圖所示，望採納。 冉冉曦丶 imports system.math public class form1 private sub button1 click sender as object,e as eventargs handles button1.click dim a,b as ...
用vb編寫一段分段函式的程式，用vb編寫一段計算分段函式
建text1,text2,command1.如下。private sub command1 click dim x as single,y as singlex csng text1.text select case x case is 2 y 3 x 1 1 xcase is 1 y sin x ...