VB 实验报告

显示全部楼层 · 2010-6-4 18:10:03

利用随机函数产生80个10~99之间的随机整数，将其中的奇数由小到大排列并输出；在产生的80个随机数中，找出其中的素数结果如下图：说一下这个程序的全部代码~谢谢急~~满意有追加！！！

千问 · 2010-6-4 18:10:03

Dim a(1 To 80) As IntegerPrivate Sub Command1_Click() '产生80个随机数Dim i As IntegerRandomizeFor i = 1 To 80a(i) = 10 + Int(Rnd * 90)Text1.Text = Text1 & a(i) & ""NextEnd SubPrivate Sub Command2_Click()'将其中的奇数由小到大排列并输出Dim b() As Integer, t As Integer, k As IntegerDim i As Integer, j

千问 · 2010-6-4 18:10:03

掌握启动与退出VB的方法、熟悉VB开发环境、掌握建立、编辑和运行一个简单的VB应用程序的全过程通过编写和运行相关程序，掌握数组的定义和使用，学会用数组编程，熟悉常用算法（包括求和、求最大值、最小值、排序、求素数等）。掌握字符串的定义、存储和相关函数的使用。掌握常用控件（文本框、标签、命令按钮）的应用。

千问 · 2010-6-4 18:10:03

这哪是实验报告啊,这接近课程设计了,比较烦琐

千问 · 2010-6-4 18:10:03

Dimstr(15)AsStringdimiasintegerFori=1To15str(i-1)=Chr(Rnd*(25-0+1)+67)NextFori=1To15Printstr(i-1)Next

千问 · 2010-6-4 18:10:03

easy