内蒙古工业大学VB实验报告(找出素数 奇数偶数排序)

内蒙古工业大学信息工程学院

k = 0 ‘定义“k=0“以方便换行输出文本 d = 1 ‘定义“d=1”

For i = 1 To 80 ‘应用“For?Next“循环语句 If a(i) Mod 2 = 0 Then ‘用“If”语句找出偶数

b(d) = a(i) ‘将找出的偶数分别赋值给b（） d = d + 1 End If Next i

For j = 1 To d – 1 ‘应用“For?Next“循环语句 For i = j To d – 1 ‘数组b中共有“d-1”个数

If b(j) >= b(i) Then ‘用“If”语句比较数组b中的数 c = b(j)

b(j) = b(i)

b(i) = c ‘将小的数依次放在前面，即升序排 End If Next i

Text2.Text = Text2.Text & b(j) & \ \

‘将随机数中的偶数从小到大输出 k = k + 1

If k Mod 10 = 0 Then

Text2.Text = Text2.Text & Chr(13) + Chr(10)

‘控制每输出10个数字后换行 End If Next j End Sub

Private Sub Command3_Click() ‘“Command3”单击事件 Dim b(1 To 80) As Integer ‘定义数组“b（）”为整形 Text2.Text = \\ ‘将“Text2”文本框清空

Label1.Caption = \\ ‘将“Label1”标签内容清空

k = 0 ‘定义“k=0“以方便换行输出文本 d = 1 ‘定义“d=1”

For i = 1 To 80 ‘应用“For?Next“循环语句 If a(i) Mod 2 = 1 Then ‘用“If”语句找出奇数

b(d) = a(i) ‘将找出的奇数分别赋值给b（） d = d + 1 End If Next i

For j = 1 To d – 1 ‘应用“For?Next“循环语句 For i = j To d – 1 ‘数组b中共有“d-1”个数

If b(j) <= b(i) Then ‘用“If”语句比较数组b中的数 c = b(j)

b(j) = b(i)

b(i) = c ‘将大的数依次放在前面，即降序序排

第 页

内蒙古工业大学信息工程学院

End If Next i

Text2.Text = Text2.Text & b(j) & \ \

‘将随机数中的奇数从大到小输出 k = k + 1

If k Mod 10 = 0 Then

Text2.Text = Text2.Text & Chr(13) + Chr(10)

‘控制每输出10个数字后换行 End If Next j End Sub

Private Function My(m As Integer) ‘应用“Function”子过程定义“My” Dim o As Integer Dim f As Integer

f = True ‘定义f为真值

For o = 2 To m – 1 ‘应用“For?Next”判断是否为素数 If m Mod o = 0 Then f = False End If Next o

My = f ‘若是素数则f认为真值 End Function

Private Sub Command4_Click() ‘“Command4”单击事件 Dim c(1 To 80) As Integer Text2.Text = \\

Label1.Caption = \\ w = 0

Dim m As Integer

For i = 1 To 80 ‘应用“For?Next“循环语句 If My(a(i)) Then ‘应用“If”找出素数 n = n + 1

c(n) = a(i) ‘将素数分别赋值给数组c End If Next i

For i = 1 To n

m = m + a(i) ‘将n个素数求和 Text2 = Text2 & c(i) & \ \

If i Mod 10 = 0 Then Text2 = Text2 & Chr(13) & Chr(10) Next i

Label1.Caption = \素数的个数：\ & n & \ \ & \素数之和：\ & m End Sub

第 页

内蒙古工业大学信息工程学院

七、我设计程序的调试和运行结果展示如下：

①. 当点击“”时显示结果如下图（实验图2012-02）所示：

（实验图2012-02） ②.当点击“”时显示结果如下图（实验图2012-03）所示：

第 页

内蒙古工业大学信息工程学院

（实验图2012-03）

③.当点击“

”时显示结果如下图（实验图2012-04）所示：

（实验图2012-04）

④.当点击“”时显示结果如下图（实验图2012-05）所示：

第 页