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

一旦找到一个为真的条件时，vb会执行相应的 语句块，然后执行end if语句后面的代码。richtextbox 光标 如果所有条件都是假，那么执行else后面的语 句块n，然后执行end if语句后面的代码。

例：判断成绩的等级

输入学生成绩(百分制)，判断该成绩的等级(优、良、中、及格、不

及格) (1)创建应用程序的用户界面和设置对象属性 (2)编写程序代码 功能要求：用户从“成绩”文本框(text1)中输入学生成绩，单 击“执行”按钮(command1)后，经判断得到等级并显示在标签

label2上。

private sub command1_click() dim score as integer, temp as string score = val(text1.text) temp = "成绩等级为：" if score < 0 then label2.caption = "成绩出错“ elseif score >=0 and score < 60 then label2.caption = temp + "不及格" elseif score <70 then label2.caption = temp + "及格" elseif score <80 then label2.caption = temp + ―中等" elseif score <90 then label2.caption = temp + ―良好“ ｅlseif score <=100 then label2.caption=temp + ―优秀” ｅlse label2.caption=―成绩出错” end if end sub

select case 语句

select case 是用于实现多重选择，其作用与 if...then...else 语句类似。 语法结构是： select case <变量>

case <值1>

<语句块1> case <值2> <语句块2> …… case <值n-1> <语句块n-1> [case else [语句块n]] end select

说明：先计算表达式的值，然后将该值依次 与结构中的每个case的值进行比较，如果 该值符合某个case指定的值条件时，就执 行该case的语句块，然后跳到end select， 从end select出口。如果没有相符合的case 值，则执行case else中的语句块

select case语句的说明:

表达式表通常是一个具体值(如case 1)，每一个值确定一个分支。还有三种方法可 以确定设定值： (1)一组值(用逗号隔开)。示例： case 1,3,5 ′表示条件在1，3，5范围内取值

(2)表达式1 to 表达式2。示例：

case 60 to 80 (3)is关系式。示例： case is<5 ′表示条件在小于5范围取值 ′表示条件取值范围为60～80

例3.6

用select case语句来实现多分支选择功能

实现例3.5所完成的功能 ， 程序代码如下： private sub command1_click()

if text1.text<>‖‖ then

score = val(text1.text) select case score10 case 0 to 5 print ―你的成绩不及格" “ case 6 print ―你的成绩是及格" case 7 print ―你的成绩中等" case 8

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