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


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

VB学习过程(二)VB的语法基础和常用的内部函数_第1张图片

VB学习过程(二)VB的语法基础和常用的内部函数_第2张图片



 

你可能感兴趣的:(VB,学习过程记录)