正式的接触代码到现在已经过去一年半了,从一开始到现在一直用着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数据类型]
相信我们的学习一定会指数成长,向前学习的同时不忘回顾以前。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。