暂无图片
暂无图片
暂无图片
暂无图片
暂无图片

IT日志之开发:VBS

Louise的50个梦想 2021-08-23
908
  1. 变量的声明

使用Dim语句,public语句和private语句在脚本中显示声明变量

命名规则:在声明的作用域里必须唯一。字符必须是字母开头,数字,下划线组成。

匈牙利命名法:变量名=类型+对象描述

2.变量显示定义与隐式定义



第一条语句

    Dim var
    var="hi"
    MsgBox var


      Option Explicit   //禁止使用隐式定义,


      Dim var
      var="hi"
      MsgBox var


      3.数组

      Dim Array(10)

        Dim aryTest(9)
        aryTest(0)=0
        MsgBox aryTest(0)

        多维数组:

          Dim aryTest1(9,9)
          aryTest1(0,0)=1
          aryTest1(0,1)=2
          MsgBox aryTest1(0,1)

          动态数组:

          Dim array()

            Option Explicit


            Dim aryTest(),i,var,j
            i=0
            var=0
            While var<>"$"
            ReDim preserve aryTest(i)
            aryTest(i)=InputBox("输入")
            var=aryTest(i)
            i=i+1
            Wend
            For j= 0 To i
            MsgBox aryTest(j)
            Next

            4.常量

              Option Explicit
              Const pi=3.14
              Dim sum
              sum=10*pi
              MsgBox sum

              5.注释

              rem 或 '

                Rem const
                'const

                6.常用的函数

                  Option Explicit
                  Dim myA, myB
                  myA=Chr(65)
                  myB=Chr(65+1)
                  MsgBox myA & myB
                    Option Explicit
                    Dim myA, myB,check
                    myA=5:myB=5
                    check=CBool(myA=myB)
                    MsgBox check
                    'Cbool 返回结果布尔值

                    7.日期函数

                      Option Explicit
                      Dim myDate
                      myDate=Date()
                      MsgBox myDate

                      8.判断函数

                        Option Explicit
                        Dim myVar,myCheck
                        myCheck=IsEmpty(myVar)
                        MsgBox mycheck

                        9.字符串处理函数

                        OptionExplicit
                        Dim myVar
                        myVar=Trim("  hi  ")
                        MsgBox myVar
                        OptionExplicit
                        Dim myVar
                        myVar=len("  hi  ")

                        文章转载自Louise的50个梦想,如果涉嫌侵权,请发送邮件至:contact@modb.pro进行举报,并提供相关证据,一经查实,墨天轮将立刻删除相关内容。

                        评论