vb学习笔记

申明变量

Dim a AS Integer/double/Single

循环语句

For J=1 To 100 Step 1

Next J

选择语句

If 条件 Then

语句组1

else

……

End If

and 与

or 或

xor 抑或

not 非

&符号是作字符串连接用的，比如"abc" & "123"的结果为"abc123"

vb上的递归

Public Function fuck_xiang(a As Integer) As Integer


If a = 1 Or a = 2 Then

fuck_xiang = 1


Else: fuck_xiang = fuck_xiang(a - 1) + fuck_xiang(a - 2)

End If



End Function


Private Sub Command1_Click()

Dim i As Integer


For i = 1 To 10 Step 1

Print fuck_xiang(i)

Next i



End Sub