常用vb的编程代码

先在程序中加一个Label,名字应该符合VB程序控件命名规范:
lbl<名称>
再加一个Timer控件,名字也要符合命名规范

在窗体代码对话框中打入

Private Sub Form_Load()
On Error Resume Next
Me.Font = "Arial"
Me.FontSize = 24
Me.FontBold = True
.Enabled = True
.Interval = 1000
End Sub

'下列函数只能二选其一
'是时间显示
Private Sub _Timer()
On Error Resume Next
.Caption = Time
End Sub

'是日期与时间显示
Private Sub _Timer()
On Error Resume Next
.Caption = Now
End Sub

由九个不同数字组成的等式
Private Sub Command1_Click()
Dim Token(9) As Integer, I As Integer, K As Integer
Dim Result As Integer, J As Integer
For I = 1234 To 4987
Erase Token
Token(0) = 1
For J = 1 To Len(CStr(I))
K = Val(Mid(CStr(I), J, 1))
If Token(K) = 0 Then
Token(K) = 1
Else
Exit For
End If
Next J
If J > Len(CStr(I)) Then
If Verify(Token, I, Result) Then
Text1 = Text1 & I & "*" & Result & "=" & I * Result & vbCrLf
End If
End If
Next I
End Sub

Private Function Verify(T() As Integer, M As Integer, Res As Integer) As Boolean
Dim P As String, B() As Integer, I As Integer, Idx As Integer, J As Integer
Do While Idx < 9
B = T
Idx = Idx + 1
If B(Idx) = 0 Then
Res = Idx
B(Idx) = 1
P = CStr(1 * M * Res)
If Len(P) > 4 Then Exit Do
For I = 1 To Len(P)
J = Mid(P, I, 1)
If B(J) = 0 Then
B(J) = 1
Else
Exit For
End If
Next I
If I > Len(P) Then
Verify = True
Exit Do
End If
End If
Loop
End Function