第4章控制结构与过程_1.ppt

2020 2 20 VisualBasic程序设计教程 1 第4章控制结构与过程 VisualBasic程序设计教程 2 2020 2 20 4 1顺序结构4 2选择结构4 3循环结构 第4章控制结构与过程 VisualBasic程序设计教程 3 2020 2 20 4 1顺序结构 VB应用程序主要是由过程组成的 编写程序时通常使用结构化程序设计的方法 结构化程序设计包括 顺序结构选择结构循环结构顺序结构是按程序中语句出现的先后顺序执行的结构 VisualBasic程序设计教程 4 2020 2 20 4 1 1赋值语句 赋值语句是VB中使用最频繁的语句之一 其格式为 功能 将表达式的结果赋给变量或某个对象的属性 例如 V1 V1 50 VisualBasic程序设计教程 5 2020 2 20 4 1 1赋值语句 说明 为内存变量名或对象的属性名 赋值语句中 是赋值号 与数学中的等号意义不同 先计算表达式的值 然后将结果赋给等号 左边的变量 如果等号 左边为Variant变量 则表达式可以是任意类型 可以是任何数据类型 但等号 两边的数据类型必须一致或相容 VisualBasic程序设计教程 6 2020 2 20 4 1 2使用Print方法输出数据 1 Print方法Print方法的格式为 Print 功能 在窗体 图片框 立即窗口或打印机等对象中输出信息 VisualBasic程序设计教程 7 2020 2 20 4 1 2使用Print方法输出数据 说明 如果 对象名称 省略 则在当前窗体上输出 表达式表 可以是算术表达式 字符串表达式 关系表达式或布尔表达式 若 表达式表 默认 则输出一个空行 当需要在同一行输出多个表达式的值时 如用逗号 将表达式隔开 则按标准输出格式 以14个字符位置为单位 把一行分成多个区段 在各区段分别显示表达式的值 若用分号 作分隔符 则按紧凑格式输出数据 VisualBasic程序设计教程 8 2020 2 20 4 1 2使用Print方法输出数据 2 Tab函数Tab函数可以与Print方法配合使用 其格式为 Tab n 功能 把光标移到由参数n指定的位置 从这个位置开始输出数据 VisualBasic程序设计教程 9 2020 2 20 4 1 2使用Print方法输出数据 3 Spc函数其格式为 Spc n 功能 在Print输出中 光标由当前位置跳过n个空格 VisualBasic程序设计教程 10 2020 2 20 例4 1 使用Print方法直接在窗体上输出数据实例 运行界面 VisualBasic程序设计教程 11 2020 2 20 例4 1 语句 程序代码如下 PrivateSubForm Click Dimv1AsString v2AsStringDimv3AsString v4AsStringDimv5AsStringv1 2008 v2 北京奥运 v3 北京欢迎你 v4 同一个世界 v5 同一个梦想 VisualBasic程序设计教程 12 2020 2 20 程序代码如下 PrintPrintTab 15 v1 v2PrintPrintTab 16 v3PrintPrintTab v4 v5PrintPrintTab 4 v4 v5EndSub VisualBasic程序设计教程 13 2020 2 20 4 1 3输入函数InputBox 格式为 InputBox Prompt Title Default Xpos Ypos 功能 弹出一个对话框 如图所示 等待用户输入数据 当用户敲回车键或单击 确定 按钮时 函数将输入的内容以字符串返回 VisualBasic程序设计教程 14 2020 2 20 4 1 3输入函数InputBox 例如 n InputBox 请输入学生人数 输入框 0 提示 标题 默认值 VisualBasic程序设计教程 15 2020 2 20 4 1 3输入函数InputBox 函数中参数含义如下 Prompt 这是一个必选项 可以是字符串或字符串变量 用于表示出现在对话框中的提示信息 最长1024个字符 如上例中的 请输入学生人数 在对话框中显示Prompt时系统会自动换行 如果想按自己的要求换行 可在适当的位置插入回车换行操作 Chr 13 Chr 10 VisualBasic程序设计教程 16 2020 2 20 4 1 3输入函数InputBox 函数中参数含义如下 Title 可选项 字符串或字符串变量 用于表示对话框内的标题信息 如上例中的 输入框 若省略此项 则用工程名作为对话框的标题 VisualBasic程序设计教程 17 2020 2 20 4 1 3输入函数InputBox 函数中参数含义如下 Default 可选项 字符串或字符串变量 用于设置输入框的文本中的默认文本 如果此项省略 则对话框的输入区是空白的 否则 在对话框的输入区会显示该参数的内容 并作为输入的默认值 如果用户不想用这个默认字符串作为输入值 可在输入区直接输入新的数据 VisualBasic程序设计教程 18 2020 2 20 4 1 3输入函数InputBox 函数中参数含义如下 Xpos Ypos 可选项 是两个整数值 用于设置输入框与屏幕左边和上边的距离 单位为twip 若默认 则对话框显示在屏幕中心线向下约三分之一处 VisualBasic程序设计教程 19 2020 2 20 4 1 3输入函数InputBox 例4 2 设计一个窗体 其中有一个命令按钮 如下图所示 VisualBasic程序设计教程 20 2020 2 20 4 1 3输入函数InputBox 编写单击命令按钮响应事件如下 PrivateSubCommand1 Click Dims1AsString 8 s2AsStringDims3AsInteger s4AsStringClss1 InputBox 请输入学号 输入学号 20080001 s2 InputBox 请输入姓名 输入姓名 s3 Val InputBox 请输入年龄 输入年龄 18 VisualBasic程序设计教程 21 2020 2 20 4 1 3输入函数InputBox 编写单击命令按钮响应事件如下 s4 InputBox 请输入班级 输入班级 PrintPrintTab 4 学号 Spc 5 姓名 Spc 5 年龄 Spc 6 班级 PrintTab 2 s1 Tab 12 s2 Tab 22 s3 Tab 30 s4End VisualBasic程序设计教程 22 2020 2 20 例4 1 输入一个圆的半径 试求其面积 新建一个工程 在其窗体上建立一个命令按钮 对命令按钮的单击事件编程 VisualBasic程序设计教程 23 2020 2 20 PrivateSubCommand1 Click DimsAsSingle rAsSingler InputBox 请输入圆半径 s 3 14159 r rPrint 圆面积为 sEndSub VisualBasic程序设计教程 24 2020 2 20 用文本框输入 PrivateSubCommand1 Click DimsAsSingle rAsSingler val Text1 Text s 3 14159 r rPrint 圆面积为 sEndSub VisualBasic程序设计教程 25 2020 2 20 用标签输出 PrivateSubCommand1 Click DimsAsSingle rAsSingler val Text1 Text s 3 14159 r rLabel1 Caption 圆面积为 sEndSub VisualBasic程序设计教程 26 2020 2 20 其它方式 用文本框输出用MsgBox输出 VisualBasic程序设计教程 27 2020 2 20 4 1 4输出函数MsgBox与MsgBox语句 1 MsgBox函数格式为 MsgBox Prompt Buttons Title HelpFile Context 功能 根据参数建立一个对话框 显示提示信息 同时将用户在对话框中的选择结果传输给程序 VisualBasic程序设计教程 28 2020 2 20 提示 标题 命令按钮 图标 MsgBox函数弹出信息框 VisualBasic程序设计教程 29 2020 2 20 4 1 4输出函数MsgBox与MsgBox语句 函数中参数Title的含义与InputBox函数中同名参数类似 Prompt 必选项 可以是字符串或字符串变量 最长1024个字符 它用于显示在对话框中的提示信息 通知用户应该做什么选择 在对话框中显示Prompt时系统会自动换行 如果想按自己的要求换行 可在适当的位置插入回车换行操作 Chr 13 Chr 10 VisualBasic程序设计教程 30 2020 2 20 4 1 4输出函数MsgBox与MsgBox语句 Buttons 可选项 可以是整数值或表4 1中系统定义的符号常量 它用于指定对话框中按钮的数目及形式 图标的样式 以及默认按钮和强制返回 该参数的值由表4 1中四类数值各选一个相加产生 若此项缺省 则对话框内只显示一个 确定 按钮 默认值为0 VisualBasic程序设计教程 31 2020 2 20 表4 1参数Buttons的取值 VisualBasic程序设计教程 32 2020 2 20 表4 1参数Buttons的取值 VisualBasic程序设计教程 33 2020 2 20 表4 2MsgBox函数返回值 VisualBasic程序设计教程 34 2020 2 20 输出函数MsgBox 例4 3 编写程序 使用MsgBox函数显示对话框 PrivateSubForm Click m1 需要数据备份吗 m2 MsgBox函数示例1 h MsgBox m1 36 m2 PrinthEndSub VisualBasic程序设计教程 35 2020 2 20 2 MsgBox语句MSgBox语句与MSgBox函数的作用相似 各参数的含义亦与MsgBox函数相同 其格式为 MsgBox Buttons Title HelpFile Context 功能 建立一个对话框 显示提示信息 同时接收用户在对话框中的选择 VisualBasic程序设计教程 36 2020 2 20 例4 4 编写程序 使用MsgBox语句显示对话框 PrivateSubForm Click m1 欢迎使用本系统 m2 MsgBox语句示例 MsgBoxm1 0 m2EndSub VisualBasic程序设计教程 37 2020 2 20 4 1 5编程规则 1 注释语句注释语句是非执行语句 格式为 Rem 2 续行符VB允许使用续行符 一个空格加一个下划线 将一条长语句写成多行 VisualBasic程序设计教程 38 2020 2 20 4 1 5编程规则 3 一行写多条语句语句间用冒号 分隔 例如 a 25 b 50 c 84 暂停语句暂停语句用来暂停程序的执行 格式为 Stop5 结束语句End VisualBasic程序设计教程 39 2020 2 20 4 2选择结构 VB中选择结构语句包含If语句SelectCase语句 VisualBasic程序设计教程 40 2020 2 20 4 2 1If语句 If语句又称条件语句 包括 单分支结构双分支结构多分支结构 VisualBasic程序设计教程 41 2020 2 20 1单分支If语句 块结构If语句格式为 IfThenEndIf单行 IfThen功能 如果表达式的值为True 真 执行语句序列 否则执行EndIf后面的语句 VisualBasic程序设计教程 42 2020 2 20 1单分支If语句 图4 7单分支语句工作流程图 VisualBasic程序设计教程 43 2020 2 20 2双分支If语句 块结构If语句格式为 IfThenElseEndIf单行 IfThenElse功能 如果表达式的值为True 真 执行语句序列1 否则执行语句序列2 VisualBasic程序设计教程 44 2020 2 20 2双分支If语句 图4 8双分支语句工作流程图 表达式 F T If前面的语句 语句序列1 语句序列2 EndIf后面的语句 VisualBasic程序设计教程 45 2020 2 20 2双分支If语句 例4 5 设有函数如下 计算y的值 1x 0y 0 x 0 1x 0 VisualBasic程序设计教程 46 2020 2 20 程序代码如下 PrivateSubForm Click DimxAsSingle yAsSinglex Val Text1 Text Ifx 0Theny 1ElseIfx 0Theny 1Else VisualBasic程序设计教程 47 2020 2 20 程序代码 Elsey 0EndIfEndIfLabel2 Caption Str y EndSub VisualBasic程序设计教程 48 2020 2 20 用sgn x 函数实现 PrivateSubCommand1 Click dimxAssingle yassinglex val Text1 Text Label2 Caption sgn x Endsub VisualBasic程序设计教程 49 2020 2 20 3多行If语句 IfThen ElseIfThen ElseIfThen Else EndIf VisualBasic程序设计教程 50 2020 2 20 多行If语句工作流程图 VisualBasic程序设计教程 51 2020 2 20 用多行If语句改写例题4 5 Ifx 0theny 1ElseIfx 0theny 1Elsey 0EndIf VisualBasic程序设计教程 52 2020 2 20 例4 6 在窗体上有一个标签Label1和一个命令按钮Command1 程序运行后 单击命令按钮弹出一个输入对话框 用户输入任意一个正整数 在标签上输出该数字的位数 VisualBasic程序设计教程 53 2020 2 20 PrivateSubCommand1 Click DimNumAsLongNum Val InputBox 请输入任意正整数 多行If语句实例 0 IfNum 10ThenLabel1 Caption 输入的是一位数字 NumElseIfNum 100ThenLabel1 Caption 输入的是两位数字 NumElseIfNum 1000ThenLabel1 Caption 输入的是三位数字 NumElseLabel1 Caption 输入的是四位以上数字 NumEndIfEndSub VisualBasic程序设计教程 54 2020 2 20 4IIf函数 IIf函数可用来执行简单的条件判断操作 它和 If Then Else 语句有类似的功能 格式为 IIf 其中 条件 是一个逻辑表达式 当 条件 为真时 IIf函数返回 True部分 若 条件 为假 则返回 False部分 VisualBasic程序设计教程 55 2020 2 20 4IIf函数 例4 7 利用IIf函数改写例题4 5 PrivateSubCommand1 Click DimxAsSingle yAsIntegerx Val Text1 Text y IIf x 0 1 IIf x 0 0 1 Text2 Text Str y EndSub VisualBasic程序设计教程 56 2020 2 20 例4 7 输入一个学生的平均成绩x 若x 90则输出 优秀 若x 90且x 80则输出 良好 若x 80且x 70则输出 中等 若x 70且x 60则输出 及格 若x 60则输出 不及格 对窗体的单击事件编程如下 tu4 7 vbp VisualBasic程序设计教程 57 2020 2 20 PrivateSubForm Click DimxAsSingle yAsStringx InputBox 请输入平均成绩 Ifx 90Theny 为优秀 ElseIfx 80Theny 为良好 ElseIfx 70Theny 为中等 ElseIfx 60Theny 为及格 Elsey 为不及格 EndIfMsgBoxx yEndSub VisualBasic程序设计教程 58 2020 2 20 用Label和TextBox控件实现 tu4 7 1 vbp VisualBasic程序设计教程 59 2020 2 20 PrivateSubCommand1 Click DimxAsSingle yAsStringx val Text1 Text 文本框输入Ifx 90Theny 为优秀 ElseIfx 80Theny 为良好 ElseIfx 70Theny 为中等 ElseIfx 60Theny 为及格 Elsey 为不及格 EndIfLabel3 Caption y 标签输出EndSub VisualBasic程序设计教程 60 2020 2 20 4 2 2SelectCase语句 情况语句 语句的一般格式为 SelectCaseCaseCase Case CaseElse EndSelect VisualBasic程序设计教程 61 2020 2 20 功能 根据的值 从若干语句块中挑选一个语句块执行 可以是数字表达式或字符串表达式 VisualBasic程序设计教程 62 2020 2 20 SelectCase语句中的 表达式结果表 可以有下列四种形式 只有一个数值常量或单个字符常量例如 SelectCasexCase5Case are VisualBasic程序设计教程 63 2020 2 20 有多个用逗号隔开的数值常量或字符串常量 如果表达式的值与其中一个数值或字符串相等 即可执行此表达式结果后相应的语句序列 否则 若表达式的值与这些取值均不相等 可以再与随后的其他表达式结果表进行比较 例如 SelectCasexCase3 6 9 12Case a u o VisualBasic程序设计教程 64 2020 2 20 To 它提供了一个数值或字符串的取值范围 字符串常量的范围必须按字母顺序写出 如果表达式的值与范围内的某个值相等 则执行此表达式结果后相应的语句序列 否则 若表达式的值与这个取值范围内的值均不相等 可以再与随后的其他表达式结果表进行比较 例如 SelectCasexCase10To99Case A To Z VisualBasic程序设计教程 65 2020 2 20 Is关系运算符数值或字符串 Is是关键字 其后只能使用 和 等关系运算符 将测试表达式的值与关系运算符后面的数值或字符串进行比较 若结果为真 则执行此表达式结果后相应的语句序列 否则 与随后的其他表达式结果表进行比较 例如 SelectCasexCaseIs ABC CaseIs 999 VisualBasic程序设计教程 66 2020 2 20 用Selectcase语句改写成绩等级例题 tu4 7 3 SelectCasexCaseIs 90y 为优秀 CaseIs 80y 为良好 CaseIs 70y 为中等 CaseIs 60y 为及格 CaseElsey 为不及格 EndSelect VisualBasic程序设计教程 67 2020 2 20 4 3循环结构 VB提供了三种不同风格的循环结构计数循环 For Next 当循环 While Wend Do循环 VisualBasic程序设计教程 68 2020 2 20 4 3 1For循环 For循环也称For Next循环 属于计数型循环 在程序中实现固定次数的循环 其格式为 For循环变量 初值To终值 Step步长 ExitFor Next 循环变量 功能 按指定的次数执行循环体 VisualBasic程序设计教程 69 2020 2 20 4 3 1For循环 其中 循环变量 是用做循环计数器的数值变量 也称为循环控制变量 初值 循环控制变量的初值 是一个常数或数值表达式 终值 循环控制变量的终值 是一个常数或数值表达式 步长 循环控制变量的增量 是一个常数或数值表达式 其值可以是正数 递增循环 或负数 递减循环 VisualBasic程序设计教程 70 2020 2 20 例如 Fori 1To100Step1sum sum iNext其中 i是循环变量 1是初值 100是终值 1是步长 sum是累加器 sum sum i是循环体 也可以写成 Fori 100To1Step 1sum sum iNext VisualBasic程序设计教程 71 2020 2 20 循环次数由初值 终值和步长三个因素决定 计算公式为 循环次数 Int 终值 初值 步长 1 例4 9 窗体上有1个标签Label1和2个命令按钮Command1 Command2 编写程序计算的值 VisualBasic程序设计教程 72 2020 2 20 VisualBasic程序设计教程 73 2020 2 20 PrivateSubCommand1 Click DimnAsInteger iAsInteger sumAsDoublen Val InputBox 请输入整数N For循环 Fori 1TonStep1sum sum 1 iNextiLabel1 Caption 1 1 2 1 Trim Str n Trim Str sum EndSub VisualBasic程序设计教程 74 2020 2 20 拓展 如何用MsgBox输出 如果用TextBox输出 该怎么做 VisualBasic程序设计教程 75 2020 2 20 4 3 2While循环 其格式为 WhileWend功能 如果 条件表达式 的值为True时 则执行循环中的 语句序列 即循环体 VisualBasic程序设计教程 76 2020 2 20 n Val InputBox 请输入整数N For循环 i 1 注意变化Whilei nsum sum 1 ii i 1 注意变化Wend 用While循环实现例题4 9 VisualBasic程序设计教程 77 2020 2 20 4 3 3Do循环 Do循环的格式有两种 格式1 Do ExitDo Loop While Until 格式2 Do While Until ExitDo Loop VisualBasic程序设计教程 78 2020 2 20 功能 当 条件表达式 的值为True或直到 表达式 的值为True之前 重复执行指定的 语句序列 即循环体 说明 条件表达式是一个逻辑表达式或关系表达式 是决定循环是否执行的条件 语句序列是任何合法的VB语句或操作命令 由一条或多条要重复执行的语句组成 使用ExitDo语句只能跳出一层循环 如果存在多层Do循环嵌套 而ExitDo语句设在内层 则只能跳出内层 继续执行外层循环 VisualBasic程序设计教程 79 2020 2 20 N Y 条件为真吗 Y N Do LoopWhile工作流程图 Do LoopUntil工作流程图 条件为真吗 Y N VisualBasic程序设计教程 80 2020 2 20 用DoWhile Loop实现例题4 9 n Val InputBox 请输入整数N For循环 i 1DoWhilei n 注意变化sum sum 1 ii i 1Loop 注意变化 课后思考 若用DoUntil Loop 如何做 VisualBasic程序设计教程 81 2020 2 20 用Do LoopUntil实现例题4 9 n Val InputBox 请输入整数N For循环 i 1Dosum sum 1 ii i 1LoopUntili n 课后思考 若用Do LoopWhile 如何做 VisualBasic程序设计教程 82 2020 2 20 例题 求阶乘 在窗体上有一个文本框Text1 一个标签Label1和一个命令按钮Command1 程序运行后 在Text1中输入一个正整数n 单击Command1 则在Label1中显示该数n的阶乘 VisualBasic程序设计教程 83 2020 2 20 求阶乘的运行界面 VisualBasic程序设计教程 84 2020 2 20 PrivateSubCommand1 Click DimnAsInteger iAsInteger pAsDoublen Val Text1 Text p 1Fori 1Tonp p iNextLabel1 Caption pEndSub思考 若用InputBox输入 如何做 VisualBasic程序设计教程 85 2020 2 20 用While循环实现 n Val Text1 Text p 1i 1 此处开始有变化Whilei np p ii i 1 修改循环变量WendLabel1 Caption p VisualBasic程序设计教程 86 2020 2 20 用Do LoopWhile实现 n Val Text1 Text p 1i 1Dop p ii i 1LoopWhilei nLabel1 Caption p VisualBasic程序设计教程 87 2020 2 20 用DoUntil Loop实现 n Val Text1 Text p 1i 1DoUntili n 此处开始有变化p p ii i 1LoopLabel1 Caption p VisualBasic程序设计教程 88 2020 2 20 应用实例 例4 8 编写一个对输入字符进行转换的程序 将其中的大写字母转换成小写字母 而小写字母则转换为大写字母 空格不转换 退格键和回车键不接受 其余字符转换成井号 号 要求每输入一个字符马上就进行判断和转换 P77 VisualBasic程序设计教程 89 2020 2 20 KeyPress事件 P160 用户按下与ASCII字符对应的键时 将触发KeyPress事件 KeyPress事件能够识别数字 字母和符号等所有可见字符 以及Enter Backspace Tab和Esc这4个控制键 但是KeyPress事件不能识别其他控制键 编辑键 定位键和F1 F12功能键 VisualBasic程序设计教程 90 2020 2 20 6 1 1KeyPress事件 KeyPress事件过程的语法格式如下 Sub对象名 KeyPress KeyAsciiAsInteger 参数说明 KeyAscii参数返回对应ASCII字符代码的整型数值 例如 按下 a KeyAscii参数值为97 按下 A KeyAscii参数值为65 VisualBasic程序设计教程 91 2020 2 20 13是回车键的ASCII码 8是退格键PrivateSubText1 KeyPress KeyAsciiAsInteger DimaaAsString 1IfKeyAscii 13OrKeyAscii 8ThenKeyAscii 0Elseaa Chr KeyAscii VisualBasic程序设计教程 92 2020 2 20 SelectCaseaaCase A To Z aa LCase aa aa Chr KeyAscii 32 Case a To z aa UCase aa aa Chr KeyAscii 32 Case aa CaseElseaa EndSelectText2 Text Text2 Text aaEndIfEndSub VisualBasic程序设计教程 93 2020 2 20 例4 11 单击窗体 将0 30中能被3整除的数显示在窗体上 P83 VisualBasic程序设计教程 94 2020 2 20 PrivateSubForm Click DimyAsIntegerWhiley 30y y 1IfyMod3 0ThenPrinty EndIfWendEndSub VisualBasic程序设计教程 95 2020 2 20 改进例题4 11 输入一个正整数N 单击窗体 则输出0 N之间能被3整除的数 每输出10个数 换行一次 VisualBasic程序设计教程 96 2020 2 20 PrivateSubForm Click DimnAsInteger yAsInteger kAsIntegern Val InputBox 输入正整数N Whiley ny y 1IfyMod3 0ThenPrinty k k 1EndIfIfkMod10 0ThenPrint 换行WendEndSub VisualBasic程序设计教程 97 2020 2 20 例4 12 在窗体上有两个标签框 两个文本框Text1和Text2 两个命令按钮Command1和Command2 编写程序 将用户在文本框Text1中输入的字符串的偶位数字符取出 组成一个新字符串 并在文本框Text2中输出 VisualBasic程序设计教程 98 2020 2 20 PrivateSubCommand1 Click DimpAsInteger nAsIntegerDims1AsString s2AsStrings1 Trim Text1 Text n Len Trim Text1 Text p 1DoWhilep nIfpMod2 0Thens2 s2 Mid s1 p 1 p p 1LoopText2 Text s2EndSub VisualBasic程序设计教程 99 2020 2 20 例4 12 使用Do LoopUntil循环计算199 253之间的偶数和 用MsgBox语句显示结果 PrivateSubForm Click DimxAsInteger sAsIntegerx 200Dos s xx x 2LoopUntilx 253MsgBox 200 202 252 Str s 偶数和 EndSub VisualBasic程序设计教程 100 2020 2 20 4 3 4多重循环 如果循环体中包含有循环语句 就是多重循环 内层循环体还可以包含循环语句 就是三重循环 依此类推 多重循环又称循环的嵌套 VisualBasic有3种格式的循环语句 嵌套可以是同类型的循环 也可以是不同类型的循环 如果某层循环内包含退出语句 当执行退出语句时 只能退出本层循环 使控制转移到本层循环终端语句的下一个语句 VisualBasic程序设计教程 101 2020 2 20 例4 13 For循环嵌套实例 PrivateSubForm Click DimiAsInteger jAsIntegerFori 1To5PrintTab 3 Forj 1To5Print a Trim i Trim j NextjPrintNextiEndSub VisualBasic程序设计教程 102 2020 2 20 常用算法举例 例4 16 计算1 1 1 2 1 3 1 n 之值 程序运行界面如图所示 VisualBasic程序设计教程 103 2020 2 20 OptionExplicitDimmAsInteger 窗体变量PrivateSubCommand1 Click m InputBox 请输入一个整数 EndSubPrivateSubCommand2 Click DimiAsInteger pAsLong sAsDoublep 1Fori 1Tomp p is s 1 pNextiLabel1 Caption 1 1 1 2 1 m sEndSub VisualBasic程序设计教程 104 2020 2 20 例4 17 求1 1 1 3 1 5 1 2n 1 之值 程序运行界面如图所示 本题在前一题的基础上修改 所有控件的属性不用更改 程序中只考虑奇数的阶乘项 VisualBasic程序设计教程 105 2020 2 20 DimmAsIntegerPrivateSubCommand1 Click m InputBox 请输入一个整数 EndSubPrivateSubCommand2 Click DimpAsLong iAsInteger sAsSinglep 1Fori 1To2 m 1p p iIfiMod2 1Thens s 1 pEndIfNextiLabel1 Caption 1 1 1 3 1 2 m 1 sEndSub VisualBasic程序设计教程 106 2020 2 20 例4 18 在左边文本框中输入一个数n 单击命令按钮后 便在右边文本框中输出1 1 2 1 2 3 1 2 3 n 之值 当n 5时 程序运行界面如图所示 VisualBasic程序设计教程 107 2020 2 20 PrivateSubCommand1 Click DimnAsInteger iAsInteger sAsLong tAsLongn Val Text1 Text i 1DoWhilei ns s it t si i 1LoopText2 Text 1 1 2 1 2 n tEndSub VisualBasic程序设计教程 108 2020 2 20 例4 19 求1 1 2 1 3 1 n的和 用MsgBox语句显示结果 当n 7时 MsgBox对话框如图所示 VisualBasic程序设计教程 109 2020 2 20 PrivateSubForm Click DimnAsInteger iAsIntegerDimsAsSingle pasStringn InputBox 请输入一个整数 i 1DoUntili ns s 1 ii i 1Loopp 1 1 2 1 n MsgBoxp s 计算1 1 2 1 n之和 EndSub VisualBasic程序设计教程 110 2020 2 20 例4 20 求1 1 3 1 5 1 7 1 2n 1 的值 用MsgBox显示结果 当n 5时 MsgBox对话框如图所示 VisualBasic程序设计教程 111 2020 2 20 PrivateSubForm Click DimnAsInteger iAsInteger sAsSingle pasStringn InputBox 请输入一个整数 i 1 s 1DoUnti