vb实验报告总结精选.docx
《vb实验报告总结精选.docx》由会员分享,可在线阅读,更多相关《vb实验报告总结精选.docx(13页珍藏版)》请在冰豆网上搜索。
vb实验报告总结精选
vb实验报告总结
实验报告
课程名称程序设计语言实验学期至学年第学期
学生所在系部
年级班级
学生姓名学号
任课教师
实验成绩
计算机学院制
计算机学院综合性实验报告
《程序设计语言》课程综合性实验报告
编号:
2011-2012学年第二学期
实验报告
实验课程名称VB程序设计基础与VBA应用
专业班级
学号
学生姓名
实验指导老师
浙江大学城市学院实验报告
课程名称VB程序设计基础与实验实验项目名称实验十、上机综合练习学生姓名专业班级学号
实验成绩指导老师日期
一.实验目的和要求
掌握基本设计程序的能力,能使用条件语句、循环语句和数组解决一般的数据处理及应用问题;掌握常用算法。
二.实验内容和原理
从键盘输入两个正整数,判定其中一个是否能整除另一个;
PrivateSubForm_Click
DimaAsInteger,bAsInteger
a=Val)
b=Val)
IfaModb=0OrbModa=0ThenPrint"能整除"ElsePrint"不能整除"EndSub
从键盘输入n,计算s=1-5+9-13+17-…+的值;
PrivateSubForm_Click
DimnAsInteger,flagAsInteger,iAsInteger,sAsInteger
n=Val)
flag=1:
s=0
Fori=1To4*n+1Step4
s=s+i*flag
flag=-flag
Nexti
Prints
EndSub
产生30个两位随机整数、并按从小到大的顺序存入数组a中,再将其中的奇
数按从小到大的顺序在窗体中用紧凑格式输出;
PrivateSubForm_Click
DimaAsbyte,iasByte,jAsByte,mAsByteFori=1To30:
a=⑴:
Nexti
Fori=1To29
Forj=⑵
Ifa>aThen
m=a:
⑶:
a=m
EndIf
Nextj,i
Fori=1To30
If⑷ThenPrinta;
Nexti
EndSub
PrivateSubForm_Click
DimaAsInteger,iAsInteger,jAsInteger,mAsInteger
Print"排序前:
"
Fori=1To30
a=Int)+10
Printa;
IfiMod10=0ThenPrint
Nexti
Fori=1To29
Forj=i+1To30
Ifa>aThen
m=a:
a=a:
a=m
EndIf
Nextj
Nexti
Print"排序后:
"
Fori=1To30
Printa;
IfiMod10=0ThenPrint
Nexti
Print"其中的奇数:
"
Fori=1To30
IfaMod2=1ThenPrinta;
Nexti
EndSub
求二维数组a中的最大值以及最大值所在的行号和列号,行数m、列数n及数组元素从键盘输入;
PrivateSubForm_Click
DimaAsInteger,mAsInteger,nAsInteger,iAsInteger,jAsInteger
DimxAsInteger,yAsInteger,MaxAsInteger
m=Val)
n=Val)
ReDima
Fori=1Tom
Forj=1Ton
a=InputBox")Printa;
Nextj
Print
Nexti
Max=a
Fori=1Tom
Forj=1Ton
IfMaxMax=a
x=i
y=j
EndIf
Nextj
Nexti
Print
Print"最大值为"&Max&"在第"&x&"行"&y&"列"
EndSub
产生k个互不相等的三位正整数。
PrivateSubForm_Click
DimkAsInteger,aAsInteger
k=Val)
ReDima
Fori=1Tok
a=Int)+100
Forj=1Toi-1
Ifa=aTheni=i-1
Nextj
Nexti
Fori=1Tok
Printa;
IfiMod8=0ThenPrint
Nexti
EndSub
几何图形打印。
*1A
***222BCD
*****33333EFGHI
*******4444444JKLMNOP
内蒙古工业大学能动学院
实验报告
课程名称:
高级语言程序设计Ⅰ实验名称:
选择、循环、数组和过程综合程序设计实验类型:
验证性□综合性√设计性□实验室名称:
校计算中心班级:
学号:
姓名:
组别:
同组人:
成绩:
实验日期:
实验报告撰写要求
一、实验前用预习报告纸撰写预习报告,预习报告包括以下内容
1.实验目的
2.实验用仪器设备、器材或软件环境
3.实验原理、方案设计、程序框图、预编程序等4.实验过程中需要记录的实验数据表格二、实验过程中,要认真观察,仔细记录
三、完成实验后用实验报告纸撰写实验报告,包括以下内容
1.仪器设备型号及编号2.实验器材或软件环境3.实验步骤、程序调试方法4.实验数据处理及结果分析5.实验中存在的问题6.体会及思考题
四、报告撰写时,要求格式规范、书写整齐
预习报告成绩:
指导教师审核:
年月日
预习报告
实验目的
学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。
实验仪器及软件环境:
普通台式电脑、microsoftvisualbasic标准环境下
实验原理:
利用Rnd函数产生80个随机整数,再利用For循环将产生的随机整数入到数组中,最后用If语句按每行10个数输出到第一个文本框中;用If句和Mod函数判断是否为奇偶数,后利用冒泡排序法将奇偶数排序分别输到二、三文本框中。
调用Function函数判断素数,利用For循环和If函输出,用累计求和法将素数的个数求出放入第四、五个文本框中。
方案设计:
界面设计如下:
存语出数
程序框图如下
预编代码:
OptionBase1
Dimi%,j%,a%,b%,c%,l%,m%,n%,w%,p%,q%PrivateSubCommand1_ClickFori=1To80Randomize
c=Int
=&""&cs=s+1
IfsMod10=0Then
=&vbCrLfEndIfNexti
Fori=1To79Forj=1To79
Ifc>cThent=c
c=cc=tEndIfNextjNexti
Fori=1To80
IfcMod2=0Thenm=m+1
ReDimPreserveaAsIntegera=cElse
n=n+1
ReDimPreservebAsIntegerb=cEndIfNexti
Fori=1Ton/2l=b
b=bb=lNextiEndSub
PrivateSubCommand2_ClickFori=1Tom
=&""&ap=p+1
IfpMod10=0Then
=&vbCrLf
台州学院
《VB程序设计》实验报告
实验三:
选择结构程序设计
一、实验目的和要求
1.掌握逻辑表达式及关系表达式的正确书写形式;
2.掌握IF语句单行和块书写格式及其正确使用;3.掌握多分支情况的控制的使用及与多分支条件语句的区别。
二、实验主要仪器和设备
计算机一台,WindowsXP操作系统,VisualBasic环境。
三、实验内容
实验在两个文本框中输入实数,单击按钮,显示“较小值是xxx”。
实验输入三个实数,计算其中的最大值,运行界面如图3-1所示。
图3-1程序运行时的界面
实验用输入对话框输入x,根据下式计算对应的y,并在窗体上输出y的值。
实验由键盘输入范围内的整数,试编程将其转换为中文表示的星期几,运行界面如图3-2所示。
图3-2程序运行时的界面
实验由键盘输入3个数,试编程将它们的中间数打印出来。
四、实验原始记录
实验
程序的界面设计。
程序代码。
PrivateSubCommand1_ClickDima,b,cAsSingle
a=:
b=Ifb>aThenc=a
="较小的值是"&cElsec=b
="较小的值是"&cEndIfEndSub
实验
程序的界面设计。
程序代码。
PrivateSubCommand1_Click
Dima,b,cAsSingle
a=:
b=:
c=Ifa>=bAnda>=cThen=a
ElseIfb>=aAndb>=cThen=bElse
=cEndIfEndSub
实验
程序的界面设计。
程序代码。
PrivateSubCommand1_ClickDimxAsSingle,yAsSingle
x=InputBoxIfxElseIfx>10Theny=Sqr+SinElse
y=0EndIf
Print"y的值是"&yEndSub
实验
程序的界面设计。
太原理工大学现代科技学院
本科实验报告
课程名称:
人机界面程序设计基础
实验项目:
二、结构程序设计
实验地点:
多学科综合楼
专业班级:
自动化学号:
学生姓名:
指导教师:
2014年11月29日
一、实验目的和要求
1、掌握正确书写表达式、赋值语句的规则。
2、掌握InputBox与MsgBox的使用。
3、掌握Print方法和Format格式使用。
4、掌握单分支与双分支条件语句的使用。
5、掌握多分支条件语句的使用。
6、掌握For语句和Do语句的各种形式的使用。
7、掌握如何控制循环条件,防止死循环和不循环。
二、实验内容和原理
1、输入半径,计算圆周长和圆面积。
为了保证程序运行的正确,对输入半径要进行合法性检查,数据检查调用IsNumeric函数;若有错,利用MsgBox显示错误信息,通过SetFocus方法定位于出错的文本框处,重新输入;计算结果保留两位小数。
提示:
使用Text1_KeyPress事件,按Enter键,返回参数“KeyAscii”的值为13表示输入结束。
2、随机产生三个整数,按从小到大的顺序显示。
3、计算π的近似值,π的计算公式为:
?
2n?
224262
π=2×××…×2n-1?
2n+11?
33?
55?
7注意:
①、分别显示当n=10、100、1000时的结果,由此可见,此计算公式收敛如何?
②、要防止大数相乘时结果溢出的问题,将变量类型改为长整型或实数型。
2
三、主要仪器设备
计算机
四、实验结果与分析
实验界面:
1、输入半径,计算圆周长和圆面积。
程序:
PrivateSubForm_Activate
="输入半径值"
=0
=Len
EndSub
PrivateSubText1_KeyPress'圆面积,周长
Dimr
r=
ConstPI=
IfKeyAscii=13Then
Cls
IfIsNumericThen
Print"当圆的半径为";r;"时:
"
Print"圆面积为:
";Format
Print"圆面积为";Format
Else
Text1="半径值输入有误"
EndIf
=0
=Len
Else
EndIf
EndSub
运行结果:
输入值
:
2
2、随机产生三个整数,按从小到大的顺序显示。
程序:
PrivateSubCommand1_Click
Cls
Dimx%,y%,z%,a%
Randomize
x=Int
y=Int
z=Int
Print"随机产生三个整数:
";x;Spc;y;Spc;z;Spc
Ifx>yThen
a=x:
x=y:
y=a
EndIf
Ify>zThen
a=y:
y=z:
z=a
Ifx>yThen
a=x:
x=y:
y=a
EndIf
EndIf
Print"从小到大排序:
";x;Spc;y;Spc;z;Spc
EndSub
运行结果:
3、计算π的近似值
①、分别显示当n=10、100、1000时的结果,由此可见,此计算公式收敛如何?
②、要防止大数相乘时结果溢出的问题,将变量类型改为长整型或实数型。
程序:
PrivateSubCommand2_Click
Cls
DimnAsLong,PI,iAsLong
n=1
Do
n[标签:
内容]