第六章VB作业题目.docVIP

一、实习目的 1. 通过实习理解过程基本概念； 2. 掌握创建过程的方法和过程调用方法， 理解Sub过程和Function过程的异同； 3. 掌握Sub过程和Function过程程序设计方法； 4. 掌握过程调用时参数传递的两种方式及特点； 5. 理解过程、变量的作用域； 6. 理解递归的概念及编程方法特点。 二、实验过程 1,程序编码: Sub myAbs(x, y) Dim i i = -1 If i * x = 0 Then y = x Else y = i * x End If End Sub Private Sub Command1_Click() Dim a, b a = Val(InputBox(请输入一个数:)) Call myAbs(a, b) Print b End Sub 效果展示: 2,程序编码: Private Function max(n%()) As Integer Dim i% max = n(1) For i = 2 To 4 If max n(i) Then max = n(i) Next End Function Private Function min(n%()) As Integer Dim i% min = n(1) For i = 2 To 4 If min n(i) Then min = n(i) Next End Function Private Sub form_load() Show Dim a%(1 To 4), i% For i = 1 To 4 a(i) = InputBox(请输入一个数) Print a(i) Next Print 这四个数中最大的数是 max(a) Print 这四个数中最小的数是 min(a) End Sub 效果展示: 3.程序编码: Function isSXS(x As Integer) As Boolean tmp = x ^ 2 rs = Val(Right(tmp, Len(Trim(x)))) If rs = x Then isSXS = ture Else rs = False End If End Function Private Sub Command1_Click() Dim i As Integer n = 0 For i = 1 To 2000 If isSXS(i) Then Picture1.Print Tab((n Mod 5) * 10); i n = n + 1 End If Next End Sub 效果展示: 4.程序编码: Public Function Gdc(ByVal x%, ByVal y%) As Integer Dim i%, t% If x y Then t = x: x = y: y = t End If For i = x To l Step -1 If x Mod i = 0 And y Mod i = 0 Then Gdc = i Exit For End If Next End Function Private Sub Form_Load() Show Dim m%, n%, l% m = InputBox(请输入第一个数) n = InputBox(请输入第二个数) l = InputBox(请输入第三个数) Print m n l; 三个数的最大公约数是 Gdc(Gdc(m, n), 1) End Sub 5.程序编码: Public Function myrnd(ByVal x%, ByVal y%) As Integer Randomize myrnd = Int(Rnd * (y - x + 1) + x) End Function Private Sub Form_Load() Show l = InputBox(请输入要产生的个数) m = InputBox(请输入下界) n = InputBox(请输入上界) Print 产生 l 个 m 到 n 的随机整数如下 For i = 1 To l Print Tab(((i - 1) Mod 6