|
|
 【本人姓名】实验7绘制图形程序.zip
售价：5 金币
下载：0 次
简介：[下载后请重命名添加本人姓名]]
登录后购买 在线购买支付后即可下载资料
【上面答案加微信：（1144766066）案为下列试题答案加微信：（1144766066）案，请核对试题后再购买下载】
请同学选择课程【第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)”按钮，分别绘制出正弦、余弦曲线。
<div class=divbr> |
上一篇：国开学习网电大VisualBasic程序设计形考任务三答案加微信：（1144766066）案下一篇：国开学习网电大VisualBasic程序设计形考任务五答案加微信：（1144766066）案
|
[复制链接]
发表于 2020-12-6 23:30:19
中发现Ni：
中发现Ni：
中发现Ni：
中发现Ni：
中发现Ni：
中发现Ni：
发表于 2022-3-13 13:50:48
QQ登录
