VB实验报告.docx
- 文档编号:3926223
- 上传时间:2023-05-06
- 格式:DOCX
- 页数:14
- 大小:164.02KB
VB实验报告.docx
《VB实验报告.docx》由会员分享,可在线阅读,更多相关《VB实验报告.docx(14页珍藏版)》请在冰点文库上搜索。
VB实验报告
内蒙古工业大学信息工程学院
实验报告
课程名称:
高级语言程序设计(VB)Ⅰ
实验名称:
选择、循环、数组和过程综合程序设计
实验类型:
验证性□综合性√设计性□
实验室名称:
校计算中心
班级:
物流12-1学号:
201221504019
姓名:
安春苗组别:
8B39
同组人:
成绩:
实验日期:
2013-6-3
实验报告撰写要求
一、实验前用预习报告纸撰写预习报告,预习报告包括以下内容
1.实验目的
2.实验用仪器设备、器材或软件环境
3.实验原理、方案设计、程序框图、预编程序等
4.实验过程中需要记录的实验数据表格
二、实验过程中,要认真观察,仔细记录
三、完成实验后用实验报告纸撰写实验报告,包括以下内容
1.仪器设备型号及编号
2.实验器材或软件环境
3.实验步骤、程序调试方法
4.实验数据处理及结果分析
5.实验中存在的问题
6.体会及思考题
四、报告撰写时,要求格式规范、书写整齐
预习报告成绩:
指导教师审核(签名):
年月日
预习报告
一、程序所含对象
所需包括的对象
名称
数量
个数
总个数
窗体(form)
Form1
1
1
按钮(command)
产生随机整数
1
4
找奇偶数并排序
1
找素数并求和
1
结束
1
图片框(picture)
Picture1
1
2
Picture2
1
文本框(text1)
Text1
1
1
标签(label)
Label1
1
2
Label2
1
二、属性值
(名称)
Form1
Caption
Form1
Font
宋体常规小四
(名称)
Command1
Command2
Command3
Command4
Caption
产生随机整数
找奇偶数并排序
找素数并求和
结束
Font
宋体常规小四
宋体常规小四
宋体常规小四
宋体常规小四
(名称)
Picture1
Picture2
Caption
Picture1
Picture2
Font
宋体常规小四
宋体常规小四
(名称)
Text1
Font
宋体常规小四
Multiline
True
Text
(名称)
Label1
Label2
Caption
Label1
Label2
Font
宋体常规小四
宋体常规小四
四、流程图
实验报告成绩:
指导教师审核(签名):
年月日
实验报告
一、实验目的
学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。
二、实验内容
利用随机函数产生90个10~99之间的随机整数,将其中的偶数按由小到大的顺序排列,将奇数按由大到小的顺序排列;在产生的90个随机整数中,找出其中的素数,并将这些素数求和。
三、实验要求
1.将随机产生的90个整数存入一维数组中,按每行15个数输出到窗体上。
2.将找出的偶数和奇数也分别存入2个一维数组中。
用Sub子过程分别对偶数和奇数进行排序,然后在主调过程内,将排好序的偶数和奇数按每行15个数分别输出到2个图片框中。
3.用Function函数过程判断随机整数是否为素数。
在主调过程内,将找出的素数按每行20个数在文本框中输出,将素数的个数及求和结果也输出到同一个文本框中。
4.界面可参照如图所示的运行结果进行设计,要求各个控件在窗体上布局合理、大小适中。
对象属性的设置要求用表格填写,包括用到的对象名、属性名和属性值。
5.运行程序后,单击“产生随机整数”按钮,则在窗体上输出90个随机整数;单击“找奇偶数并排序”按钮,则分别在2个图片框中输出已经排好序的偶数和奇数;单击“找素数并求和”按钮,则在文本框中输出素数、素数的个数及素数的和;单击“结束”按钮,结束程序的运行。
四、原程序代码
Dima(1To90)AsInteger
Dimb()AsInteger,c()AsInteger
PrivateSubCommand1_Click()
Privatesubcommand1click()
Dima(1to90)asinteger,Iasinteger
Cls
Randomize
Fori=1to90
a(i)=int(90*rnd+10)
printa(i);
ifImod15=0then
endif
nexti
endsub
PrivateSubCommand2_Click()
DimiAsInteger,mAsInteger,nAsInteger,tAsInteger
Picture1.Cls
Picture2.Cls
m=0
n=0
ReDimb(90)
ReDimc(90)
Fori=1To90
t=a(i)
If(tMod2)=0Then
m=m+1
b(m)=t
Else
n=n+1
c(n)=t
EndIf
Nexti
Label1.Caption=m&"个偶数"
Label2.Caption=n&"个奇数"
ReDimPreserveb(m)
ReDimPreservec(n)
Callmysub1(m)
t=0
Fori=1Tom
t=t+1
Picture1.Printb(i);
If(tMod15)=0Then
Picture1.Print""
EndIf
Nexti
Callmysub2(n)
t=0
Fori=1Ton
t=t+1
Picture2.Printc(i);
If(tMod15)=0Then
Picture2.Print""
EndIf
Nexti
EndSub
Submysub1(mAsInteger)
DimiAsInteger,jAsInteger,tAsInteger
Fori=1Tom-1
Forj=i+1Tom
Ifb(i)>b(j)Then
t=b(i):
b(i)=b(j):
b(j)=t
EndIf
Next
Next
EndSub
Submysub1(mAsInteger)
DimiAsInteger,jAsInteger,tAsInteger
Fori=1Tom-1
Forj=i+1Tom
Ifb(i)>b(j)Then
t=b(i):
b(i)=b(j):
b(j)=t
EndIf
Next
Next
EndSub
PrivateSubCommand3_Click()
DimiAsInteger,jAsInteger,tAsInteger,pAsInteger
DimsumAsInteger
Text1.Text=""
p=0:
sum=0
ReDimd(30)
Fori=1To90
t=a(i)
Ifss(t)Then
p=p+1
Text1.Text=Text1.Text&t&Space
(1)
sum=sum+t
EndIf
Nexti
Text1.Text=Text1.Text&vbCrLf
Text1.Text=Text1.Text&"素数的个数是:
"&p
Text1.Text=Text1.Text&vbCrLf
Text1.Text=Text1.Text&"素数的和是:
"&sum
EndSub
PrivateSubCommand4_Click()
End
EndSub
Functionss(mAsInteger)AsBoolean
DimnAsInteger,qAsBoolean
q=True
Forn=2Tom-1
IfmModn=0Then
q=False
EndIf
Nextn
ss=q
EndFunction
五、调试和运行结果
1.开始
2.产生90个随机数
3.找奇偶数并排序
4.找素数并求和
六.实验中存在的问题。
1.在做产生随机数时,由于没有使用print换行,导致产生的随机数竖直排列.2在做找出奇偶数时,由于sub子过程未定义,导致奇偶数不显示。
3.数组中下标变量的下标容易与计数变量混淆。
4.变量的初始值赋值错误,导致下标越界。
5.变量的重复使用,导致程序出错。
6.排序时下标赋值错误。
七.体会及思考题
在编写过程中,有时会因为基础知识不扎实而引起错误。
比如忘记换行,遗漏下标等。
VB在我们的生活中有很广泛的应用,利用VB可以使一些复杂的工作简单化。
通过这次VB实验,不仅培养了我分析程序和调试程序的能力,还为我将来编写程序打下良好基础。
学会了一些常用方法过程法,提高了我解决实际问题的能力,锻炼了我的编程思维。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 报告