寻一个会vb的好心人，，跪求，，急求，，会做（简单画面的模拟试验）
计算机软件技术基础（VB）课 程 设 计 任 务 书
本题难度级别：C 实现基本要求代码: 约100行 主要涉及: 基本控件的使用
一、设计题目：简单画笔的模拟实现（出题人：宋洁）
二、目的与要求
1.目的
培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件、通用对话框控件进行设计。
2.基本要求
程序运行时：
单击窗体左边的“开始画图”按钮，能够在画板区任意涂写。
按“停止画图”按钮取消画图功能。
用“画板清空”来清空画板区的内容。
单击“设置颜色”按钮设置画笔的颜色。
单击“设置宽度”按钮设置画笔的线条的宽度。
单击“退出”按钮，结束程序运行
3.创新要求
增加一些功能：比如规则和不规则的封闭图形，并将其填充颜色。
三、设计方法和基本原理
1．问题描述
单击“开始画图”按钮，能够在画板区按默认的颜色和线条宽度进行开始涂写，按“停止画图”按钮取消涂写。也可以单击“设置颜色”按钮，出现“颜色”对话框选取画笔的颜色，单击“设置宽度”按钮出现“设置宽度”的线对话框（图 1）设置条的宽度后再去涂写，按“停止画图”按钮取消涂写。
2. 问题的解决方案
①设计程序界面
参考上述给出的界面，添加命令控件、通用控件（CommonDialog）和Picture1控件，完成窗体界面的设计。
②编写代码
Private Sub Form_Load()事件中进行画笔颜色、画线宽度的初始化并将绘图标志初始化设为Flase.
Private Sub CmdStar_Click()事件中将绘图标志初始化设为Ture。
在画图板画图时注意使用Picture控件的MouseDown “鼠标按下”和MouseMove“鼠标移动”事件，完成画图操作。如：
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
‘参数Button返回一个整数，分别是1、2和4，对应表示按下鼠标左键、右键和中间键
If Button = 1 And DrawFlag = True Then‘若按下的是鼠标左键并此时允许画线
X0 = X ：Y0 = Y ‘得到起始坐标
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)事件中，使用Line方法实现画线功能。
在Private Sub CmdColor_Click()事件中用CommonDialog1.ShowColor方法显示“颜色”对话框来选取颜色。
在Private Sub CmdLineWidth_Click()中用InputBox函数输入画线宽度。
四、主要技术问题的描述：
通用控件（CommonDialog）参看课本第十章。
PictuieBox控件属性的使用可参看课本第十一章和MSDN中文版。
五、参考资料
★ Visual Basic 程序设计教程 及 Visual Basic 实验教程
★ VB6.0程序员指南
★ VB6.0控件参考手册
★ VB参考资料中的“文本编辑器.ZIP”
★ MSDN中文版，课程设计网站上提供的其它资料。
六、设计部分的评分标准（本题难度为C级，综合时乘难度系数0.8）
完成基本要求 60-80
创新要求完成，并有自己独创性 100
[注：最后得分是根据本部分得分(占最大比例）以及课程设计期间纪律、设计报告书、答辩情况综合得出]
--------------------编程问答-------------------- 没有RMB，这个怕是没有人会帮你吧
--------------------编程问答-------------------- 掏软妹币
上猪八戒 --------------------编程问答--------------------
写的挺全哦，出题人都在上面
--------------------编程问答--------------------
..... --------------------编程问答--------------------
+1 --------------------编程问答-------------------- 所以说现在的学生那些毕业证都没什么看头就是这样，水份太重。
还好我招人的时候不去关心毕业证，而是通过沟通、看源码风格、布置考核任务来判定，呵呵。
这种水鱼肯定游不进去。
补充：VB , 基础类
