Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Tutorialspoint

forloop

Module VBModule
 
    Sub Main()
       For i as Integer=0 to 10
        For j as Integer=0 to i
            Console.Write("*")
        Next
        Console.WriteLine()
       Next
    End Sub
  
End Module

http request vbnet

Dim Request As WebRequest = WebRequest.Create("https://api-stage.nexinto.com/api/login")
Dim Response As WebResponse
Dim objXML As New Xml.XmlDocument()

Request.Method = "POST"
Request.ContentType = "application/json"

	Dim RequestStream As IO.Stream = Request.GetRequestStream()
	Using sw As New IO.StreamWriter(RequestStream, System.Text.Encoding.UTF8)
		sw.Write(body)
	End Using

	Response = Request.GetResponse
	Using responseStream As Stream = Response.GetResponseStream()
		Using sr As New StreamReader(responseStream)
			responseResult = sr.ReadToEnd()
		End Using
	End Using
	

fatma almudaires 12H

Module VBModule
 
    Sub Main()
    
    
 Dim x As Integer
 x = 20
 
 Dim y As Integer
 y = 40
    
    z = x + y
    Console.WriteLine(z)
    End Sub
  
End Module

Ater Akrofi

Module VBModule
 
    Sub Main()
        Dim num1 As Integer
        
        Console.WriteLine("Hello, world!")
    End Sub
  
End Module

fatma al mawash

Module VBModule
 
    Sub Main()
    
    
    Dim num1 As Integer
    num1 = 23
    D num2 As Integer
    num = 40
    
    Dim answer As Integer
    
    answer = num1 + num2
    
        Console.WriteLine(answer)
    
        
    End Sub
  
End Module

mansour alayyadhi 12e

Module VBModule
 
    Sub Main()
    
    
    Dim num1 As Integer
    num1 = 23
    Dim num2 As Integer
    num2 = 40
    
    Dim answer As Integer
    
    answer = num1 + num2
    
        Console.WriteLine(answer)
    End Sub
  
End Module

laila ekrouf

Module VBModule
 
    Sub Main()
        
   
  Dim num1 As integer
  num1=23
  Dim num2 As Integer
  num2=40
  
  Dim answer As integer
  
  answer=num1+num2
  
  Console.writeLine(answer)

End Sub

End Module

Zamel Al Zamel

Module VBModule
 
    Sub Main()
       
       
       Dim num1 As Integer
       num1 = 23
       Dim num2 As Integer
       num2 = 40
       
       Dim answer As Integer
       
       
       answer = num1 + num2
       
       
        Console.WriteLine(answer)
    End Sub
  
End Module

Maryam Ashkanani

Module VBModule
 
    Sub Main()
    
    
    Dim num1 As integer
    num1 = 23
    Dim num2 As integer 
    num2 = 40
    
    Dim answer As Integer
    
    answer = num1 + num2
        Console.WriteLine(answer)
    End Sub
  
End Module

Hussain Alkazme 12E

Module VBModule
 
    Sub Main()
    
    
    Dim num1 As Integer
    num1 = 23
    Dim num2 As Integer
    num2 = 40
    
    Dim answer As Integer
    
    answer = num1 + num2
    
        Console.WriteLine(answer)
    End Sub
  
End Module

Advertisements
Loading...

We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.