VB程序设计-画圆逐步讲解

第一章 VB程序设计初步1．1 Visual Basic的发展Visual Basic（以下简称VB）是Microsoft公司于1991年推出Windows应用程序开发工具。

Visual一词具有“可视化的”、“形象化的”的含义，在语言功能方面，VB与早期的Basic语言基本兼容，但由于VB具有良好的图形用户界面（Graphic User interface，即GUI），因此有人称它为可视化的Basic语言。

和Basic语言相比，VB提供的一系列可视化设计工具，大大简化了应用程序界面的设计工作，不仅易学易用，同时其编程系统采用了面向对象、事件驱动机制，非专业人员也可以使用该语言工具方便地完成基于Windows的应用程序开发，因而一经推出，便获得了巨大成功。

从1991年至1997年，微软相继推出了VB1.0，VB2.0,VB3.0，VB4.0及VB5.0版，1998年发布的Microsoft Visual Studio 98中包含了VB6.0，2000年又推出了。

VB 5.0以前的版本主要用于16位应用程序开发，VB6.0则专为32位操作系统设计。

本书主要介绍VB6.0。

VB6.0包括三种版本，分别为学习版、专业版和企业版。

三种版本适于不同层次的用户。

（１）学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。

适合初学者用来学习开发Windows应用程序。

（２）专业版为专业编程者提供了一整套功能完备的开发工具，包括了学习版中的全部功能，同时加入了ActiveX 控件、Internet控件和报表控件等。

（３）企业版该版本包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、Microsoft Visual Source Safe面向工程版的控制系统等。

如无特别说明，本书中内容均基于VB６.０企业版作介绍，所有程序在VB６.０企业版下运行通过，大多数程序可以在专业版和学习版中运行。

使用V B设计一个简单的小程序计算圆的
面积
使用VB设计一个简单的小程序——计算圆的面积
1、窗体设计
计算圆的面积的应用程序窗体上的控件
类（控件）对象用途
TextBox
Text1 供用户输入圆的半径
Text2 供应用程序输出圆的面积
Label
Label1 用来向用户说明文本框Text1的用途
Label2 用来向用户说明文本框Text1的用途CommandButton Command1
用户通过该按钮通知应用程序：数据输入完
毕，开始计算
各对象的属性值
类（控件）对象属性设置的属性值
TextBox
Text1
Text 空串
BackColor 黄色
Text2
Text 空串
BackColor 天蓝色
Label
Label1 Caption 输入圆的半径
Label2 Caption 圆的面积CommandButton Command1 Caption 计算
2、代码设计
Private Sub Command1_Click()
r = Val(Text1.Text)
Text2.Text = Str(3.1416 * r * r)
End Sub
3、问题
应用程序如果改为“计算扇形面积”的话，该应用程序的窗体和代码应做如何修改？。

VB图形和绘图操作VB图形和绘图操作一、坐标：X值:是沿X轴的位置,窗体中最左端是缺省位置0Y值:是沿Y轴的位置,窗体中最上端是缺省位置0X,Y的值可以小于0,也可以大于容器宽度或高度二、坐标值的刻度：缺省使用缇(Twip)为测量单位. 「Twip」中文译为"缇"，是一种和屏幕无关的长度单位，目的是为了让应用程序元素输出到不同设备时都能保持一致的计算方式。

打印机的一个点，即我们说的“磅”，相当于20个 Twips，一英吋相当于 1440个Twips, 一公分（厘米）则相当于567 Twips ，也就是说，如果屏幕上某个对象的长度是1440 Twip的话，将会印出一英吋来。

由于我们在屏幕上操作时会习惯用「像素」(也就是我们常说的屏幕分辨率DPI，系统可以设置各种DPI值)，所以我们直接输入数字时必须再将「像素」换算成「Twip」。

当DPI设置为96时(系统默认值)，1个像素=(1/96)*1440=15 Twip；当DPI设置为120时，1个像素=(1/120)*1440=12 Twip。

当DPI为96时，如果希望窗体的高是「400」像素，宽是「300」像素，属性的设定值就是：Height=400×15=6000 Twip，Width =300×15=4500 Twip.在VisualBasic应用程序中，屏幕（Screen）是一个对象。

其Width和Height属性以Twip为单位反映出屏幕的宽度和高度。

而TwipsPerPixelX和TwipsPerPixelY这两个属性只与硬件有关，而与屏幕上可设定的分辨率无关。

将Width除以TwipsPerPixelX可以计算出屏幕的水平分辨率（像素数），同样将Height除以TwipsPerPixelY 也可以计算出屏幕的垂直分辨率。

要想保持一个窗口或是控件的物理大小不变，只要计算出设计时的分辨率与实际运行时的分辨率的比值，然后根据这个比值来调节窗口和其中的控件的大小和相对位置，以及显示的字体尺寸，就可以保持同一应用程序的窗口在不同的系统下的物理外观（当然在不同尺寸的显示器上只能保持比例不变，物理大小还是不同的）。

VB 绘图要求：在VB窗口中，添加一个Picture控件，在该控件中任意点击，拖拽画图画直线Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (a, b)-(x, y)End IfEnd Sub画矩形Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (a, b)-(a, y)Picture1.Line (a, b)-(x, b)Picture1.Line (x, b)-(x, y)Picture1.Line (a, y)-(x, y)End IfEnd Sub画圆Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Circle (a, b), Sqr((x - a) ^ 2 + (y - b) ^ 2)End IfEnd Sub自由绘图Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.PSet (x, y)End IfEnd Sub实例：设计一个窗口，效果如下图，要求设置四个单选框，分别为画直线、画圆、画矩形、自由绘图，选中任意一项，便可在左侧的picture控件中任意地方拖拽出相应的图形。

画同心圆——循环结构及for-next语句的使用学府中学吴晶【教材分析】在教材第二章第1节中用了一个画同心圆的程序让学生对编程有了初步的体验，并为本节课对程序语言的进一步阐述做了一个铺垫。

本节课对画同心圆从功能需求、确定程序流程到最后写程序并调试运行进行了详细地介绍。

从中使学生对循环语句有了一个了解，学会使用for-next语句，并通过用两种方法画圆让学生学会灵活地使用VB，在实践中可根据需要选择静态或动态方法完成设计任务。

【学情分析】学生通过前面体验编程一节已经熟悉了画同心圆程序，但对循环结构及语句特点的理解还有待进一步深入，有了前面的基础学生在认识上比较容易了。

【教学目标】知识目标：1．了解循环结构特点，通过for-next语句理解循环语句的基本格式2．进一步理解程序设计的基本思路，观察语句运行，加深对循环语句执行过程的理解。

3．通过与静态方法对比，体验程序设计的特点。

能力目标：1．能熟练地用shape控件画出圆2．学会for-next语句的使用，写出画同心圆代码，并调试运行情感目标：1．感悟计算机实现连续执行重复操作解决问题的思想。

2．能灵活运用程序设计语句，能帮助自己解决更多的问题。

【教学重点】理解循环结构并学会使用“for-next”循环语句【教学难点】循环语句连续执行重复操作解决问题的过程【课前准备】发送已做好的画同心圆exe文件和代码文本到学生机上，供其参考和选用【教学过程】【教学反思】循环语句对初学VB者来说是一个全新概念，在整个教学过程中我特别注重学生的参与，从问题的引出，到问题的解决都强调学生的主动参与，力求是学生学出来的，而不是老师强加给学生的，这样对激发学生学习VB的积极性起到了很好的推动作用，也使本节课取得了较好的效果，有90%的同学全部运行调试完成。

本节课不足的地方，因时间的问题，例子太单一，以后可多提供一些例题，提出问题，让学生自己去尝试，学会灵活使用循环语句，以达到学有所用的目的。

《VB语言画圆程序设计》教学设计一、教学对象分析学生通过前几节的学习以及实践，对VB程序设计的要素有了一定的了解，但对程序的编写、调试及修改还缺乏分析和体会。

初中二年级的学生，对电脑的常规操作已基本能掌握，但对VB编程环境不熟悉，对程序编写的语法规则及编程习惯比较模糊，对程序上机调试操作的能力及异常情况的处理能力有限，没有进行系统的归纳和梳理，处于被动学习的状态。

二、教学内容分析1、本节课的主要内容及作用本节课学习内容是学生学习了简单程序设计及顺序结构的基础上，根据学生的上述情况及知识结构进行了教学内容上的重组和拓展。

本节课主要让学生进一步学习Circle画圆语句的格式、功能及参数的设置,在老师引导下通过调整圆心位置、半径及色彩控制，画出由多个彩色的圆构成的创意图案或标志，实现“小程序，大功能”的构思，同时引导学生体会和理解程序中顺序结构的涵义。

本节课能体现VB的强大功能和编程乐趣，唤起学生进一步学习VB的兴趣，为学生以后的学习打下基础。

2、教学重点、难点重点：画圆语句的功能、格式及参数设置。

难点：画圆语句参数的设置、圆心位置的控制及程序编写习惯。

3、课时安排：1课时三．教学目标1、知识与技能（1）让学生通过模仿与上机实践进一步了解画圆语句的功能、语句格式及参数的设置。

（2）进一步熟悉VB编程环境，了解顺序结构程序的特点和编程构思。

2、过程与方法（1）通过实践与体验，让学生领悟画圆语句参数在程序设计当中的妙用，进而引导学生运用程序设计解决实际问题的能力。

（2）通过程序运行和调试，让学生在实践中学习和体会，以提高主动探索学习的意识和能力。

3、情感态度与价值观（1）体验画圆语句的妙用，激发学生学习程序设计的兴趣及求知欲，逐步形成积极主动的学习态度。

（2）培养学生发现问题、思考问题、解决问题的思想方法。

（3）培养学生创新、探索精神，养成严谨的思维方法和编程理念。

（4）引导和培养学生运用信息技术解决实际问题的意识和能力。

VB中画园代码最佳答案第一个程序：画一百个同心圆第一步：复制下面的红色代码第二步：在模型空间按快捷键Alt+F8，出现宏窗口第三步：在宏名称中填写C100，点“创建”、“确定”第四步：在Sub c100()和End Sub之间粘贴代码第五步：回到模型空间，再次按Alt+F8，点击“运行”Sub c100()Dim cc(0 To 2) As Double '声明坐标变量cc(0) = 1000 '定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 '开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆Next iEnd Sub也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。

第二课编程基础本课主要任务是对上一课的例程进行详细分析下面是源码：Sub c100()Dim cc(0 To 2) As Double '声明坐标变量cc(0) = 1000 '定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 '开始循环Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆Next iEnd Sub先看第一行和最后一行：Sub C100()……End SubC100是宏的名称，也叫过程名称，当用户执行C100时程序将运行sub 和end sub之间的所有指令。

第二行：Dim cc(0 To 2) As Double '声明坐标变量后半段“'声明坐标变量”自动变为绿色字体，它是代码语句的注释，它不会影响程序运行，它的作用是告诉阅读者程序员的想法。

对于简单的程序，一般不需要写注释，如果要编写非常复杂的程序，最好要多加注释，越详细越好，对于程序员来说，这是一个好习惯。