Question

《VB程序设计》实验报告—过程与函数，求高手出手，急用的，我要程序设计界面，程序代码，运行结果。

一、实验目的和要求
1．掌握过程的调用方法。
2．理解Sub过程和Function过程的不同。
3．掌握按值传递参数和按地址传递参数的调用方式
二、实验主要仪器和设备
计算机一台，Windows XP操作系统，Visual Basic环境。
三、实验内容
实验1 新建一个工程，在窗体上放置两个按钮，分别是命名为Cmd1和Cmd2，标题内容分别是为“求和”、“求积”。在窗体代码区分别设计两个通用函数过程：Add(x,y)和Multi(x,y)，分别实现求(x+y)和(x*y)的值。在一个按钮的单击事件过程中，先用InputBox输入两个数，然后调用其中一个通用过程求出两数的运算结果，结果从窗体打印输出。编程并保存窗体文件和工程文件
提示：InputBox函数的语法格式参见教材P65
实验2 编一子过程MinNumber，求一维数值型数组的最小值，子过程的形参自己确定。在窗体单击事件过程中，随机产生10个-50~50之间的整数，调用MinNumber子过程，求出最小值打印在窗体上。

Answer 1

'计算两个数的和和积
Option Explicit
Dim x As Double
Dim y As Double

Private Sub Cmd1_Click()
x = InputBox("请输入一个数:", , 0#)
y = InputBox("请再输入一个数:", , 0#)
Text1.Text = CStr(Add(x, y))
End Sub

Private Sub Cmd2_Click()
x = InputBox("请输入一个数:", , 0#)
y = InputBox("请再输入一个数:", , 0#)
Text1.Text = CStr(Add(x, y))
End Sub

Public Function Add(x As Double, y As Double) As Double

Add = x + y
End Function
Public Function Multi(x As Double, y As Double) As Double

Multi = x * y
End Function

'求最小数
Option Explicit
Dim data(1 To 10) As Long

Private Sub Form_Click()
Dim i As Integer

List1.Clear
For i = 1 To 10
data(i) = CLng(100 * Rnd() - 50)
List1.AddItem CStr(data(i))
Next i
Text1.Text = CStr(MinNumber())

End Sub

Public Function MinNumber() As Long
Dim i As Integer
Dim templng As Long

templng = data(1)
For i = 2 To 10
If templng >= data(i) Then templng = data(i)
Next i

MinNumber = templng

End Function