1樓：牛人影視
private sub form_load()me.autoredraw = true
dim i as integer
dim x(10) as integer
print "整理前的資料："
for i = 1 to 10
x(i) = int(rnd * 100)print x(i);
if i mod 10 = 0 then printnext
for i = 0 to 9
x(i) = x(i + 1)
next
x(10) = x(0)
print "整理後的資料："
for i = 1 to 10
print x(i);
if i mod 10 = 0 then printnext
end sub
VB程式求幫忙，求大神幫忙一個超級簡單VB程式程式碼編寫 跪求！
用timer控制元件,設interval 1000然後在事件處理過程中檢查 if second now 0 then 0秒 end if if minute now 59 then 59分 end if 如果用do迴圈,會霸佔cpu資源,結果就想當於死迴圈.dim mytime mytime tim...
vb高手進！幫忙寫出程式過程啊
private sub command1 click dim m,f,t m 100000 30 t 0.01 dot t 2 f f t n n 1 loop while n 30 msgbox 陌生人給富翁 m 元錢 msgbox 富翁給陌生人 f 元錢 end sub sub money di...
哪位高手幫忙改一下C語言程式，題目是（排序查詢），16,17有錯誤已標記出
你宣告函式時宣告的格式，和下面你定義時的格式不一樣啊 定義的格式和你用的格式一樣 你只要改了你宣告的格式就行了，宣告 定義和應用的格式要一樣才行啊。void sort int n,int score void seek int n,int score,int y void sort int n,in...