richtextbox获取某行_richtextbox 光标_richtextbox和textbox(15)

采用print直接在窗体上输出结果，程序代码：

private sub form_cilick() s=0 for k = 1 to 8 s=s+k next k print "s="; s end sub

程序运行结果如下：

s＝36

语句s＝s+k为循环体语句

例3.9 给一个整数n(n>2),判断其是否为素数.

判断一个数是否是素数,只需将n被2-n之间的全部整数除,如果都除不尽,n就是素数,否 则n是非素数. 为了判断n是否是素数,需要通过循环将n依次被2-n之间的整数除,设置一个标志变量 flag, flag=0表示n未被任何一个整数整除过.如果在某一次循环中,n 能被一个整数整 除,就将flag改变为1. 界面设计与属性设置。如课本图3.9. 编写程序如下: private sub command1_click() n=val(text1.text) flag=0 判断n是否能被2～n-1的数整除 for i=2 to n-1 if (n mod i) =0 then flag=1 if flag=1 then exit for next i 显示结果 if flag=0 then print n; “是素数!” else print n; “不是素数！” end if end sub

习题:求 s＝12 + 22 + … + 1002

求t = 8! = 1×2×3×…×8 课后习题3-6

采用for…next循环语句实现：

课后第3-6题代码：

private sub command1_click() for i = 10 to 100 n=i flag = 0 for j = 2 to n - 1 if (n mod j) = 0 then flag = 1 if flag = 1 then exit for next j if flag = 0 then print i end if next i end sub

采用for…next语句实现:

第一题代码实现 : 第二题代码实现: private sub form_click() private sub form_click() s=0 t=1 for i=1 to 100 for c = 1 to 8 s=s+i *i t=t*c next i next c print ―s=‖; s print "t="; t end sub end sub 程序运行结果是 程序运行结果是： s=338350 t=40320 习题2中语句t=t*c也称乘法器。先将t 置1(不能置0)。在循环程序中， 常用累加器和累乘器来完成各种计算任务

do...loop 循环（1）

do...loop 语句是通过判断条件值以决定是否继续执行，产生循环效果。 do...loop 语句有几种演变形式。 形式一： do while <条件> 循环体 loop 功能：当条件成立(为真)时，执行循环体； 当条件不成立(为假时)，终止循环. 形式二：

do until <条件>

循环体 loop 功能:当条件不成立(为假)时，执行循环体， 直到条件成立(为真)时，终止循环.

例子3.10:求s = 1 + 2 + 3 + … + 100

使用do while …loop语句: private sub form _click() dim i,s as integer s=0 do while i<=100 s=s+i i=i+1 loop print ―1+2+3+….+100=‖; s end sub 使用do until…loop语句: private sub form _click() dim i,s as integer

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-15.html