程序的分支结构

参考程序
Private Sub Form_Activate() Dim a As Integer Dim b As Integer Dim c As Integer Dim R As Boolean a = 3: b = 4: c = 5 R = a + b < c And b = c Print R R = a > b + c And b < c Print R R = Not (a > b) And Not c > 1 Print R End Sub
InputBox 函数的语法具有以下几个命名参数：
部分 Prompt Title Default Xpos Ypos
描述 必需的。作为对话框消息出现的字符串表达式。prompt 的最大 长度大约是 1024 个字符，由所用字符的宽度决定。 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。 可选的。显示文本框中的字符串表达式，在没有其它输入时作 为缺省值。如果省略 default，则文本框为空。 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左 边的水平距离。如果省略 xpos，则对话框会在水平方向居中。 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上 边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距 下边大约三分之一的位置。
InputBox 函数
• 在一对话框来中显示提示，等待用户输入正文 或按下按钮，并返回包含文本框内容的 String。 • 语法：
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
例：
InputBox（ “提示内容”， “标题内容”，“需要输入信息内 （ 提示内容” 标题内容” 容”）
Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提 供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。 Context 可选的。数值表达式，由帮助文件的作者指定给某个帮助主题 的帮助上下文编号。如果已提供 context，则也必须要提供 helpfile。
P113【练习与思考】 【练习与思考】
2、已知，4 ≈1− 1 + 1 − 1 + 1 −11 +┅ − 2 * −1i − 1 可求 π 的近似值。 、已知，π 3 5 7 9 1 的近似值。 参考程序： 参考程序： Private Sub Form_Activate() Dim pi As Single Dim i As Long pi = 0 For i = 1 To 100 If (2 * i - 1) <> 0 Then pi = pi + 1 / (2 * i - 1) Else pi = pi - 1 / (2 * i - 1) End If Next i Print "pi="; pi * 4 End Sub
Or 或
True Or True = True True Or False = True False Or True = True False Or False = False
Not 非
Not True = False Not False = True
1. VB的逻辑表达式中可以有三种运算符： 的逻辑表达式中可以有三种运算符： 的逻辑表达式中可以有三种运算符
算术运算符、比较运算符和逻辑运算符。 算术运算符、比较运算符和逻辑运算符。 2. 在实际计算中所有符号的默认计算顺序 ）、-（ ）、* 是：^（幂运算）、 （取负数）、 / \ （幂运算）、 取负数）、 Mod （乘除运算）、 - （加减运算）、 乘除运算）、 ）、+ 加减运算）、 = <> < > <= >= (比较运算 、Not 、And、 比较运算)、 比较运算 、 Or （逻辑运算），同组符号从左到右进 逻辑运算）， ），同组符号从左到右进 行计算（、为分组符号）。括号（） （、为分组符号）。括号（）可 行计算（、为分组符号）。括号（）可 以改变运算顺序。 以改变运算顺序。
练习题分析
（第二节） 第二节）
基础知识
一、比较运算符 符号 用法
பைடு நூலகம்> < >= <= <> =
大于 小于 大于等于 小于等于 不等于 等于
二、逻辑运算符 逻辑运算符
符号 用法 逻 辑 运 算 值
And 与
True And True = True True And False = False False And True = False False And False = False
任务二、判断某年是否为闰年。（教材 任务二、判断某年是否为闰年。（教材P111） 。（教材 ） Private Sub Form_Activate() Dim myval As String Dim year As Integer myval = InputBox("请输入年份 "输入对话框 0) 请输入年份", 输入对话框 输入对话框", 请输入年份 year = myval If (((year Mod 4) = 0) And( (year Mod 100) <> 0)) or (((year Mod 4)=0) And ((year Mod 400)=0) Then Print myval, "该年为闰年 该年为闰年" 该年为闰年 Else Print myval, "该年不是闰年 该年不是闰年" 该年不是闰年 End If End Sub
【P111练一练】 练一练】 练一练
假设a=3 , b=4 ,c=5 ,判断以下表达式的计算 假设 判断以下表达式的计算 结果： 结果： 1、 a + b < c and b = c 、 2、 a > b + c and b < c 、 3、 Not (a > b ) and Not c > 1 、
程序的分支结构
第六周 第1节
给窗体添加“花纹” 教材P108） 任务一、给窗体添加“花纹”（教材 ）
Private Sub Form_Activate() Dim y As Integer Scale (0, 20)-(20, 0) Form1.DrawWidth = 2 For y = 0 To 20 If (y Mod 2) <> 0 Then Line (0, y)-(20, y), RGB(255, 255, 0) Else Line (0, y)-(Form1.ScaleWidth, y), RGB(0, 255, 255) End If Next y End Sub
任务三、判断某个数是否为素数？ 任务三、判断某个数是否为素数？（教材P111）
Private Sub Form_Activate() Dim x As Integer Dim i As Integer Dim result As Boolean x = InputBox("请输入数据", "未知数", 0) result = True For i = 2 To CInt(x) - 1 If x Mod i = 0 Then result = False Exit For End If Next i If result = False Then Print x; "是素数 是素数" 是素数 Else Print x; "不是素数" End If End Sub