VB经典代码片

【前言】

1.vb中经典代码块，循环、载入图像、MDI窗体
2.各类循环体、图片图像Msgbox与InPutBox
3.声明变量的区别
4.变量类型有哪些
5.相似的语句 ….
在这里说一下循环语句的使用

一、Do..Loop循环语句
前提：计算1+2+3+4+···+100
1.当型循环语句Do While …Loop

Private sub from _click()
    Dim s As Integer, n AsInteger
    show 
    s=0:n=1
    DO While n <=100
        s=s+n
        n=n+1
    loop
    Print"1+2+3+...+100=";s
end sub 

2.当直到型循环语句Do Until …Loop ，，代码同当型循环语句

3.Do …Loop 循环语句也可以省略While/Until,将循环结束条件写在循环体内，用Exit Do语句退出循环

Private sub From_click()
    Dim s As Integer, n As integer 
    show 
    s=0:n=1
    Do 
        s=s+n
        n=n+1
        If n>100 then exit Do 
    Loop
    print"1+2+3+...100=";s
end sub 

二、For…Next循环语句
语法格式如下：

For<循环变量>=<初值>To<终值>[Step<步长>]
    [<循环体>]
Next[<循环变量>]

三、多重循环
举例打印乘法九九表，语法格式如下：

 Private Sub Form_click()
     FontSize=10
     Print Tab(31);"乘法九九表"
     Print Tab(30);"乘法九九表"
     For i=1 to 9
         For j=1 to i
             Print Tab((j-1)*8);i & "*" & j &"="i*j;
        Next j
        Print
    next i
End sub