VB学习过程（二）VB的语法基础和常用的内部函数

2013/11/01                   转载请注明出处：http://blog.csdn.net/lxk7280

    

 

  语法基础：

（1）顺序结构

Private Sub Form_Load()
   Dim Num1 As Integer , Num2 As Inteher
   Num1 = 1 
   Num2 = 2
   MsgBox Num2
End Sub

程序由上到下依次执行，不存在任何的跳转或者循环，运行到End Sub。

      这就叫做顺序结构。

（2）选择结构

有多种，比如：if语句，多分支if语句，Select Case语句。

Private Sub Form_Load()  
   Dim Num As Integer
   Num = 1
   if Num = 1 Then
      Num = 2
   Else
      Num = 3
   End if
   MsgBox Num
End Sub

选择结构就是程序会根据你给出的条件选择是否执行当前的语句。

（3）循环结构

循环结构包含多种，如:For循环，while循环，For Each Next循环等

Private Sub Form_Load()
   Dim i As Integer
   Do While i <= 100
      s = s + i
      i  = i + 1
   Loop
   MsgBox "1到100的和是" & s
End Sub

 

 

   常用的几个内部函数：

 1.Trim函数： 用于删除字符串两边的空格。

Private Sub Form_Load()
   Dim Str As String
   Str = "    Can You?   "
   MagBox Str
   Str = Trim(Str)
   MsgBox Str
End Sub

 

2.Mid函数：Mid(字符串，起始位置，长度)    例如：Mid(str,4,1);  从字符串str的第四位开始，截取一个字符

 

3.Len函数：计算字符串的长度

 

4.Left函数：从一个字符串的左边第一位开始截取，若干数量的字符。

 

5.Right函数：从一个字符串的右边第一位开始截取，若干数量的字符。 

 

6.Instr函数：用于确定字符串2是否出现在了字符串1中，以及出现的位置。  例如：Instr(str1,"god")

 

7.Asc函数：返回一个字符的ASCII码

 

8.Chr函数：功能和Asc函数完全相反

 

9.Lcase函数：字符转化为小写。

 

10.Ucase函数：与Lcase函数完全相反。

 

☆11.MsgBox函数：

vbOKOnly：只显示OK按钮

vbOKCance：只显示ok和cancel按钮

vbAbortRetrylgnorel：显示abort  retry ignore按钮

vbYesNocancel：显示Yes no cacel 按钮

vbYesNo：显示yes no按钮

vbRetryCancel：显示retry cancel按钮

vbCritical：显示critical message图标

vbQuestion：显示warning query图标

vbExclamation：显示warning message图标

vbInformation：显示 information message图标

vbDefaultButton1：第一个按钮是缺省值

vbDefaultButton2：第二个按钮式缺省值

vbDefaultButton3：第三个按钮式缺省值

vbDefaultButton4：第四个按钮是缺省值

例如：

MsgBox "Do You Love Me?",vbYesNo,"Ask:"

MsgBox "You Are Right!",vbInformation,"Yes"

缺省值：计算机软件系统要求用户输入某些值而用户未给定时，系统自动赋予的事先设定的数值。

 

MsgBox函数是有返回值的,下面介绍其返回值(int型)：

vbOK：按下了OK

vbCancel：按下了CANCEL

vbAbort：按下了ABORT

vbRetry：按下了RETRY

vbIgnore：按下了IGNORE

vbYes：按下了YES

vbNo：按下了No

 

12.dir函数

基本形式：Dir(路径，属性)

属性的可能值：

vbNormal:缺省  没有属性的文件

vbReadOnly：无属性的只读文件

vbHidden：无属性的隐藏文件

vbSystem：无属性的系统文件

vbVolume：卷标文件

vbDirectory：无属性文件以及路径和文件夹

例如：

Dim File As String
File = Dir("D:\test\")

运行这两行之后File将会是D盘下Test文件里第一个文件的名称。

13.SetAttr函数

用于设置文件和文件夹的属性。

属性的可选值：

vbNormal：常规

vbReadonly：只读

vbHidden：隐藏

vbSystem：系统文件

vbArchive：上次备份以后，文件已经改变

例如：

SetAttr "D:\test",vbHidden + vbSystem

执行完这一句之后test文件夹被隐藏。想要他回来的方法很多，下面给出两种。

一种是在打开任何一个系统盘的时候打开设置，设置为显示隐藏文件夹，一般电脑默认的是不显示隐藏文件。

另外一种是在VB6.0中运用SetAttr函数对文件进行操作，语句为：

SetAttr "D:\test",vbNormal

 

 

这章要写的就是这么一点了，下面贴上一些简单的程序：

Private Sub Form_Load()
    Dim answer As Integer
    Dim a As String, b As String
    answer = MsgBox("Do you love me?", vbQuestion + vbYesNo, "ask:")
    If answer = vbYes Then
        a = Dir("D:\test\")
        While a <> vbNullString
            b = a & Chr(13) & Chr10 & b
            a = Dir
        Wend
        MsgBox b
        SetAttr "D:\test", vbNormal 'vbHidden + vbSystem
    Else
        
    End If
End Sub

下面是这个程序的效果图：