VB初学者实例50例

第四代计算机语言 VB的特点是显而易见的 因为是 可视的 所以我们不妨先 看看VB的界面 我用的是VB4 0 32位版 很容易可以看到 屏幕上有五个窗口 1 是菜单栏 2 是工具箱 Tools Box 里面是VB所需的控件 3 是VB程序要设计的窗体 Form 4 控 件及窗体的属性 Properties 在VB中每一个控件都有其自己的属性 比如文本 框有Text属性 而任何一个控件都有一个自己唯一的名字 这使得我们无需编程就 可以完成部分编程的工作 5 是VB的文件控制窗口 VB的每一个程序称为一 个项目 Project 一个项目文件里往往包括以下两种文件 窗体 Form 文件和 模块 Bas 文件 当然还有Class文件 这些文件组成一个完整的程序 而项目文 件 Vbp 则用来描述程序所包含的内容 实际上 我一直认为学习的最好方法就是实际操作一下 好 下面我们就来看一个 最简单的程序 和所有的编程教科书一样 我们把第一个程序称为 Hello world 首先 我们先来熟悉一下窗体 如果你用过Win95附件所带的画图板的话 那么你 一定会很快熟悉VB的窗体设计方法 用鼠标单击一下工具箱中的任何一个控件 然后在窗体上任意拖动鼠标 你就会得到一个所需的控件 当然还有其他的方法得 到控件 你可以在工具箱上双击得到一个控件 或是按住Ctrl键 再单击所需控件 重复第一次的步骤 你会发现 不用再回去点击工具箱了 点右键可以恢复鼠标 指针 这样对于重复画同一个控件尤其有用 对于我们的第一个小程序 知道这些就已经足够了 现在你可以在我们的窗体上画 如下控件一个图片框 Picture Box 用来显示图画 每一个控件建立的时候 系统都会给它设一个默认的 名字 Name 这个PictureBox的名字就叫做Picture1 为了方便起见 我们以后的控 件都使用缺省的名称 选定Picture1 在左边的属性窗口中找到Picture属性 单击 会出现 点击为Picture1选一个图像文件 VB支持的图像文件有BitMap WM F ICO三种 微软为用户提供了一套图标文件 存放在VB目录的Icons目录下 选 择Icons misc face01 ico文件 这样图标就被装入了Picture1 再选择Pictrue1的Autos ize属性 设为1 True 则会发现Picture1以变成和图像一样大了 把BorderStyle定为0 None 去掉图片边框 用同样的方法再添加两个图片框 Picture2 Picture face02 ico Picture3 Picture face03 ico 图片框完成了 第二步 建立三个无线钮 Option Button 由于它象收音机的无线电按钮而得名 把它们的标签名属性 Cap tion 分别定为 悲哀 高兴 没治了 放置成下图的样子 最后我们还需要三个文本框 Text Box 分别把它们的Text属性设为 空字符串 程序的最后界面如图1 3 这样按下菜单窗口的运行按钮 运行一下程序 还可以吧 不过现在程序还无 法工作 就算是VB也不能免俗 还必须输入代码才能使程序运作 VB是一门典型的面向对象编程的语言 它的整个程序都是由事件驱动的 那么 什么是事件呢 其实 我们的生活中充满了各式各样的事件 比如说 闯红灯 这 个事件的发生会导致被警察追杀 走路撞到电线杆时会痛 上面的例子虽然有些滑 稽 但它可以清楚的解释事件的含义 就象你马上就能体会到的在什么地方单击鼠 标时会发生什么 按下键盘时会发生什么 这就是事件 而事件就是这么容易 要进入VB的代码设计区 只需在需要的控件或窗体上双击鼠标即可得到这样的窗 口 如图1 4 每一个VB程序都由若干小程序组成 这使得用VB编程更加容易 这些小程序 分为 过程 Procedure 和 函数 Function 二者都可以传 递参数 所不同的是函数有一个返回值 而过程没有 仅此而已 双击窗体的任何一个部分 将出现一个空的过程 Form Load 这是一个非 常重要的过程 它所驱动的事件就是该窗体被加载的事件 打个比方 就象计算机 启动时的批处理程序 Autoexec bat 这个程序里我们要对控件进行一些设置 我们刚才也曾对控件进行设置 但那是在 程序设置中进行的 有时我们也需要在程序中改变某些控件的属性 通过程序代码 VB中规定 一个控件属性的访问方法 名称 属性 于是我们对本程序的控件进 行如下设置 Private Sub Form Load Picture1 Visible False Picture2 Visible False Picture3 Visible False Text1 Visible False Text2 Visible False Text3 Visible False End Sub Private表示此过程是局部的 Sub表示子过程的开始 与之相对的是End Sub表示过程的结束 Visible属性表示控件的可见性 这个属性的值有两个True和F alse 注意 VB里对大小写是不加区分的 而且 已定义的名称 以后再用到时 系统会自动把它变成相应的大写或小写 小知识 1 VB里的对变量及常量的规矩 变量一般为Abc的格式 常量为ABC 另外这些变量和常量名不得同VB内的关键 字相同 也不可以使用一些特殊符号 这些我们将在以后介绍 注意在学习中养成 好习惯 使程序便于自己和别人的浏览 2 程序书写的窍门 不要真的一句一句把程序打完 利用快捷键 拷贝Ctrl C 剪切Ctrl T 粘贴Ctrl P 按下F5 运行一下程序 现在发现只剩下无线钮了 如图 Private Sub Form Load Picture1 Visible False Picture2 Visible False Picture3 Visible False Text1 Visible False Text2 Visible False Text3 Visible False Option4 Left 2000 Option4 Value True End Sub Left属性表示控件离窗体左边框的距离 设置为 2000 则在窗体内不会看到这个 控件 并使之Value True 再运行程序 一切如愿 如图 注意 为什么不用Option4 Visible False 因为 一旦设置无线钮为不可见 那么再使它的Value为真是没有意义的 不信自 己试试 下面我们可以继续进行了 在刚才的代码窗口里 将Object选择为Option1 Proc选 择为Click 即得到一个Option1 Click的过程 代码如下 Private Sub Option1 Click Picture1 Visible True Picture2 Visible False Picture3 Visible False Text1 Visible True Text2 Visible False Text3 Visible False Text1 Text 再见 残酷的世界 End Sub 相同的建立Option2 Click和Option2 Click Private Sub Option2 Click Picture2 Visible True Picture1 Visible False Picture3 Visible False Text2 Visible True Text1 Visible False Text3 Visible False Text2 Text 今天心情不错 End Sub Private Sub Option3 Click Picture3 Visible True Picture2 Visible False Picture1 Visible False Text3 Visible True Text2 Visible False Text1 Visible False Text3 Text Hello World End Sub 好 我们的开山之作完成了 按下F5 玩一下吧 这个程序虽然简单 但也用到 了许多基本知识 你开始感兴趣了吗 1 打印三角形 Private Sub Form Click For i 1 To 4 Print Space 4 i For j 1 To i Print Next j Print Next i End Sub 2 题目 事件 单击窗体 响应 我国现有人口为 13 亿 设年增长率为 1 计算多少年后增加到 20 亿 并将结果输出在窗体上 将结果存入变量 year 中 使用 do while loop 语句完成程序 Private Sub Form Click Dim year As Integer sum As Single Dim p as double Dim r as single P r 0 01 Do while p 3000 Then Exit For End If Next i Print sum End Sub 4 题目 事件 点击窗体 响应 求 1 2 3 10 的值 并在窗体上输出 结果存入变量 L 中 Private Sub form click Dim l As Long Dim p As Long p 1 For i 1 To 10 p p i l l p Next Print l End 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 integer For i 1 to 100 Sum sum i Next Print sum End sub 7 题目单击窗体 求 1 5 10 15 500 的和 并将结果输出在窗体上 将结果存入变量 sum 中 Private sub form click Dim sum as long Sum 1 For i 0 to 500 IF i Mod 5 0 then Sum sum i End If Next Print sum End sub 8 题目 求两个正整数 m n 的最大公约数 p 和最小公倍数 q 注意 请在指定的事件内编写代码 Dim m As Integer n As Integer Private Sub Command1 Click m Val InputBox 输入正整数 n Val InputBox 输入正整数 If n m 0 Then MsgBox 两数任何一个数都不能为0 End If End Sub Private Sub Command2 Click Dim r As Integer s As Integer r m s 1 Do Until m Mod r 0 And n Mod r 0 最大公约数 r r 1 Loop Do Until s Mod m 0 And s Mod n 0 最小公倍数 s s 1 Loop Print 最大公约数是 syspath End Sub 30 动态增加控件并响应事件 Option Explicit 通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private WithEvents NewButton As CommandButton 增加控件 Private Sub Command1 Click If NewButton Is Nothing Then 增加新的按钮cmdNew Set NewButton Controls Add VB CommandButton cmdNew Me 确定新增按钮cmdNew的位置 NewButton Move Command1 Left Command1 Width 240 Command1 Top NewButton Caption 新增的按钮 NewButton Visible True End If End Sub 删除控件 注 只能删除动态增加的控件 Private Sub Command2 Click If NewButton Is Nothing Then Else Controls Remove NewButton Set NewButton Nothing End If End Sub 新增控件的单击事件 Private Sub NewButton Click MsgBox 您选中的是动态增加的按钮 End Sub 31 得到磁盘序列号 Function GetSerialNumber strDrive As String