锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net生成 vb net

IT技术生成

vb.net怎么随机生成5个不同是数（1-33内的数），大神求救 想要生成多少个都行 。
Randomize()随机打乱
dim a1 as integer=cint(rnd()*32))+1
dim a2 as integer=cint(rnd()*32))+1
dim a3 as integer=cint(rnd()*32))+1
dim a4 as integer=cint(rnd()*32))+1
dim a5 as integer=cint(rnd()*32))+1
vb.net随机函数生成~！//太蛋疼了，我没注意到是vb.net，写成C#的了 。。。。
//也许不是太完美，但功能上还是实现了
//protected void Timer1_Tick(object sender, EventArgs e)
//{
//Random rnd = new Random((int)DateTime.Now.Ticks);
//double result = rnd.NextDouble() * 3.0;
//if (result1.1)
//{
//result += 1.1;
//}
//Label1.Text = string.Format("{0:0.0}", result);
//}
'下面这个就是VB.NET的了
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Randomize()
Dim result As Single = Rnd() * 3.0
If (result1.1) Then
result += 1.1
End If
Label1.Text = String.Format("{0:0.0}", result)
End Sub
vb.net 自建类生成类e似xx.item(0).value或者xx.Name("zhangshan").Value'这是数组的一个方法了，可是可以给数组定义扩展方法来实现这种形式 。不过要给Item每个成员能动态生成相应方法，想不出其它简单点的办法，只能一个一个的添加扩展方法 。
Namespace 测试
Public Class Item
Public Number() As String
Public Name As String
Public Symbol As String
Public Value As Single
Public Unit As String
Public Description As String
Public Remarks As String
End Class
Public Class XX
Public tty() As Item
Public Sub New()
tty(0).Name = "Women"
tty(0).Value = https://www.04ip.com/post/198000
tty(1).Name = "temen"
tty.Name("temen").Value = https://www.04ip.com/post/99999
End Sub
End Class
Public Module Module1
System.Runtime.CompilerServices.Extension() _
Public Function Name(ByVal she As Item(), ByVal key As String) As Item '定义扩展方法功能 在net.3.5前的版本像似没有 。
For Each it In she
If it.Name = key Then
Return it
End If
Next
Return Nothing
End Function
End Module
End Namespace
vb.net随机产生英文字母的代码1.随机产生英文字母
Randomize() '功 能：初始化随机数发生器
Me.txt1.Text = Chr(Asc("a") + Int(Rnd() * 26))
'Rnd 函数返回小于 1 但大于或等于 0 的值 。
'0 = Rnd() * 2626 是含小数位的数
'Int(Rnd() * 26)转换为整型 ， 就是0~25的随机数
'Asc("a")得到a的ASCii数值，是整数97（A是65）
'a~z的ASCii为97~122  ， 即为a~z之间的字母为97加（0~25）
'Asc("a") + Int(Rnd() * 26)为97到122的随机数
'Chr（）又可以起到转换成字符的功能 ， Chr(97)表示a （a转换成数值又是Asc("a")=97）
'Chr(Asc("a") + Int(Rnd() * 26))就是a~z的随机数了
Randomize() '再次初始化随机数发生器
Me.txt2.Text = Chr(Asc("A") + Int(Rnd() * 26)) '这里是A~Z的随机数
'也可以换这种写法
Randomize()
Me.txt1.Text = Chr(Int((26 * Rnd()) + 97)) '这里是a~z的随机数
'这是在你知道ASCII码的情况之下（a~z为97~122，A~Z为65~90）
'Rnd()为0~0.9999999.....的随机数
' 26 * Rnd()为0~25.9999...的随机数
'Int((26 * Rnd())为0~25的随机数
'Int((26 * Rnd()) + 97)为97~122的随机数
'Chr(Int((26 * Rnd()) + 97))就是a~z的随机数了
Randomize()
Me.txt2.Text = Chr(Int((26 * Rnd()) + 65)) '这里是A~Z的随机数
'至于同时在一处随机大写或小写，ASCII码的数字又不挨在一起（65-90,97-122），比较麻烦 。想写的话，你可以自己想一下怎么办

推荐阅读


上一篇：如何选择适合光之后裔的服务器？ 光之后裔怎么选服务器

下一篇：存档游戏fc角色扮演，存档游戏fc角色扮演