VB基础知识

一：变量定义
Dim a as integer，b as long，c as single , d as String
等价于
Dim a%，b&，c! , d$

二：注意“+”和“&”的区别

"ABC"+"DEF"	→　"ABCDEF"
"姓名：" & "张三"	→　"姓名：张三"
23 & "7"	→　"237"
23+"7"	→　30

三：输入框
Dim r!
r = InputBox（"请输入半径"，"输入框"）

四：消息框
dim inta
inta=MsgBox(“密码错”，21，“密码核对” )

五：if 语句
Dim weight as single，pay as single
weight= Text1.Text

If weight > 50 Then
pay =（weight - 50）* 0.5 + 50 * 0.2
Else
pay = weight * 0.2
End If

六：if elseif 语句
Dim score!
score = Text1.Text

If score >= 90 Then
Text2.Text = "优秀"
ElseIf score >= 80 Then
Text2.Text = "良好"
ElseIf score >= 70 Then
Text2.Text = "中"
ElseIf score >= 60 Then
Text2.Text = "及格"
Else
Text2.Text = "不及格"
End If

七：行If语句
Dim b As Single，max As Single

If b > max Then max = b

八：Select Case语句
Dim score!
score = Text1.Text

Select Case score
Case Is >= 90
Text2.Text = "优秀"
Case Is >= 80
Text2.Text = "良好"
Case Is >= 70
Text2.Text = "中"
Case Is >= 60
Text2.Text = "及格"
Case Else
Text2.Text = "不及格"
End Select

九：for循环
For n=1 To 10 Step 3
Print n，
Next n

十：While循环
x=1
While x<5 Print x， x=x+1 Wend 十一：Do while循环 r = m Mod n Do While r > 0
m = n
n = r
r = m Mod n
Loop
r = m Mod n

十二：Do until循环
Do Until r = 0
m = n
n = r
r = m Mod n
Loop

十三：循环的结束
1．Exit For
该语句用于For…Next循环，在循环体中可以出现一次或多次。当系统执行到该语句时，就强制退出当前循环。常见的使用格式是：If 条件 Then Exit For 即当循环执行过程中满足某个条件时，就执行循环退出语句结束循环。

2．Exit Do 该语句用于Do…Loop循环，具体用法同Exit For一样。

十四：一维数组
Dim A（5）As Integer 等价于 Dim A%（5）
定义了一个一维数组，名字为y，类型为Integer，占据6个（0～5）整型变量的空间。

十五：二维数组
Dim T（2，3）As Integer
定义了一个二维数组，名字为T，类型为Integer，该数组有3行（0～2）4列（0～3），占据12（3×4）个整型变量的空间

十六：子过程
Sub jieCheng（n%，p&）
On Error GoTo Click_Err
Dim i%
p = 1

For i = 1 To n
p = p * i
Next i

Click_Err：
Resume Next
End Sub

子过程的调用
Dim a&，b&，c&，d&
Call jieCheng（7，a）
Call jieCheng（11，b）
Call jieCheng（10，c）

d = a + b－c

Print "7!+11!-10!="；d

十七：函数过程
例子一：
Function jieCheng &（n%）
On Error GoTo Click_Err
Dim i%
jch = 1

For i = 1 To n
jch = jch * i
Next i

Click_Err：
Resume Next
End Function

函数过程的调用
Dim d&
d = jieCheng（7）+ jieCheng（11）－jieCheng（10）
Print "7!+11!－10!="；d

例子二：
Function sum%（b%（））
On Error GoTo Click_Err
Dim i%

For i = LBound（b）To UBound（b）
If b（i）< 0 Then
sum = sum + b（i）
End If
Next i
Click_Err：
Resume Next
End Function

函数过程的调用
Dim a%（10），s%，i%

For i = 1 To 10
a（i）= Int（Rnd * 100）- 50
Print a（i）；
Next i
Print
s = sum（a（））
Print "数组中的负元素之和为："；s

技巧一：格式转换
CStr(value)
将value转换成string型

CInt(value)
将value转换成int形

CLng(value)
将value转换成long形

注：CBool,CByte,CDate,CVar,CVDate,CVErr,用法类似

技巧二：格式化
Format$( value, "0000")
将value格式化成4位

Format(Now, "yyyymmdd")
将当前日期格式化成yyyymmdd格式

Format(Now - 1, "yyyy-mm-dd")
将当前日期减一天后格式化成yyyy-mm-dd格式