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

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

@H_403_5@

语法基础：@H_403_5@

（1）顺序结构@H_403_5@

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

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

这就叫做顺序结构。@H_403_5@

（2）选择结构@H_403_5@

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

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

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

（3）循环结构@H_403_5@

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

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

@H_403_5@

常用的几个内部函数：@H_403_5@

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

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的第四位开始，截取一个字符@H_403_5@

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

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

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

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

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

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

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

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

☆11.MsgBox 函数：@H_403_5@

vbOKOnly：只显示OK按钮@H_403_5@

vbOKCance：只显示ok和cancel按钮@H_403_5@

vbAbortRetrylgnorel：显示abort retry ignore按钮@H_403_5@

vbYesNocancel：显示Yes no cacel 按钮@H_403_5@

vbYesNo：显示yes no按钮@H_403_5@

vbRetryCancel：显示retry cancel按钮@H_403_5@

vbCritical：显示critical message图标@H_403_5@

vbQuestion：显示warning query图标@H_403_5@

vbExclamation：显示warning message图标@H_403_5@

vbInformation：显示 information message图标@H_403_5@

vbDefaultButton1：第一个按钮是缺省值@H_403_5@

vbDefaultButton2：第二个按钮式缺省值@H_403_5@

vbDefaultButton3：第三个按钮式缺省值@H_403_5@

vbDefaultButton4：第四个按钮是缺省值@H_403_5@

例如：@H_403_5@

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

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

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

@H_403_5@

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

vbOK：按下了OK@H_403_5@

vbCancel：按下了CANCEL@H_403_5@

vbAbort：按下了ABORT@H_403_5@

vbRetry：按下了RETRY@H_403_5@

vbIgnore：按下了IGNORE@H_403_5@

vbYes：按下了YES@H_403_5@

vbNo：按下了No@H_403_5@

@H_403_5@

12.dir函数@H_403_5@

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

属性的可能值：@H_403_5@

vbNormal:缺省没有属性的文件@H_403_5@

vbReadOnly：无属性的只读文件@H_403_5@

vbHidden：无属性的隐藏文件@H_403_5@

vbSystem：无属性的系统文件@H_403_5@

vbVolume：卷标文件@H_403_5@

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

例如：@H_403_5@

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

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

13.SetAttr函数@H_403_5@

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

属性的可选值：@H_403_5@

vbNormal：常规@H_403_5@

vbReadonly：只读@H_403_5@

vbHidden：隐藏@H_403_5@

vbSystem：系统文件@H_403_5@

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

例如：@H_403_5@

SetAttr "D:\test",vbHidden + vbSystem

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

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

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

SetAttr "D:\test",vbNormal

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

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

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

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

猜你在找的VB相关文章