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

然后，直接点击感叹号，保存并运行，图：