• 所有问题

    • vb中,怎样在标签上产生10个随机数

    求解答:并且同时显示出来

    举报该问题
    推荐答案   2018-05-02
    dim i as integer
    for i=1 to 10
    label1.caption=label1.caption & str(int(rnd*100))
    next
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    VB中,随机产生10个0~100之间的随机数,按从小到大的顺序排列怎么做...答：新建一个form1添加command1添加label1label1高度设的稍高一点，以显示数据。form代码视图中加入以下语句.Private Sub Command1_Click() '定义变量 Dim a(9) As Integer Dim i As Integer Dim r As Integer Dim t As Integer '产生随机数 Randomize For i = 0 To 9 a(i) = CInt(Rnd(...
    vb生成10个随机数,且在1~50之间答：创建一个数组,A(50),把数字1~50,存在相应的数组中,让后根据随机数的值,交换对应下标的数组存放的值,最后把数组的前10个数保存,或是输出即可,这样就不会出现重复值,也可简化算法。 抢首赞 1 已赞过 已踩过< 评论 分享 微信扫一扫 新浪微博 QQ空间 举报 收起 其他类似问题2018-04-10 VB怎么写随机生...
    VB产生10个[1,100]的随机数答：假设标签Label1 文本框Text1 Text2 Text3 Text4 统计按钮Command1 窗体代码 Option Explicit Private Sub Command1_Click()Dim Vs() As Long, Ls() As String, fo As Long, Vc As Long Dim Max As Long, Min As Long, e As Double,t as long ReDim Vs(Len(Label1))Ls = Split(Label...
    用vb怎样生成10个不重复的(1到10)随机数?答：vb生成10个不重复的随机数代码：Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
    VB.NET中随机产生十个数字答：'生成随机数 Private Sub CreatRand()Dim I As Integer Dim Strarr As String Strarr = ""ListBox1.Items.Clear()Dim R As New System.Random For I = 0 To 9 N(I) = R.Next(30, 100)ListBox1.Items.Add(Str(N(I)))Strarr = Strarr & Str(N(I)) & " "Next '添加标签的...
    vb产生10个不同随机数答：就是用循环嵌套选择句再加上rnd配合起使用的话.低位\高位都可以取到了.代码如下:已经测试成功..绝对符合你的要求..要给分哦 dim i%,wei%,a#(1 to 100)randomize for i = 1 to 100 wei = int(rnd 9 + 1)select case wei case is = 1 a(i)= int(rnd 10+1)case is = 2 a(i)...
    大家正在搜
    vb随机生成1到100随机数vb随机生成10个不同的随机数vb产生10到100的随机数vb中如何产生随机数vb生成10个随机数vb每次产生的随机数都一样vb随机产生不重复的n个数vb重新产生随机数vb产生随机数的代码
    相关问题
    vb 如何使产生的十个随机数全部显示出来
    VB产生10个[1，100]的随机数
    用vb怎样生成10个不重复的（1到10）随机数
    vb中生成10个随机数并显示在屏幕上
    VB编程产生100个[10,99]的随机数
    vb中，如何产生10-100内不重复的10个随机数？
    vb 编程 如何利用随机函数产生15个10到90的奇数组成的...
    vb 在label中随机产生10以内的加减乘除怎么做