vb.net控制台 random类 随机字符,随机数 (生成4个随机3位数倒
发布时间:2020-12-16 22:21:20 所属栏目:大数据 来源:网络整理
导读:编译环境vb.net vb控制台应用程序 题 目要求: 随机生成一定范围的字符 随机 生成一定范围的 数字 查找输出一段字符串第n个位置后的m位字符( 字符串长度不能低于n+m ) 随机生成3位数 输出时同时倒序输出 例如: 随机输出(D~W)之间的字符 随机输出(120~360)
编译环境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
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |