代码片段总结

正式的接触代码到现在已经过去一年半了，从一开始到现在一直用着VB的代码，是时候做一个回顾，知识整合。
常用的有：

VB三种控制结构：

顺序结构
编写命令按钮Command1的Click事件过程，赋值相容问题：

Private sub Command_clidk()
    Dim x as integer
    Dim y as string
    y="100"
    x=y
    y=y+10
    Text1.text=x
    Text2.text=y
End Sub

选择结构
输入口令，判断口令正误：

Private Sub Command1_Click()
    a=text1.text'将Text1中输入的字符赋值给a
    If a="ABC" Then'口令正确
        Unload Form1'卸载窗体Form1
        Flrm2.show'显示窗体Form2
    else
        Label2.Caption="对不起，口令错！" & Chr(13) & "请重新输入"
        Text1.SetFocus'Text1获得焦点
    End If
End Sub

循环结构
Do While…Loop计算1+2+3+…+100

Private Sub Form_Click()
    Dim s As Integer,n As Integer
    show
    s=0:n=1
    Do While n<=100
        s=s+n
        n=n+1
    Loop
    Print"1+2+3+...+100=";s
End Sub

文件的打开关闭

关闭已打开的与文件号相关联的文件，多个文件号之间用逗号分隔。若语句中没有文件号，则关闭所有用Open语句打开的文件。

Open"C:\Windows\temp.text"For Output As #1'打开文件
...
Close #1'关闭文件

变量的声明

Public|Private|Dim|Static>
过程级变量：
Dim|Static><变量名>[As数据类型]
如：

Dim intNum1 As Integer'声明一个整型变量intNum1
Static strName As String ''声明一个字符串型静态便令strNum1

模块级变量：
Private|Dim><变量名>[As数据类型]

应用程序级变量：
Public><变量名>[As数据类型]

扫描二维码关注公众号，回复： 1074480 查看本文章

相信我们的学习一定会指数成长，向前学习的同时不忘回顾以前。

猜你喜欢