1樓：匿名使用者
1、end 是結束程式，stop......暫停2-3,
private sub form_click()dim a() as string
if text1.text = "" then msgbox "輸入資料先：": exit sub
if right(text1.text, 1) = "," then msgbox "請使用英文狀態下的逗號分割字元，且不能以逗號結束": exit sub
a() = split(text1.text, ",")print "排序結果："
for i = 0 to ubound(a)for j = i + 1 to ubound(a)if val(a(i)) > val(a(j)) thentemp = a(i): a(i) = a(j): a(j) = temp
end if
next
print val(a(i)),
next
print "最大數＝"; a(ubound(a))print "最小數＝"; a(lbound(a))end sub
4----
function jc(n as integer)dim m, i as integer
m = 1
if n < 0 then
msgbox "錯誤"
elseif n = 0 then
msgbox "0!=0"
else
for i = 1 to n
m = m * i
next
msgbox n & "!=" & m
end if
end function
然後在其他事件中call jc（n）
菜鳥做的，小心參考！！
水滸q傳bb合成問題，水滸Q傳BB合成問題
太古猴子 15j帶，可以用妖精之實，孤魂，野貴合成。技能 群火 魔佛老人 35j帶，可以用地牢一層或者二層的怪物合成.技能 群風 千面天妖 55j帶，用黑無常白無常合成。群土，聖手仙王 75j帶，好像是用鐵銅人合成的。技能 群冰 這幾個隱藏bb，最合適我覺得就是千面，不僅樣子可愛,x也算是高的叻而且...
vb程式設計問題，VB程式設計問題
private sub command1 click text1 for i 1 to 45 7 for j 1 to 45 6 2for k 1 to 45 3 5if i j 2 k 5 45 thenn n 1 end if next next next text1 n end sub pri...
vb基礎問題，vb 基礎問題
一般我是這樣寫的 public access as new adodb.connection public res as new adodb.recordset 資料庫連線 access.connectionstring provider microsoft.jet.oledb.4.0 access...