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

本文目录

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

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

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

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

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

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个（最好不重复）的0-100之间的随机整数,

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

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

晕死 今天全是这个问题啊 我已经第三遍答题了Option ExplicitPrivate 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 IEnd SubPrivate 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 = TrueEnd Function

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 = TrueEnd FunctionPrivate 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

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

我已经上机验证过了，正确。思路：产生80个随机数，把这80个随机数由小到大排序，然后从第1个到第80个的顺序挑选偶数，赋值给字符串s1,够10个换行 。再从第80个到第1个的顺序挑选奇数，赋值给字符串s2,同上。有一点很重要：把这两个文本框的mutltiLine属性要改为 TruePrivate Sub Command1_Click()Dim s1, s2 As StringRandomizeDim a(80) As IntegerFor i = 1 To 80 a(i) = 10 + Int(Rnd * 90)Next iFor 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 jNext in = 0For 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 IfNext iText1.Text = s1n = 0For 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 IfNext iText2.Text = s2 End Sub