代码片段总结

前端之家收集整理的这篇文章主要介绍了代码片段总结前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

正式的接触代码到现在已经过去一年半了,从一开始到现在一直用着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数据类型]

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

原文链接:https://www.f2er.com/vb/256139.html

猜你在找的VB相关文章