vf巧數編程

1. 我想問一下怎麼用vf編程 S=1！+3！+5！+7!+9!

clear
s=0
for i=1 to 9 step 2
m=1
for j=1 to i
m=m*j
endfor
s=s+m
endfor
?"S=1！+3！+5！+7!+9!=",s

2. vf編程實例

clear
accept "請輸入一個字元串：" to x1
wait "請再輸入一個字元：" to x2
s=0
for i=1 to len(x1)
k=substr(x1,i,1)
if k=x2
s=s+1
endif
endfor
?"其中"+x2+"出現共"+alltrim(str(s))+"次"

3. 請教一道VF簡單編程問題：用VF語言編寫判斷一個數是否為素數的循環程序

&& 判斷素數的原理是：
&& 素數只能被 1 和 自己 整除
&& 根據這個原理，讓被測數 m 分別除以 2 ...... m-1，最後看看是否有 1 次以上被整除
&& 如果有，說明這個不是素數。
&& 當然，為了程序的運行效率，以下程序是一遇到能被整除就 EXIT 退出 FOR 循環，
&& 因為 1 次能被整除就確定這個肯定不是素數了。

&& 1. 判斷一個整數m是否是素數
CLEAR
INPUT "請輸入一個整數：" TO m
y=1
FOR j=2 TO m-1
IF MOD(m,j)=0
y=0
EXIT
ENDIF
ENDFOR
IF y=1
? m, "是素數"
ELSE
? m, "不是素數"
ENDIF

&& 不用 MOD() 的話，就看看循環中除的結果是否整數
CLEAR
INPUT "請輸入一個整數：" TO m
y=1
FOR j=2 TO m-1
a = m / j
IF INT(a) - a = 0
y=0
EXIT
ENDIF
ENDFOR
IF y=1
? m, "是素數"
ELSE
? m, "不是素數"
ENDIF

4. 急求用VF編程，隨機抽取10個數，按升序或降序排列。求詳細步驟過程及運行結果

新建一個程序（文件菜單——新建——程序——新建文件），寫代碼：

dimension a[10]
for i=1 to 10
a[i]=int(rand()*100)
endfor
for i=1 to 9
for j=i+1 to 10
if a[j]<a[i]
t=a[j]
a[j]=a[i]
a[i]=t
endif
endfor
endfor
?"10個隨機抽取的數從小到大排列是:"
for i=1 to 10
??a[i]
endfor

然後，直接點擊感嘆號，保存並運行，圖：