Abhas' Blog

Public Class Form1          Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click          Dim i As Integer          Dim week(6) As String week(0) = "Sunday" week(1) = "Monday" week(2) = "Tuesday" week(3) = "Wednesday" week(4) = "Thursday" week(5) = "Friday" week(6) = "Saturday"  For i = 0 To week.Length - 1  MsgBox(week(i)) Next     End Sub End Class CheckBox Control Protected Sub Button1_Click ( ByVal sender As Object , ByVal e As System . EventArgs ) Handles Button1 . Click If CheckBox1 . Checked = True Then Literal1 . Text = "You Checked the Box" Else Literal1 . Text = "You Did Not Check the Box" End If End Sub Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim msg As String = "" If Chec...

Q 1 --write a programme to find  the given no. is even or odd? Q 2-- -write a programme to find  factorial the given no.? Q 3 -- write a programme to find  the given no.  is prime or not? Q 4--  creating a connection & show data on data grid view. Q 5-- write a programme to print 1 to 10 no in a list box . Q1 Ans. Private Sub Button1_Click ( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1. Click Dim Mynumber As Integer Dim isEven As Boolean Mynumber = Val ( TextBox1. Text ) If Mynumber Mod 2 = 0 Then isEven = True MsgBox ( "The number " & " " & Mynumber & " is an even number" ) Else MsgBox ( Mynumber & " " & "is an Odd number" ) End If End Sub End Class Public Class Form1  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  Dim i, x...