利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/13 20:27:35
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
vb语言.
vb语言.
Private Sub Command1_Click()
Dim a(100) As Integer,x As Integer
For i = 1 To 100
If sushu(i) Then Print i;
If i Mod 10 = 0 Then Print
Next i
Print
Print "100个随机数:"
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
Print x;
a(x) = a(x) + 1
If i Mod 10 = 0 Then Print
Next i
Print
Print "从小到大的奇数:"
k = 0
For i = 1 To 100
If i Mod 2 = 1 And a(i) > 0 Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
Print
Print "其中的素数有:"
k = 0
For i = 1 To 100
If a(i) > 0 And sushu(i) Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
End Sub
Function sushu(ByVal n As Integer) As Boolean
sushu = False
If n
Dim a(100) As Integer,x As Integer
For i = 1 To 100
If sushu(i) Then Print i;
If i Mod 10 = 0 Then Print
Next i
Print "100个随机数:"
For i = 1 To 100
x = Int(Rnd() * 90 + 10)
Print x;
a(x) = a(x) + 1
If i Mod 10 = 0 Then Print
Next i
Print "从小到大的奇数:"
k = 0
For i = 1 To 100
If i Mod 2 = 1 And a(i) > 0 Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
Print "其中的素数有:"
k = 0
For i = 1 To 100
If a(i) > 0 And sushu(i) Then
For j = 1 To a(i)
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
Next j
End If
Next i
End Sub
Function sushu(ByVal n As Integer) As Boolean
sushu = False
If n
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
利用随机函数产生80个10~99之间的随机整数,将其中的奇数按由小到大的顺序排列并输出
求VB 程序设计利用随机函数产生80个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列并输出,将奇
利用高级语言程序设计(VB)随机函数产生90个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列…
vb问题利用随机函数产生80个10~99之间的随机整数,
随机产生并显示10个1~10之间的整数,分别求出其中的所有奇数之和和偶数之积 .利用For/Next、Do/Loop两种
VB题 .利用随机函数rnd产生30个10~100之间的整数,再将它们按照由小到大的顺序排列输出
VB利用随机函数产生30个[3,99]整数,打印输出其中的素数(要求用数组存放)
通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将这30个随机整数以每行5个数形式输出
vb编程题.随机产生10个【50,300】之间的整数,求最大的偶数和最小的奇数.
VB随机产生10个100到200之间的整数,将其按从大到小顺序排列
用C语言编写程序:* 利用随机函数产生100个10~99之间(包括10和99)的随机整数存入一维数组A,