随机生成10个两位数整数,并放到一个二维数组中,然后找出其中的素数!
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/07/07 03:47:10
随机生成10个两位数整数,并放到一个二维数组中,然后找出其中的素数!
![随机生成10个两位数整数,并放到一个二维数组中,然后找出其中的素数!](/uploads/image/z/5116972-4-2.jpg?t=%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%9010%E4%B8%AA%E4%B8%A4%E4%BD%8D%E6%95%B0%E6%95%B4%E6%95%B0%2C%E5%B9%B6%E6%94%BE%E5%88%B0%E4%B8%80%E4%B8%AA%E4%BA%8C%E7%BB%B4%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E7%84%B6%E5%90%8E%E6%89%BE%E5%87%BA%E5%85%B6%E4%B8%AD%E7%9A%84%E7%B4%A0%E6%95%B0%21)
Private Sub Command1_Click()
Dim a(1 To 2, 1 To 5) As Integer, i, j, k, f As Boolean
Randomize
For i = 1 To 2
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
f = True
For k = 2 To a(i, j) - 1
If a(i, j) Mod k = 0 Then f = False: Exit For
Next k
Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数")
Next j
Next i
End Sub
再问: 大侠,如果要将这些数在图片框中显示程序怎么弄呢?
再答: Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数") 改成: Picture1.Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数")
Dim a(1 To 2, 1 To 5) As Integer, i, j, k, f As Boolean
Randomize
For i = 1 To 2
For j = 1 To 5
a(i, j) = Int(Rnd * 90) + 10
f = True
For k = 2 To a(i, j) - 1
If a(i, j) Mod k = 0 Then f = False: Exit For
Next k
Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数")
Next j
Next i
End Sub
再问: 大侠,如果要将这些数在图片框中显示程序怎么弄呢?
再答: Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数") 改成: Picture1.Print "a(" & i & "," & j & ")=" & a(i, j) & IIf(f, ",是素数", ",不是素数")
随机生成10个两位数整数,并放到一个二维数组中,然后找出其中的素数!
(1)VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行
JAVA题目 :随机生成100个1000以内的整数,将这100个整数中的素数找出来并写到一个文本文件中.
随机生成100个1000以内的整数,将这100个整数中的素数找出来并写到一个文本文件中.
随机生成一个元素为10到40之间整数的4行5列数组,找出该二维数组的最大元素与最小元素,
求解···java题目随机生成100个1000以内的整数,将这100个整数中的素数找出来并写到一个文本文件中.
VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素
利用随机函数产生100个10~99之间的随机整数,找出其中的奇数和素数,并将奇数按从小到大的顺序排列
C语言中随机产生N个三位数,找出其中的素数并输出
1.VB随机产生10个两位数正整数的素数 2.随机产生10个两位数正整数,并输出其中的素数(用for或while语句
使用随机函数“rand()”,生成10个[1,100]之间的整数并存于数组中,首先输出数组各元素值.然后
找出一个二维数组中 的鞍点