作业帮 > 综合 > 作业

vb 1到100内产生20个随机数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/06/09 10:11:12
vb 1到100内产生20个随机数
20个随机数显示在文本框1中,并在文本框1中找出素数,将素数显示在文本框2中
Private Sub Command1_Click()
For i = 1 To 20
Randomize
Text1 = Text1 & Space(1) & Int(Rnd * 100 + 1)
Next
End Sub
Private Sub Command2_Click()
On Error Resume Next
t = Split(Text1, " ")
For j = 0 To UBound(t) - 1
If t(j) Mod 2 0 Then Text2 = Text2 & t(j) & Space(1)
Next
End Su