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

【答案联系我们QQ:3326650399 微信:cs80188】
请同学挑选课程【第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()ClsForm1.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 7Line (i, 0)-(i, 0.1) ??? ?\'在X轴上符号坐标刻度CurrentX = i - 0.2: CurrentY = -0.1: Print I???? \'在X轴上输出数字标识Next iFor i = -1 To 1If i <> 0 ThenCurrentX = -0.7: CurrentY = i + 0.1: Print I???? \'在Y轴上输出数字标识Line (0.5, i)-(0, i) ???? \'在Y轴上符号坐标刻度End IfNext iEnd Sub\' 制作正弦曲线Private Sub Command2_Click()CurrentX = -6.283: CurrentY = 0 ???? \'曲线的起点坐标For i = -6.283 To 6.283 Step 0.01x = i: y = Sin(i)Line -(x, y) ???? \'用Line方法制作正弦曲线Next iCurrentX = 2.5: CurrentY = 1: Print "y=Sin(x)"??? ?\'输出y=Sin(x)End SubPrivate Sub Command3_Click() ??? ?\'制作余弦曲线DrawWidth = 2 ???? \'设置线宽CurrentX = -6.283: CurrentY = 1For i = -6.283 To 6.283 Step 0.01x = i: y = Cos(i)Line -(x, y) ??? ?\'制作余弦曲线Next iCurrentX = -7: CurrentY = 1.2: Print "y=Cos(x)"??? ?\'输出y=Cos(x)End Sub运转程序，并单击“树立坐标系”按钮，即制作出坐标系，然后单击“y=Sin(x)”“y=Cos(x)”按钮，别离制作出正弦、余弦曲线。