1
X=MsgBox("WEW", 2+16, "Delete");

1
2
3
Private Sub Timer1_Timer()
 Label1.Caption = Time
  End Sub

1
2
3
4
5
6
7
8
9
#include <stdio.h>
int main()
{
Prompt for time
get time
DOWHILE (time i= 9999) 
hours=time/100
mins=time%100
 IF (hours < 0) OR ( hours > 23) THEN 
 ...

1
2
3
4
5
6
Private Sub Timer1_Timer()
 
 
              Label1.Caption = Time
 
       End Sub

1
2
3
4
5
6
7
8
9
#include <stdio.h>
int main()
{
Prompt for time
get time
DOWHILE (time i= 9999) 
hours=time/100
mins=time%100
 IF (hours < 0) OR ( hours > 23) THEN 
 ...

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim N, D  As  Single
Dim tag As String
 
N = Val(TxtNumber.Text)
 
Select Case N
Case Is < 2
Lbl_Answer.Caption = "It is not a prime number"
 ...

1
2
3
4
5
6
7
8
9
public class ProxyManager 
 { 
     [DllImport("wininet.dll", SetLastError = true)] 
     private static extern bool InternetSetOption(IntPtr hInternet, int dwOption, IntPtr lPBuffer, int lpdwBufferLength); 
  
     private const int INTERNET_OPTION_REFRESH = 0x000025; 
     private const int INTERNET_OPTION_SETTINGS_CHANGED = 0x000027; 
  
     private List<string> proxylibs = new List<string>(); 
 ...

1
2
3
4
5
6
7
8
9
Imports System.Data.OleDb
Public Class menusnack
    Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\alfornosoft\base\db.accdb;Jet OLEDB:Database Password=ideasrenova")
    Dim papas As Integer
    Dim bolitas As Integer
    Dim palitos As Integer
    Dim aritos As Integer
    Dim dtFecha As DateTime = DateTime.Now
    Dim insertafecha As String
 ...

1
2
3
4
5
6
7
8
9
Imports System.Data.OleDb
Public Class menusnack
    Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\alfornosoft\base\db.accdb;Jet OLEDB:Database Password=ideasrenova")
    Dim papas As Integer
    Dim bolitas As Integer
    Dim palitos As Integer
    Dim aritos As Integer
    Dim dtFecha As DateTime = DateTime.Now
    Dim insertafecha As String
 ...

1
<% Response.Write("hi"); %>

1
2
3
4
5
6
7
8
9
i=4:k=2:output=""
do
 output &= space(i*2)
 for j=1 to k
   output &= "*"
 next j
 output&= vbcrlf
 k += 2
 i -= 1
 ...

1
2
3
4
5
6
7
8
9
Sub CheckWhile()
   Dim intCounter As Integer = 0
   Dim intNumber As Integer = 10
   While intNumber > 6
      intNumber -= 1
      intCounter += 1
   End While
   MsgBox("The loop ran " & intCounter & " times.")
End Sub

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step 3
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step 2
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step 1
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step 2
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step 3
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 1 step index
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 1 step1
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step4
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step 2
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 2 step 1
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 2 step1
            System.Console.WriteLine("MORESCO-1")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 2 step 1
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3 step1
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
3
Dim s as string="abccc"
 
Print strreverse(s)

1
2
3
4
5
6
7
8
Module Module1
    Sub Main()
        Dim intLoopIndex As Integer
        For intLoopIndex = 0 To 3
            System.Console.WriteLine("Hello from Visual Basic")
        Next intLoopIndex
    End Sub
End Module

1
2
dim a as Integer
print a

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim strSource, strTest As String
 
                Console.WriteLine("Enter string, which would be a source")
                strSource = Console.ReadLine()
                Console.WriteLine("Enter string, which would be tested")
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim strSource, strTest As String
 
                Console.WriteLine("Enter string, which would be a source")
                strSource = Console.ReadLine()
                Console.WriteLine("Enter string, which would be tested")
 ...