湖南省计算机等级考试辅导教程教案.ppt

湖南省计算机等级考试VB程序设计辅导;7、高精度计算—除法 8、同构数 9、完全平方数 10、数制转换 11、素数（质数）问题 12、猴子选大王 ;VB面向对象基本概念;对象属性 Name、Caption / Text、Left、Top、Width、Height、 Enabled、Visible、 Font、 … VB程序执行方式 事件驱动编程机制;VB常用数据类型;VB常用运算符;用户自定义函数 逻辑函数判定：prime(x) 外部函数的方法(不讲) 内部函数的方法(程序的一部分) 见：有关素数程序设计部分 注：二级必备！;VB基本输入、输出;VB程序基本结构与示例;判断成绩是否合格 x = Val(Text1) If x 60 Then Text2 = 不合格 If x = 60 Then Text2 = 合格 或（第2、3行为） If x 60 Then Text2 = 不合格 Else Text2 = 合格 也可写成多行形式：…;多选择（分支）结构（一） If … Then  …ElseIf … Then …Else …End If;判断成绩等级 Private Sub Command1_Click() x = Val(Text1) If x 60 Then Text2 = 不及格 ElseIf x 70 Then Text2 = 及格 ElseIf x 85 Then Text2 = 良好 Else Text2 = 优秀 End If End Sub;多选择（分支）结构（二） Select Case 测试表达式 Case 表达式列表1 … Case Else …End Select 表达式列表：(三种形式，见例题);判断成绩等级 Private Sub Command1_Click() Select Case Val(Text1) Case Is 60 Text2 = 不及格 Case 60, 61, 62, 63, 64, 65, 66, 67, 68, 69 Text2 = 及格 Case 70 To 84 Text2 = 良好 Case Else Text2 = 优秀 End Select End Sub;循环结构 For ... Next While...Wend （无退出中途语句） Do While...Loop （共4种形式） 中途退出：Exit For/Do 嵌套 分支与分支 循环与循环 循环与分支;For循环输出20以内的奇数 Private Sub Form_Click() For k = 1 To 20 Step 2 Print k; Next End Sub;While循环输出20以内的奇数 Private Sub Form_Click() k = 1 While k = 20 Print k; k = k + 2 Wend End Sub;Do循环输出20以内的奇数 Private Sub Form_Click() k = 1 Do While k = 20 Print k; k = k + 2 Loop End Sub;VB程序设计重点结构;FOR结构 For i=… To … Step … …… If …Then …… （Exit For） End If …… Next;程序中最基本的处理;连乘 初值：t = 1 或 ... 循环处理：t = t * i 或 ...;最常用的判断;多条件组合为逻辑表达式;精确与非精确编程思路;例：设s=2+4+6+…，求s的最大值，使s=1000。#992 （下两页有程序） ;非精确编程 Private Sub Form_Click() s = 0 For k = 2 To 100 Step 2 s = s + k Debug.Print k, s Next End Sub;精确编程（不细讲） Private Sub Form_Click() s = 0 For k = 2 To 100 Step 2 s = s + k Debug.Print k, s If s = 1000 Then Exit For Next Print s - k End