1. Enter 5 numbers find out highest and second highest. For highest no check it is prime or not and for second highest calculate Fibonacci series.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
Public Class Program1 Dim no(5), no1, no2, flag As Integer Private Sub Program1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load For index = 0 To 4 no(index) = Val(InputBox("Enter number " & (index + 1), "Input 5 numbers")) Next TextBox1.Text = "Numbers entered :" + vbNewLine + no(0).ToString + ", " + no(1).ToString + ", " + no(2).ToString + ", " + no(3).ToString + ", " + no(4).ToString + vbNewLine + vbNewLine Array.Sort(no) no1 = no(5) no2 = no(4) TextBox1.Text &= "Largest number : " + no1.ToString + vbNewLine + "Second largest number : " + no2.ToString + vbNewLine + vbNewLine For index = 2 To no1 / 2 If no1 Mod index <> 0 Then flag = 1 Else flag = 0 Exit For End If Next If flag = 1 Then TextBox1.Text &= no1.ToString + " is prime" + vbNewLine + vbNewLine Else TextBox1.Text &= no1.ToString + " is not prime" + vbNewLine + vbNewLine End If Dim a, b, c As Integer a = 0 b = 1 c = a + b TextBox1.Text &= c.ToString Do TextBox1.Text &= ", " + c.ToString a = b b = c c = a + b Loop While c <= no2 End Sub End Class |
2. Create an application with a textbox in which user can enter a sentence then displays
1) Number of vowels
2) Number of spaces
3) Number of digits
4) Number of special symbols
When user press “analysis” button
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Public Class Program2 Dim sentence() As Char Dim vowels, spaces, digits, symbols, length As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click vowels = 0 spaces = 0 digits = 0 symbols = 0 sentence = TextBox1.Text.ToCharArray length = sentence.GetLength(0) For index = 0 To length - 1 If sentence(index) = "a" Or sentence(index) = "e" Or sentence(index) = "i" Or sentence(index) = "o" Or sentence(index) = "u" Or sentence(index) = "A" Or sentence(index) = "E" Or sentence(index) = "I" Or sentence(index) = "O" Or sentence(index) = "U" Then vowels += 1 ElseIf Char.IsWhiteSpace(sentence(index)) Then spaces += 1 ElseIf Char.IsDigit(sentence(index)) Then digits += 1 ElseIf Char.IsSymbol(sentence(index)) Or Char.IsPunctuation(sentence(index)) Or Char.IsSeparator(sentence(index)) Then symbols += 1 End If Next TextBox2.Text = "Vowels = " + vowels.ToString + vbNewLine TextBox2.Text &= "Spaces = " + spaces.ToString + vbNewLine TextBox2.Text &= "Digits = " + digits.ToString + vbNewLine TextBox2.Text &= "Special symbols = " + symbols.ToString End Sub End Class |