关于我们 共44页[>1< 2 3 4 5 6 7 »... 最后一页]

$2(Label和Timer)

Digital Clock(prj2-1)

Private Sub Form_Load()
Me.Print "北京时间："
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Timer控件：通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。
Time函数：返回一个当前系统时间。然后将时间显示于Label1.Caption。

简易计算器(prj3-1)

（PS：Val返回包含于字符串内的数字，字符串中是一个适当类型的数值。
在这里vAL将Text内的数字转化成数值，然后进行运算。）

Private Sub Command1_Click()
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Label2.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Label2.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
If Val(Text2.Text) = 0 Then
MsgBox ("分母不能为零")
Else
Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub

程序中使用MsgBox输出"分母不能为零"的消息，一种错误的自校验手段。

显示口令(prj3-2)

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub

TextBox的PsaaWordChart属性可以隐藏输入内容，例题中PsaaWordChart用“*”替代，这样就形成口令输入界面，按下显示口令时才显示。