教案第5章 选择分支与循环.pptVIP

Visual Basic Programming * [例5-6]一个模拟摇奖的程序 设有100个人中签，要从中找出中奖人。由机器自动随机产生1000个1～100间的数据，第1000个随机数据即为中奖人的号码。 问题的关键是如何产生1～100之间的随机整数。VB提供了一个可以产生0～1之间均匀分布的随机数的随机函数Rnd(x)。 为了生成某个范围内的随机整数，可用以下公式： Int((ub - lb + 1) * Rnd + lb) 这里，ub、 lb分别是随机整数范围的上下限。 程序代码 Visual Basic Programming * 随机函数Rnd(x) 其中，可选的 x 参数是 Single 或任何有效的数值表达式 如果使用参数且参数 x0，则得到相同的随机数；参数 x0，则得到随机序列的下一个随机数；参数 x=0，则返回上一次生成的随机数。不使用x的结果与x0相同。 对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。 调用 Rnd 之前，可先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有从系统计时器获得到的种子。 Visual Basic Programming * [例5-6]一个模拟摇奖的程序 Randomize 随机化语句 For i = 1 To 1000 intranum=Int(100 * Rnd) + 1 产生1～100间随机整数 a = 0 For j = 1 To 10000 延时 a = a + 1 Next j Text1.Text = CStr(intranum) Text1.Refresh 文本框刷新 Next i Visual Basic Programming * 程序示例 [例5-7]一个简易函数计算器程序 [例5-8] 个人收入调节税应用程序 [例5-9] 寻找水仙花数程序 [例5-10] 利用牛顿迭代法求方程根 [例5-11] 原码转换成反码的程序 5.3 Visual Basic Programming * [例5-7]一个简易函数计算器程序 为了保证“计算器”在各种操作状况下都正常工作，程序需要考虑用户没有在文本框中输入数据或输入的数据超出函数的定义域时的出错处理。 程序中使用的IsNumeric(s)函数用于检测自变量s是否是一个可转换成数值的数字串，如果是，则返回逻辑值True，否则返回False。 程序代码 Visual Basic Programming * [例5-7]一个简易函数计算器程序 If Text1.Text = Then temp = MsgBox(请输入X值！, 48 + vbOKOnly) ElseIf IsNumeric(Text1.Text) Then X = Val(Text1.Text) Label2.Caption = Exp(X)=: Text2.Text = Str(Exp(X)) Else temp = MsgBox(输入数据错误！, 16 + vbOKOnly) Text1.Text = End If Visual Basic Programming * MsgBox的返回值 temp = MsgBox(输入数据错误！, 16 + vbOKOnly) Print temp 当单击MsgBox上的OK按钮之后，temp就获得了一个返回值，显示在窗体上为“1” 使用赋值语句。如： ans = MsgBox(“非法数据！”,48,”提示信息”) 使用Print方法。例如： Print MsgBox(“非法数据！”,48,”提示信息”) 也可以把它等同为一个方法使用。如： MsgBox “非法数据！”,48,”提示信息” Visual Basic Programming * [例5-8]个人收入调节税应用程序 按月收入额计个人收入调节税的计税公式 式中，income为纳税人的月收入。 程序代码 Visual Basic Programming * income = Text1.Text If Check1.Value = 1 Or income = 1600 Then tax = 0 ElseIf income = 2100 Then tax = (income - 1600) * 0.05 ElseIf income = 3600 Then tax = (income - 1600) * 0.1 - 25 ElseIf i