大学vb实验报告

《大学vb实验报告》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、大学vb实验报告VB实验报告内蒙古工业大学信息工程学院实验报告课程名称：高级语言程序设计（VB）Ⅰ实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□综合性√设计性□实验室名称：校计算中心班级：环工10-2学号：201020303003郑小清组别：同组人：成绩：实验日期：2011/6/07实验报告撰写要求一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容1．实验目的2．实验用仪器设备、器材或软件环境3．实验原理、方案设计、程序框图、预编程序等4．实验过程中需要记录的实验数据表格二、实验过程中，要认真观察，仔细记录三、完成实验后用实验报告纸撰写实验报告，包括以下内

2、容1．仪器设备型号及编号2．实验器材或软件环境3．实验步骤、程序调试方法4．实验数据处理及结果分析5．实验中存在的问题6．体会及思考题四、报告撰写时，要求格式规范、书写整齐预习报告成绩：指导教师审核（签名）：2011年06月07日预习报告一、实验目的：学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。二、实验用仪器设备、器材或软件环境：1、实验仪器设备、器材：计算机2、软件环境：VB语言设计应用程序简化版三、实验原理、方案设计、程序框图、预编程序：1、实验原理及方案设计：利用随机函数的知识对数组赋值，然后利用冒泡发对数组排序，分别赋予另外两个数组放到文本框中，在整个

3、实践过程中利用循环和IF条件语句进行大量地运算，最终得出想要的结果，我认为该实验中难点在于文本框中的换行语句以及素数的筛选。2、程序框图：3、预编程序：PrivateSubmand1_Click()Dima(1To80)AsIntegerFori=1To80a(i)=Int(90*Rnd+10)Text1.Text=Text1.Text+Str(a(i))IfiMod10=0ThenText1.Text=Text1.Text+vbCrLfEndIfNextiDimb(1To80)AsInteger,c(1To80)AsIntegers=1k=1Fori=1To80Ifa(i)M

4、od2=0Thenb(s)=a(i)s=s+1Elsec(k)=a(i)k=k+1EndIfNextiFors=1To59Forj=s+1To60Ifb(s)>b(j)Andb(s)<>0Andb(j)<>0Thenz=b(s):b(s)=b(j):b(j)=zEndIfNextjNextsp=1DoicrosoftVisualStudioVB98或者VB的安装文件夹16.属性17.方法18.font19.form_load()20.对象实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B

5、15.A16.C17.B18.D19.C20.C二、填空1.Form_Click()2.Interval、50003..vbp.frm4.lefttopHeight、yPictures示例图片Sunset.jpg)EndSubPrivateSubmand1_Click()Timer1.Enabled=TrueEndSubPrivateSubmand2_Click()Timer1.Enabled=FalseEndSubPrivateSubImage1_Click()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Image1

6、.Left=Int(Rnd*(Form1.Scaleod10)*100+(x10Mod10)*10+x100Print反序数：;Format(y,000)EndSubPrivateSubmand2_Click()Dimx%,yAsStringx=Int(Rnd*900+100)Print产生的随机数：;xy=Trim(Str(x))Print反序数：Right(y,1)Mid(y,2,1)Left(y,1)EndSubPrivateSubForm_Load()EndSub3-4PrivateSubmand1_Click()Dimm%,n%Randomizem=Val(Tex

7、t1):n=Val(Text2)x=Int(Rnd*(n-m+1)+m)y=Int(Rnd*(n-m+1)+m)z=Int(Rnd*(n-m+1)+m)Label3=m到n之间的3个随机数为:xSpace(3)ySpace(3)zEndSubPrivateSubForm_Load()EndSub3-5PrivateSubmand1_Click()Label1.Caption=Date