《实验报告模板(Ⅱ).doc》由会员分享,可在线阅读,更多相关《实验报告模板(Ⅱ).doc(7页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、内蒙古工业大学能源与动力工程学院实 验 报 告课程名称: 高级语言程序设计(VB) 实验名称:选择、循环、数组和过程综合程序设计实验类型: 验证性 综合性 设计性实验室名称: 校计算中心 班级: 交通运输12-3班 学号: 2 姓名: 国文举 组别: 同组人: 成绩: 实验日期: 2013年5月25日 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告,预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中,要认真观察,仔细记录三、 完成实验后用实验报告纸撰写实验报告,包括以下内容1
2、仪器设备型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时,要求格式规范、书写整齐预习报告成绩: 指导教师审核(签名): 年 月 日预习报告实验报告成绩: 指导教师审核(签名): 年 月 日实验报告一、实验目的学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验内容利用随机函数产生100个1099之间的随机整数,找出其中的奇数和素数,并将奇数按由小到大的顺序排列。三、实验要求1将随机产生的100个整数存入一维数组中,按每行20个数输出到窗体上。2将找出的奇数也存入另一个数组中,并将排好序的奇
3、数按每行20个数输出到图片框中。3用Sub子过程或Function函数过程判断随机整数是否为素数。在主调过程内,将找出的素数按每行20个数在文本框中输出。4界面可参照如图所示的运行结果进行设计,要求各个控件在窗体上布局合理、大小适中。对象属性的设置要求用表格填写,包括用到的对象名、属性名和属性值。5运行程序后,单击“产生随机整数”按钮,则在窗体上输出100个随机整数;单击“找奇数并排序”按钮,则在图片框中输出已经排好序的奇数;单击“找素数”按钮,则在文本框中输出素数;单击“结束”按钮,结束程序的运行。Dim a(1 To 90) As Integer, b(1 To 90) As Intege
4、r, c(1 To 90) As Integer, d(1 To 90) As IntegerPrivate Sub form_load()ShowRandomizeFor i = 1 To 90 a(i) = Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command1_Click()For i = 1 To 90 Text2.Text = Text2.Text & & Str(a(i)If i Mod 15 = 0 Then Text2.Text = Text2.Text + (Chr(13) + Chr(10)End IfNext iEnd Su
5、bPrivate Sub Command2_Click()x = 0: y = 0For i = 1 To 90If a(i) Mod 2 = 0 Then x = x + 1 b(x) = a(i)Else y = y + 1 c(y) = a(i)End IfNext iPicture1.Print x & 个偶数Picture2.Print y & 个奇数For p = 1 To x For q = 1 To x If b(p) b(q) Then s = b(p): b(p) = b(q): b(q) = s End If Next qNext pFor i = 1 To x Text
6、3.Text = Text3.Text & & Str(b(i) If i Mod 15 = 0 Then Text3.Text = Text3.Text + (Chr(13) + Chr(10) End IfNext iFor j = 1 To y For h = 1 To y If c(j) c(h) Then t = c(j): c(j) = c(h): c(h) = t End If Next hNext jFor i = 1 To y Text4.Text = Text4.Text & & Str(c(i) If i Mod 15 = 0 Then Text4.Text = Text
7、4.Text + (Chr(13) + Chr(10) End IfNext iEnd SubPrivate Sub command3_click()zonghe = 0: z = 0For i = 1 To 90 If sushu(a(i) Then z = z + 1 d(z) = a(i) zonghe = zonghe + a(i) End IfNext iFor i = 1 To zText5.Text = Text5.Text & & Str(d(i) If i Mod 15 = 0 Then Text5.Text = Text5.Text + (Chr(13) + Chr(10)
8、 End IfNext iText5.Text = Text5.Text + (Chr(13) + Chr(10)Text5.Text = Text5.Text & 总和 & & zongheText5.Text = Text5.Text + (Chr(13) + Chr(10)Text5.Text = Text5.Text & 素数的个数 & & zEnd SubFunction sushu(m As Integer) As BooleanDim k As Integer, f As Booleanf = TrueFor k = 2 To Sqr(m) If m Mod k = 0 Then f = False End IfNext ksushu = fEnd FunctionPrivate Sub command4_click()EndEnd Sub