1樓:匿名使用者
寫了一段,窗
bai體上放du一個text,一個按鈕zhi,**如下:daofunction sushu(a as integer) as integer
for i = 2 to a - 1 step 1if a mod i = 0 then
msgbox a & "不為素數", vbinformation + vbokonly, "提示版!
權"exit function
end if
next
msgbox a & "是素數", vbinformation + vbokonly, "提示!"
end function
private sub ***mand1_click()sushu (val(text1.text))end sub
vb編寫function過程,判斷數字是否是迴文數。程式要求輸入一系列數字,找出所有的迴文數並顯示在文字框中 50
2樓:網海1書生
private sub ***mand1_click()dim x as long, a as integerfor a = 1 to 5
x = val(inputbox("請輸入一個整數"))if fac(x) then text1.text = text1.text & x & " "
next
end sub
function fac(x as long) as booleanfac = (x = val(strreverse(x)))end function
怎麼樣,我這函式只用一行語句就解決了!原理就是把一個數左右反轉,如果與原來的數相等,那麼就是迴文數。
vb6 0 退出整個for迴圈用 exit for退出本
private sub command1 click dim i as integer,j as integerfor i 1 to 3 if i 2 then goto a 當i 2時，退出本次循專環屬 for j 1 to 3 print i j next j a next i end sub ...
VB6 0點選按鈕自動開啟 EXE檔案
你先要判斷檔案是否存在，用一個api即可，在模組裡宣告 private declare function pathfileexists lib shlwapi.dll alias pathfileexistsa byval pszpath as string as long 然後在按鈕裡寫上 if ...
vb6 0中整除取餘（mod）是什麼意思？有何作用
的回答有誤，10 3 3,這個是求整的意思，因為10除以3為3.33333，省掉小數即為3 10 mod 3 1，這個意思是取餘，因為10除以3等於3，餘數1。希望能幫上你！舉個例子 抄10 3 3 10mod3 1 mod可用來判斷能否整除，比如顯示1 100之間的偶數可以寫為 for i 1 t...