fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5. 		' your code goes here
  6. 		Dim str as String
  7. 		str = Console.ReadLine()
  8.         Randomize()
  9.         Dim i as Integer
  10. 		  For i = 1 To 5
  11.             Dim g As Integer = CInt(Int((Rnd() * 10) + 1))
  12.                 str = str + CStr(g) + ","
  13.           Next i
  14. 		Console.WriteLine (str.Replace(",",vbCrLf))
  15. 	End Sub
  16. End Class
Success #stdin #stdout 0.07s 25672KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
10
7
2
5
3
https://ideone.com/fnV5uS
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!