《VB程序设计》实验单元一
实验报告
专业班级：经济学类1202 班姓名刘金学号201218910204 指导教师：王云侠完成时间：2013.6.02
一：实验题目
过程
二：实验环境
Windows win7系统；VB 6.0
三：实验目的
1.掌握自定义函数过程和子过程的定义和调用方法。

2.掌握形参和值参之间的对应关系。

3.掌握值传递和地址传递的传递方式。

4.掌握变量，函数和过程的作用方法。

5.掌握递归的概念和使用方法。

6.熟悉程序设计中的常用算法。

四：实验内容
1.编一子过程Proc Min（a(),amin），求一维数组a中的最小值amin。

4编写一个函数过程，Is H(n)，对于已知正整数n，判断该数是否是回文数，函数的返回值类型为布尔型。

主调程序每输入一个数，调用Is H函数过程，然后在列表框中显示输入的数，对于是回文数显示一个“★”。

五：实验步骤
第1题：
（1）打开VB6.0
(2) 建立新工程任务form1
(3) 双击工程窗界面，输入以下代码：
Private Sub Form_Click()
Dim a(1 To 10), amin, i%
For i = 1 To 10
a(i) = -Int(R n d * 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(L Bound(b))
For i = L Bound(b) + 1 To U Bound(b)
If b(i) < min Then min = b(i)
Next i
End Sub
（4）单击运行即可
第4题
（1）打开ＶＢ新工程，双击页面直接创建选择以下窗口字字
（2）操作过程
分别建立command 1 , text1 , label 1, 和picture box 1 并相应输入：“数据显示”，清除text 1,“数据输入”字样。

清除picture box 1
(3)双击工程窗界面，输入以下代码：
Option Explicit
Private Sub Command1_Click()
Print Is H(Val(Text1.Text))
End Sub
Function Is H(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
（4）单击运行，并在text1 窗口中分别输入121,1212221,12345,123454321,23567.....
（5）单击数据显示（command 1) 运行如下：
六：实验结果
第一题运行结果：
第四题运行结果：
七：实验体会
实验中也存在不少问题，比如第4题不能运行，后来把第二个label2 改成picture box 就能运行啦。

部分字母拼错，程序逻辑编写错误，向敬伟同学请教之后发现是选择颠倒所致，改正后得到了正确答。

世上无难事，只怕有心人。

只要我们认真学习，多多交流，一定可以把VB学好。

加油！刘金！。