vb.net控制台 random类 随机字符，随机数 （生成4个随机3位数倒序输出）

编译环境vb.net

vb控制台应用程序

 

题目要求：

随机生成一定范围的字符

随机生成一定范围的数字

查找输出一段字符串第n个位置后的m位字符（字符串长度不能低于n+m）

随机生成3位数 输出时同时倒序输出   

 

例如：

随机输出(D~W)之间的字符

随机输出(120~360)之间的数字

查找HelloWorld！输出oWorl

随机生成123，在程序输出时 应输出     随机数：123  倒序数：321

 

Module Module1

Sub Main()
Dim rand As New Random()
'声明一个随机数类
Dim intValue, Valueint, a, b, c, z As Integer
'定义 多个integer型变量 用于后面的赋值和输出
Dim str As String = "HelloWorld!"
'定义一个长度的字符串

z = rand.Next(68, 90)
'随机产生D到W的ascii数值 并通过cchar（chrw（z））转化成字符
Console.WriteLine("随机产生'D'到'W'的随机字符：{0}", CChar(ChrW(z)))

z = rand.Next(119, 361)
Console.WriteLine("随机产生120到360的随机数（包含120和360）：{0}", z)

str = str.Substring(4, 5)
Console.WriteLine("输出字符串中第4个起的后5个字符：{0}", str)

Console.WriteLine("随机生成一个3位正整数并输出逆序数 ")
For i As Integer = 1 To 4
a = rand.Next(9)
b = rand.Next(9)
c = rand.Next(9)
intValue = a * 100 + b * 10 + c  '随机三位数
Valueint = c * 100 + b * 10 + a  '倒序随机三位数
Console.WriteLine("随机产生随机数：{0} 逆序：{1}", intValue, Valueint)
Next

Console.ReadLine()
End Sub

End Module

 

运行结果：