编写第1个程序课件

第二章：

编写第1个程序第二章：

编写第1个程序本章学习目标创建新程序的用户界面为用户界面中的各个对象设置属性编写程序代码保存和运行程序建立可执行文件本章学习目标2.1第一个VB程序：LuckySeven2.1第一个VB程序：LuckySeven2.2编程步骤VB中基本的编程步骤创建用户界面设置属性编写程序代码本程序需要创建7个对象设置13个属性编写2个对象的代码2.2编程步骤VB中基本的编程步骤本程序需要2.3创建用户界面创建新项目：启动Visualstudio2005[文件]菜单下，选择[新建项目]。在[项目类型]中，选择[VisualBasic]下的[windows]在[模板]选项中，选择[Windows应用程序]。在[名称]中，输入MyLucky7单击[确定]，创建新项目。2.3创建用户界面创建新项目：第二章：编写第1个程序课件创建用户界面调整窗体大小，可用鼠标调整大小，或在属性中调整大小，为485像素*278像素。创建用户界面单击[工具箱]标签，或从[视图]菜单下选择[工具箱]，显示工具箱双击Button控件。 （设计模式时，可以改变界面元素，程序运行时无法移动界面元素，除非在程序中修改属性）单击[工具箱]标签，或从[视图]菜单下选择[工具箱]，显示工添加第2个按钮 单击[Button]控件，把鼠标移动到窗体上，拖动释放后，生成新按钮。调整大小，使其基本与第1个按钮一样，并对齐。添加第2个按钮添加数字标签双击[Label]控件调整位置，并拖到两个按钮对象右边同样方法创建label2,label3,label4控件，并按图所示放置。添加数字标签添加图片单击[PictureBox]控件，拖拉出一个大的矩形框，在标签下留一定空间，用于显示数字。添加图片2.4设置属性设置按钮属性选中Button1按钮在属性窗口中，找到[Text]属性，双击将Button1改为Spin,回车（enter键）2.4设置属性设置按钮属性打开属性窗口顶部的[对象]下拉框，单击如图所示的Button2…将其Text属性改为End,回车打开属性窗口顶部的[对象]下拉框，设置数字标签属性单击label1,按住[shift]键，再单击label2,label3,释放[shift]键。将[AutoSize]属性改为False将[TextAlign]属性改为MiddleCenter,就是图形中中间部分。将[BorderStyle]属性改为FixedSingle将[Font]属性改为TimesNewRoman,字形为[粗体]，字号为24磅，并单击[确定]。单击窗体空白区域，取消对3个标签的选择，再单击Label1标签。将[Text]属性改为0，同样将label2,label3的Text属性改为0.根据需要调整大小及位置设置数字标签属性第二章：编写第1个程序课件设置说明标签的属性单击Label4对象将[Text]属性改为LuckySeven单击[Font]属性，将字体改为Arial,字形[粗体]，字号18，单击[确定]按钮单击[foreColor]属性，改为自定义选项卡上的紫色设置说明标签的属性图片框属性SizeMode属性：如何匹配图像的大小Image属性：用于装载到图片框中的图形文件名称Visible属性：图片的可视状态。图片框属性设置图片框属性单击图片框对象选择[SizeMode]属性，改为StrechImage.表示会对加载进来的图片大小进行调整，以和图片框的尺寸相符。选择[Image]属性，单击省略号按钮，出现[选择资源]对话框在对话框中选择[本地资源]，单击[导入]按钮，找到C:\vb05sbs\chap02文件夹，选择PayCoins.jpg,单击[打开]按钮。单击[确定]按钮调整图片框对象的大小以避免图片变形。可调整为148像素*138像素。设置图片框属性把[visible]属性改为false.使程序开始运行时看不到图像。把[visible]属性改为false.使程序开始运行时看不第二章：编写第1个程序课件2.5编写代码写代码重要的是你的计算逻辑。将你的想法以程序代码的形式表现出来。将用户界面上的要素与程序代码联系在一起，实现各个功能。2.5编写代码写代码重要的是你的计算逻辑。将你的想法以程序使用代码编辑器双击窗体上的End按钮。 一起用于实现某个动作的程序语句一般被组合到一个编程结构中，这个结构被称为过程，常用的过程类型是Sub过程，以sub关键字开始，以EndSub结束。 当特定事件发生时，一般会执行过程，当过程与一个特定对象和事件联系起来时，过程又被称为事件处理程序或事件过程。

输入End,回车(VB中End命令退出程序）使用代码编辑器为Spin按钮编写代码单击[解决方案资源管理器]中的[查看设计器]，再次显示窗体。双击Spin按钮在Privatesub和EndSub之间输入以下的代码。

PictureBox1.Visible=False'隐藏图片

Label1.Text=CStr(Int(Rnd()*10))'选择数字

Label2.Text=CStr(Int(Rnd()*10))Label3.Text=CStr(Int(Rnd()*10))'如果任一个数字为则显示图片并发出响声

If(Label1.Text="7")Or(Label2.Text="7")_Or(Label3.Text="7")ThenPictureBox1.Visible=TrueBeep()EndIf为Spin按钮编写代码PictureBox1单击[文件]菜单下的[全部保存]命令，将添加的代码保存到程序中。选择合适的保存位置。单击[文件]菜单下的[全部保存]命令，将添加的代码保存到程序Button1_click过程解释这句由两部分组成，一条程序语句和一条注释。Picturebox1.Visible=False,把图片框对象的Visible属性改为false.（利用这句代码思考面向对象程序中对象、属性这两个概念）VB中用单引号进行注释，注释在程序员中有着重要的作用，可以增强程序的可读性。

PictureBox1.Visible=False'隐藏图片Button1_click过程解释PictuRnd():产生0到1之间的随机数Int():将数值四舍五入得到整数CStr:将数值转换为字符串的函数

Label1.Text=CStr(Int(Rnd()*10))'选择数字

Label2.Text=CStr(Int(Rnd()*10))Label3.Text=CStr(Int(Rnd()*10))Label1.Text=CStr(Int判断是否有某个label的数值等于7，有则宣布获胜，将图形显示出来。并响铃获胜。Beep()：响铃'如果任一个数字为则显示图片并发出响声

If(Label1.Text="7")Or(Label2.Text="7")_Or(Label3.Text="7")ThenPictureBox1.Visible=TrueBeep()EndIf判断是否有某个label的数值等于7，有则宣布获胜，将图形显2.6运行VB应用程序单击[启动调试]按钮，或单击[调试]菜单下的[启动调试]命令，或按F5键，运行程序，看结果是否正确。2.6运行VB应用程序单击[启动调试]按钮，或单击[调试]2.7创建可执行文件Visualstudio创建的windows应用程序具有.exe的扩展名，可在常用的系统上运行。Visualstudio为项目创建两种类型的可执行文件，调试版本和发布版本调试版本，在用户创建或测试程序时，会自动创建，放在项目文件夹下的bin\debug中，运行速度较慢发布版本，