算法与程序设计(VB)知识点(2)

稽山中学信息技术学业水平考试复习资料---算法与程序设计（VB）

优先顺序 1 2 3 4 5 6 7 8 9 10 11 运算符类型 -（取负） 算术运算符 运算符 ^（指数运算） *、/（乖、除） \\（整除） Mod（求余） +、-（加、减） 字符串运算符 关系运算符 逻辑运算符 &、+（字符串连接） =、<>、<、<=、>、>= Not（非） And（与） Or（或） 5、数据处理 考点一：程序中常用语句 1. 赋值语句 VB中赋值语句用“=”来实现。赋值语句“=”后面可以是常量、变量或表达式。赋值语句中的“=”与数学中的“=”是不同的！如：N = N+1，这里的意义是将N的值加1后重新赋给N，结果N的值比原值增加了1。 2. Print语句 语法格式：[对象名.]Print [表达式列表] 功能：在指定的对象上输出文本。 3. 注释语句 为了提高程序的可读性，通常需要在程序适当的位置加上必要的注释。添加注释是编程的一个好习惯。 VB中注释语句的格式为：在字符“'”后加注释内容或用“Rem 注释内容”。 如：r = InputBox (\输入r：\输入半径r 4.结束语句 语法格式：End 功能：强制程序结束运行。 考点二：程序中常用函数 1.数学函数 数学函数用于数学运算，包括三角函数、求平方根函数、求绝对值函数、对数函数、指数函数等，它们与相应的数学定义相同。如表所示。 常用数学函数 函数 Abs(x) Sqr(x) Sin(x) Cos(x) Tan(x) Atn(x) Exp(x) Log(x) 功能 求x的绝对值 求x的平方根 求x的正弦值 求x的余弦值 求x的正切值 求x的反正切值 求指数函数ex 求x的自然对数值 Sqr(9) Sin(30*3.14/180) Cos (30*3.14/180) Tan(60*3.14/180) 4*Atn(1) Exp(2.0) Log(10) 第 6 页 共 13 页

实例 Abs(-4.6) 4.6 3 结果 0.499770102643102 0.866158094405463 1.72992922008979 3.14159265358979 7.38905609893065 2.30258509299405 稽山中学信息技术学业水平考试复习资料---算法与程序设计（VB）

Int(x) Rnd(x) 取整数函数 Int(99.8) 99 返回一个随机数 产生0～1之间（不包括1）Rnd() 的随机数 2.字符串函数 VB系统提供了丰富的字符串处理函数，给编程带来了极大的方便(见表）。 常用字符串函数 函数 Len(字符串) Left(字符串,截取长度) Mid(字符串,起始位置[，截取长度]) Right(字符串,长度) 功能 求字符串的长度 截取字符串左边部分 从中间指定位置截取字符串 截取字符串右边部分 实例 Len(\奥运\Left(\奥运\Mid(\奥运\Right(\奥运\String(3,\结果 6 2008 08 奥运 999 String(数值,字符) 生成指定长度与指定字符的字符串 3.日期函数 Date()函数返回系统的当前日期。 Time()函数返回系统的当前时间，如：dtmBeginTime = Time()，将系统当前时间赋给变量dtmBeginTime。 以此类推，Day()、Month()、Year()函数分别返回指定日期的日数、月份数、年份数。 4.常用转换函数 在程序设计过程中，我们经常要将不同类型的数据进行转换，这时就需要使用转换函数。VB中常用转换函数如表所示。 常用转换函数 函数 Val(字符串) Str(数值) Asc(字符) Cint(表达式) 功能 将字符串转换为数值 将数值转为字符串 求字符对应的字符代码 Str(5) Chr(65) Asc(\实例 2+Val(＂12＂) 结果 14 ＂5＂ ＂A＂ 65 6 Chr(字符代码) 求字符代码对应的字符 将表达式的结果转换为整数，小数Cint(3.14259*2) 部分四舍五入 5.与用户交互函数 VB提供InputBox()函数和MsgBox()函数用于人机交互。 （1）InputBox()函数在前面已经用过，其语法格式为： InputBox(提示信息[,标题][，默认值] [，x坐标][，y坐标]) 参数一：提示信息为弹出对话框中显示的说明，必填项，通常为字符串，其余参数可依据实际选择使用； 参数二：标题为弹出对话框标题栏中显示的名称，通常为字符串； 参数三：默认值为弹出对话框输入项中显示的值； 参数四和参数五：X坐标和Y坐标用来设置对话框的弹出位置。 （2）MsgBox()函数是VB程序设计中常用的交互函数，其功能非常强大，可以显示多种样式的消息对话框。基本语法格式： 第 7 页 共 13 页

稽山中学信息技术学业水平考试复习资料---算法与程序设计（VB）

MsgBox(提示信息[,按钮][，标题]) 该函数的返回结果为一数值，其中： 参数一：提示信息为弹出对话框中显示的说明，必填项，通常为字符串，其余参数可依据实际选择使用； 参数二：按钮一般用VB的内部符号常量，这些符号常量有vbOkOnly、vbOKCancel、vbYesNo、vbYesNoCancel等等，它们一般可以望文生义。 参数三：标题为弹出对话框标题栏中显示的名称，通常为字符串。 6、算法的程序实现 考点一：选择结构的程序实现 在VB中，选择结构可用if语句来实现，if语句有如下三种形式： 形式 （1）单分支选择结构，形式为： If 条件 Then 语句或语句组 End If '语句组是指有多条语句的情况 示意图 （2）双分支选择结构，形式为： If 条件 Then 语句或语句组1 Else 语句或语句组2 End If 第 8 页 共 13 页

稽山中学信息技术学业水平考试复习资料---算法与程序设计（VB）

（3）多分支选择结构，形式为： If 条件 Then 语句或语句组1 ElseIF 条件2 Then 语句或语句组2 ?? ElseIF 条件n Then 语句或语句组n Else 语句或语句组n+1 End If 语句实例： 例一：在三个文本框中输入任意三个数，求 例二：求一元二次方程的解。 三个数中的最大数。 Private Sub Command1_Click() Dim a, b, c, delta, x1, x2 As Single a = Val(txta.Text) Private Sub Command1_Click() b = Val(txtb.Text) Dim a, b, c, largest, j As Single c = Val(txtc.Text) a = Val(txtshu1.Text) delta = b * b - 4 * a * c b = Val(txtshu2.Text) If delta > 0 Then c = Val(txtshu3.Text) x1 = (-b + Sqr(delta)) / (2 * a) If a >= b Then x2 = (-b - Sqr(delta)) / (2 * a) largest = a MsgBox \一元二次方程有不同的两解，一解为：\& Else x1, vbYesNo, \求解结果\ largest = b MsgBox \一元二次方程的另一解为\& x2, End If vbYesNo, \求解结果\If c > largest Then ElseIf delta = 0 Then largest = c x1 = (-b + Sqr(delta)) / (2 * a) End If MsgBox \一元二次方程有相同两解，为：\j = MsgBox(\三数中的最大数为：\& vbYesNo, \求解结果\largest, vbOKCancel, \最大数\Else: MsgBox \此方程在实数范围内无解！\End Sub vbYesNo, \求解结果\End If End Sub 考点二：循环结构的程序实现 VB循环结构常用的语句是For?Next语句和Do While?Loop语句等。那么用程序如何解决上面的问题呢？ For?Next语句和Do While?Loop语句的语法格式： For?Next语句的格式 For 循环变量=初值 To 终值 [Step 步长] Do While?Loop语句的格式 Do While 条件 第 9 页 共 13 页

稽山中学信息技术学业水平考试复习资料---算法与程序设计（VB）

循环体 Next 循环变量 说明：（1）For-Next语句通常是在循环次数确定的时候使用； (2)步长即循环变量的增量，当步长为1时，Step 步长可以省略不写。 循环体 Loop 说明：（1）当问题只知道循环结束的条件，重复执行的次数事先并不知道，这时就需要用Do While?Loop循环语句； （2）Do While?Loop语句是在条件成立的时候执行循环体，条件不成立时退出循环。 For/Next语句和Do While/Loop语句在许多情况下是可以通用的，如上例所示。但是，For/Next语句更适合用于循环次数容易确定的场合，而Do While/Loop语句的使用则更灵活。 语句实例： For?Next语句实现： Do While?Loop语句实现： Private Sub cmdOk_Click() Private Sub cmdOk_Click() Dim i As Integer, Sum As Integer Dim i As Integer, Sum As Integer i=0 Sum = 0 Sum = 0 For i = 1 To 24 do while i<=24 Sum = Sum + i Sum = Sum + i Next i i=i+1 lblsum.Caption = \两年共存入：\& Sum & \ loop 元\ lblsum.Caption = \两年共存入：\& Sum & \End Sub 元\End Sub 考点三：解析算法与枚举算法 解析算法 解析法就是在分析具体问题的基础上，抽取出一个数学模型，这个数学模型能用若干个解析表达式表示出来，解决了这些表达式，问题也就得以解决。解析法是程序设计中最常用的算法之一。 提示：高级程序设计语言提供的内部函数其内部实现大多也是用了解析法。 枚举算法 枚举法也叫穷举法、列举法，它是将求解对象一一列举出来，然后逐一加以分析、处理，并验证结果是否满足给定的条件，穷举完所有对象，问题将最终得以解决。 举例：用穷举法编写程序，找出所有的“水仙花数”。举例： 某超市规定，顾客购买同种商品10件以上（含10件）可享受批发价。请设计一个收款机程序，输入顾客所购买商品的零售价、批发价、购买数量及付款数，程序能计算出顾客的应付款及需要找回的零钱。请设计解析法，并用流程图或伪代码描述。 Private Sub cmdjiezhang_Click() Dim lingjia, pijia, sum, yingfu, zhaoqian As Single Dim num As Integer Rem lingjia-零售价；pijia-批发价；num-购买数量；水仙花数是指一个 n 位数 ( n≥3 )，它的每个位上的数字的 n 次幂之和等于它本身。（例如：1^3 + 5^3 + 3^3 = 153） 方法一： Private Sub Command1_Click() Dim sum As Integer Dim i, a, b, c As Integer List1.Clear For i = 100 To 999 a = i \\ 100 b = i \\ 10 Mod 10 第 10 页 共 13 页

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库算法与程序设计(VB)知识点(2)在线全文阅读。