1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VBA
'   Descripcion : este programa calcula promedio de dos notas
 
Balance()
            
        nombre = InputBox("Entre nombre: ")
        calif1 = InputBox("Entre nota 1: ")
        calif2 = InputBox("Entre nota 2: ")
 ...

1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VBA
'   Descripcion : este programa calcula promedio de dos notas
 
Balance()
        Dim nombre As String
        Dim calif1 As Double
        Dim calif2 As Double
        Dim notaFinal As Double
 ...

1
2
3
4
5
6
7
8
9
'   Autor : Hernán Toro
'   Lenguaje : VBA
'   Descripcion : este programa calcula promedio de dos notas
 
Sub Balance()
        Dim nombre As String
        Dim calif1 As Double
        Dim calif2 As Double
        Dim notaFinal As Double
 ...

1
2
3
4
5
6
7
8
Option Strict On
Module Module1
Sub Main( )
Dim b As Boolean
b = 1
Console.WriteLine( b )
End Sub
End Module

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
Option Explicit Off
Module Module1
Sub Main( )
Dim i As Integer
Dim b As Boolean
x = 50
End Sub
End Module

1
msgbox("FUCK")

1
2
3
4
5
6
Set Upload = Server.CreateObject("Persits.Upload.1")
If Upload.Expires <> CDate("9/9/9999") Then
   Response.Write "AspUpload expires on " & Upload.Expires
Else
   Response.Write "You are running a registered copy."
End If

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

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
2
3
4
5
6
7
8
9
Imports System.IO  
 
Public Class Form1
 
Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
 
FolderBrowserDialog1.ShowDialog()
 
txtPath.Text = FolderBrowserDialog1.SelectedPath
 ...

1
2
3
4
5
6
7
Imports System
 
Public Class Test
        Public Shared Sub Main()
                msgbox("hi")
        End Sub
End Class

1
2
3
4
5
6
7
8
9
 
class Student
{
public:
// add a completed course to the record
float addCourse(int hours, float grade)
{
// calculate the sum of all courses times
// the average grade
 ...

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
2
3
4
5
6
7
8
9
'funcion de recorrido en PREORDEN
   Public Function preorden() As String
       cadenasalida = ""
       rePreorden(raiz)
       Return cadenasalida
   End Function
   Private Sub rePreorden(ByVal padre As Nodo)
       If IsNothing(padre) Then
           Return
 ...

1
2
3
4
5
6
7
8
9
Imports System.IO
Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.Collections.Specialized
 
Public Class VBNetCompiler
 
   'Files to compile
   Protected mFilesToCompile As New _
 ...

1
msgbox"hi"

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
2
3
4
5
6
7
8
9
 
sk = 0
For n1 = 1 To 6
For n2 = 1 To 6
For n3 = 1 To 6
For n4 = 1 To 6
For n5 = 1 To 6
For n6 = 1 To 6
If n6 = n5 Or n6 = n4 Or n6 = n3 Or n6 = n2 Or n6 = n1 _
 ...

1
2
3
4
5
6
7
8
9
{code style="brush: vb;"}
sk = 0
For n1 = 1 To 6
For n2 = 1 To 6
For n3 = 1 To 6
For n4 = 1 To 6
For n5 = 1 To 6
For n6 = 1 To 6
If n6 = n5 Or n6 = n4 Or n6 = n3 Or n6 = n2 Or n6 = n1 _
 ...

1
1+1

1
2
3
4
5
6
7
8
9
namespace IndiabixConsoleApplication
{ 
    class Sample
    { 
        int i; 
        Single j; 
        public void SetData(int i, Single j)
        { 
            i = i;
 ...

1
2
3
4
5
6
7
8
9
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

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
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 myimg As Image = FromFile ( "C:\fun.jpg" )
    g.DrawImage ( myimg, 50, 50 )
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 
    'Add code here
    g.DrawImage ( myimg, 50, 50 )
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
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        Me.i=i
    End Sub
End Class

1
2
3
4
5
6
7
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        Me.i=i;
    End Sub
End Class
 

1
2
3
4
5
6
7
Class test
    Dim i As integer
    Public Sub setadata ( i As Integer )
        Me.i=i
    End Sub
End Class