VB初学者实例例文档格式.docx

1、再选择Pictrue1的Autosize属性，设为1-True，则会发现Picture1以变成和图像一样大了；把BorderStyle定为0-None，去掉图片边框。用同样的方法再添加两个图片框：Picture2（Picture：face02.ico），Picture3（Picture：face03.ico）。图片框完成了，第二步，建立三个无线钮（Option Button），由于它象收音机的无线电按钮而得名），把它们的标签名属性（Caption）分别定为“悲哀”，“高兴”，“没治了”，放置成下图的样子。最后我们还需要三个文本框（Text Box），分别把它们的Text属性设为”（空字符串），

2、程序的最后界面如图1_3，这样按下菜单窗口的运行按钮，运行一下程序，还可以吧，不过现在程序还无法工作，就算是VB也不能免俗，还必须输入代码才能使程序运作。VB是一门典型的面向对象编程的语言，它的整个程序都是由事件驱动的。那么，什么是事件呢？其实，我们的生活中充满了各式各样的事件，比如说“闯红灯”这个事件的发生会导致被警察追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽，但它可以清楚的解释事件的含义，就象你马上就能体会到的在什么地方单击鼠标时会发生什么，按下键盘时会发生什么，这就是事件，而事件就是这么容易。要进入VB的代码设计区，只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如图1_4，

3、每一个VB程序都由若干小程序组成，这使得用VB编程更加容易，这些小程序，分为“过程”（Procedure）和“函数”（Function），二者都可以传递参数，所不同的是函数有一个返回值，而过程没有，仅此而已。双击窗体的任何一个部分，将出现一个空的过程：“Form_Load（）”，这是一个非常重要的过程，它所驱动的事件就是该窗体被加载的事件，打个比方，就象计算机启动时的批处理程序（Autoexec.bat）。 这个程序里我们要对控件进行一些设置。我们刚才也曾对控件进行设置，但那是在程序设置中进行的，有时我们也需要在程序中改变某些控件的属性，通过程序代码。VB中规定，一个控件属性的访问方法：名称.

4、属性，于是我们对本程序的控件进行如下设置：Private Sub Form_Load（）Picture1.Visible = FalsePicture2.Visible = FalsePicture3.Visible = FalseText1.Visible = FalseText2.Visible = FalseText3.Visible = FalseEnd SubPrivate表示此过程是局部的，Sub表示子过程的开始，与之相对的是End Sub表示过程的结束，Visible属性表示控件的可见性，这个属性的值有两个True和False。注意：VB里对大小写是不加区分的，而且，已定义的名称

5、，以后再用到时，系统会自动把它变成相应的大写或小写。小知识：1.VB里的对变量及常量的规矩。变量一般为Abc的格式，常量为ABC，另外这些变量和常量名不得同VB内的关键字相同，也不可以使用一些特殊符号，这些我们将在以后介绍，注意在学习中养成好习惯，使程序便于自己和别人的浏览。2.程序书写的窍门：不要真的一句一句把程序打完，利用快捷键：拷贝Ctrl+C，剪切Ctrl+T，粘贴Ctrl+P。按下F5，运行一下程序，现在发现只剩下无线钮了。如图。Option4.Left = -2000Option4.Value = TrueLeft属性表示控件离窗体左边框的距离，设置为2000，则在窗体内不会看到这

6、个控件，并使之Value=True。再运行程序，一切如愿，如图.为什么不用Option4.Visible=False？因为，一旦设置无线钮为不可见，那么再使它的Value为真是没有意义的，不信自己试试。下面我们可以继续进行了。在刚才的代码窗口里，将Object选择为Option1，Proc选择为Click，即得到一个Option1_Click的过程。代码如下：Private Sub Option1_Click（）Picture1.Visible = TrueText1.Visible = TrueText1.Text = 再见，残酷的世界。相同的建立Option2_Click和Option2_

7、Click：Private Sub Option2_Click（）Picture2.Visible = TrueText2.Visible = TrueText2.Text = 今天心情不错。Private Sub Option3_Click（）Picture3.Visible = TrueText3.Visible = TrueText3.Text = Hello,World。好，我们的开山之作完成了！按下F5，玩一下吧。这个程序虽然简单，但也用到了许多基本知识，你开始感兴趣了吗？_1.打印三角形Private Sub Form_Click（） For i = 1 To 4 Print Sp

8、ace（4 - i）; For j = 1 To i Print * ; Next j Print Next i2.题目： （事件）单击窗体。（响应）我国现有人口为 13 亿， 设年增长率为 1%， 计算多少年后增加到 20 亿。 并将结果输出在窗体上。 将结果存入变量 year 中。使用 do while .loop 语句完成程序。 Dim year As Integer, sum As Single Dim p as double Dim r as single P=1300000000 r=0.01 Do while p 3000 Then Exit ForEnd IfNext iPri

9、nt sum4 .题目（事件） 点击窗体 （响应） 求 1！ +2！ +3！ +10!的值， 并在窗体上输出， 结果存入变量 L 中 Private Sub form_click（）Dim l As LongDim p As Longp = 1For i = 1 To 10p = p * il = l + pNextPrint lEnd Sub 5. 题目点击窗体 求 100 以内偶数的和， 并将结果输出在窗体上， 将结果存入变量 sum 中Private sub form _click（） Dim sum as integer for i=0 to 100 IF i mod 2=0 then Sum=sum+i end if Next Print sum End sub 6.题目：单击窗体 求 1+2+3+4+5+100 的值并将结果输入在窗体上，结果存入变量 sum 中 Private sub form click（ ） Dim sum as integ