Dim Values As New List(Of Integer) For i As Integer = 1 To 25 '值范围 Values.Add(i) Next Dim a,b As Integer a = Values.Count For i As Integer = 1 To 25 '个数 b = Rand.Next(a) e.Form.Controls("Button" & i).Text = Values(b) '填充按钮标题 Values.RemoveAt(b) a = a - 1 Next
加好友 
发短信
Post By：2018/11/28 15:05:00 [显示全部帖子]
