VB实验任务14.doc

1、实验任务14课程名称：程序设计基础VB 实验名称实验十四 过程（2）一、实验目的：1 掌握过程的定义和调用二、实验内容（写明实验要求(题目)、实验步骤、程序清单、运行情况）：实验0 弄清楚过程调用的程序执行流程，建议人工执行一遍，之后利用单步调试工具，进一步验证。注意观察过程定义和调用的格式，并分析说明函数的功能（1）设计一个名为cmd的命令按钮Private sub cmd_click() Print f(49,21)End subPrivate function f(m as integer,n as integer) As integer Do while mn Do while mn

2、m=m-n loop Do while nm n=n-m loop Loop F=mEnd function（2）Private Sub form_click() Dim n As Integer n = Val(InputBox(请输入一个整数:) Print n; =; If n 1 Then Print *; Loop Next k If n 1 Then Print nEnd Sub实验1编写一个判断回文数函数，实现回文数的判断。提示：在主程序中调用该函数，从而给出是否是回文数的结论。实验2编写一个子程序过程，实现字符串的大小写转换。分析：首先为子程序过程定义一个有意义的名称：Conv

3、ersion；其次，考虑要实现指定字符串的处理，需要外界提供给子程序过程一个字符串，因此，必须定义一个字符串类型的形参；最后，在过程体中采用穷举算法，实现大小写转换。注意，仅在本过程中用到的变量，都定义为本过程的局部变量。具体的大小写转换子程序过程的定义如下：Option ExplicitPrivate Sub Command1_Click() Dim ch As String ch = Text1 调用子程序过程Conversion实现字符串的大小写转换 Text1 = chEnd SubPrivate Sub Conversion( ) 子程序过程Conversion的定义 Dim i A

4、s Integer, ch As String * 1 For i = 1 To Len(s) ch = Mid(s, i, 1) If ch = A And ch = Z Then Mid(s, i, 1) = LCase(ch) ElseIf Then Mid(s, i, 1) = UCase(ch) End If Next iEnd Sub实验3编写一个标准模块，该模块包含一个判断是否是素数的函数过程和一个判断是否是素数的子程序过程，要求在主程序中分别调用这两个过程，给出具体数据是否是素数的结论。提示：要求自己编写好判断是否是素数的函数，在主程序中调用此素数函数，给出具体数据是否是素数的

5、结论（注意：若函数处理的结果是两种状态信息，则通常将函数返回值设置为Boolean，用True或False表示；主程序中往往利用if语句调用函数，完成条件判断，并输出结果）。函数过程改写为子程序过程，必须增设一个按地址传递的形参。 参考界面实验4实验书 8-5 找出100以内（含100）自然数对，使两个成对的自然数满足其和与差都是平方数，如26和10，其和为36，其差为16，均为平方数，运行界面如图所示。Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 100 For j = To 100 If T

6、hen List1.AddItem i & & j End If Next j Next iEnd SubPublic Function Pf(x As Integer) As Boolean Dim y As Integer, p As Boolean If y * y = x Then Else Pf = False End IfEnd Function实验5实验书 8-6通过键盘向文本框输入正整数。在“除数”框架中选择一个单选按钮，然后单击“处理数据”命令按钮，将大于文本框中的正整数并且能够被所选除数整除的5个数添加到列表框List1中，如图所示。提示 选项按钮Option1是一个控件数

7、组。 执行结果Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 If = True Then y = val(Option1(i). ) End If Next Call calc(y)End SubPrivate Sub calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1 Do While i = If x Mod y = 0 Then List1.AddItem i = i + 1 End If x = x + 1 LoopEnd SubPrivate

8、Sub ClearList() For k = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem Next kEnd Sub实验6编写调用子程序过程实现数组a的选择法递减排序，数组元素是1,100之间的随机整数,注意当实参是数组，形式参数是如何定义的，参数的传递方式又如何.Option Base 1Private Sub Choose_Sort(arr() As Integer)Dim i As Integer, j As Integer, Temp As Integer For i = 1 To UBound(arr) - 1 For j = To UBound(arr) If Then arr(i) = arr(j) arr(j) = Temp End If Next j Next iEnd SubPrivate Sub Form_Click()Dim a(10) As Inte