80个随机数字（VB作业急！80个随机数选出素数、奇数和偶数）

本文目录

• VB作业急！80个随机数选出素数、奇数和偶数
• 随机产生80个10～99的随机整数将其中的奇数由小到大的排列并输出产生的80个随机整数中找出素数
• 使用随机函数,随机生成80个（最好不重复）的0-100之间的随机整数,
• 80个连续数字随机取其中20个求和，和为偶数的概率怎么求
• 求出80个10到99之间的随机数然后用过程求素数
• 80个数里随机抽三个不重复的数,几种抽法
• vb问题利用随机函数产生80个10～99之间的随机整数，

VB作业急！80个随机数选出素数、奇数和偶数

Private Function SuShu(n As Integer) As Boolean ’判断某数是否素数
Dim l As Integer, p As Integer
p = Int(Sqr(n))
For l = 2 To p
If n Mod l = 0 Then Exit For
Next l
If l 》 p Then SuShu = True
End Function
Private Sub Command1_Click()
Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer, d(1 To 80) As Integer
Dim PrimeCount As Integer, ArrPrime(40) As Integer Randomize
k = 1
m = 1
For i = 1 To 80
a(i) = Int(Rnd * 90) + 10
If a(i) Mod 2 = 0 Then
b(k) = a(i)
k = k + 1
Else
c(m) = a(i)
m = m + 1
End If
Next i
Print "80个随机整数："
For i = 1 To 80
Print a(i);
If i Mod 10 = 0 Then Print
Next i
Print
Print "偶数："
For i = 1 To k - 1
For j = i To k - 1
If b(i) 》 b(j) Then t = b(i): b(i) = b(j): b(j) = t
Next j
Print b(i);
If i Mod 10 = 0 Then Print
Next i
Print: Print
Print "奇数："
For i = 1 To m - 1
For j = i To m - 1
If c(i) 《 c(j) Then t = c(i): c(i) = c(j): c(j) = t
Next j
Print c(i);
If i Mod 10 = 0 Then Print
Next
Print: Print
Print "素数："
t = 0
For i = 1 To 80
If SuShu(a(i)) = True Then
d(i) = a(i)
t = t + 1
ArrPrime(PrimeCount) = d(i)
PrimeCount = PrimeCount + 1
Sum = Sum + d(i)
Print d(i);
If t Mod 10 = 0 Then Print
End If
Next i
Print: Print
Print "素数个数:" & PrimeCount & ""
Print
Print "素数和："; SumEnd Sub

随机产生80个10～99的随机整数将其中的奇数由小到大的排列并输出产生的80个随机整数中找出素数

1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。
2．奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框中。
3．用Sub子过程或Function函数过程判断随机整数是否为素数。
4．将素数按每行10个数在窗体或文本框中输出。
提问者： 付木仁 - 一级

使用随机函数,随机生成80个（最好不重复）的0-100之间的随机整数,

随机生成：
dim r(80) as int
dim i as int
dim s as int=0
for i=0 to 80-1
r(i)=rnd()*100
s=s+r(i)
next
s=s/80
大小排序：用 冒泡法吧，网上算法太多了，不给你写了。

80个连续数字随机取其中20个求和，和为偶数的概率怎么求

1个奇数,19个偶数：C（1,40）*C（19,40）/C（20,80）
3个奇数,17个偶数：C（3,40）*C（17,40）/C（20,80）
5个奇数,15个偶数：C（5,40）*C（15,40）/C（20,80）
……
19个奇数,1个偶数：C（19,40）*C（1,40）/C（20,80）
以上结果全部相加即可.
和为偶数,方法类似

求出80个10到99之间的随机数然后用过程求素数

晕死 今天全是这个问题啊 我已经第三遍答题了
Option Explicit
Private Sub Command1_Click()
Dim A(80) As Integer, B() As Integer, Nb As Integer
Dim I As Integer, J As Integer, T As Integer

’随机生成80个随机数
Text1.Text = ""
Randomize
For I = 1 To 80
A(I) = Int(90 * Rnd) + 10
Text1.Text = Text1.Text & A(I) & " "
’每显示十个数字换行
If I Mod 10 = 0 Then Text1.Text = Text1.Text & Chr(13) & Chr(10)
Next I

’查找奇数并到新数组中
For I = 1 To 80
If A(I) Mod 2 = 1 Then
Nb = Nb + 1
ReDim Preserve B(Nb)
B(Nb) = A(I)
End If
Next I
’对奇数排序
For I = 1 To Nb - 1
For J = I + 1 To Nb
If B(I) 》 B(J) Then
T = B(I)
B(I) = B(J)
B(J) = T
End If
Next J
Next I
’输出奇数到文本框
Text2.Text = ""
For I = 1 To Nb
Text2.Text = Text2.Text & B(I) & " "
If I Mod 10 = 0 Then Text2.Text = Text2.Text & Chr(13) & Chr(10)
Next I

’查找输出素数
Text3.Text = ""
T = 0
For I = 1 To 80
If SuShu(A(I)) = True Then
T = T + 1
Text3.Text = Text3.Text & A(I) & " "
If T Mod 10 = 0 Then Text3.Text = Text3.Text & Chr(13) & Chr(10)
End If
Next I
End Sub
Private Function SuShu(N As Integer) As Boolean ’判断某数是否素数
Dim I As Integer, P As Integer
P = Int(Sqr(N))
For I = 2 To P
If N Mod I = 0 Then Exit For
Next I
If I 》 P Then SuShu = True
End Function

80个数里随机抽三个不重复的数,几种抽法

3C80=80*79*78...
80个数字里,第一次抽到a数,第二次就不能抽了,所以第二次就是79个数里选b,第三次就是78个选c.
abc抽出来就可以了,不用重排,所以是C不是A

vb问题利用随机函数产生80个10～99之间的随机整数，

我已经上机验证过了，正确。
思路：
产生80个随机数，把这80个随机数由小到大排序，然后从第1个到第80个的顺序挑选偶数，赋值给字符串s1,够10个换行 。
再从第80个到第1个的顺序挑选奇数，赋值给字符串s2,同上。
有一点很重要：把这两个文本框的mutltiLine属性要改为 True
Private Sub Command1_Click()
Dim s1, s2 As String
Randomize
Dim a(80) As Integer
For i = 1 To 80
a(i) = 10 + Int(Rnd * 90)
Next i
For i = 1 To 79
For j = i + 1 To 80
If a(i) 》 a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
n = 0
For i = 1 To 80
If a(i) Mod 2 = 0 Then
s1 = s1 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s1 = s1 + Chr$(13) + Chr$(10)
End If
Next i
Text1.Text = s1
n = 0
For i = 80 To 1 Step -1
If a(i) Mod 2 《》 0 Then
s2 = s2 + Str(a(i))
n = n + 1
If n Mod 10 = 0 Then s2 = s2 + Chr$(13) + Chr$(10)
End If
Next i
Text2.Text = s2
End Sub