VB实验报告_4完整版.docVIP

内蒙古工业大学信息工程学院 实 验 报 告 课程名称： 高级语言程序设计（VB）Ⅰ 实验名称：选择、循环、数组和过程综合程序设计 实验类型： 验证性□ 综合性√ 设计性□ 实验室名称： 校计算中心 班级： 环工10-2 学号：201020303003 姓名： 郑小清 组别： 同组人： 成绩： 实验日期： 2011/6/07 实验报告撰写要求 实验前用预习报告纸撰写预习报告，预习报告包括以下内容 实验目的 实验用仪器设备、器材或软件环境 实验原理、方案设计、程序框图、预编程序等 实验过程中需要记录的实验数据表格 实验过程中，要认真观察，仔细记录 完成实验后用实验报告纸撰写实验报告，包括以下内容 仪器设备型号及编号 实验器材或软件环境 实验步骤、程序调试方法 实验数据处理及结果分析 实验中存在的问题 体会及思考题 报告撰写时，要求格式规范、书写整齐 内蒙古工业大学信息工程学院 PAGE 1 预习报告成绩： 指导教师审核（签名）： 2011年 06月 07日 预习报告 一、实验目的： 学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。 二、 实验用仪器设备、器材或软件环境： 1、实验仪器设备、器材：计算机 2、软件环境：VB语言设计应用程序简化版 三、 实验原理、方案设计、程序框图、预编程序： 1、实验原理及方案设计：利用随机函数的知识对数组赋值，然后利用冒泡发对数组排序，分别赋予另外两个数组放到文本框中，在整个实践过程中利用循环和IF条件语句进行大量地运算，最终得出想要的结果，我认为该实验中难点在于文本框中的换行语句以及素数的筛选。 2、程序框图： 3、预编程序： Private Sub Command1_Click() Dim a(1 To 80) As Integer 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 + vbCrLf ???End If Next i Dim b(1 To 80) As Integer, c(1 To 80) As Integer s = 1 k = 1 For i = 1 To 80 If a(i) Mod 2 = 0 Then b(s) = a(i) s = s + 1 Else c(k) = a(i) k = k + 1 End If Next i For s = 1 To 59 For j = s + 1 To 60 If b(s) ?b(j) And b(s) ?0 And b(j) ?0 Then z = b(s): b(s) = b(j): b(j) = z End If Next j Next s p = 1 Do While p = 8 For s = (p - 1) * 10 + 1 To (p - 1) * 10 + 10 If b(s) ?0 Then Text2.Text = Text2.Text + Str(b(s)) End If Next s Text2.Text = Text2.Text vbCrLf p = p + 1 Loop For k = 1 To 59 For l = k + 1 To 60 If c(k) ?c(l) Then w = c(k): c(k) = c(l): c(l) = w End If Next l Next k y = 1 Do While y = 8 For k = (y - 1) * 10 + 1 To (y - 1) * 10 + 10 If c(k) ?0 Then Text3.Text = Text3.Text + Str(c(k)) End If Next k Text3.Text = Text3.Text vbCrLf y = y + 1 Loop Dim k(1 To 80) As Integer r = 1 For i = 1 To 80 If jc(a(i)) Then K(r) = a(i) r = r + 1 End If Next i e = 1 Do While e = 8 For r = (e - 1) * 10 + 1 To (e - 1) * 10 + 10 If k(r) ?0 Then Text4.Text = Text4.Text + Str(k