vb实验报告Word文件下载.docx

1、实验日期：实验报告撰写要求一、 实验前用预习报告纸撰写预习报告，预习报告包括以下内容1 实验目的2 实验用仪器设备、器材或软件环境3 实验原理、方案设计、程序框图、预编程序等4 实验过程中需要记录的实验数据表格二、 实验过程中，要认真观察，仔细记录三、 完成实验后用实验报告纸撰写实验报告，包括以下内容1 仪器设备型号及编号2 实验器材或软件环境3 实验步骤、程序调试方法4 实验数据处理及结果分析5 实验中存在的问题6 体会及思考题报告撰写时，要求格式规范、书写整齐预习报告成绩： 指导教师审核（签名）： 年 月 日预习报告1、实验目的二、实验内容三、实验要求1将随机产生的n个整数存入一维数组中，

2、按每行10个数输出到窗体上。2将找出的奇数和偶数分别存入2个一维动态数组中。用Sub过程分别对奇数和偶数进行排序，奇数用选择法排序，偶数用冒泡法排序，然后在调用过程内，将排好序的奇数和偶数按每行10个数分别输出到图片框和标签中。3用Function过程判断随机整数是否为素数。在调用过程内，将找出的素数（按每行10个数）及求和结果输出到文本框中。4Sub过程和Function过程均建立在标准模块中。5界面可参照如图所示的运行结果进行设计，要求在窗体上添加的各个控件布局合理、大小适中。对象属性的设置要求用表格填写，包括对象名、属性名、属性值和说明（可参照前面章节的实验内容）。6程序运行后，若在输入

3、对话框中输入随机产生的整数个数n为50，单击“产生随机整数”命令按钮，则在窗体上输出50个随机整数；单击“找奇偶数并排序”命令按钮，则分别在图片框和标签中输出排好序的奇数和偶数；单击“找素数并求和”命令按钮，则在文本框中输出素数和素数的和；单击“结束”命令按钮，结束程序的运行。7实验报告主要包括实验目的、实验内容、实验要求、界面设计（包括各对象及其属性设置）、源程序代码、运行结果（要求截图）、实验中存在的问题、体会和思考等内容。四、实验要求对象名属性名属性值说明Form1.CaptionLabel1.BorderstyleLabel2.Label3.Label4.Command1.Comman

4、d2.Command3.Command4.Picturebox1.Text1.Text五、预编程序代码实验报告成绩：实验报告一、实验目的学会综合运用三种基本控制结构、数组和过程进行程序设计的方法。随机产生n个（20n100）两位整数，找出其中的奇数、偶数和素数，并将奇数按升序排序，将偶数按降序排序，将素数求和。四、页面设计找奇、偶数和素数并进行排序和求和初始内容为空，用于输入1凹陷单线边框产生随机数找奇偶数并排序找素数并求和结束五、源程序代码Dim x As Integer, i As Integer, a（） As IntegerPrivate Sub Command1_Click（）x =

5、 Val（InputBox（请输入n）If x = 20 And x = 100 ThenPrint 共 & x & 个随机数ReDim Preserve a（x）For i = 1 To xa（i） = Int（Rnd * 90 + 10）Print a（i）;If i Mod 10 = 0 ThenPrintEnd IfNext iElsex = MsgBox（错误, 48）End SubPrivate Sub Command2_Click（）Dim b%（）, c%（）, m%, n%, t%, i%, k%n = 0m = 0If a（i） Mod 2 0 Thenm = m + 1R

6、eDim Preserve b（m）b（m） = a（i）n = n + 1ReDim Preserve c（n）c（n） = a（i）For i = 1 To m - 1For j = i + 1 To mIf b（i） b（j） Thent = b（i）b（i） = b（j）b（j） = tNext jLabel2.Caption = m &个奇数Label3.Caption = n &个偶数For i = 1 To mPicture1.Print b（i）;Picture1.PrintFor i = 1 To n - 1For j = 1 To n - iIf c（j） c（j + 1）

7、 Thent = c（j）c（j） = c（j + 1）c（j + 1） = tFor i = 1 To nLabel1.Caption = Label1.Caption & c（i） & vbCrLfPrivate Sub Command3_Click（）Dim k As Integer, sum As Integerk = 0sum = 0If pass（a） Thenk = k + 1s = s + a（i）Text1.Text = Text1.Text & k & vbCrLf & sumFunction pass（m） As BooleanDim n%n = 2Do While n

8、mIf m Mod n = o ThenExit DoLoopIf n = m Thenpass = Truepass = FalseEnd functionPrivate Sub Command4_Click（）EndEnd subEnd FunctionPrivate Sub Form_Load（）六、程序运行结果七、实验中存在的问题 1、 数据如何输入文本框中。2、在文本框中换行的方法。3、Function子过程的运用。4、If语句的用法。5、文本框的属性MultiLine的属性改成True。6、 对一些基本控件的属性和方法掌握不好八、体会与思考 Vb程序设计在排序和一些简单的运算方面十分有用，并且方法多样。例如在排序方面有简单排序和冒泡排序等。但对基本知识的要求较高。做vb作业需要细心与耐心，小小的差错就会导致整个程序的错误。学习中基础知识是很重要的，所以我们努力学好基础知识，做什么事都不能急于求成。