vb 蛋疼的学习（一） 循环、函数、vb部分语法

1、窗体的属性 自动重画（AutoRedraw），默认为 false ，

举例：把主form 的AutoRedraw 设置为true；无论窗口怎么变化，打印在窗体的字符串依旧存在

2、窗体的属性   边框类型（BorderStyle）

3、vb语法

4. vb 之function 和 if else，循环

  （1） Private Function fun1(sp As string) as string

           private 可有可无 ，sp As string 是个形参， as string 是个 返回值类型，也可以为null
   （2）

For Next 循环

If  条件 Then  
   执行语句 
ElseIf 条件  Then 
   执行语句
Else
   执行语句
End If

'举例：   // End If 必然执行后面的语句，可以不用跟， Else 可以不要。
Private Sub Command1_Click()
If Command1.Caption = "pi" Then
    Text1.Text = ""
    Text1.Text = "pi"
    ElseIf Command1.Caption = "xi" Then
        Text1.Text = ""
        Text1.Text = "xi"
    Else
       Text1.Text = ""
       Text1.Text = "真他们的落后"
   End If
       Text2.Text = "你是真的掉"
End Sub

Private Sub Text2_Change()
Command1.Caption = Text2.Text

End Sub

(3) 循环

     

 

Private Sub Command1_Click()
'form1.Show
Dim sum As Integer
sum = 1
 For i = 1 To 10 Step 2  '步长为2
   sum = sum * i
   If sum > 100 Then
   Exit For '退出循环
   End If   'If （End if） 为一对
Next i
Text1.Text = CInt(sum)
End Sub

While  Wend

Private Sub Command1_Click()
'form1.Show
Dim sum As Integer  
sum = 1: i = 1   ':可以放在同一行
 While i < 100
 sum = sum * i
 i = i + 2
 If sum > 100 Then
 i = 101
 End If
 Wend
Text1.Text = CInt(sum)
End Sub