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

 

运行结果：