Learn to enjoy every minute of your life.Only I can change my life.

Write a visual basic program for stopwatch:- Design Window:- Code:- Dim starttime As Date Dim s As Date Private Sub Reset_Click() Timer1.Enabled = False starttime = Now Timer1.Enabled = True End Sub Private Sub Start_Click() starttime = Now Timer1.Enabled = True End Sub Private Sub Stop_Click() Timer1.Enabled = False Label1.Caption = "" End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Pause_Click() If Pause.Caption = "Pause" Then Timer1.Enabled = False s1 = Label1.Caption Pause.Caption = "Play" End If If Pause.Caption = "Play" Then     Label1.Caption = s1     Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() Label1.Caption = Format$(Now - starttime, "hh:mm:ss:ms") End Sub ============================================ OUTPUT

Write a visual program to calculate average using runtime text-box Design window:- Code: Dim t1 As TextBox Dim t2 As TextBox Dim t3 As TextBox Dim t4 As TextBox Dim a As Integer Dim b As Integer Dim c As Integer Private Sub cmdClear_Click() t1.Text = "" t2.Text = "" t3.Text = "" t4.Text = "" t1.SetFocus End Sub Private Sub cmdDisplay_Click()  a = Val(t1.Text)  b = Val(t2.Text)  c = Val(t3.Text)  t4.Text = (a + b + c) / 3 End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub Form_Activate()     Set t1 = Controls.Add("VB.TextBox", "t1")     t1.Visible = True     t1.Height = 600     t1.Width = 2200     t1.Top = 100     t1.Left = 3200     t1.SetFocus                 Set t2 = Controls.Add("VB.TextBox", "t2")     t2.Visible = True     t2.Height = 600     t2.Width = 2200   ...