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

Open

【本人姓名】实验7绘制图形程序.zip

下载:209 次
简介:[下载后请重命名添加本人姓名]]
【上面答案为下列试题答案,请核对试题后再购买下载】
请同学选择课程【第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)”按钮,分别绘制出正弦、余弦曲线。

回复

使用道具 举报