[理科实验报告精品]选择、循环、数组和过程综合程序设计 实验报告.doc
《[理科实验报告精品]选择、循环、数组和过程综合程序设计 实验报告.doc》由会员分享,可在线阅读,更多相关《[理科实验报告精品]选择、循环、数组和过程综合程序设计 实验报告.doc(10页珍藏版)》请在三一办公上搜索。
1、信息工程学院实 验 报 告课程名称: 高级语言程序设计(VB) 实验名称:选择、循环、数组和过程综合程序设计实验类型: 验证性 综合性 设计性实验室名称: 校计算中心 班级: 会计10-1 学号:姓名: 组别: 同组人: 成绩: 实验日期: 2011-6-14 预习报告成绩: 指导教师审核(签名): 年 月 日预习报告1. 实验目的学会综合运用选择结构,循环结构,数组和过程进行程序设计的方法2. 实验用仪器设备、器材或软件环境 计算机机房学生电脑,图书馆电子阅历室3. 实验原理 A产生随机数函数使用B筛选其中奇数方法C. 筛选其中素数方法 D.数列排序使用方法E条件语句的使用4. 方案设计a
2、产生随机数,并利用循环语句将其存入数组 b运用条件语句进行奇数判断,将其存入数组 c编写一个function过程,作用是判断是否是素数 d 利用print 方法输入到form上5.实验环境Windows 7 Microsoft Visual Basic 6.0 中文版6.预编的程序Dim a(80) As Integer, b() As Integer, c() As Integer, d() As Integer, ss() As IntegerPrivate Sub Command1_Click()Dim k%, i&Picture1.ClsRandomizek = 0For i = 1
3、To 80 a(i) = Int(90 * Rnd + 10) Picture1.Print a(i); k = k + 1 If k = 10 Then Picture1.Print k = 0 End IfNext iEnd SubPrivate Sub Command2_Click()Dim i%, n%, k%, j%, q%, h%, l%Picture2.ClsFor i = 1 To 80 If a(i) Mod 2 0 Then n = n + 1 End IfNext iReDim b(n)For i = 1 To 80 If a(i) Mod 2 0 Then k = k
4、+ 1 b(k) = a(i) End IfNext iFor i = 1 To n - 1 For j = i + 1 To n If b(i) b(j) Then t = b(i): b(i) = b(j): b(j) = t End If Next jNext iFor i = 1 To n If b(i) 0 Then Picture2.Print b(i); q = q + 1 If q Mod 10 = 0 Then Picture2.Print End IfNext iEnd SubPublic Function ssh(n%) As BooleanDim i%For i = 2
5、 To Sqr(n) If n Mod i = 0 Then ssh = False: Exit For End IfNext iIf i Sqr(n) Then ssh = TrueEnd IfEnd FunctionPrivate Sub Command3_Click()Dim i%, k%, n%, h%, l%Picture3.ClsFor i = 1 To UBound(b) If ssh(b(i) Then Picture3.Print b(i); k = k + 1 If k Mod 10 = 0 Then Picture3.Print End IfNext iReDim ss(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 理科实验报告精品 理科实验报告精品选择、循环、数组和过程综合程序设计 实验报告 理科 实验 报告 精品 选择 循环 数组 过程 综合 程序设计
链接地址:https://www.31ppt.com/p-4233354.html