编译环境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

运行结果：