vb代码作业

Else
MsgBox "输入数据有误,重输"
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
''迭代法编制函数2(通过循环实现）
Public Function f(ByVal a As Single) As Single
Dim x1 As Single, x0 As Single
x0 = a / 2
Do
x1 = 1 / 2 * (x0 + a / x0)
End If
Next i
End Sub
7-5Option Explicit
''迭代法编制函数(通过循环实现）
'Public Function f(ByVal x0 As Single, ByVal a As Single) As Single
' Dim x1 As Single
If Val(Right(CStr(a * a), Len(CStr(a)))) = a Then
AutoMorphic = True
End If
End Function
7-3Private Sub Command1_Click()
Dim i As Long, j As Integer
Dim i As Integer, s As Integer
For i = 1 To n / 2
If n Mod i = 0 Then s = s + i
Next i
facsum = s
End Function
Private Sub Form_Click()
If m Mod n = 0 Then
gcd = n
Else
gcd = gcd(n, m Mod n)
End If
End Function
7-4Option Explicit
Private Function facsum(ByVal n As Integer) As Integer
If Abs(x1 - x0) < 0.00001 Then f = x1: Exit Do
x0 = x1
Loop
End Function
Private Sub Command1_Click()
Dim a As Single
a = Val(Text1)
passed = "不及格"
ElseIf x >= 60 And x <= 100 Then
passed = "及格"
End If
End Function
Private Sub Command1_Click()
Dim x As Single, str1 As String, x1 As String
End If
Next i
End Sub
7-6Option Explicit
Dim m As Integer, n As Integer
Private Sub cmdClear_Click()
Text1.Text = ""
Text2.Text = ""
Dim i As Integer, j As Integer, k As Integer
For i = 3 To 3000
j = facsum(i)
k = facsum(j) If k = i Then
If i < j Then Print "I="; i, "J="; j
' x1 = x0 / 2
' Do
' x0 = 1 / 2 * (x1 + a / x1)
' If Abs(x1 - x0) < 0.00001 Then f = x0: Exit Do
' x1 = x0
' Loop
'End Function
m = Val(Text1.Text)
End Sub
Private Sub Text2_Change()
n = Val(Text2.Text)
End Sub
'递归函数过程gcd
Public Function gcd(ByVal m As Integer, ByVal n As Integer)
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdHj_Click()
Dim t As Integer
ave = sum / (UBound(a) - LBound(a) + 1)
max = a(LBound(a))
min = a(LBound(a))
For i = LBound(a) + 1 To UBound(a)
If a(i) > max Then
Print max
Print min
Print ave
Print sum
End Sub
7-2 Option Explicit
Private Function passed(ByVal x As Single) As String
If x >= 0 And x < 60 Then
'Text2 = f(a / 2, a)
Text2 = f(a)
'Print f1(a / 2, a)
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
'递归法编制函数
Public Function f1(ByVal x0 As Single, ByVal a As Single) As Single
Option Explicit
Private Sub Mmsa(a() As Integer, max%, min%, ave%, sum&)
Dim i%
For i = LBound(a) To UBound(a)
sum = sum + a(i)
Next i
For i = 1 To UBound(a) - 1
For j = 1 To UBound(a) - i
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
Dim max As Integer, min As Integer, sum As Long, ave As Integer
n = Val(InputBox("输入数n"))
ReDim B(1 To n)
Randomize
For i = 1 To n
B(i) = Int(Rnd * (100 - 10 + 1)) + 10 '生成n个随机数作为数组元素
Print B(i);
Next i
Print
Mmsa B(), max, min, ave, sum '调用子过程
If m > 0 And n > 0 Then
If m < n Then t = m: m = n: n = t
Text3.Text = Str(Val(Text1.Text) \ gcd(m, n))
Text4.Text = Str(Val(Text2.Text) \ gcd(m, n))
For i = 1 To 1000
If AutoMorphic(i) Then
Picture1.Print " "; CStr(i), CStr(i * i)
j = j + 1
End If
Next i
Dim i As Integer, j As Integer, k As Integer
For i = 3 To 3000
j = facsum(i)
k = facsum(j)
If k = i Then
If i < j Then Print "I="; i, "J="; j
Dim x1 As Single
x1 = 1 / 2 * (x0 + a / x0)
If Abs(x0 - x1) > 0.00001 Then
f1 = f1(x1, a)
Else
f1 = x1
End If
End Function
a(j + 1) = t
End If
Next j
Next i
End Sub
7-12Private Sub Form_Click()