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

case 9,10 print ―你的成绩优秀" case else print ―你输入的成绩有问题

end select end if end sub

print ―你的成绩良好"

习题:课后第4题,第5题.

习题: 输入三个数a、b、c，求出其中最大数 (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求：用户在“a=‖文本框(text1)、“b=‖文本框(text2)和“c=‖文本框(text3) 中输入数据，单击“判断”按钮后，则在“最大数＝”文本框(text4)中输出结果

3.5.3循环语句

循环是指在指定的条件下多次重复执行一组语句。被重 复执行的一组语句称为循环体 vb提供的循环语句有 do...loop for...next

while...wend

for each...next 最常用的是for...next和do...loop语句

for循环

for循环语句的一般格式为:

for <循环变量> =<循环变量初值> to<循环变量终值> [step 增量] [循环体] [exit for] next [变量] 功能：本语句指定循环变量取一系列数值，并且对循环变量的每一个值把循环体执行一 次 循环变量初值、循环变量终值和增量都是数值表达式，增量可以是正数(称为递增循 环)，也可以是负数(称为递减循环) 若增量为1，则step 1可以省略

在知道要执行多少次时，则可以使用 for...next 循环。

for...next语句的执行步骤

(1)求出初值、终值和增量值，并保存起来 (2)将初值赋给循环变量 (3)判断循环变量值是否超过终值(增量值为正时，指大于终值；增量值为负时， 指小于终值)。超过终值时，退出循环，执行next之后的语句 (4)执行循环体 (5)遇到next语句时，修改循环变量值，即把循环变量的当前值加上增量值再赋 给循环变量 (6)转到(3)去判断循环条件 for c=1 to 5 step 1 print c;‖ this is a for-next loop‖ for c=1 to 5 step 1 print c; ―this is for-next loop‖ next c if c=3 then exit for next c

当变量c的值为3时，满足条件，跳出for循环

例如：

其中，循环变量c的值在循环过程中是不断变化的，它的初始值被指定为1，终止 值被指定为5，每执行一次循环体后，循环变量增值1，如果变量的增量为1时， step子句可以省略，循环体只有一个print语句，第一次执行c的值为1，执行完 后，c变成2，执行5次后，变量的值依次为1，2，3，4，5，当c变成6时，变量的 值超过了终值5，循环过程结束。

for循环举例

例3.7 在窗体上显示2至10各偶数的平方数 采用print直接在窗体上输出结果，程序代码： private sub form_click() dim k as integer for k = 2 to 10 step 2 print k * k next k end sub 例3.7的执行过程: 循环变量k赋初值2，终值为10，增量为2 判断初值是否小于等于终值，即2小于等 于10，成立，执行print k*k，修改k的值， k加上增量，再判断循环条件k小于等于终 值吗条件成立，接着执行循环体，否则， 退出循环。

程序运行结果： 4 16 36 64 100

例3.8 求s = 1 + 2 + 3 + … + 8

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