vb.net生成随机字符 vbs产生随机数

VB.NET编写程序，在文本框中显示1～100之间的任一随机整数，及其对应的字符，谢谢大家了

Dim a As Integer

Dim Randommize As New Random '随机值

a = Randommize.Next(1, 101) ’返回指定范围随机整数

TextBox1.Text = a.ToString "----" Chr(a)

相关问答

Q1: VB如何生成随机数

1、打开“Microsoft Visual Basic 6.0 中文版”软件，准备一个空白的工程文件：

2、然后需要一个命令按钮，单击左侧工具箱中的“命令按钮”，在窗体中右侧拖动鼠标左键画出即可：

3、双击该命令按钮，这里演示输入代码打印0～10之间的任意随即整数，生成其他范围的随机整数公式为“int（（上限-下限+1）*Rnd+下限）”，如果是1到53就是“int（（1-53+1）*Rnd+53”：

4、写完之后运行程序，每单击一次命令按钮，就会在窗体上打印一个0～10之间的随即整数：

Q2: vb.net代码声明一个一维字符类型的数组，有20个元素，每个元素最多存放十个字符。字符个数随机，

 Dim a(20) As String

        Dim num As Integer

        Dim ppp As String = ""

        Dim temp As String = ""

        For i = 1 To 20

            temp = ""

            num = Int(Rnd() * 10 + 1)

            For j = 1 To num

                temp = temp  Chr(Int(Rnd() * 26 + 97))

            Next

            a(i) = temp

        Next

        Dim max As Integer = 0

        For i = 1 To 20

            If a(i).Length  max Then

                max = a(i).Length

            End If

        Next

        For i = 1 To 20

            If a(i).Length = max Then

                ppp = ppp  "字符最多的元素是第"  i  "个元素"  a(i)  vbCrLf

            End If

        Next

        For i = 1 To 20

            TextBox1.Text = TextBox1.Text  a(i).PadRight(10)  "          "

            If i Mod 4 = 0 Then

                TextBox1.Text = TextBox1.Text  vbCrLf

            End If

        Next

        TextBox1.Text = TextBox1.Text  ppp

Q3: VB中怎样使Label连续不定时生成随机字符

涉及时间及自动的话，用timer控件试试。

Option Explicit

Dim n As Integer

Private Sub Timer1_Timer()

n = n + 1

If n 100 Then End '这个是防止次数太多了

Label1.Caption = Label1.Caption IIf(Rnd 0.5, 1, 2)

Timer1.Interval = CInt(Rnd * 10+1) * 100 '这里设置的随机时间间隔为100毫秒到1000毫秒

End Sub '之所以要+1是为了防止随机数产生0导致timer停工

vb.net生成随机字符的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs产生随机数、vb.net生成随机字符的信息别忘了在本站进行查找喔。