VB实验作业

实验报告成绩：指导教师审核（签名）：年月日
实验报告
Option Base 1
Dim a(80) As Integer, sum As Integer
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 80
a(i) = Int(Rnd * 90 + 10)
Text1.Text = Text1.Text & " " & a(i)
If i Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Dim b() As Integer, n As Integer, c As Integer
ReDim b(80)
For i = 1 To 80
If a(i) Mod 2 = 0 Then
n = n + 1
b(n) = a(i)
End If
Next i
ReDim Preserve b(n) As Integer
For i = 1 To n - 1
For j = i + 1 To n
If b(i) > b(j) Then
c = b(i): b(i) = b(j): b(j) = c
End If
Next j
Next i
For i = 1 To n
Text2.Text = Text2.Text & " " & b(i)
If i Mod 10 = 0 Then Text2.Text = Text2.Text & vbCrLf
Next i
End Sub
Private Sub Command3_Click()
Dim b() As Integer, n As Integer, c As Integer
ReDim b(80)
For i = 1 To 80
If a(i) Mod 2 <> 0 Then
n = n + 1
b(n) = a(i)
End If
Next i
ReDim Preserve b(n) As Integer
For i = 1 To n - 1
For j = i + 1 To n
If b(i) < b(j) Then
c = b(i): b(i) = b(j): b(j) = c
End If
Next j
Next i
For i = 1 To n
Text3.Text = Text3.Text & " " & b(i)
If i Mod 10 = 0 Then Text3.Text = Text3.Text & vbCrLf Next i
End Sub
Private Sub Command4_Click()
Dim b() As Integer
ReDim b(80)
For i = 1 To 80
b(i) = a(i)
Next i
Call sushu(b, x)
End Sub
Public Sub sushu(f() As Integer, x)
Dim sum() As Integer, b() As Integer
For i = 1 To 80
x = f(i)
For j = 2 To Sqr(x)
If f(i) Mod j = 0 Then
Exit For
End If
Next j
If j > Sqr(x) Then
n = n + 1
Text4.Text = Text4.Text & " " & f(i)
If n Mod 10 = 0 Then
Text4.Text = Text4.Text & " " & vbCrLf
End If
End If
Next i
ReDim Preserve b(n) As Integer
For i = 1 To n - 1
For j = i + 1 To n
If b(i) < b(j) Then
c = b(i): b(i) = b(j): b(j) = c
End If
Next j
Next i
Text5.Text = n
ReDim Preserve sum(n) As Integer
For i = 1 To n
sum(n) = f(i) + sum(n)
Next i
Text6.Text = Str(sum(n))
End Sub
Private Sub Command5_Click()
End
End Sub
化工学院过控09—3班周世文200920506074。