算法与VB基础过渡.PPT

多层选择结构 If 条件表达式1 then 语句块1 Elseif 条件表达式2 then 语句块2 …… Elseif 条件表达式n then 语句块n End if 多层选择结构范例 If n0then Msgbox “请重新输入一个大于0的值” ElseIf n2 then t=n*0.9 Elseif n5 then t=n*0.7 else t=n*0.6 End if 输入n的值 输出t的值 1 4 5 -1 0.9 2.8 3 消息框提示：请输入一个大于0的值 For语句 For 循环变量名=初值 TO 终值 Step 步长 语句块 Next 循环变量 步长可以是正数，也可以是负数，但不能为0，如果步长为1，step 1可以不写 执行next语句时循环变量的值增加一个步长的值 Dim i as integer, s as integer S=0 For i=1 to 10 s=s+i Next Label1.caption=str(s) 例1： S=s+i语句共执行了几次 程序执行完s的值是多少？ Dim i as integer, n as integer For i=1 to 10 if i mod 2= 0 then n=n+1 list1.additem i end if Next Label1.caption=str(n) 例3： 程序执行完n的值是多少？ List1中显示几个元素，哪几个元素？ Do while语句 Do While 条件表达式 语句块 Loop 当不知道循环的次数，但知道在什么条件下应该循环，这样的过程可以用Do while语句来描述 Dim s as integer, n as integer n=5 Do while n=3 s=s+n n=n-1 loop 例4： 例 下列能计算sum=1+2/3+3/5+……..+50/99的Visual Basic程序段是（ ） C．Sum=0 i=1 Do While i=50 Sum=Sum+i/(2*i-1) i=i+1 Loop D．Sum=0 i=1 Do While i=49 Sum=Sum+i/(2*i-1) i=i+1 Loop A． Sum=1 For i= 1 To 49 Sum=Sum+i/(2*i-1) Next I B． Sum=0 For i= 1 To 99 Sum=i/(2*i-1) Next I VB程序之数的处理 数据类型 数据类型名 说明 性质 Integer 整数型 -32768~32767 Long 长整型 -2147483648~2147483647 Single 单精度 绝对值在1.401298E-45~3.402823E38内的实数，占4B Double 双精度 绝对值在10E-324~1.79E308内的实数，占8B String 字符串型 一段文字与符号 Boolean 逻辑型 判断的结果，只有两个值：True和False Date 日期型 日期和时间 变量的定义 Dim 变量名 as 数据类型 如： Dim h as integer Dim a as single,j as single 常量 1、常量：在程序执行过程中其值不变。 常量的定义 Const x =10 Const x as integer =10 算术运算符 运算符 功能 优先级 例子 值 ^ 乘方 1 3^2 9 - 负号 2 -2^2 -4 *、/ 乘、除 3 3*4/2 6 \ 整除 4 4\3 1 MOD 求余数 5 5 mod 3 2 +、- 加、减 6 2+3-2 3 字符串连接符 符号 例子 值 “34” ”56” “3456” 34 “56” “3456” + “34” + “56” “3456” 34 +”56” 出错 常用数学函数 函数名 函数的功能 示例 Sqr(x) 求x的算术平方根 Sqr(4)的返回值为2 Int(x) 取整，取不大于x的最大整数 int(5.6)的返回值为5 int(-5.6)的返回值为-6 Abs(x) 取绝对值 Abs(-5.5)的返回值为5.5 Exp(x) 求e的