Mod 9 Activity

Public Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Format(8972.234, "General Number")
        Label2.Text = Format(8972.2, "Fixed")
        Label3.Text = Format(6648972.265, "Standard")
        Label4.Text = Format(6648972.265, "Currency")
        Label5.Text = Format(0.56324, "Percent")
    End Sub
Public Class
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Format(8972.234, "0.0")
        Label2.Text = Format(8972.2345, "0.00")
        Label3.Text = Format(6648972.265, "#,##0.00")
        Label4.Text = Format(6648972.265, "$#,##0.00")
        Label5.Text = Format(0.56324, "0%")
    End Sub
End Class
Public Class 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Format(Now, "General Date")
        TextBox2.Text = Format(Now, "Long Date")
        TextBox3.Text = Format(Now, "short Date")
        TextBox4.Text = Format(Now, "Long Time")
        TextBox5.Text = Format(Now, "Short Time")
    End Sub
End Class
Public Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = Format(Now, "M")
        Label2.Text = Format(Now, "MM")
        Label3.Text = Format(Now, "MMM")
        Label4.Text = Format(Now, "MMMM")
        Label5.Text = Format(Now, "dd/MM/yyyy")
        Label6.Text = Format(Now, "MMM,d,yyyy")
        Label7.Text = Format(Now, "h:mm:ss tt")
        Label8.Text = Format(Now, "MM/dd/yyyy h:mm:ss tt")
    End Sub

    Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles Label6.Click

    End Sub
End Class

Comments

Popular posts from this blog

Module 3

module 7