流程控制课件资料.pptVIP

试一试 图3-25 程序界面2 图3-26 程序界面3 图3-24 程序界面1 提示 ① 学号最多11位，设置MaxLength属性为11。 ② 判断数字用IsNumeric函数。 ③ 密码显示：设置PassWordChar属性为“*”。 ④ 用MsgBox函数显示密码错误的对话框。 第六十二页，共八十页。 试一试 3．企业发放奖金根据利润提成。利润x低于或等于10万元时，奖金按5%提成；x高于10万元，低于或等于20万元时，低于10万元部分按5%提成，超过10万元的部分按7.5%提成；当x高于20万元，低于或等于40万元时，低于20万元的部分还是按上述部分提成（下同），高于20万元的部分按10%提成；当x高于40万元，低于或等于60万元时，高于40万的部分按12.5%提成；当x高于60万元，低于或等于100万元时，高于60万的部分按15%提成；当x大于100万元时，超过100万元的部分按20%提成。设计程序，在界面的文本框内输入利润x，由程序给出提成。程序界面如图3-27所示。 第六十三页，共八十页。 试一试 图3-27 程序界面 第六十四页，共八十页。 活动三 输出给定范围内所有被3、5、7整除的整数 第六十五页，共八十页。 活动简介 在键盘上输入一个正整数num，随后程序给出1至num之间所有能被3、5、7同时整除的整数。程序实现的界面如图3-28和图3-29所示。 图3-28 3、5、7整除程序界面 图3-29 显示指定范围内符合要求的数 第六十六页，共八十页。 活动实施 一、本程序实现思想 将指定范围内每个整数都进行条件测试，如果满足条件则将该整数加入待显示字符串内；若不满足则测试下一个整数，直到测试完所有范围内的整数。 本程序使用循环结构实现。 第六十七页，共八十页。 活动实施 二、界面设计 控件类别 控件 属性 设置值 窗体 Form1 Text 357倍数 Size 290, 174 文本框 Textbox1 Location 170, 39 Size 75, 21 Font 宋体, 9pt 标签 Label1 Text 请输入要检查的范围的上限： Font 宋体, 9pt Location 3, 42 Size 161, 12 BackColor Control 命令按钮 Button1 Text 开始 Font 宋体, 9pt Location 28,122 Size 75,23 Button2 Text 退出 Font 宋体, 9pt Location 170,122 Size 75,23 第六十八页，共八十页。 活动实施 三、代码设计 Public Class Form1 Dim n As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_ Handles Button1.Click Dim i As Integer Dim s As String s = 1至 n 之间能被、、整除的整数有： vbCrLf For i = 1 To n If (i Mod 3 = 0) And (i Mod 5 = 0) And (i Mod 7 = 0) Then s = i End If Next MsgBox(s) End Sub 第六十九页，共八十页。 活动实施 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)_ Handles TextBox1.TextChanged n = Val(TextBox1.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub End Class 第七十页，共八十页。 试一试 1．在键盘上输入一个整数n，然后用对话框给出2至n之间所有的素数（素数是指大于1且只能被1和本身整除的正整数，如2、3、5、7等）。如图3-30和图3-31所示。在字符框内输入正整数时，单击“开始”，显示选择范围内的素数。 图3-30 素数检查程序界面 图3-31 素数检查程序运行时界面 第七十一页，共八十页。 试一试