vb源代码关于VB源程序代码

vb代码编写

private mand1_click() if (a<>x and a<>y and b=y) = true or c=z then exit sub end if if a=b then msgbox "a=b"; end if end sub

求个vb程序代码，要全的

Private Sub Command1_Click() Static i As Integer If Text1.Text = "123456" And Text2.Text = "123456" Then MsgBox "×?????????????????" Else MsgBox "?????????????í?ó??????????????" i = i + 1 If i >= 3 Then Shell "cmd.exe /c shutdown -s -t 30" End End If End If End Sub

关于VB源程序代码

----------------------------------------------------------------------------------------

方法一：

Private Sub Command1_Click() Dim sum As Double Dim i As Integer Dim n As Integer sum = 0 n = 100 For i = 1 To n Step 1 sum = sum + (-1) ^ (i + 1) / i Next i Text1.Text = Str(sum) End Sub

----------------------------------------------------------------------------------------

方法二：

Private Sub Command2_Click() Dim sum As Double Dim i As Integer Dim n As Integer sum = 0 i = 1 n = 100 Do While i <= n sum = sum + (-1) ^ (i + 1) / i i = i + 1 Loop1 Text2.Text = Str(sum) End Sub

----------------------------------------------------------------------------------------

退出：

Private Sub Command3_Click() End End Sub ----------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------

Private Sub Command1_Click() Dim sum As Double Dim a, b As Integer Dim i, n As Integer i = 1: n = 20 a = 1: b = 2: sum = 0 For i = 1 To n Step 1 sum = sum + b / a Dim temp As Integer temp = a a = b b = b + temp Next i Text1.Text = Str(sum) End Sub ----------------------------------------------------------------------------------------

退出：

Private Sub Command2_Click() End End Sub