050201.htm

提供一个VB学习教程,入门级。来源于网上

        变量数据类型的转换，有以下函数：<br>
        cbool(字符串或数值表达式) --返回布尔类型，如：a=2:b=2:lxn=cbool(a=b)<br>
        那么lxn值为true<br>
        cbyte(0到255的整数） --返回BYTE类型<br>
        ccur(参数) --返回货币型<br>
        cdate(一个有效的日期表达式） --转换为日期型<br>
        cint（参数） --返回（或叫转换）integer型，参数的小数部分四舍五入<br>
        clng(参数） --返回long型，小数部分四舍五入。<br>
        csng(参数） --返回single(单精度）型，<br>
        cdbl(参数) --返回double(双精度)型。<br>
        cvar(参数） --返回变体型<br>
        cstr(参数) --返回string字符串型。<br>
        判断代码中一个变量的数据类型的函数：vartype（变量名）或typename（变量名），vartype(变量名)返回一个整数值，如返回2代表整型，3代表长整型，4代表单精度，5代表双精度，7代表日期型，8代表字符串等。例如有个叫lxn的变量，不知它是什么类型，可用x=vartype(lxn),如果x等于2就说明lxn是整型，8就是字符串等等。typename(变量名)返回一个该变量类型名的字符串，如lxn是整型变量，那么typename(lxn)返回值为&quot;integer&quot;字符串。<br>
        ★ 数组的定义类似于变量定义，所不同的是数组需要指定数组中的元素个数，例如： <br>
        Dim lxn(99) As Integer<br>
        这个数组中包含100个元素，下标从0到99。<br>
        也可以指定下标的起始值，例如：<br>
        Dim lxn(2 to 10) As Integer<br>
        这个数组含有九个元素，下标从2到10。<br>
        还可以定义多维数组：<br>
        Dim lxn(4,2 to 5,3 to 6) As Integer<br>
        上例定义了一个三维数组(4×4×4)。<br>
        ★ VB算术运算符：+（加），-（减），*（乘），/（除），\（整除），Mod（取余数），^（乘方），&amp;（字符串连接）<br>
        算术运算符优先级：（）括号；^乘方；-负号；*。/乘，除；\整除；Mod取余；+，-加，减 <br>
        VB比较运算符：=(等于），&lt;&gt;(不等于),&lt;(小于),&gt;(大于),&lt;=(小于等于),&gt;=(大于等于) <br>
        逻辑运算符： And:两边表达式为真时，结果为真；<br>
        Or:两边表达式只要有一个为真时，结果为真；<br>
        Not:后面跟的表达式若为真，结果为假，后跟表达式为假，结果为真；<br>
        Xor:两边表达式一真一假时，结果为真，若两边表达式同真同假，结果为假。★ IF……THEN……语句： <br>
        简单： if 条件 then 语句<br>
        复杂： if 条件1 then <br>
        语句11<br>
        语句12<br>
        语句13……<br>
        elseif 条件2 then<br>
        语句21<br>
        语句22<br>
        语句23……<br>
        elseif 条件3 then <br>
        ……<br>
        else<br>
        前面条件都不成立时执行语句<br>
        end if<br>
        分支结构：select case 语句<br>
        结构：select case 变量 （也可以是一个属性或表达式）<br>
        case 可能值一（数值，字符串或其他值）<br>
        语句<br>
        case 可能值二<br>
        语句<br>
        case 可能值三<br>
        语句<br>
        case 可能值四，可能值五，可能值六……（如果有多个可能值都执行一条语句，写在一起，用逗号隔开）<br>
        语句<br>
        case else （也可以没有）<br>
        语句<br>
        end select<br>
        在select case 语句中可以使用关系运算符大于&gt;小于&lt;等于=等关系运算符，需要用关键字IS和TO。用个例子来说明：<br>
        Private Sub Command1_Click()<br>
        Dim age As Integer<br>
        age = Text1.Text<br>
        Select Case age<br>
        Case Is &lt; 14（如果age小于14时）<br>
        Label1.Caption = &quot;小朋友，你好！&quot;<br>
        Case 14 To 23（如果age在14到23时） <br>
        Label1.Caption = &quot;学生朋友，认真读书吧。&quot;<br>
        Case 24 （如果age是24时） <br>
        Label1.Caption = &quot;你和我是同龄人&quot;<br>
        Case Is &gt; 100 （如果age大于100时）<br>
        Label1.Caption = &quot;你真是个老不死！&quot;<br>
        Case Else （如果age不满足以上所有值的范围时）<br>
        Label1.Caption = &quot;按道理我要尊重你。&quot;<br>
        End Select<br>
        End Sub <br>
        看会了吧，就照着用即可。<br>
        循环结构：FOR……NEXT……语句：<br>
        格式：FOR 循环变量=初值 TO 终值 STEP 步长<br>
        循环体<br>
        NEXT 循环变量<br>
        如果在循环执行过程还未结束时要跳出循环，可用exit for 语句。<br>
        例：Private Sub Command2_Click()<br>
        Dim a%, name$<br>
        For a = 1 To 10<br>
        name = InputBox(&quot;输入姓名&quot;)<br>
        Print name<br>
        If name = &quot;lxn&quot; Then Exit For<br>
        Next a<br>
        End Sub<br>
        第二种很重要的循环结构是： DO 循环<br>
        格式：A。 DO WHILE 条件<br>
        循环体<br>
        LOOP<br>
        B。 DO<br>
        循环体<br>
        LOOP WHILE 条件<br>
        将WHILE条件放在循环体的前面与后面，是不同的，A格式的条件在前，执行时先检测条件，为真则执行循环，为假则不执行循环，如果第一次检测条件即为假，则一次也不执行循环，B格式的结构WHILE条件在后，能保证不论条件的真假至少能执行一次循环。<br>
        例：Private Sub Form_Load()<br>
        Dim hs$, ss%<br>
        Do<br>
        hs = InputBox(&quot;输入&quot;, &quot;华氏&quot;) --INPUTBOX的提示栏，标题栏，它的所有输入都是字符型<br>
        ss = Int((Val(hs) + 40) * 5 / 9 - 40)<br>
        MsgBox ss, , &quot;摄氏度&quot; --MSGBOX的输出内容，标题栏，无按纽参数<br>
        Loop While hs &lt;&gt; &quot;&quot; 但逗号不能少<br>
        end --由于是在form_load事件中，所以这个end不可丢。<br>
        End Sub<br>
        上例将华氏温度转为摄氏度。
        <p align="center">
        <br>
        &lt; <a href="040111.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="050202.htm">下一页</a>     
        &gt;<br>
      </td>
    </tr>
  </table>
  </center>
</div>
</body>
</html>