VB实习第六章.doc

实习内容： 例题6-1 求组合数CMN=n!/m!(n-m)!的值，设m=6,n=10。 运行结果为： 例题6-2 一个整型数组有10个元素，将第一个元素与最后一个元素对调，第二个与倒数第二个对调……..，输出对调前后数组各元素的值。 例题6-3 编写求两个整数的最大公约数过程，在主程序中调用该过程求两个数的最大公约数，并根据最大公约数求最小公倍数。 运行结果为： 例题6-4 分别用传地址方式和传值方式编写交换两个整数的过程并调用。 运行结果为： 例题6-5 编写求一组整数平均值的过程，并在主程序中调用。 例题6-6 编写能获得一组整数的平均值、最大值、和最小值的过程并调用。 例题6-7 求组合数CMN=n!/m!(n-m)!的值，设m=6,n=10。 例题6-8 尝试验证窗体级变量的作用范围 例题6-9 变量作用范围综合示例。 例题6-10 编程对键盘上输入的任意数排序。 例题6-11 判断一个整数是否是回文数，所谓回文数是这样的数，将这个数从左到右读和从右向左读的值相等。如121就是回文数，345就不是回文数。 例题6-12 设计一个数值转换函数，能够将十进制整数转换成十六进制以内的任意进制数。 例题6-13 利用递归调用计算n! 例题6-14 用递归求两个数的最大公约数。 习题6-1 自定义一个与VB内部函数Abs功能完全相同的函数过程MyAbs，要求函数过程中不能调用VB内部函数Abs。 事件代码为： Function myabs(x As Single, y As Single) As Single If x = 0 Then y = x Else y = -x End If End Function Private Sub Command1_Click() Dim x!, y! x = InputBox(请输入) Call myabs(x, y) Print x 的绝对值为：; y End Sub 运行结果为： 习题6-2 编写一个求4个数中最大值Max和最小值Min的过程，并在主程序中调用。 事件代码为： Sub qzz(x() As String, max As Single, min As Single) Dim i%, m%, n% m = LBound(x): n = UBound(x) max = x(m): min = x(m) For i = m + 1 To n If x(i) max Then max = x(i) If x(i) min Then min = x(i) Next i End Sub Private Sub Command1_Click() Dim a() As String, max As Single, min As Single a = Split(Text1.Text, ,) Call qzz(a, max, min) Label2.Caption = 最大值为： max ,最小值为： min End Sub 运行结果为： 习题6-4 编写函数过程Gdc求两个数的最大公约数。调用此函数试求1260、198、72三个数的最大公约数。 事件代码为： Sub Gdc(m%, n%, gys%) Dim r% Do r = m Mod n If r 0 Then m=n n = r End If Loop Until r = 0 gys = n End Sub Private Sub Command1_Click() Dim m%, n%, gys% m = 1260: n = 198 Call Gdc(m, n, gys) m = gys: n = 72 Print 1260、198、72的最大公约数为： gys End Sub 运行结果为： 习题6-5 编写产生随机整数过程，输出n个指定范围的随机整数，并在主程序中调用。 事件代码为： Sub sjs(a() As Integer, min As Integer, max As Integer, n As Integer) Dim m% m = 1 ReDim a(m To n) As Integer m = LBound(a): n = UBound(a) For i = m To n a(i) = Int(Rnd * (max - min + 1) + min) Print a(i); Next i End Sub Private Sub Command1_Click() Dim a%(), min%, max As Integer, x As I