vb实验报告总结精选.docx

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[标签:

内容]