大一VB实验内容Word格式文档下载.docx
《大一VB实验内容Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《大一VB实验内容Word格式文档下载.docx(14页珍藏版)》请在冰豆网上搜索。
(3)“清除”按钮用于清除三个文本框中的文本。
要清除某个文本框中的文本可在“清除”事件代码中把文本控件的Text属性设置为空即可(例如,Text1.Text=””)。
图1.4实验4界面设计图1.5实验5界面设计
5.界面设计如图1.5所示,单击“边框”按钮,在标签框上加上边框。
单击“隐藏”按钮,使标签框不可见。
单击“移动”按钮,使标签框从当前位置向右移动200,向下移动150。
单击“显示”按钮,显示被隐藏的标签框。
实验二
1.设计图2.1的界面,运行时用数字、小数点和符号按钮输入数据并显示在文本框中,单击函数按钮,在文本框中显示函数计算结果。
编写事件过程及代码实现“计算器”中各按钮的功能。
“←”按钮是删除文本框最右边的一个字符,其代码如下:
Text1=Left(Text1,Len(Text1)-1)
2.在文本框中输入一个三位数的整数,单击图形框,将这个数的百位、十位和个位分离成三个数,在图形框中显示输入的数、分离出来的三个数及三个数的平方和。
3.界面设计如图2.2所示,单击“计算”按钮,计算两个数的除法(取两位小数)、整除和求余。
单击“清除”按钮,清除所有文本框的内容,并使焦点回到Text1文本框。
单击“结束”按钮,结束程序运行。
4.编写程序,在图形框中输出指定范围内(范围由文本框输入)的3个随机整数和这三个随机整数和的平方根,平方根保留四位小数。
运行界面如图2.3所示。
图2.1实验1界面设计图2.2实验3界面设计图2.3实验4运行界面
5.在文本框中输入若干字符,对输入的字符随机放大2~4倍或缩小1~3倍,还原时字体大小恢复成初始状态(9磅),不能连续进行放大或缩小操作。
执行放大后,“放大”按钮呈暗淡色(不可操作),“缩小”、“还原”按钮有效。
同样执行了缩小操作后,“缩小”按钮不可操作,而“放大”、“还原”按钮有效。
运行界面如图2.4所示。
6.利用Shell函数调用相应的应用程序,单击“记事本”按钮图标,调用记事本应用程序;
单击“画图”按钮图标,调用画图应用程序;
单击“计算器”按钮图标,调用计算器应用程序。
界面设计如图2.5所示。
在Windows操作系统中,“记事本”、“画图”、“计算器”是系统应用程序,其文件名分别为(NotePad.exe、Mspaint.exe、Calc.exe),可用Shell函数直接调用。
图2.4实验5运行界面图2.5实验6界面设计
实验三
1.在窗体上使用Print方法显示图3.1所示的界面。
然后修改界面和代码,在图形框中用Print方法显示相同的内容。
字体逆时针旋转90度是在所设置的字体前加“@”符号,其语句为:
对象名.FontName=“@字体名”,如:
Pcture1.Fontname=“@隶书”
2.程序运行后单击“计算”按钮,弹出InputBox输入对话框函数,输入圆半径,在文本框中显示输入的半径,分别在三个标签框中显示圆面积、球表面积和球体体积。
计算圆面积、球表面积、球体体积的公式分别为:
pr2、4pr2、4/3pr3。
运行界面如图3.2所示。
3.界面设计如图3.3所示,在文本框Text1中输入实发工资,单击“付款方案”按钮,在其他文本框中输出应付工资各种面额的张数。
图3.1实验1运行界面图3.2实验2运行界面图3.3实验3界面设计
4.编写程序,求解鸡兔同笼问题。
一个笼子中有鸡X只,兔Y只,每只鸡有2只脚,每只兔有4只脚。
若鸡和兔的总头数为H,总脚数为F。
分别在两个文本框中输入总头数和总脚数,在标签框中输出笼中鸡和兔的数,界面设计如图3.4所示。
5.某职工每天的工资是P元,本月他工作了D天,本月应缴工会会费为月工资的0.5%、房租水电费为月工资的1.5%、扣除公积金为月工资的3.5%及医药费27.83元。
输入日工资和月工作天数计算出职工本月实得工资,在标签框中保留两位小数输出(保留小数可用Format格式函数)。
界面设计如图3.5所示。
6.界面设计如图3.6所示,在文本框中输入平面坐标系两点的坐标,单击计算在标签框中显示两点间的距离。
单击清除,清空输入文本框(Text1、Text2、Text3、Text4)和输出(Label6),并使焦点定位到Text1。
计算坐标两点间的距离公式为:
图3.4实验4运行界面图3.5实验5运行界面图3.6实验6界面设计
实验四
1.编一模拟袖珍计算器的完整程序,运行界面如图4.2所示。
(1)输入两个运算数和一个算术运算符,单击“计算”按钮,根据算术运算符决定所做的运算。
(2)为了保证程序的正常运行,用对文本框输入的内容进行检验(判断),若Text1、Text2输入非数字字符、除数为0或Text3输入无效运算符(有效运算符为“+、-、*、/”),用MsgBox显示“输入错误!
重新输入”,清除该文本框输入的内容,用SetFocus方法使焦点定位到该文本框后再输入。
图4.1实验1运行界面及出错信息
2.任意给定一年,判断该年是否是闰年,并根据给出的月份来判断是什么季节和该月有多少天。
闰年的条件是:
年号能被4整除但不能被100整除,或者能被400整除。
运行界面如图4.2所示。
3.设计一个应用程序,在文本框中显示文本内容,字体和字体大小的设置分别放在两个框架中。
实现字体和字体的大小设置。
运行界面如图4.3所示。
图4.2实验2运行界面图4.3实验3运行界面
4.界面设计如图4.4所示,左边5个文本框用于输入学生成绩,这些文本框都有一个LostFocus事件过程用来检查是否在区间[0,100]内。
如在此范围内,则可以继续输入其他的数据,否则清除原来的数据并重新输入。
底部的5个复选框用于选择参加合计的课程。
当用户输入了课程成绩,并选择了需要参加合计的课程后,单击“合计”按钮显示计算结果。
5.设计一个类似于Windows操作系统的滚动屏幕保护程序如图4.5所示。
要求用一个时钟控件和一个滚动条控件调节和控制其滚动速度,文字的大小及距窗体顶端的距离是随机的,从右向左连续滚动。
图4.4实验4界面设计图4.5实验5运行界面
实验五
1.用For循环和Do循环在文本框中每行输出一个10~10000之间被3除余2、被5除余3、被7除余2的数,在图形框中输出其和及个数。
界面设计如图5.1所示。
若要求文本框每行输出5个数,如何修改程序?
2.规范文章,对输入的任意大小写文章进行整理,规则是:
所有句子开头(句子结束符为.?
!
)为大写字母,其他都是小写字母。
运行界面如图5.2所示。
图5.1实验1界面设计图5.2实验2运行界面
设置一个变量,存放当前处理的字符的前一个字符,来判断前一个字符是否为句子结束符。
3.编程计算由下列公式确定的S值,其中n是用户输入的正整数,n可由InputBox函数或文本框输入。
(1)S=12+22+32+…+n2
(2)S=2/1+3/2+5/3+8/5+13/8+21/13+…
(3)S=1+(1×
2)+(1×
2×
3)+…+(1×
3×
…×
n)
(4)S=5+55+555+5555+55555+5555555+…
(5)S=1-1/2+1/3-1/4+…+1/99-1/100+…+1/n
4.用迭代方法求任意一个正数a的平方根。
用InputBox函数输入a,计算精度为10-5(即|Xn+1-Xn|≤10-5)。
求平方根的迭代公式为:
Xn+1=(Xn+a/Xn)/2
DoWhile的循环条件为Abs(Xn+1-Xn)>
10-5。
5.在窗体上显示如图5.3所示的“数字金字塔”。
6.设计一个窗体,界面如图5.4所示。
通过“添加”可从左边列表框控件List1中挑选喜欢的球类项目至右边的列表框List2,同时将List1中已选择的项目删除;
如果选错,还可以通过“删除”按钮将其放回左边的列表框;
通过“全部添加”可以一次选中所有的体育项目至右边,通过“全部删除”按钮可以将右边列表中所有选项删除并放回左边。
7.设计一个应用程序,实现“简单记事本”字号选择功能,要求使用组合框来实现选择、添加、删除字号,在右边文本框中应用相应字号;
单击“清空”按钮则清除组合框中的字号选项。
界面如图5.5所示。
文本框中的文字可在运行时输入;
文本框的MutilLine属性设置为True;
新项目可以在组合框中的文本框里输入,只需用AddItem方法把组合框的Text属性值加入列表中,即可实现“添加”功能。
图5.3实验5运行界面图5.4实验6运行界面图5.5实验7运行界面
实验六
1.产生100个20~100之间的随机整数,赋予A数组。
在图形框中每10个输出该数组,在标签框中输出数组元素中的最大值、最小值、平均值及大于平均值的元素个数。
2.编一程序,把下面两组数据分别读入A和B两个数组中,在窗体上输出这两个数组。
然后把两个数组中对应下标的元素相加,即2+79,8+27……把相加的结果放入C数组中,在窗体上输出该数组。
最后在窗体上按降序输出C数组。
运行界面如图6.1所示。
A数组:
2,8,7,6,4,28,70,25;
B数组:
79,27,32,41,57,66,78,80
用到Array、LBound(数组名)、UBound(数组名)函数。
3.数组M是一维动态数组,由随机数函数产生100~230的整数赋予数组中的各个元素,在图形框中输出排序后的数组;
在标签框中显示出该数组的中值。
运行界面如图6.2所示。
中值是先对数组元素排序,然后按下列规则求中值:
当数组元素个数是奇数,中值为M((N+1)/2);
当数组元素个数为偶数,中值为(M(N/2)+M((N/2+1))/2。
图6.1实验2运行界面图6.2实验3运行界面
4.打印杨辉三角形,用数组存储各行数字,数组的大小由输入的行数N确定。
程序运行界面如图6.3所示。
(杨辉三角形第j行有j个数字;
每行的第一个、最后一个数均为1;
其余数正好等于它上一行的同一列和前一列数之和。
即a(i,j)=a(i-1,j-1)+a(i-1,j)。
5.界面设计如图6.4所示,文本框用来输入5门课程的成绩,复选框供用户选择参加合计的课程。
输入成绩的文本框和复选框必须使用控件数组。
图6.3实验4运行界面图6.4实验5界面设计
6.声明一个6×
6的数组,用随机函数产生10~60的随机整数按列的方式对数组赋值。
完成下列要求:
(1)在图形框中输出该数组。
(2)求出其上三角元素和下三角元素(不包括对角线)的和。
(3)求出主对角线元素之积,辅对角线元素之和。
(4)求出靠边元素的和。
(5)取出不靠边元素生成一个新的方阵,在图形框中输出。
7.利用一维数组统计一个班(30)学生某门功课0~9、10~19、20~29、…、90~99及100各分数段的人数。
人数由文本框输入,分数由随机函数产生。
声明一个有11个元素的一维数组a(0to10),把0~9分的学生人数存入a(0)中,把10~19分的学生数存入a
(1)中……把100分学生人数存入a(10)中。
实验七
1.编写用下面的公式计算p的近似值的函数过程和子过程,在事件过程中调用函数过程和子过程,并输出当n等于1000、10000、100000时p的近似值。
p=4(1-1/3+1/5-1/7+…+(-1)n-1/(2n-1))
2.编写求解一元二次方程的子过程,要求a、b、c及解x1、x2需对数传递,输入a、b、c和输出x1、x2的操作在主程序中。
界面设计如图7.1所示。
一元二次方程ax2+bx+c=0的解通常有以下几种可能:
(1)当a=0时,不是二次方程,不进行处理。
(2)当b2-4ac=0时,方程有两个相等实根。
(3)当b2-4ac>
0时,方程有两个不等实根。
(4)当b2-4ac<
0时,方程有两个共轭复根。
3.编一函数过程,对输入的正整数N,判断该数是否是回文数。
函数的返回值类型为布尔型。
从文本框(Text1)中每输入一个数,按回车键后调用函数过程,然后在文本框(Text2)中显示输入的数,若是回文数在该数后加一个“※”,运行界面如图7.2所示。
(1)所谓回文数是指顺读与倒读相同的数,个位数认为是回文数(如,3553、878、44是回文数)。
(2)回文数的求法,输入的数按字符型数据处理,利用Mid函数从两边往中间比较,若相同,则是回文数。
也可将输入的数逆转与原数进行比较,相同是回文数,否则不是。
图7.1实验2界面设计图7.2实验3运行界面
4.分别用子过程和函数过程编程将一个十进制整数转换成2、8、16进制字符串。
运行界面如图7.3所示。
(1)一个十进制整数N转换成R进制的数的算法是:
将N不断除以R取余数,直到商为0为止,以反序得到结果,即最后得到的余数在最高位。
(2)反序可以用连接字符串的赋值形式得到。
若S为字符变量,M是每次除后得到的余数,则赋值语句可书写成S=M&
S。
图7.3实验4运行界面图7.4实验5运行界面
5.设计一个调色板应用程序,如图7.4所示。
使用3个滚动条作为3种基本颜色的输入工具,合成的颜色显示在右边的颜色区。
颜色区是一个文本框,用合成的颜色设置其BackColor属性。
当完成调色以后,单击“设置前景色”或“设置背景色”按钮设置右边文本框的颜色。
要求颜色变化用子过程实现。
6.设计一个如图7.5所示的应用程序,当通过滚动条改变本金(100~30000)、月份(1~12)或年利率(0~1)时,能立即计算出利息及利息+本金。
要求利息、利息+本金的计算用过程完成。
本息=本金×
(1+(年利率/100)×
(月份数/12))
7.把以前做过的实验汇总成一个工程,菜单运行界面参考图7.6。
运行工程后,当选择“实验一”菜单下的“实验1-3”选项时,则执行已编制的实验一的第3题的程序。
图7.5实验6运行界面图7.6实验7运行界面
实验八
1.在窗体上创建一个文本框和三个命令按钮。
要求程序运行时,单击命令按钮能弹出颜色对话框,对文本框进行前景色、背景色及字体设置。
界面设计如图8.1所示。
2.建立一个文本浏览器。
窗体上放置驱动器列表框、目录列表框、文件列表框和两个文本框。
运行界面如图8.2所示。
(1)文件列表框能过滤文本文件。
(2)当单击了文件列表框中的某文本文件后,在Text1中显示文件名(包括路径),在Text2中显示该文件内容。
(3)当双击某文本文件后,调用记事本对文本文件进行编辑。
(1)第
(2)步利用顺序文件的读入语句,将磁盘上的文件读入,并在文本框显示。
(2)第(3)步调用Shell函数执行记事本程序。
图8.1实验1界面设计图8.2实验2运行界面
3.设计如图8.3所示的应用程序。
单击“建立文件”按钮,则分别用Print#和Write#语句将四个同学的学号、姓名和成绩写入文件Stu1.dat和Stu2.dat;
单击“读取文件”按钮,则用LineInput语句将两个文件中的数据在相应的文本框中显示出来。
4.设计一应用程序,用于输入若干个学生的成绩,数据按随机访问模式存放,其界面如图8.4所示。
“记录号”和“总分”自动显示,各数据项的长度由读者自己确定。
图8.3实验3界面设计图8.4实验4界面设计
5.设计一应用程序,浏览第5题随机文件中的记录,程序运行界面如图8.5所示。
该窗体中的所有文本框只能显示内容,不能进行编辑。
6.把前两题汇总成一个工程,主界面设计如图8.6所示。
单击“输入记录”按钮时调用第5题输入记录窗体,单击“浏览记录”按钮调用第6题浏览记录窗体。
图8.5实验5界面设计图8.6实验6运行界面
实验九
1.建立一个Access数据库Studb.mdb,内含Student表,表结构如表所示。
表Student表结构
字段名
类型和宽度
学号
文本,8
姓名
性别
文本,2
出生日期
日期
团员否
是/否
年龄
数字,2
籍贯
文本,20
入学成绩
数字,5
奖学金
个人简历
备注
2.自行设计用户界面,用DATA数据控件访问数据库,在文本框中输入学号,对指定学号的学生记录查询显示。
3.用命令按钮控件数组、文本框、标签框、单选按钮和复选框构成界面,用ADO数据控件,在设计时设置或在程序代码中访问数据库。
遍历Student表中的记录,界面设计如图所示。
图9.1界面设计
4.自行设计用户界面,用DATA数据控件访问数据库的方法,对Student表的记录进行编辑(修改、删除、添加)。