Select Case语句例 例4.9判断坐标点(X,y),落在哪个象限。 代码一 代码二 If x>0 And y>0 Then Select Case x,y MsgBox("在第一象限") Case x>0 And y>0 Elself x<0 And y>0 Then MsgBox(“在第一象限”) MsgBox("在第二象限") Case x<0 And y>0 Elself x<0 And y<0 Then MsgBox(“在第二象限”) Case x<0 And y<0 MsaBox"在第三象限 代码二错误： 1.Select Case后不能出现多个变量 2.Case后不能出现变量及有关运算符 VB程序设计简明教程 本书目录 本章目录 24
VB程序设计简明教程 本书目录 24 Select Case语句例 例4.9判断坐标点(x，y)，落在哪个象限。 代码一 If x > 0 And y >0 Then MsgBox("在第一象限") ElseIf x < 0 And y > 0 Then MsgBox("在第二象限") ElseIf x < 0 And y < 0 Then MsgBox("在第三象限") ElseIf x > 0 And y <0 Then MsgBox("在第四象限") End If 代码二 Select Case x,y Case x > 0 And y > 0 MsgBox(“在第一象限”) Case x < 0 And y > 0 MsgBox(“在第二象限”) Case x < 0 And y < 0 MsgBox(“在第三象限”) Case x > 0 And y <0 MsgBox(“在第四象限”) End Select 代码二错误： 1. Select Case 后不能出现多个变量 2. Case后不能出现变量及有关运算符 本章目录
42.3 条件函数 (1)f函数 If(表达式，表达式为真时的值， 表达式为假时的值) If函数是If..Then..Else结构的简洁表示 例如，将x,y中大的数，放入Tmax变量中： Tmax=llfx>y,x,y） 该语句与如下语句等价： If x>y Then Tmax=x Else Tmax=y VB程序设计简明教程 本书目录 本章目录 25
VB程序设计简明教程 本书目录 25 4.2.3 条件函数 (1) IIf函数 IIf(表达式，表达式为真时的值，表达式为假时的值) IIf函数是If … Then …Else 结构的简洁表示 例如，将x，y中大的数，放入Tmax变量中： Tmax = IIf(x > y，x，y) 该语句与如下语句等价 ： If x > y Then Tmax = x Else Tmax = y 本章目录
4.2.3 条件函数 (2)Choose函数 Dim nop As Integer,op As Char Choose(塞 Randomize() 根据表达式的值 nop Int(Rnd()*4+1) 果整数表达式的 op Choose(nop,"+""_""x","+" 例根据Nop的值 MsgBox("nop="&nop op="&op) Op=Choose(Nop, "+ X",÷") 例4.10根据当前日期，显示今日是星期几。 t=Choose(Weekday(Now),“星期日”，“星期一”，“星期 二”，“星期三”，“星期四”，“星期五”，“星期六”) MsgBox("今天是："&Now&) VB程序设计简明教程 本书目录 本章目录 26
VB程序设计简明教程 本书目录 26 4.2.3 条件函数 (2) Choose函数 Choose(整数表达式，选项列表) 根据表达式的值i,返回选项列表中第i个选项。如 果整数表达式的值越出选项范围时，返回Null。 例 根据Nop的值，得到+、-、×、÷中的某运算符： Op= Choose(Nop，"+"， "-" ， "×" ， "÷") 例4.10 根据当前日期，显示今日是星期几。 t = Choose(Weekday(Now), “星期日” , “星期一” , “星期 二” , “星期三” , “星期四” , “星期五” , “星期六”) MsgBox("今天是：" & Now & t) 本章目录 Dim nop As Integer, op As Char Randomize() nop = Int(Rnd() * 4 + 1) op = Choose(nop, "+", "-", "×", "÷") MsgBox("nop=" & nop & " op=" & op)
43 循环结构 计算机最擅长的功能之一就是按规定的条件， 重复执行某些操作。例如，按照人口某增长率， 对人口增长统计；根据各课程的学分、绩点和 学生的成绩，统计每个学生的平均绩点等。这 类问题都可通过循环结构来方便地实现。VB中 提供了两种类型的循环语句：一种是计数循环 语句；另一种是条件型循环语句。 VB程序设计简明教程 本书目录 本章目录 27
VB程序设计简明教程 本书目录 27 4.3 循环结构 计算机最擅长的功能之一就是按规定的条件， 重复执行某些操作。例如，按照人口某增长率， 对人口增长统计；根据各课程的学分、绩点和 学生的成绩，统计每个学生的平均绩点等。这 类问题都可通过循环结构来方便地实现。VB中 提供了两种类型的循环语句：一种是计数循环 语句；另一种是条件型循环语句。 本章目录
4.3.1For循环语6imi%,sum% Fo循环语句用于控制循环Y For i=1 To 100 Step 2 For循环变量=初值To sumsum +i 语句块 Next i [Exit For] MsgBox(sum) 语句块 Next循环变量 例4.11计算 循环变量必须为数值型。 1~100的奇数和 循环次数=m(终值初值+) 步长 >0初值<终值 =1时，可省略 步长 <0 初值>终值 =0 死循环 VB程序设计简明教程 本书目录 本章目录 28
VB程序设计简明教程 本书目录 28 4.3.1 For循环语句 For循环语句用于控制循环次数预知的循环结构。 For 循环变量 ＝初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量 循环变量必须为数值型。 循环次数 = ( +1) − 步长 终值 初值 Int >0 初值<终值 =1 时，可省略 <0 初值>终值 =0 死循环 步长 例4.11 计算 1~100的奇数和 本章目录 Dim i%, sum% For i = 1 To 100 Step 2 sum = sum + i Next i MsgBox(sum)