当前位置:首页 » 编程软件 » vf巧数编程

vf巧数编程

发布时间: 2022-08-29 02:10:45

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

然后,直接点击感叹号,保存并运行,图:

热点内容
软件源码侵权 发布:2025-03-16 02:06:54 浏览:287
给表添加字段的sql 发布:2025-03-16 02:04:29 浏览:473
1除5算法 发布:2025-03-16 02:02:57 浏览:757
oppo云密码本在哪里 发布:2025-03-16 01:57:13 浏览:534
c语言定义pi的 发布:2025-03-16 01:51:08 浏览:603
一剑破天脚本 发布:2025-03-16 01:48:03 浏览:965
dex优化编译 发布:2025-03-16 01:45:54 浏览:224
硬盘缓存路径怎么设置 发布:2025-03-16 01:45:46 浏览:960
最好的pythonide 发布:2025-03-16 01:42:56 浏览:693
androidbitmap处理 发布:2025-03-16 01:42:08 浏览:544