计算机基础概论与VB程序设计时间设置和电话按钮.docVIP

显示年月日时间 Private Sub Command1_Click() End End Sub Private Sub Option1_Click() Text1.Text = 今天是星期 Weekday(Date) - 1 End Sub Private Sub Option2_Click() Text1.Text = 今天是 Year(Date) 年 End Sub Private Sub Option3_Click() Text1.Text = 今天是 Month(Date) 月 End Sub Private Sub Option4_Click() Text1.Text = 今天是 Day(Date) 号 End Sub 显示姓名地址编辑电话 Dim a(1000), b(1000), c(1000), d(1000) Dim i Private Sub Combo1_Click() i = Combo1.ListIndex Text1(0).Text = a(i) Text1(1).Text = b(i) Text1(2).Text = c(i) Text1(3).Text = d(i) End Sub Private Sub Command1_Click() If Text1(0).Text = Then MsgBox 请输入要添加的内容, , 警告 Else Combo1.AddItem Text1(0).Text a(i) = Text1(0).Text b(i) = Text1(1).Text c(i) = Text1(2).Text d(i) = Text1(3).Text i = i + 1 Text1(0).Text = Text1(1) = Text1(2) = Text1(3) = End If End Sub Private Sub Command2_Click() If Combo1.Text = Then MsgBox 请选择要删除的条目, , 警告 Else i = Combo1.ListIndex Combo1.RemoveItem Combo1.ListIndex Combo1.Text = Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = End If End Sub 电子钟 Private Sub Form_Load() Label1.Caption = Time End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Timer2.Enabled = True Text1.Enabled = False End If End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub Private Sub Timer2_Timer() Static a, b If DateDiff(s, Time, Text1.Text) = 0 Then b = 1 End If If a = 0 And b Then Label1.BackColor = RGB(255, 0, 0) a = 1 Else Label1.BackColor = RGB(255, 255, 255) a = 0 End If End Sub 倒计时 Dim a%, b%, c Private Sub Command1_Click() Frame1.Enabled = False Timer1.Enabled = True Command1.Enabled = False End Sub Private Sub Option1_Click(Index As Integer) If Index = 0 Then a = 1 ElseIf Index = 1 Then a = 5 Else a = 10 End If Command1.Enabled = True End Sub Private Sub Timer1_Timer() If b = 0 And a 0 Then a = a - 1 b = 60 End If b = b - 1 Label1.Caption = a 分 b 秒 If a = 0 And b = 0 Then Frame1.Enabled = True Time