1 / 59

第三章 VB 的基本语句

第三章 VB 的基本语句. 1 ．熟练掌握 Goto 、 if 、循环等 语句的语句格式、使用方法 和功能； 2 ．掌握常用标准函数的功能。. 一、语句. 1 ．变量的定义 ⑴ 全程变量的定义 全程变量是可以在工程中的所有程序模块中使用，一般使用 Public 或 Global 命令来定义，全程变量可以被任意窗体、任一模块中的任一过程或函数使用。全程变量的定义只能放在代码窗口的最前面（声明部分）。 举例说明：. 返回本章首页. 一、语句. 1 ．变量的定义 ⑵ 局部变量的定义

haven
Download Presentation

第三章 VB 的基本语句

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 第三章 VB的基本语句 1．熟练掌握Goto、if、循环等 语句的语句格式、使用方法 和功能； 2．掌握常用标准函数的功能。

  2. 一、语句 1．变量的定义 ⑴全程变量的定义 全程变量是可以在工程中的所有程序模块中使用，一般使用Public或Global命令来定义，全程变量可以被任意窗体、任一模块中的任一过程或函数使用。全程变量的定义只能放在代码窗口的最前面（声明部分）。 举例说明： 返回本章首页

  3. 一、语句 1．变量的定义 ⑵局部变量的定义 局部变量就是在工程中的某个过程或函数中定义，而且只能在该过程或函数中使用的变量。使用Private和Dim命令来定义。 举例说明： 返回本章首页

  4. 一、语句 2.赋值语句 Dim a As String Dim x As Integer x=15 a=“Hello” text1.text=“计算机应用基础” 举例说明： 返回本章首页

  5. 一、语句 3．注释语句 Dim i As Integer Dim sum As Integer sum=1 For i=1 To 5 ‘求5的阶乘 sum=sum*I Next Print sum 返回本章首页

  6. 一、语句 4. Goto语句 ⑴语句格式 Goto 标号或行号 ⑵功能：程序无条件转向指定的一行继续执行程序。 返回本章首页

  7. 一、语句 4. Goto语句 ⑶举例： Print “She is” Goto Message Print “not” Message:Print “ a beautiful girl” 运行结果 She is a beautiful girl 返回本章首页

  8. 5．If 语句 If…Then… If…Then…End If If…Then…Else… If…Then…Else…End If Select Case 返回本章首页

  9. 5．If 语句 ⑴  If语句之一 语句格式: If 条件 Then 语句； 或 If 条件 Then 语句1 语句2 …… 语句n End If 返回本章首页

  10. 5．If 语句 例： If a>b Then c=a-b 或 If x>=10 Then x=x+5 print x End If 返回本章首页

  11. 5．If 语句 例： Dim x As Integer x = InputBox("请输入x的值", "提示窗口") If x >= 10 Then x = x + 5 Print "x="; x End If 运行结果： 输入：15 输出：x=20 返回本章首页

  12. 5．If 语句 例1：已知 编一程序求y的值（要求x的值由键盘输入）。 返回本章首页

  13. 5．If 语句 程序： Dim x, y As Single x = InputBox("请输入x的值", "提示窗口") If x >= 0 Then y = (x * x + 1) / 2 If x < 0 Then y = (x * x - 1) / 2 Print "y="; y 返回本章首页

  14. 5．If 语句 ⑵ If 语句之二 语句格式: if 条件 Then 语句1 Else 语句2 例：if x=100 Then c1=c1+1 Else Print x 返回本章首页

  15. 5．If 语句 ⑵ If 语句之二 语句格式： if 条件 Then 语句1 语句2 …… 语句n Else 语句1 语句2 …… 语句n End If 返回本章首页

  16. 5．If 语句 例： if x>=0 Then n=n+1 Print x Else n1=n1+1 Print x End If 返回本章首页

  17. Y N 条件？ 语句1 语句1 语句2 语句2 … … 语句n 语句n 流程图 返回本章首页

  18. 5．If 语句 例2：求ax2+bx+c=0方程的根。 分析： 求2次方程根的公式： ⑴若a=0，不是二次方程 ⑵b*b-4*a*c=0，有两个相等的实根 ⑶b*b-4*a*c>0，有两个不相等的实根 ⑷b*b-4*a*c<0，有两个复数根 返回本章首页

  19. Dim a, b, c As Single a = InputBox("请输入a的值", "提示窗口") b = InputBox("请输入b的值", "提示窗口") c = InputBox("请输入c的值", "提示窗口") If a = 0 Then Print "不是二次方程" Else If b * b - 4 * a * c = 0 Then Print "有两个相等实根：" Print "x="; -b / (2 * a) Else If b * b - 4 * a * c > 0 Then Print "有两个不相等实根：" Print "x1="; (-b + Sqr(b * b - 4 * a * c)) / (2 * a) Print "x2="; (-b - Sqr(b * b - 4 * a * c)) / (2 * a) Else Print "有两个虚根：" Print "x1="; -b / (2 * a); "+"; Sqr(4 * a * c - b * b) / (2 * a); "i" Print "x2="; -b / (2 * a); "-"; Sqr(4 * a * c - b * b) / (2 * a); "i" End If End If End If 返回本章首页

  20. ⑶Select Case语句 语句格式： Select Case 表达式 Case 表达式1 程序段1 Case 表达式2 程序段2 ……… Case Else 程序段 End Select 返回本章首页

  21. 例： Dim Age% Age%=InputBox (“How old you are?”) Select Case Age% Case 1 To 12 Print “You are a child” Case 13 To 19 Print “You are a teenager” Case 20 To 150 Print “You are a adult” Case Else Print “It is impossible!” End Select 返回本章首页

  22. 6．循环语句 Do … Loop For … Next For Each … Next While … Wend 返回本章首页

  23. ⑴Do … Loop循环 ①Do While 条件 语句1 语句2 …… 语句n Loop 功能：当条件为True时，继续循环，否则，当条件为Flase时，退出循环。 返回本章首页

  24. ⑴Do … Loop循环 运行结果 1 2 3 4 5 例：Dim I As Integer I=1 Do While I<=5 Print I I=I+1 Loop 返回本章首页

  25. ⑴Do … Loop循环 ②Do Until 条件 语句1 语句2 …… 语句n Loop 功能：当条件为Flase时，继续循环，否则，当条件为True时，退出循环。 返回本章首页

  26. ⑴Do … Loop循环 运行结果 1 2 3 4 5 例：Dim I As Integer I=1 Do Until I>5 Print I I=I+1 Loop 返回本章首页

  27. ⑴Do … Loop循环 ③Do 语句1 语句2 …… 语句n Loop While 条件 功能：当条件为True时，继续循环，否则，当条件为Flase时，退出循环。 返回本章首页

  28. ⑴Do … Loop循环 例：Dim I As Integer I=6 Do Print I I=I-1 Loop While I>=5 运行结果 6 5 返回本章首页

  29. ④Do 语句1 语句2 …… 语句n Loop Until 条件 功能：当条件为Flase时，继续循环，否则，当条件为True时，退出循环。 返回本章首页

  30. ⑴Do … Loop循环 运行结果 6 5 例：Dim I As Integer I=6 Do Print I I=I-1 Loop Until I<5 返回本章首页

  31. ⑵For … Next循环 格式： For 变量=初值 To 终值 [Step 增值] 语句1 语句2 …… 语句n Next 变量 返回本章首页

  32. ⑵For … Next循环 运行结果 1 3 5 7 9 例： Dim I As Integer For I=1 To 10 Step 2 Print I Next I 返回本章首页

  33. ⑵For … Next循环 运行结果 10 8 6 4 2 例： Dim I As Integer For I=10 To 1 Step -2 Print I Next I 返回本章首页

  34. ⑶For Each… Next循环 格式： For Each 元素 In 数组或集合 语句1 语句2 …… 语句n Next 元素 返回本章首页

  35. ⑶For Each… Next循环 运行结果 5 4 3 2 1 0 例： Dim I Dim a(5) As Integer A(0)=5:A(1)=4 A(2)=3:A(3)=2 A(4)=1:A(5)=0 For Each I In a() Print I Next I 返回本章首页

  36. ⑷While … Wend循环 格式： While 条件 语句1 语句2 …… 语句n Wend 功能：当条件为True时，继续循环，否则，当条件为Flase时，退出循环。 返回本章首页

  37. ⑸循环的嵌套 运行结果 Dim i,j As Integer For I=1 To 5 For J=1 To I Print “*”; Next J Print Next I * * * * * * * * * * * * * * * 返回本章首页

  38. ⑹Do Events函数与闲置循环 Do Events函数的功能： Do Events函数是将控制权转交给操作系统，以便让操作系统有机会去执行其它的任务。 返回本章首页

  39. ⑹Do Events函数与闲置循环 Dim I As Long For I=1 To 115000 cls print I DoEvents Next I 说明：去掉“DoEvents”进行比较 返回本章首页

  40. 二、常用的标准函数 ⑴数学函数 ①Abs(x)函数(求绝对值) 例:Abs(-5)=5 ②Fix(x)和Int(x)函数(取整函数) 例：Fix(5.6)=5 Int(5.6)=5 Fix(-5.6)=-5 Int(-5.6)=-6 返回本章首页

  41. 二、常用的标准函数 ⑴数学函数 ③Sqr(x)函数（求算术平方根） 例：Sqr(4)=2 ④Sin(x)函数（正弦函数） 例：Sin(50.5)=0.23237 ⑤Cos(x)函数（余弦函数） 例：Cos(50.5)=0.972626 返回本章首页

  42. 二、常用的标准函数 ⑴数学函数 ⑥Tan(x) 函数（正切函数） 例：Tan(50)=-0.2719 ⑦Atn(x)函数（反正切函数） 例：Atn(50)=1.550798 ⑧Exp(x)函数（指数函数） 例： 返回本章首页

  43. 二、常用的标准函数 ⑴数学函数 ⑨Log(x)函数（对数函数） 例： ⑩Rnd(x)函数（随机函数） 功能：产生一个0～1之间的随 机数。 演示说明 返回本章首页

  44. ⑵日期和时间函数 返回本章首页

  45. ⑵日期和时间函数 ①Date函数（取得系统当前日期） 例： Dim MyDate As Date MyDate = Date Print MyDate 运行结果 2002-9-3 返回本章首页

  46. ⑵日期和时间函数 ②Time函数（取得系统当前时间） 例： Dim SysTime SysTime = Time Print SysTime 运行结果 18：30：25 返回本章首页

  47. ⑵日期和时间函数 ③Now函数（取得系统当前日期和时间） 例： Dim My My = Now Print My 运行结果 2002-9-3 18:35:05 返回本章首页

  48. ⑵日期和时间函数 ④Year函数（返回指定日期的年份） 例： Dim MyDate,MyYear MyDate = Date MyYear=Year(MyDate) Print MyYear 运行结果 2002 返回本章首页

  49. ⑵日期和时间函数 ⑤Month函数（返回指定日期的月份） 例： Dim MyDate,MyMonth MyDate = Date MyMonth=Month(MyDate) Print MyMonth 运行结果 9 返回本章首页

  50. ⑵日期和时间函数 ⑥Day函数（返回指定日期的号数） 例： Dim MyDate,MyDay MyDate = Date MyDay=Day(MyDate) Print MyDay 运行结果 3 返回本章首页

More Related