当前位置:首页 » 编程软件 » 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-15 23:40:15 浏览:561
校考上传照片 发布:2025-03-15 23:30:02 浏览:850
windowsxp服务器搭建ftp 发布:2025-03-15 23:17:52 浏览:312
2014年数据库工程师 发布:2025-03-15 23:07:42 浏览:245
创见存储卡质量怎么样 发布:2025-03-15 23:07:37 浏览:304
苹果2g和安卓哪个快 发布:2025-03-15 22:52:48 浏览:713
airpods怎么连接安卓手机 发布:2025-03-15 22:47:11 浏览:295
安卓已经删除的app在哪里找 发布:2025-03-15 22:42:09 浏览:434
海量照片存储 发布:2025-03-15 22:23:07 浏览:163
androidgif控件 发布:2025-03-15 22:10:51 浏览:339