第4章基本程序构,分别显示角度和弧度的正弦值.pptVIP

4.4 程序举例 任意输入一个字符串，编写程序，将其反向输出 。 例4.15补充 4.4 程序举例 任意输入一个字符串，编写程序，将其反向输出 。 例4.15补充 Private Sub cmdStart_Click() Dim N$, M$, I%, T$ N = txtN.Text M = For I = Len(N) To 1 Step -1 T = Mid(N, I, 1) M = M T Next I txtM.Text = M End Sub 4.4 程序举例 例4.16 分析： 我们 用 E 表示待求的工程常量 用 N表示累加的数据项数 用 M 表示第 N+1个数据项的分母(M = N! ) 当 1 / M Term 为真时重复执行: E = E + 1 /M N = N + 1 M = M * N 我们利用公式计算工程常量。 Temp 1 n! 我们利用公式计算工程常量。 Temp 1 n! 4.4 程序举例 例4.16 4.4 程序举例 Private Sub cmdStart_Click() Dim E#, N%, M, Term! E = 1: N = 1: M = 1 Term = Val(InputBox(, 输入精确度)) lblPrecision.Caption = 输入的精确度为： Term While 1 / M Term E = E + 1 / M N = N + 1 M = M * N Wend txtE.Text = E End Sub 例4.16 编写程序，统计输入的学生的总数和各分数段的人数。五个分数段分别为： 90 ～ 100： 优秀 80 ～ 89： 良好 70 ～ 79： 中等 60 ～ 69： 及格 0 ～ 59： 不及格 4.4 程序举例 例4.11又解 Dim Mark%,n1%,n2%,n3%,n4%,n5%,total% total = 0: n1 = 0: n2 = 0: n3 = 0: n4 = 0: n5 = 0 Do Mark = InputBox(输入学生的成绩（[0,100]以外表示结束）) If Mark 0 Or Mark 100 Then Exit Do Loop 4.4 程序举例 total = total + 1 Select Case Mart Case Is = 90 n1 = n1 + 1 Case 80 To 89 n2 = n2 + 1 Case 70 To 79 n3 = n3 + 1 Case 60 To 69 n4 = n4 + 1 Case Is 60 n5 = n5 + 1 End Select 统计各类成绩的人数 例4.11又解 Text1.Text = total Text2.Text = n1 Text3.Text = n2 Text4.Text = n3 Text5.Text = n4 Text6.Text = n5 4.4 程序举例 例4.11又解 编写程序，计算我国古代数学家提出的“百钱百鸡问题”：“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏几何？” 4.4 程序举例 例4.24 4.4.1 穷举法 我们分别用 X，Y，Z 表示公鸡、母鸡、小鸡的个数 则有： X + Y + Z =100 ① 5X+3Y+Z/3=100 ② 由方程②可知：X的取值范围为[0，20]中的整数。 Y的取值范围为[0，33]中的整数。 　　因此我们可以用二重循环来解决这个问题 分析： 4.4 程序举例 例4.24 4.4.1 穷举法 4.4 程序举例 例4.24 4.4.1 穷举法 Dim X%, Y%, Z% For X = 0 To 20 For Y = 0 To