学会使用VB的常用函数

Author: 杜伟 Date: 2000年 第43期

  在前两期,我们介绍了VB的集成开发环境和常用的控件,这一期我们将讲解如何编写代码和一些常常用到的VB自带的函数。函数是编写程序的重要组成部分,在任何一种高级语言中,函数都是必不可少的,所以要学会编程,首先就得学好函数,灵活地使用函数。
  在VB中,常用的函数有三种(如^43020401c^表),除了表中列出的这些函数外,VB中还有其它很多函数,如Kill等。当然,VB还允许用户自己定义函数。
  下面我们向大家介绍一个使用常见函数的实例:
  程序要求用户输入两个数字,并计算出这两个数字相加、相减、相乘、相除的结果。首先新建一个工程,在Form1窗体上引入一个CommandBotton(命令按钮)控件(默认名称为Command1),在属性窗口中将Caption的值改为“计算器(C)”(注意:你在按钮上看到的C有一个下划线,表明可以使用“Alt+C”来代替鼠标单击该控件,但实际在Caption属性窗口中输入的是“计算器(&C)”),然后双击Command1控件,在出现的代码编辑窗口中输入如下代码(黑体为系统自动生成的代码):
  Private Sub Command1_Click()
  Dim A As Integer ′定义变量。可以把变量理解为一个存放数据、字符串的容器
  Dim B As Integer ′定义A和B两个变量的目的在于存放用户将输入的数据
  A=InputBox(″输入第一个数:″,″计算器″)
  B=InputBox(″输入第二个数:″,″计算器″)
  C1=A+B ′这是一个表达式,将A与B的值相加的结果赋给C1这个变量
  C2=A-B ′将相减的结果赋值给C2
  C3=A*B ′将相乘的结果赋值给C3。
  C4=A/B ′将相除的结果赋值给C4。
  MsgBox ″相加的结果是:″ & C1 & vbCrLf & ″相减的结果是:″ & C2 & vbCrLf & ″相乘的结果是:″ & C3 & vbCrLf & ″相除的结果是:″ & C4,vbOKOnly+vbInformation,″计算结果″
  End Sub
  Command1_Click()表示当鼠标单击Command1控件时发生单击事件随即执行其中的程序代码。
  InputBox为标准的输入框函数。InputBox有5个参数,其中最常用的有3个,第一个参数Prompt作为对话框的提示文本,第二个参数Title则是该输入框的标题,第三个参数则是用来在文本框中显示缺省文本。这一句的意思就是:显示出输入框,将用户输入的内容赋值给变量A。执行到这一句代码的效果如^43020401a^1。
  MsgBox为标准的输出框函数。MsgBox同样有5个参数。第一个参数与InputBox的第一个参数相同,第二个参数即是输出框的按钮,第三个参数则为输出框的标题,其中的“&”表示将两边的字符串连接起来,vbCrLf表示回车,即换行符。vbOKOnly+vbInformation表示在输出框中显示一个“确定”按钮和一个感叹图标(如^43020401b^2)。
  单击“F5”键运行程序,单击“计算器”按钮,输入数字,即可算出其加、减、乘、除的结果来。程序编写好后,就单击“文件”菜单中的“保存工程”,把编写的程序保存下来,还可以单击“文件”菜单中的“生成工程1.EXE”,把编写的程序编译为EXE文件(可执行程序),不需要在VB中就可以执行了。
  (编后语:学习编程,实践很重要。只有通过自己亲手编写程序、调试程序才能真正理解、掌握这些程序代码。