08-2013_VB6-1讲课.ppt

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim A(10), S(6), i As Integer, age As String i = 0 A(i) = InputBox(输入A( i ), 输入年龄, 0, 100, 400) Select Case A(i) Case Is 60 S(6) = S(6) + 1 : age = 60岁以上 Case Is 50 S(5) = S(5) + 1 : age = 51-60岁 Case Is 40 S(4) = S(4) + 1 : age = 41-50岁 Case Is 30 S(3) = S(3) + 1 : age = 31-40岁 Case Is 20 S(2) = S(2) + 1 : age = 21-30岁 Case Is 10 S(1) = S(1) + 1 : age = 11-20岁 Case Else S(0) = S(0) + 1 : age = 0-10岁 End Select MsgBox(输入A( i )= A(i) 体检者属于 age 年龄组, , 输入年龄的显示) End Sub * Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click n的?阶×乘?程ì序ò! Dim x, n, fac As Integer n = InputBox(输?入?所ù求ó阶×乘?的?n) fac = 1 For x = 1 To n Step 1 fac = fac * x Next x MsgBox(n != fac) End Sub * Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Dim x As Single, Max As Single, Min As Single, k As Integer x = InputBox(请输入第1个数) Max = x : Min = x k = 2 While k = 10 x = InputBox(请输入 Str(k) 个数) If Max x Then Max = x If Min x Then Min = x k = k + 1 End While Label1.Text = Max= Max Label2.Text = Min= Min End Sub * Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Dim i As Integer = 0, t As Double = 1, s As Double = 0 Do While t = 0.000001 i = i + 1 t = t / i 累乘 s = s + t 再累加 Loop Label1.Text = s