UC知道VB编程三道题
来源：百度知道 编辑：UC知道 时间：2024/05/22 20:18:49
我是初学者，请各位回答的时候讲得尽量详细，谢谢了。
1.实现功能当焦点放在TEXT1中时，背景反白。
2.实现功能点击“显示日期”按钮，显示系统日期。点击“系统日期”按钮，显示系统时间。
3.点击“运算”按钮，将TEXT1和TEXT2中的数字相加，在Label1中显示结果，若是输入非数字符，结果为0.
1.实现功能当焦点放在TEXT1中时，背景反白。
2.实现功能点击“显示日期”按钮，显示系统日期。点击“系统日期”按钮，显示系统时间。
3.点击“运算”按钮，将TEXT1和TEXT2中的数字相加，在Label1中显示结果，若是输入非数字符，结果为0.
1。
Private Sub Text1_GotFocus() ‘text1获得焦点时
Text1.ForeColor = vbWhite ‘前景色（文字）为白
Text1.BackColor = vbBlack ’背景为黑
End Sub
Private Sub Text1_LostFocus() ‘text1失去焦点时
Text1.ForeColor = vbBlack
Text1.BackColor = vbWhite
End Sub
2.
Private Sub Cmdshowtime_Click()
Print Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
End Sub
Private Sub Cmdshowdate_Click()
Print Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
End Sub
3.
Private Sub Command2_Click()
If isnumberic(Text1.Text) And isnumberic(Text2.Text) Then
Label1.Caption = CSng(Text1.Text) + CSng(Text2.Text)
Else
Label1.Caption = 0
End If
End Sub