vb实验2常用控件和窗体的使用

《vb实验2常用控件和窗体的使用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、广州大学学生实验报告开课学院及实验室：电子信息楼617日期：2013年12月19学院机械与电气工程年级、专业、班信12电11姓名孔志荣学号1107400052实验课程名称VB实验成绩实验项目名称实验二：常用控件和窗体的使用导师指老一、实验目的1.掌握一维数组的定义、初始化和引用方法。2.掌握二维数组的定义、初始化和引用方法。3.掌握控件数组的创建和引用。4.掌握排序算法。1.掌握子定义函数与字过程的定义和调用方法。2.掌握调用过程时参数传递的两种方式(传值与传址)3.掌握变量、函数和过程的作用域。掌

2、握窗体的常用属性、事件和方法，尤其是窗体的常用事件。2.掌握标签、文本框、命令按钮的常用属性、事件和方法。3.掌握单选钮和复选框、列表框和组合框的编程方法。4.掌握应用图片框和图象框加载图片的方法。5.掌握计时器和滚动条的编程方法。6.掌握焦点的应用技巧。实验题目定义一维数组a(10)，从键盘任意输入10个整数对a(10)赋值，然后按与输入相反的顺序逆序输出。PrivateSubForm_Click()DimiAsIntegerDima(10)AsIntegerFori=0To9a(i)=Val(I

3、nputBox("请输入一个整数："，"数据输入"))Printa(i);NextiPrintFori=9To0Step-1Printa(i);NextiEndSubFo»l0754422114466886387999799787988636644112244750用命令按钮设计一个数字软键盘，以便用户输入密码。其用户界而如图。PrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0To9Textl=Textl&Commandl(Ind

4、ex).CaptionCase10MsgBox"你的用户密码是n+Text1,，n密码提示"EndSelectEndSub随即产生一个5X5矩阵(每个元素为两位正整数)。计算其主、副对角线元素之和。PrivateSubCommandl_Click()Dima(5,5)AsInteger,resultAsIntegerDimiAsInteger，jAsIntegerPicture1.CisRandomizeFori=1To5Forj=1To5a(i?j)=Int(Rnd*90+10)Picture1.

5、Printa(i,j);NextjPicture1.PrintNextiFori=1To5IfOption1.Value=TrueThenresult=result+a(i,i)ElselfOption2.Value=TrueThenresult=result+a(i,5-i+1)EndIfNextiTextl=resultEndSub编写一个函数过程，其功能是判断一个数是正数、负数还是零。在调用程序中，通过键盘输入数据，调用该函数过程，并输出判断结果。PrivateFunctionjud(nAsS

6、ingle)AsStringIfn>0Thenjud=n正数MElseIfn=0Thenjud=n0"Elsejud="负数MEndIfEndIfEndFunctionPrivateSubCommandl_Click()DimnAsSinglen=Val(I叩utBox("请输入一个数："))Print"你输入的数是：";jud(n)EndSub，Fo»l□回®输入数据编写程序，验证双击窗体后，触发了那些鼠标事件以及触发的顺序。1.输入代码新建工程后，双击窗体，进入代码窗口，输入以下代码：Priva

7、teSubForm_C1ick()Print"触发Form_Click事件"EndSubPrivateSubFonn_DblClick()PrintM触发Form_DbClickEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle，YAsSingle)EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)P

8、rint”触发MouseUp事件"EndSub1.执行程序：单击启动按钮，然后双击窗体，运行结果如图。编写模拟秒表程序。要求：单击“开始”按钮，该按钮变为灰色，在文本框Textl种显示开始时间；按“停止”按钮，该按钮变为灰色，同时“开始”按钮变为可用，在文本框Text2中显示停止时间，在文本框Text3中显示经过的时间。PrivateSubCommand1_Click()st=NowTextl=Format(st，"hh:mm:ss°)Text2=HUText3=M"