VB课后实验7答案.docVIP

函数名sh形参x7-1 函数名sh 形参x Public Function sh(ByVal x As Single) As Single sh = (Exp(x) - Exp(-x)) / 2 ‘在函数过程里一定要对函数名sh进行赋值，但sh后不能加（x）。 End Function Private Sub command1_Click() Dim x As Single, y As Single ‘注意实参x的数据类型一定要和形参的数据类型一致，在这里都是Single。 x = Val(Text1) y = x ^ 2 + sh(x) ‘函数的调用。因为是函数，所以一定放在表达式中；因为是调用，所以要加（x），把实参x的值通过调用传递到函数过程里，使形参x有值。这里实参名和形参名可以不一样，但数据类型一定要匹配；这里实参个数和形参个数一定要相同。 Print y End Sub 7-2 Private Function passed(ByVal x As Single) As String ‘注意函数名passed的数据类型是String，因为要返回“及格”等字符串。 If x = 0 And x 60 Then passed = …… ‘在函数过程里一定要对函数名赋值。 ElseIf 条件Then passed = …… ‘在函数过程里一定要对函数名赋值。 End If End Function Private Sub Command1_Click() Dim x As Single, str1 As String, x1 As String x1 = Text1 If IsNumeric(x1) Then ‘思考这里是否可以用Text1？如果用Text1，x1是否需要设置？ x = Val(x1) str1 = passed(……) ‘调用Function函数passed得到返回值。 Text2 =…… ‘在Text2里输出结果。 Else Text2 = 数据错误 End If End Sub 7-3 Private Sub Command1_Click() Dim a As Single, k As Integer, b As Boolean For a = 1 To 1000 b = …… ‘调用Function函数过程，a是实参，b是函数名带回的返回值，是一个逻辑型的数据 If b Then Picture1.Print …… ‘输出a和a*a的值 k = …… ‘统计个数，即k值+1 End If Next a Picture1.Print 共有 k 个守形数 End Sub Private Function AutoMorpthic(a As Single) As Boolean ‘返回值是逻辑型 If Val(Right(CStr(a * a), Len(CStr(a)))) = a Then AutoMorpthic = …… ‘给函数名赋值 End If End Function 7-4 Private Sub Form_Click() ‘本题采用一重循环编程，二重循环会产生死机现象。 Dim a As Integer, b As Integer, s As Integer For a = 1 To 3000 b = …… ‘调用函数facsum求a的因子之和，然后赋给b变量。 s = …… ‘调用函数facsum求b的因子之和，然后赋给s变量。 If s = a And a b Then ‘因为s是b的因子之和，只要=a，说明b的因子之和=a（这里b是a的因子之和）。ab要求小数在前，大数在后且a≠b。 Print …… ‘输出亲密数对a和b。 End If Next a End Sub Private Function facsum(x As Integer) As Integer Dim i As Integer For i =