vb实验报告2【DOC精选】.docVIP

一、实验目的和要求 1．实验目的： 掌握自定义函数过程和子过程的定义和调用方法。 掌握形参和实参之间的对应关系； 掌握值传递和地址传递的传递方式； 掌握变量、函数和过程的作用域； 掌握递归的概念和使用方法； 熟悉程序设计中的常用算法。 2．上机调试之前必须携带已经编写完毕的程序源代码，实验过程中主要是进行调试。 3．上机时间不足以完成实验项目的同学利用课外时间做完所有项目。 4．根据所选实验内容完成实验报告。 二、实验主要仪器和设备 计算机 三、实验方法与步骤（需求分析、算法设计思路、流程图等） 实验4 编一函数过程IsH(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。主调程序每输入一个数，调用IsH函数过程，然后在图形框显示输入的数，对于回文数显示一个“★”，如图F.2。 提示： ①所谓回文数是指顺读与倒读数字相同，即最高位与最低位相同，次高位与次低位相同，依次类推。当只有一位数时，也认为是回文数。 ②回文数的求法，只要对输入的数（按字符串类型处理），利用MID函数从两边往中间逐位比较，若不相同，就不是回文数。 图F.2 实验F.4回文数程序运行界面 实验步骤：1打开VB 2画控件写代码 3运行程序 实验6 如果一个整数的所有因子（包括1，但不包括本身）之和与该数相等，则称这个数为完数。例如6=1+2+3，所以6是一个完数。编写一个函数IsWs(m)判断m是否为完数，函数的返回值是逻辑型。主调程序在列表框显示1000以内的完数，如图F.4所示。 提示： 判断一个数m是否是完数，算法思想是：将m依次除以1~m/2，如果能整除，就是m的一个因子，进行累加；循环结束，若m与累加因子和相等， m就是完数。 图F.4 实验F.6完数运行界面 实验步骤：1打开VB 2画控件写代码 3运行程序 实验7 编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中。 例如：s1=AABBDFG12345” 上s2=”234” 结果：s=”15678AAABBDFG15” 提示： 为了删除子串，首先利用InStr函数查找字串；若找到则通过Left 、Mid（或Right）函数实现子字符串的删除；同时要利用循环考虑到删除多个子串的情况。 实验步骤：1打开VB 2画控件写代码 3运行程序 四、实验原始纪录（源程序、数据结构等） 实验4 源代码如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1) Then MsgBox 输入非数字串，重新输入 Text1.Text = Text1.SetFocus Else If IsH(Text1.text) Then Picture1.Print Text1.text; ★ Else Picture1.Print Text1.text End If Text1.text = End If End If End Sub Function IsH(st As String) As Boolean Dim i%, Ls% IsH = True st= Trim(st) Ls = Len(st) For i = 1 To Ls \ 2 If Mid(st, i, 1) Mid(st, Ls + 1 - i, 1) Then IsH = False Exit Function End If Next i End Function 实验6 源代码如下 Dim a%() Private Sub Form_Click() Print 1000以内的完数为： For i = 1 To 1000 If IsWs(i) Then Print i; =1; For j = 1 To UBound(a) Print +; a(j); Next j Print End If Next i End Sub Function IsWs(m) As Boolean Dim s% s =