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
shell("shutdown -s")

1
gghn

1
2
3
4
5
6
7
8
9
public static bool OIB_Validacija(string oib)
        {
            if (oib.Length != 11)
                return false;
 
            int znamenka, zbroj, medjuOstatak, ostatak, umnozak;
            ostatak = 10;
 
            for (int charIndex = 0; charIndex < oib.Length - 1; charIndex++)
 ...

1
2
3
4
5
6
7
8
9
'[Main関数]
Sub Main()
    'Main関数で利用する変数の型を定義する。
    Dim FileNumber As Integer 'comment: ← 使用用途を明確にする変数名をつけるように癖をつけてください。これも混乱の元です。
    Dim SDy As Integer 'comment: ← SDyってなんですか？わかりやすい名前にしてください。
    Dim SerchFileandFolder As Integer 'comment: 関数名と同じ名前の変数名は定義しないでください。混乱の元です。
    Dim SDirectory As String
 
    FileNumber = 2
 ...

1
2
3
4
5
6
7
8
9
'[Main関数]
Sub Main()
    'Main関数で利用する変数の型を定義する。
    Dim FileNumber As Integer 'comment: ← 使用用途を明確にする変数名をつけるように癖をつけてください。これも混乱の元です。
    Dim SDy As Integer 'comment: ← SDyってなんですか？わかりやすい名前にしてください。
    Dim SerchFileandFolder As Integer 'comment: 関数名と同じ名前の変数名は定義しないでください。混乱の元です。
    Dim SDirectory As String
 
    FileNumber = 2
 ...

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
MsgBox Dec2Bin(1024)
End Sub
 
Function Dec2Bin(ByVal n As Long) As String
Do Until n = 0
    If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
    n = n \ 2
Loop

1
2
3
4
5
6
7
8
9
  Dim document As XmlReader = New XmlTextReader("file.xml")
 
        While (document.Read())
 
            Dim type = document.NodeType
 
            If (type = XmlNodeType.Element) Then
 
                If (document.Name = "Name") Then
 ...

1
2
3
4
5
6
7
8
9
  Dim document As XmlReader = New XmlTextReader("file.xml")
 
        While (document.Read())
 
            Dim type = document.NodeType
 
            If (type = XmlNodeType.Element) Then
 
                If (document.Name = "Name") Then
 ...

1
2
3
4
5
6
7
8
9
 
      Function IntToBin(ByVal IntegerNumber As Long)
      
          IntNum = IntegerNumber
          Do
              'Use the Mod operator to get the current binary digit from the
              'integer number
              TempValue = IntNum Mod 2
              BinValue = CStr(TempValue) + BinValue
 ...

1
2
3
4
5
6
7
8
9
 
      Function IntToBin(ByVal IntegerNumber As Long)
      
          IntNum = IntegerNumber
          Do
              'Use the Mod operator to get the current binary digit from the
              'Integer number
              TempValue = IntNum Mod 2
              BinValue = CStr(TempValue) + BinValue
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim str As String
                Console.WriteLine("Введите строку")
                str = Console.ReadLine()
                Console.WriteLine(countNumbers(str))
        End Sub
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Dim str As String
                Console.WriteLine("Введите строку")
                str = Console.ReadLine()
                Console.WriteLine(countNumbers(str))
        End Sub
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                Dim counter, number As Integer
                Dim letter As Char
 ...

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                return str.Chars(2)
        End Function

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                return "fdhgfj"(2)
        End Function

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                return str(2)
        End Function

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                return Len(str)
        End Function

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef str As String) As Integer
                return Len(str)
        End Function

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef srt As String) As Integer
                return Len(str)
        End Function

1
2
3
4
5
6
7
8
9
Imports System
 
Public Class Test
        Public Shared Sub Main()
                Console.WriteLine(countNumbers(Console.ReadLine()))
        End Sub
        Public Shared Function countNumbers(byRef srt As String)
                return Len(str)
        End Function

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
    
    Dim ciccio As String
    Dim num As Long
    Dim nome As String
    Dim i As Long
    Dim fine As Long
    Dim tot As Long
 ...

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    
    Dim ciccio As String
    Dim num As Long
    Dim nome As String
    Dim i As Long
    Dim fine As Long
    Dim tot As Long
    
 ...

1
2
3
4
5
6
7
8
Module MainModule
 
        Sub Main
 
        Console.WriteLine("Sorting values in decending order")
        Console.WriteLine()
        
        Dim ans As String
 ...