VB实验报告范本DOC文档格式.docx

VB实验报告范本DOC文档格式.docx

《VB实验报告范本DOC文档格式.docx》由会员分享，可在线阅读，更多相关《VB实验报告范本DOC文档格式.docx（16页珍藏版）》请在冰豆网上搜索。

1、了解visualbasic系统对计算机软件、硬件的要求。

2、掌握启动与退出visualbasic的方法。

3、熟悉visualbasic的集成开发环境（ide）。

4、掌握在窗体上添加控件的各种方法。

5、掌握建立、编辑、运行和保存一个简单的visualbasic应用程序的全过程。

二、实验内容和原理

1、熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的

功能、组成以及它们各种不同的打开方法。

2、在窗体上画一文本框个一个命令按钮，在文本框中显示“vb程序设计”，然后执行如

下操作：

（1）编写适当事件过程，当单击命令按钮时，文本框内容消失。

（2）单击“文件”—“生成工程”并退出。

在windows环境下运行该工程。

用户界面：

实验代码：

3、创建一个“标准exe”类型的应用程序。

要求：

程序运行时在屏幕上显示“欢迎您的

到来！

”，并输入您的名字。

当按回车键时弹出对话框如下所示：

代码：

privatesubtext1_keypress（keyasciiasinteger）

ifkeyascii=13then

msgbox欢迎+text1.text+的到来endifendsub

4、创建如图所示的应用程序，要求：

单击“确定”按钮后，第一个文本框显示系统日期，

第二个文本框显示星期。

单击“退出”按钮则退出应用程序。

text2.text=日case2

text2.text=一case3

text2.text=二case4

text2.text=三case5

text2.text=四case6

text2.text=五case7

text2.text=六endselect

endsub

三、总结

通过本次实验熟悉了visualbasic的集成开发环境（ide）。

掌握在窗体上添加控件的各种方法。

掌握建立、编辑、运行和保存一个简单的visualbasic应用程序的全过程。

洪景泉学号：

2007、4、4实验地点：

实验二顺序程序设计

1.掌握常用内部函数的使用

2.掌握表达式赋值语句的正确书写规则3.掌握inpuebox和msgbox的使用

1.创建如图所示的应用程序，要求：

单击窗体显示如图所示的图形。

dimiasinteger

dimjasintegerfori=1to9forj=1toi

ifi=9orj=1ori=jthenprint※;

else

printspc

（2）;

endifnextj

print

nextiprivatesubform_click（）endsub

2.创建如图所示的应用程序，要求：

单击“放大”按钮后，将文本中显示的字符串放大２--３倍；

若单击按钮“还原”按钮。

则将文本框显示的字符串大小返原。

dimxdimy

3.创建如图的应用程序，要求：

单击“确定”按钮后，弹出“是否继续”，若单击“是”，则文本框显示：

“您按下的按钮是‘是’”；

若单击按钮“否”，则文本框显示：

“您按下的是‘否’”。

单击“结束”，则退出应用程序。

用户界面：

x=msgbox（是否继续,20,msgbox信息显示窗口）ifx=vbyexthen

text1.text=您按下的按钮是“是”else

text1.text=您按下的按钮是“否”endif

text1.fontbold=trueendsub

通过本次实验掌握常用内部函数的使用，表达式赋值语句的正确书写规则以及inpuebox和msgbox的使用系：

2007、4、11实验地点：

实验三选择结构程序设计

1、掌握if条件语句的使用。

2、掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。

1、请编一程序用于在期未时根据学生总分情况给予奖励，条件如下：

四门总分不低于360（含360分），特等奖；

四门总分320分（含320分）~360分（不含360分），优秀奖；

单科成绩不低于95分，特别奖。

ifisnumeric（text1.text）andisnumeric（text2.text）andisnumeric（text3.text）andisnumeric（text4.text）thent1=val（text1.text）t2=val（text2.text）t3=val（text3.text）t4=val（text4.text）sum=t1+t2+t3+t4label3.caption=sumifsum&

gt;

=360then

msgbox您获得了特等奖,64,获奖通知elseifsum&

=320andsum&

lt;

360then

msgbox您获得了优秀奖,64,获奖通知

elseift1&

=95ort2&

=95ort3&

=95ort4&

=95thenmsgbox您获得了特别奖,64,获奖通知else

msgbox您要好好努力了！

64,通知endif

label3.caption=sumelse

msgbox请输入数字,16endifendsub

text1.text=text2.text=text3.text=text4.text=label3.caption=endsub

2.输入x，y，z三个数，按从小到大的次序显示出来，运行结果如图：

程序中不得使用循环结构和转向语句；

掌握两个数交换的方法程序界面：

dimx,y,z,t

privatesubtext1_keypress（keyasciiasinteger）ifkeyascii=13then

x=val（trim（text1.text））text2.setfocusendif

text4.text=xendsub

privatesubtext2_keypress（keyasciiasinteger）ifkeyascii=13then

y=val（trim（text2.text））ifx&

ythent=xx=yy=tendif

text3.setfocusendif

text4.text=xtext5.text=yendsub

privatesubtext3_keypress（keyasciiasinteger）ifkeyascii=13then

z=val（trim（text3.text））ifz&

yandz&

=xthentext5.text=ztext6.text=yelseifz&

xthentext4.text=ztext5.text=xtext6.text=yelse

text6.text=zendifendifendsub

通过本次实验掌握if条件语句的使用，情况语句的使用以及情况语句与多分支条件语句的使用。

2007、4、18实验地点：

实验四循环结构程序设计及数组的运用

1、掌握for语句的使用。

2、掌握do语句的各种形式的使用。

3、掌握如何控循环条件，防止死循环或不循环。

4、掌握数组的声明以及数组元素的使用差别。

5、掌握静态数组和动态数组的使用差别。

6、应用数组解决与数组有关的常用算法问题。

1、编程计算1-2+3-4+5-6+?

?

+n的值，其中n由文本框输入，要求掌握for语句的

正确使用。

dimkasinteger

k=1s=0

n=val（trim（text1.text））fori=1tons=s+i*k

k=-koptionexplicitnextprivatesubtext1_keypress（keyasciiaslabel1.caption=1-2+3-4+...-+integer）str（n）+=+str（s）dimnasintegerendifdimi,sasintegerendsub

2．随机产生10个1~10的正整数（包括1，10），求最大值、最小值和平均值，并显示整个数组的值。

实验代码：

optionexplicit

privatesubform_click（）dimxasintegerdima（10）asinteger

dimiasinteger,maxasinteger,minasinteger

dimsumasintegerfori=1to10

a（i）=int（rnd*10）+1printspc（3）;

a（i）;

nexti

max=a

（1）min=a

（1）

4.在窗体上显示给定行的杨辉三角形。

fori=1to10

ifmax&

=a（i）thenmax=a（i）endif

ifmin&

=a（i）thenmin=a（i）endif

sum=sum+a（i）next

text1.text=maxtext2.text=min

text3.text=sum/10endsub

optionexplicit

privateiasinteger,jasintegerprivatexasinteger,nasintegerprivatea（）subfunct（）fori=1tonforj=1ton

ifi=jorj=1thena（i,j）=1else

a（i,j）=a（i-1,j-1）+a（i-1,j）endifnextjnexti

fori=1tonprintspc（n-i）;

forj=1toiprinta（i,j）;

nextjprintnextiendsub

privatesubform_click（）

n=cint（inputbox（请输入行数））redima（n,n）callfunctendsub

通过本次实验掌握循环语句的使用，数组的声明以及数组元素的使用。

掌握了静态数组和动态数组的使用差别。

2007、4、25实验地点：

实验五过程

1、掌握自定义函数过程和子过程的定义和调用方法。

2、掌握形参和实参的对应关系。

3、掌握值传递和地址传递的传递方式。

4、掌握递归的概念和使用方法。

1.编程计算1+x+x^2+?

+x^n的子过程和函数过程，并分别调用。

其中x和n的值由用户给定。

privatexasinteger,nasintegerprivatefunctionf（n,x）aslongdimiasinteger,sumaslongfori=0ton

sum=sum+x^inextif=sumendfunctionsubformclick（）

label1.caption=1+&

amp;

x&

+&

^&

2&

+┅+&

n&

=text1.text=f（n,x）endsub

privatesubform_load（）

x=cint（inputbox（请输入底数x））n=cint（inputbox（请输入指数n））formclickendsub

2.编写函数s（masinteger，nasinteger）aslong,此函数返回m+mm+mmm……+mm?

m（n个m）的值。

dimmasinteger,nasintegern=inputbox（请输入个数n）m=inputbox（请输入m）

label1.caption=m&

（m*10+m）&

+...+&

m&

...&

=text1.text=s（m,n）endsub

functions（masinteger,nasinteger）aslongdimiasinteger,kaslong,sumaslongk=msum=0

fori=1tonsum=sum+kk=k*10+mnextis=sum

endfunction

通过本次实验掌握了自定义函数过程和子过程的定义和调用方法，掌握值传递和地址传递的传递方式以及递归的概念和使用方法。

2007、5、9实验地点：

实验六窗体和常用控件

（一）

掌握窗体与常用控件的重要属性、事件和方法。

3.设计一个界面程序，要求程序能实现界面上所指示的编辑操作和字体设置功能。

privatesubcheck1_click（indexasinteger）

ifcheck1（0）.value=vbcheckedthentext1.fontname=黑体elsetext1.fontname=宋体k=text1.textendififoption1（0）.valuethenifcheck1

（1）.value=vbcheckedthenclipboard.cleartext1.fontitalic=trueclipboard.settextkelseendiftext1.fontitalic=falseifoption1

（1）.valuethenendifclipboard.clearifcheck1

（2）.value=vbcheckedthenclipboard.settextktext1.fontunderline=truetext1.text=elseendiftext1.fontunderline=falseifoption1

（2）.valuethenendiftext1.text=text1+endsubclipboard.gettextprivatesuboption1_click（indexasendifinteger）endsubdimkasstring

2、设计一个界面程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。

msgboxexp1,,兴趣爱好endsub

endsuboptionexplicit

通过本次实验掌握了窗体与常用控件的重要属性、事件和方法。

2007、5、16实验地点：

实验七常用控件

（二）

掌握常用控件的重要属性、事件和方法

1.在窗体上画一个图片框和两个命令按钮。

程序运行后，如果单击“显示图片”命令按

钮，则在图片框装入一个用图形编辑软件画的简单图形。

单击“清除图片”命令按钮，则清除图片框的图形。

image1.picture=loadpicture（）endsub

2.在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同的方向，把文本框的multiline属性设置为true。

编写程序，当单击某个图像框时，在文本框中显示相应的信息。

image1.picture=

loadpicture（d:

\picture\1.bmp）image2.picture=loadpicture（d:

\picture\2.bmp）image3.picture=loadpicture（d:

\picture\3.bmp）image4.picture=loadpicture（d:

\picture\4.bmp）endsub

privatesubimage1_click（）text1.text=单击向左箭头endsub

privatesubimage2_click（）optionexplicittext1.text=单击向右箭头privatesubform_load（）endsubprivatesubimage3_click（）privatesubimage4_click（）text1.text=单击向下箭头text1.text=单击向上箭头endsubendsub

3.编写一个模拟秒表操作的程序，运行时的界面，程序运行后，单击“启动”按钮，该按钮变灰，在上面的标签中显示开始时间。

过一会儿，单击停止按钮，该按钮变灰，同时“启动”按钮可用，并在中间标签中显示当前时间，在下面的标签中显示经过的时间。

4.设计一个简易面板，在窗体上画一个图片框、一个命令按钮和一组单选按钮。

optionexplicitdimflagasboolean

privatesubform_load（）flag=falseendsub

privatesubpicture1_mousedown（buttonasinteger,shiftasinteger,xassingle,yassingle）

ifoption1（0）.value=truethen画直线ifbutton=1thenflag=truepx=xpy=yendif

elseifoption1

（1）.value=truethen画矩形ifbutton=1thenflag=truepx=xpy=yendif

elseifoption1

（2）=truethen画圆ifbutton=1thenflag=truepx=xpy=yendifelseifoption1（3）=truethen画椭圆ifbutton=1thenflag=truepx=xpy=yendifendifendsub

privatesubpicture1_mouseup（buttonasinteger,shiftasinteger,xassingle,yassingle）

dimrassingledimrateassinglerandomize

ifround（rnd）=1thenrate=int（5*rnd）else

rate=1/int（5*rnd+1）endif

ifoption1（0）.value=truethen画直线ifflag=truethen

picture1.line（px,py）-（x,y）endif

elseifoption1

（1）.value=truethen画矩形if