发布时间 : 星期日 文章VB实训指导书更新完毕开始阅读bb175a32b90d6c85ec3ac60c
Visual Basic实用程序设计教程
数据按随机访问模式存放。
【提示】
图9-3 实验9-3程序运行界面
4 建立一个简易学生管理系统，如图9-4所示，用于输入、显示和修改学生的相关信息。
随机文件的记录利用Type定义，字符串类型必须制定长度。
图9-4 实验9-4程序运行界面
318
实验十 图形图像程序设计
(综合型 4学时)
一、实验目的
1．了解VB的图形功能。 2．掌握几个重要的图形方法。 3．掌握建立图形坐标系的方法。 4．熟悉简单动画设计的方法。
二、实验内容
1 用Pset方法在窗体上画出2000个随机点，点的颜色随机，点的大小也随机在1～4之间。
【提示】
随机点坐标值应该与窗体大小相关。
2 如图10-1所示，对图形框（PictureBox）1中的彩色图片进行关于Y轴的镜像处理并显示到图片框2中。
【提示】
首先保证两个图片框大小一致，然后用Point方法获取图形框1中的彩色图片的一点颜色值，并按照镜像方式用Pset方法填充到图片框2中去。为了使程序运行速度不至于太慢（因为循环次数过大），可以将两个图片框的ScaleMode设置为Pixel方式，这时，图片框的像素宽度和高度为ScaleWidth和ScaleHeight。
3 如图10-2所示，在窗体中建立一个坐
图10-1 实验10-2程序运行界面
标系。要求x轴向右为正，y轴向上为正，原点在窗体中央。当单击窗体时，用Line()方法画出坐标轴和刻度线，再设置CurrentX和CurrentY属性，用Print方法在相应的位置标注
图10-2 实验10-3程序运行界面
Visual Basic实用程序设计教程
x轴和y轴的坐标刻度，最后在该坐标系下画出y=Cos（x）在[-2π，2π]区间的曲线图。
【提示】
（1）可采用Scale方法定义坐标系。
（2）使用循环画出刻度线和标注刻度值。例如，x轴上的某刻度线（用I来代表）可用Line（）从点（I，0）画到（I，yk）画出，其中yk为常数，大小代表该刻度线的长度。
（3）运行时如果窗体内容过于拥挤，可以先最大化窗体，然后再单击窗体。 4 如图10-3所示，填充矩形区域。填充图案可由组合框选取。
图10-3 实验10-4程序运行界面
5 用Circle方法绘制如图10-4所示的艺术图形。其中，X轴0点在圆半径r→0处，各圆的半径取x/2。
【提示】
320
图10-4 实验10-5程序运行界面
用循环完成。循环中只需改变圆心坐标x和半径r即可。圆心坐标y可取窗体高度的1/2。 6 用帧动画原理实现一个箭头转动的动画过程。 【提示】
首先放置一个图片框、图像列表框（ImageList）和一计时器控件，ImageList控件预先按照一定的顺序装载4个顺序关联的图标，然后在计时器控件的Timer事件中用
Image1.Picture = ImageList1.ListImages(i).Picture切换第I个顺序的图标。4个顺序关联的图标可在“?Graphics\\Icons\\Arrows”目录中找到。