实验F.docVIP

实验F 一 实验目的 1掌握自定义函数过程和子过程的定义和调用方法 2掌握形参和实参之间的对应关系 3掌握值传递和地址传递的传递方式 4掌握变量、函数和过程的作用域 5掌握递归的概念和使用方法 6熟悉程序设计中的常用算法 二 实验内容 1编一子过程ProcMin（a(),amin） 代码：Private Sub Form_Click() Dim a(1 To 10), amin, i% For i = 1 To 10 a(i) = -Int(Rnd * 101 + 300) Print a(i); Next i Call s(a(), amin) Print Print min=; amin End Sub Sub s(b(), min) Dim i% min = b(LBound(b)) For i = LBound(b) + 1 To UBound(b) If b(i) min Then min = b(i) Next i End Sub 2参见教材例6.2，编一求两数m，n最大公约数的函数过程f(m,n)；主调程序在两个文本框接收输入数据，在图形框显示结果。 代码：Private Sub Command1_Click() Dim m, n As Long m = Val(Text1.Text) n = Val(Text2.Text) f m, n End Sub Function f(m, n As Long) Dim max, min, i, k As Long If m n Then max = n: min = m Else max = m: min = n For i = 1 To min If max Mod i = 0 And min Mod i = 0 Then k = i Next i Picture1.Print m 和 n 的最大公约数是 k End Function Private Sub Form_Load() Text1.Text = Text2.Text = End Sub 3编写一函数过程MySin（x） 代码：Private Sub Form_Click() Print 调用内部函数Sin函数结果; Sin(3.14 / 4) Print 用自定义函数MySin函数结果; MySin(3.14 / 4) End Sub Function MySin(x!) As String Dim i%, t!, s! t = x s = t For i = 1 To 1000 Step 2 t = -1 * t * x * x / ((i + 1) * (i + 2)) s = s + t If Abs(t 0.00001) Then Exit For Next i MySin = s End Function 4编写一个函数过程，IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在列表框中显示输入的数，对于是回文数显示一个“”。 代码：Option Explicit Private Sub Command1_Click() Print IsH(Val(Text1.Text)) End Sub Function IsH(n) As String Dim i As Integer For i = 1 To Int(Len(n) / 2) If Mid(n, i, 1) Mid(n, Len(n) - i + 1, 1) Then Picture1.Print Text1.Text Exit Function End If Next i Picture1.Print Text1.Text; ★ End Function 5验证哥德巴赫猜想：任意一个大于2的偶数都可以表示成两个素数之和。编程将6~100之间的全部偶数表示为两个素数之和，在列表框显示结果，最后Label显示共有多少对素数之和。 代码：Private Sub Command1_Click() Dim Even%, Odd1%, Odd2% For Even = 6 To 100 Step 2 For Odd1 = 3 To Even / 2 If prime(Odd1) Then Odd2 = Even - Odd1 If pri