国开学习网电大VisualBasic程序设计形考任务四答案.docx

国开学习网电大VisualBasic程序设计形考任务四答案 答案已嵌入本文，双击即可打开，下载后请重命名添加本人姓名上传即可。 请同学选择课程【第6章】-【实战演练】“实验6 word文件显示程序”或【第7章】-【实战演练】“实验7 绘制图形程序”或【第8章】-【实战演练】“实验8 网络下载程序”的其中之一，在VB集成开发环境中认真完成实验。 实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。 本次实验满分15分，提交后需要辅导教师批阅打分。 实验目的 1掌握建立图形坐标系的方法。 2掌握VB图形控件和图形方法以及常见几何图形的绘制方法。 实验内容 我们上网浏览一些精彩的网页时，会经常看到一串五颜六色的字符或漂亮的图片尾随着鼠标不断移动。在VB程序中要实现这一功能非常容易，只需要一个MouseMove事件就可以了，本实验就是要学习这种编程技巧。 实验步骤 1实验步骤 新建标准EXE工程，将默认窗体Form1的Caption属性改为“绘制三角函数图形”，在窗体上添加3个命令按钮Command1、Command2和Command3，将其Caption属性分别改为“建立坐标系”“y=Sin(x)”和“y=Cos(x)”，并按图7.18调整好位置。 2编写代码 双击窗体上的“建立坐标系”按钮，进入代码编辑器窗口，在代码编辑区的Command1_Click()中添加代码： 绘制坐标轴和坐标刻度 Private Sub Command1_Click() Cls Form1.Scale (-8, 2)-(8, -2) ??? ?用Scale方法定义坐标系 Line (-7.5, 0)-(7.5, 0) ???? 用Line方法画X轴 Line (0, 1.7)-(0, -1.7) ??? ?画Line方法画Y轴 CurrentX = 7.6: CurrentY = 0.1: Print X ?? ??标识X轴 CurrentY = 0.5: CurrentY = 1.8: Print Y ??? ?标识X轴 For i = -7 To 7 Line (i, 0)-(i, 0.1) ??? ?在X轴上标记坐标刻度 CurrentX = i - 0.2: CurrentY = -0.1: Print I???? 在X轴上输出数字标识 Next i For i = -1 To 1 If i 0 Then CurrentX = -0.7: CurrentY = i + 0.1: Print I???? 在Y轴上输出数字标识 Line (0.5, i)-(0, i) ???? 在Y轴上标记坐标刻度 End If Next i End Sub 绘制正弦曲线 Private Sub Command2_Click() CurrentX = -6.283: CurrentY = 0 ???? 曲线的起点坐标 For i = -6.283 To 6.283 Step 0.01 x = i: y = Sin(i) Line -(x, y) ???? 用Line方法绘制正弦曲线 Next i CurrentX = 2.5: CurrentY = 1: Print y=Sin(x)??? ?输出y=Sin(x) End Sub Private Sub Command3_Click() ??? ?绘制余弦曲线 DrawWidth = 2 ???? 设置线宽 CurrentX = -6.283: CurrentY = 1 For i = -6.283 To 6.283 Step 0.01 x = i: y = Cos(i) Line -(x, y) ??? ?绘制余弦曲线 Next i CurrentX = -7: CurrentY = 1.2: Print y=Cos(x)??? ?输出y=Cos(x) End Sub 运行程序，并单击“建立坐标系”按钮，即绘制出坐标系，然后单击“y=Sin(x)”“y=Cos(x)”按钮，分别绘制出正弦、余弦曲线。