发布时间 : 星期三 文章内蒙古工业大学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）所示：
第 页