VB实验80个随机数..docVIP

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 实验名称： 实验类型： 验证性□ 综合性 设计性□ 实验室名称： 班级： 学号：姓名： 成绩： 实验日期： 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐 预习报告成绩： 指导教师审核（签名）： 年 月 日 预习报告 实验一 选择、循环和数组综合程序设计 一）实验目的 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 （二）实验内容 利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。 （三）实验要求 1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。 2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。 3．用Sub子过程或Function函数过程判断随机整数是否为素数。 410个数在窗体或文本框中输出。 5．将素数的个数及求和结果输出到窗体或文本框中。 6．界面由学生自行设计。 创立界面，个标签，个文本框，个命令按钮。 控件名称 属性 属性值 Form1 caption Form1 Label1 caption Label2 caption 奇数从大到小 Label3 caption 素数 Label4 caption 素数之和 Text1 text ? Text2 text Text3 text Text4 Text Text5 Text Command1 caption 随机80个数，分出偶数奇数 Command2 caption 找出素数，并求素数之和 Command3 caption 谢谢观赏 代码 Dim a(1 To 80) As Integer, b(1 To 80) As Integer, c(1 To 80) As Integer Private Sub Command1_Click() Randomize For i = 1 To 80 a(i) = Int(90 * Rnd + 10) Text1.Text = Text1.Text + Str(a(i)) If i Mod 10 = 0 Then Text1.Text = Text1.Text + (Chr(13) + Chr(10)) End If If a(i) Mod 2 = 0 Then Text2.Text = Text2.Text + Str(a(i)) k = k + 1 b(k) = a(i) End If If a(i) Mod 2 0 Then Text3.Text = Text3.Text + Str(a(i)) s = s + 1 c(s) = a(i) End If Next i Print 偶数个数:; k Print 奇数个数:; s End Sub Private Sub Command2_Click() For i = 1 To k - 1 For j = i + 1 To k If b(i) b(j) Then t = b(i): b(i) = b(j): b(j) = t End If Next j Next i For i = 1 To k Text2.Text = Text2.Text + Str(a(i)) If i Mod 10 = 0 Then Text2.Text = Text2.Text + (Chr(13) + Chr(10)) End If Next i End Sub Private Sub Command3_Click() For i = 1 To s - 1 For j = 1 To s If c(i) c(j)