Ckstudyhub

module m sub main() dim a,b,c as integer console.write("Enter First No : ") a=console.readline() console.write("Enter Second No : ") b=console.readline() c=a+b console.writeline("First No : " & a) console.writeline("Second No : " & b) console.writeline("Result : "&c) end sub end module In the above program we have declare three variables ( a,b,c) And First and Second variable  store two values accept by the user and Third variable sum of two numbers.

Module m1 Sub Main() Dim a as integer Dim s as String Console.Write("Enter A Number : ") a=console.readline() Console.Write("Enter a String : ") s=console.readLine() Console.WriteLine("You Enter the Number is : " & a) Console.WriteLine("You Enter the String is : " & s) End Sub End Module

module m sub main Console.WriteLine("Hello World!") end sub end module Output :

Public Class webbrowser     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click         Timer1.Enabled = False     End Sub     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Timer1.Enabled = True     End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         If WebBrowser1.Visible Then             WebBrowser1.Refresh()         End If         If WebBrowser2.Visible Then             WebBrowser2.Refresh()         End If     End Sub     Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged         If WebBrowser1.Visible Then      ...

Imports System.Drawing.Font  Imports System.Drawing.FontFamily Imports System.Drawing.FontConverter  Imports System.Speech.Synthesis  Imports System.Collections.ObjectModel  Public Class Text_To_Speech  Private p_objSynth As New SpeechSynthesizer  Dim w As Integer = Screen.PrimaryScreen.Bounds.Width  Dim h As Integer = Screen.PrimaryScreen.Bounds.Height  Private Sub BindCombo()  ComboBox2.DrawMode = DrawMode.OwnerDrawFixed  ComboBox2.Font = New Font("Microsoft Sans Serif, 11.25pt", 11.25)  ComboBox2.ItemHeight = 20  Dim objFontFamily As FontFamily  Dim objFontCollection As System.Drawing.Text.FontCollection  Dim tempFont As Font objFontCollection = New System.Drawing.Text.InstalledFontCollection() For Each objFontFamily In objFontCollection.Families ComboBox2.Items.Add(objFontFamily.Name)  Next  End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ...

#include<stdio.h> #include<conio.h> void main() { clrscr() print("Hello Word!"); getch() } ckstudyhub