求VB编程代码

襄阳城

<p>求VB编程代码</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：10 -</p>
<p>解决时间：2010-5-27 11:39</p>
<p>利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。</p>
<p>1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。</p>
<p>2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。</p>
<p>提问者： 534546927 - 一级</p>
<p>最佳答案</p>
<p>Private Sub Command1_Click()</p>
<p>Form1.Cls</p>
<p>Dim n(1 To 80) As Integer</p>
<p>Randomize</p>
<p>Print "随机数为："</p>
<p>For i = 1 To 80</p>
<p>n(i) = Int(Rnd() * 90 + 10)</p>
<p>Print n(i);</p>
<p>If i Mod 10 = 0 Then Print</p>
<p>Next</p>
<p>For i = 1 To 80             \'排序</p>
<p>For j = 1 To 80 - i</p>
<p>If n(j) > n(j + 1) Then</p>
<p>temp = n(j)</p>
<p>n(j) = n(j + 1)</p>
<p>n(j + 1) = temp</p>
<p>End If</p>
<p>Next</p>
<p>Next</p>
<p>Print: Print "偶数为："</p>
<p>x = 0</p>
<p>For i = 1 To 80</p>
<p>If n(i) Mod 2 = 0 Then</p>
<p>Print n(i);</p>
<p>x = x + 1</p>
<p>If x Mod 10 = 0 Then Print</p>
<p>End If</p>
<p>Next</p>
<p>Print: Print</p>
<p>Print "奇数为："</p>
<p>x = 0</p>
<p>For i = 1 To 80</p>
<p>If n(i) Mod 2 <> 0 Then</p>
<p>Print n(i);</p>
<p>x = x + 1</p>
<p>If x Mod 10 = 0 Then Print</p>
<p>End If</p>
<p>Next</p>
<p>Print: Print</p>
<p>Print "素数为："</p>
<p>x = 0</p>
<p>s = 0</p>
<p>For i = 1 To 80</p>
<p>If IsPrime(n(i)) Then</p>
<p>Print n(i);</p>
<p>x = x + 1</p>
<p>s = s + n(i)</p>
<p>If x Mod 10 = 0 Then Print</p>
<p>End If</p>
<p>Next</p>
<p>Print: Print</p>
<p>Print "素数和为：" & s</p>
<p>End Sub</p>
<p>Private Function IsPrime(n As Integer) As Boolean \'判断一个数是否是素数</p>
<p>IsPrime = True</p>
<p>For j = 2 To n - 1</p>
<p>If n Mod j = 0 Then IsPrime = False: Exit For</p>
<p>Next</p>
<p>End Function</p>
<p>1</p>
<p>回答者：</p>
<p>mafan8 - 六级   2010-5-27 11:23</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>非常感谢！！！</p>