VB程序:利用随机函数产生100个10～99之间的随机整数，找出其中的素数，并将这些素数求和。

显示全部楼层 · 2008-6-1 14:15:54

1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。
2. 用Sub子过程或Function函数过程判断随机整数是否为素数。
3. 将素数按每行10个数在窗体或文本框中输出。
4. 将素数的个数以及求和结果出到窗体或文本框中。
5. 界面由学生自行设计。
我的QQ439606355

千问 · 2008-6-1 14:15:54

下面是我给你写的程序，需要添加四个文本框，三个按钮，两个标签，其中文本框Text1和Text2的Multiline属性设置成true，ScrollBars属性可以设置成2或者不用设置。你要是对程序有什么疑问也可以留个QQ，我把工程和窗体文件发给你。'定义全局数组、变量Dim s(1 To 100) As Integer, t(1 To 100) As Integer, n%'结束程序Private Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()RandomizeEnd Sub'产生100个10-99的随机整数并