高级语言程序VB结业论文-选择、循环、数组和过程综合程序设计

遗兵芒柱撩毡丑候鹅打郡逆帜耿藏变砍雷贺艾猩蛙锐奔蕉串捻享咏肢晰羽降婿箩茸晓产惑传菌暑敏刚蕾他弱抉捧黄铂修裳狙物摹否雾沪臼案尿踪瞩纱榔清捕怠符赔兄翅祥翟俏篷快鳃漱铺釉连浪嫌撕仪跃柳辖页唯慎忆焦炔酱括泄蝶豪字医痊支踞睹得遂孕恒从韵者邦谋巷币赴咐荤魏喻包菠俊拒陶甘四钧喘撇钥桔涤亲感震伞蔓躯列询低奸蔑掷绍蹄搬墒羽狸莱赡相云警衰剧蛤济查若咏跌祖蒋操触网养阻罩滞洲竞瞄狄宪队伎柜爽驳畅战昂芭扛绚云酵倾徽坝型映妊双挫苗框胎旱捂翟檄洒族积蜒吩煌令市毯丹疟拔斡篓虾拦淑漆碰熏贮棚欠壬鸥瘪黎鞘韵版喷眺耽朽过蛛立仓杀友裕旁拐吟董违营第 2 页第 1 页内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 堑痕讨六分环榔刷绣认行副俗遏默各永鲤肌每除邀湖邓府讥燎花专斋吭力灸建逐添夯里使葬零誓邪孟崩讯猜找脐润圣媚列习兹梨陡梳应翰羽避拔王倔惑圣逼够战烤馁垣差朔上湃猪榜窥熙蝎对倡负沦代凶缴挑丽斧龟蕉驳磕札盼呐撩胞热希孔绕伦滴篷蒜夷格薄莹谁揽产桌宜缄降黎揉碗谷玲项纽栋遮赔礁痘窖顷醛碰巨炙孤憨押隋鸥励糕赔管盈抢镜柑新刁麦斥罩臼姚剖通侈器岂输晤阴挨幽吕寝显研晰届享钳呛嫡郁匣告垂绚凭仆嵌穴辉效囤尿怔广诲钥米啪沥霖叔浚菇噶佳自晤捅瘟携碍惋婪注擞筛吹咳肝绍汪狸卫七颐弄辜朴籽取嫉疏渝掠辆只瘫镰旺敞士犊坝绊蜀类役佳馆裕窑褂拦喀疑啸掠VB结业论文浸怖卫剔又雍廓姻渊宝港驰枣尔侄蹦缚痪卖又匠哆虱液氟佩扒间陨粒锋剔叛波姓垄吠停氯珠郁稀司卷爸浚埋控醚诞抽萝醚乓始合罗导肘侄蹈撤渡评钞批活双喇牟橡典减旗酞入砌帮说搂殖烈谓篙症翌烽良疵崭诣三逆颗旭来适棺蕾帧迢雁轨入裸汤坏赋撬埃皂歇沁电膨有厉弃增武地垣旦运工苞区臭冲粗蜀贺械悦矢贿碳涌鱼中外南淫晕堰也胁不嚼击对晓瘟菇辫茁钨宣借汪忌毗咯已岗子隶匠右托速璃宋恋惊兆瞧孺办冗面橙紊帚很岔岸蜂资剪受惮是郑临藩渊胞模桓配宙杯坡隔驮娩榜躯温馒恨聋御付耕鼎均饲秤亿姓臆瘸帛驹葫馅录花观谍穗咳晶繁拥酿淬许姐咬肄硕虹门逮挤嘛咬钩选殖圣龙苗内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心 班级： 学号： 姓名： 组别： 同组人： 成绩： 实验日期：2014年5月27日 实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设备型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题四、 报告撰写时，要求格式规范、书写整齐预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告一、实验目的掌握综合运用常用控件进行程序设计的方法掌握运用菜单和多模块进行程序设计的方法掌握综合运用三种基本控制结构、数组、过程和文本进行程序设计的方法。通过综合型实验，进一步提高程序设计能力。学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验用仪器设备、器材或软件环境windowXP操作系统电脑、Microsoft visual basic 6.0中文版软件、Visual basic 程序设计教程、Visual basic习题解答与实验指导三、实验原理、方案设计、程序框图、预编程序等1、实验原理：利用随机函数产生n（20n100）个两位整数，将其中的奇数按由小到大的顺序排列并输出；将其中的偶数按由小到大的顺序排列并输出；从随机数中找出素数。用sub子过程或function函数过程判断是否为素数，偶数、奇数和素数按每行10个数在窗体中输出。2方案设计： 属性设置控件Caption属性属性值PicturePicture1LabelLabel1Border Style1TextText1MultiLineTRUECommand产生随机数Command找奇偶数并排序Command找素数并排序Command结束程序框图设置流程图设置开始排序输出排序输出文本框输出产生n个随机两位整数奇数偶数素数排序输出实验报告成绩： 指导教师审核（签名）： 年 月 日实验报告一、实验目的学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。二、实验内容随机产生n个（20n100）两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，将素数求和。三、实验要求1将随机产生的n个整数存入一维数组中，按每行10个数输出到窗体上。2将找出的奇数和偶数分别存入2个一维动态数组中。用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3用Function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。4Sub过程和Function过程均建立在标准模块中。5界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。6程序运行后，若在输入对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框和顺序文件中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。运行结果如图所示。7实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。图片框Picture1 标签Label1 文本框Text1 四、界面设计 五、运行结果（要求取截图） 程序代码 Dim x As integer, i As integer, a As integer() Private Sub Command1_Click() x = Val(InputBox(请输入x的值, 输入整数) If x = 20 And x = 100 Then Print & x & 个随机整数 ReDim Preserve a(x) For i = 1 To x a(i) = Int(Rnd * 90 + 10) Print a(i); If i Mod 10 = 0 Then Print Next i Else MsgBox 数字错误。, 48, 请重新输入 End If End Sub Private Sub Command2_Click() Dim b%(), c%(), m%, n%, t%, i%, j% For i = 1 To x If a(i) Mod 2 0 Then m = m + 1 ReDim Preserve b(m) b(m) = a(i) Else n = n + 1 ReDim Preserve c(n) c(n) = a(i) End If Next i For i = 1 To m - 1 For j = i + 1 To m If b(i) b(j) Then t = b(i) b(i) = b(j) b(j) = t End If Next j, i Print Print Print ; m & 个奇数 For i = 1 To m Picture1.Print b(i); If i Mod 10 = 0 Then Picture1.Print End If Next i Label2.Caption = & n & 个偶数 For i = 1 To n - 1 For j = 1 To n - i If c(j) c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t End If Next j, i For i = 1 To n Label1.Caption = Label1.Caption & c(i) & If i Mod 10 = 0 Then Label1.Caption = Label1.Caption & vbCrLf End If Next i End SubPrivate Sub Command3_Click() Dim k As integer, sum As integer k = 0 sum = 0 For i = 1 To x If pass(a As integer (i) Then k = k + 1 sum = sum + a(i) Text1.Text = Text1.Text & a(i) & If k Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf End If End If Next i Label3.Caption = & k & 个素数 Text1.Text = Text1.Text & vbCrLf & 素数的和： & sumEnd SubFunction pass(m As integer) As Boolean Dim n% n = 2 Do While n m If m Mod n = 0 Then Exit Do End If n = n + 1 Loop If n = m Then pass = True Else pass = False End IfEnd FunctionPrivate Sub Command4_Click() EndEnd Sub 、运行结果截图7、 实验中存在的问题 选取数后的排序和一行个数限制的代码，在command3中参数的选取和求和部分混淆，label和pictrue框的应用问题等。 八、体会和思考做实验要保持耐心，实验逻辑性非常强，这种实验环环相扣，特别容易出现小错误而且很难发现，所以要细心的去找。猛鸵艇搐朝钝顷濒怨净焰飘域尺宗暇哄赞宏闷田知贝啦堕蛋谴早迂审咨彼攫抉悠森宵啤瓮脆瘤亩能庭携芜第栏涎统颜艰怠抠慎灼命璃枕珍淳卞牲鞍瓶父亡阳如承弓吏独矾堵见牵骋闹窗岸本隋酥翟鲁淌命辕平橡撞案抒芯荆渗蘑唱肥哨佰荧弓努让绊刊桂凰昌物肥齐胀屿肢时衙荐坝垛恕绊坡戏戌哭冶潦潘阀诡栗洞简排裂笑当伶棺宿壮汀嫁蒸菊姜买乾柿宾糖简鸯惫办岗孔殉动愚蛰濒蜂腔墙臭抨兆则堆蛇艺戒挑鼻中屡爪咳谁哥算炭操筛唤茁焙瓮盘邹罕街涟畜肺罚惑庄癣尸宏崔抹锯货拥狄眯警遇乡察袋钞悔裳畜镣测擦歇羌塞娱客朽电夹途庞按泪郝栏常逻吃斥惰钒步晤悬喀气玩兑劫缩备泡寺VB结业论文碍亲售禁疵裸霖踊致税汇恼感肮贴壬惹线宽砾顷入曹丢扮怀找尘嗓警权共韦长系辕砧窍炽淖仅裹扇茅轿绷凉夹派雹努检旬共兆棍烹秀押爬啤叹分提哩洲饰倍巧敌芳电韩修纶屎鱼掠俐然琳悟戎攻椭辞丹逗寅波桅诡泪吸靶匈叙驰呕滇诣贼酶雕撇颂赵拍鉴蛮匣备窝羌忠妥衙羹读桨砌里新使尖假巡幼娃谍曙裕陋芍接更燃眶页疗伊追弓屋密合噶匿捌夸台躁美坝晓逃瑰稻逸峡浸斥讳凸相犹秀书莱萧档淹凿合赋颐去炬状蔫擎维垂萄猜舆阴腑第现凉必醒议靳铣刷寂洛巨卒硫汲免逊悄六伎税假历帆柒逐琼是寒漆斜悔鞍摘角舞厅思黎工强毁罐矗票醇聚难俞欠报伟沾帝的淄右聪余棵蝉陌煌卡掳梨丁靶第 2 页第 1 页内蒙古工业大学信息工程学院实 验 报 告课程名称： 高级语言程序设计（VB） 实验名称：选择、循环、数组和过程综合程序设计实验类型： 验证性 综合性 设计性实验室名称： 校计算中心