VB实验报告过程程序设计.docVIP

南京工程学院 电力工程学院 2010/ 2011 学年 第 2 学期 实验报告 一、实验目的 三、实验内容及要求 1.用迭代法编写独立过程求。求平方根的迭代公式为：。要求精确到小数点后面7位，即。的初值为1。要求开用户在界面输入数值后，敲击回车键，显示运算结果。 2. 编写一个标准模块，该模块包含2能比较二个数大小的独立过程：一个返回二个数中最大值的Function过程；一个能求二个数最小值的sub过程。调用这2个过程求6个数的最值。 四、程序代码草稿 五、实验结果 1．迭代法求平方根 代码： Private Sub text1_KeyPress(KeyAscii As Integer) Dim a As Integer, x1 As Double, x2 As Double a = Val(Text1.Text) x1 = 1 x2 = (x1 + a / x1) / 2 If KeyAscii = 13 Then While Abs(x2 - x1) = 0.0000001 x1 = x2 x2 = (x1 + a / x1) / 2 Wend Label2.Caption = 平方根为： x2 End If End Sub 截图： 2.比较数的大小 代码： 窗体模块中： Private Sub Command1_Click() Dim s(1 To 6) As Integer, p As Integer s(1) = Val(Text1.Text) s(2) = Val(Text2.Text) s(3) = Val(Text3.Text) s(4) = Val(Text4.Text) s(5) = Val(Text5.Text) s(6) = Val(Text6.Text) Text7.Text = Max(s()) Call Min(s(), p) Text8.Text = p End Sub 标准模块中： Function Max(s() As Integer) As Integer Dim n As Integer Max = s(1): n = 0 Do While n 6 n = n + 1 If Max s(n) Then Max = s(n) End If Loop End Function Public Sub Min(s() As Integer, p As Integer) Dim n As Integer p = s(1): n = 0 Do While n 6 n = n + 1 If p s(n) Then p = s(n) End If Loop End Sub 截图： 六、实验中遇到的问题与解决方法或实验收获 注：附页可粘贴于此页，注意粘贴整齐，不要超过页面边界。