在VB中不停产生随机数,直至有10个质数为止,将所有随机数输入LIST1,将10个质数输入LIST2中.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/04 12:39:35

Option Explicit
Private Sub Command1_Click()
Dim A As String, i As Integer, DD As Single
Randomize
Do
DD = Int(Rnd * 100000000#)
If FUN1(DD) = True Then
List2.AddItem DD
i = i + 1
Else
List1.AddItem DD
End If
If i = 10 Then Exit Do
Loop
End Sub
Private Sub Command2_Click()
End
End Sub
Private Function FUN1(A As Single) As Boolean
Dim i As Integer
FUN1 = True
For i = 2 To Sqr(A)
If A / i = Int(A / i) Then FUN1 = False: Exit For
Next i
End Function

在VB中不停产生随机数,直至有10个质数为止,将所有随机数输入LIST1,将10个质数输入LIST2中. VB 编写程序,请用户输入一个自然数N,求前N个质数,并将其存放一个数组中 VB 编写程序,请用户输入一个自然数N,求前N个质数,并将其存放一个数组中. VB中如何在2-200中产生10个随机数,且如何计算其中素数的和?求代码 VB下面程序对产生的10个随机数进行排序,程序中有3个错误,请在相应的行上改正 VB编程产生100个[10,99]的随机数 VB中有两个按钮,第一个按钮产生两个随机数,第二个按钮时计算这两个随机数的和,怎么把第一个按钮产生的 VB中,不断输入数据直到输入-1为止,统计这些数中有多少个偶数 1、在exscl表中11列输入结果120 2、在该列其余10个表格中出随机数并且和等于120 随机产生20个1-50的之间的正整数放入数组A中,输入这组随机数. VB 求10个随机数和平均值如何通过vb 产生1-33的随机数和1-16的随机数,在1个文本中显示出来,并且从小到大排列,求代码~