1
Find the cheksum for the bit sequence 1001101000111100. assuming a 4-bit segment size.

1
2
3
4
5
6
7
8
// Busqueda del primero en profundidad
 
#include <stdio.h>
#include <string.h>
#include <conio.h>
#define MAX 100
 
// Estructura de la base de datos vuelos
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
   Public Shared Sub Main() 
       Dim n As Integer
       n = Console.ReadLine
       Do While n <> 42
           System.Console.WriteLine(n)
           n = Console.ReadLine
 ...

1
msgbox("")

1
2
3
Sub Macros1
Msgbox("")
End Sub

1
2
3
4
Sub Macros1
 
Msgbox““
End Sub

1
Msgbox“f“

1
2
3
4
5
6
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    g.DrawLine ( mypen, 20, 30, 200, 60 )
End Sub  

1
2
3
4
5
6
7
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    Dim mypen As New Pen ( Color.Red, 5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
End Sub 

1
2
3
4
5
6
7
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    Dim mypen As New Pen ( Red, 5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
End Sub

1
2
3
4
5
6
7
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    Dim mypen As New Pen ( Color.Red, Thickness.5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
End Sub 

1
2
3
4
5
6
7
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    Dim mypen As New Pen ( Color.Red, 5 )
g.DrawLine ( mypen, 20, 30, 200, 60 )
End Sub 

1
2
3
4
5
6
7
 
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    g.DrawLine ( mypen, 20, 30, 200, 60 )
End Sub 

1
2
3
4
5
6
Imports System.Drawing.Drawing2D
Sub Form1_Paint ( s As Object, e As PaintEventArgs )
    Handles MyBase.Paint
    Dim g As Graphics = e.Graphics
    'Add code here
End Sub   

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

1
2
3
4
5
6
7
8
9
Imports System.Collections
Module Module1
Sub Main ( )
Dim arr As New ArrayList
Dim c As Integer
arr.Add( "a"c )
arr.Add( 20 )
arr.Add( 2.5 )
arr.Add( "Rahul" )
 ...

1
2
3
4
5
6
7
8
9
Namespace n1
Namespace n2
Namespace n2
Class example
Sub fun()
Console.WriteLine ( "Hello" )
End Sub
Sub fun( ByVal i As Integer )
Console.WriteLine( "Hi" )
 ...

1
2
3
4
5
6
7
8
9
Class Window
Protected name As String
Public Sub New( )
name = "Window"
End Sub
End Class
 
Class MyWindow : Inherits Window
Dim name As String
 ...

1
2
3
4
5
6
7
8
9
Class Window
Protected name As String
Public Sub New( )
name = "Window"
End Sub
End Class
 
Class MyWindow : Inherits Window
Dim name As String
 ...

1
2
3
4
5
6
7
8
9
Class Window
Protected name As String
Public Sub New( )
name = "Window"
End Sub
End Class
 
Class MyWindow : Inherits Window
Dim name As String
 ...

1
2
3
4
5
6
7
8
9
Class Window
Protected name As String
Public Sub New( )
name = "Window"
End Sub
End Class
 
Class MyWindow : Inherits Window
Dim name As String
 ...

1
2
3
4
5
6
7
8
9
Class Window
Protected name As String
Public Sub New( )
name = "Window"
End Sub
End Class
 
Class MyWindow : Inherits Window
Dim name As String
 ...

1
2
3
4
5
6
7
8
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
 
 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
objFSO.MoveFile "C:\Program Files (x86)\FileZilla Server\Filezilla Server.bak" , "C:\Program Files (x86)\FileZilla Server\FileZilla Server.txt"
 
 ...

1
2
3
4
5
6
7
8
9
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
Dim toolBarButton1 As New ToolBarButton
Dim toolBarButton2 As New ToolBarButton
ToolBar1.Buttons.Add ( toolBarButton1 )
ToolBar1.Buttons.Add ( toolBarButton2 )
Controls.Add ( ToolBar1 )

1
2
3
4
5
6
7
8
Public Sub New ( )
MyBase.New ( )
InitializeComponent ( )
Dim ToolBar1 As New ToolBar
ToolBar1.Buttons.Add ( toolBarButton1 )
ToolBar1.Buttons.Add ( toolBarButton2 )
Controls.Add ( ToolBar1 )
End Sub

1
2
3
4
5
6
7
8
9
Module Module1
    Class sample
        Shared obj As sample
        
        Private Sub New( )
        End Sub
        
        Shared Function create( ) As sample
         If obj Is Nothing Then
 ...

1
2
3
4
5
6
7
8
9
Class sample
    Dim i, j As Integer
    Sub New( )
        i = 0
        j = 0
    End Sub
    
    Sub New ( ii As Integer, jj As Integer )
        i = ii
 ...

1
2
3
4
5
6
7
8
9
Module Module1
    Class sample
     Dim i As Integer
     Shared Sub New( )
     i = 10
     End Sub
 
     Sub showdata( )
     Console.WriteLine ( i )
 ...

1
2
3
4
5
6
7
8
Option Explicit Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
x = 50
End Sub
End Module

1
2
3
4
5
6
7
8
9
Module Module1
Sub Main( )
Dim x As Integer = 0
Try
Dim y As Integer = 100 / x
Catch e As ArithmeticException
Console.WriteLine ( "ArithmeticException Handler: {0}", e.ToString( ) )
Catch e As Exception
Console.WriteLine ( "Generic Exception Handler: {0}", e.ToString( ) )
 ...