• 所有问题

    • 在VB窗体模块中:用随机函数产生10个不大于100的整数存入一维数组a中,并找出这组数

    如题所述

    举报该问题
    其他回答
    第1个回答  2013-01-30
    Dim a(10) As Integer, i As Integer
    Print "随机生成数组："
    For i = 1 To 10
    a(i) = Int(Rnd * 100)
    Print a(i);
    Next i
    Print

    是这样吗？随机生成一个数组。
    第2个回答  2013-01-20
    dim a(1 to 10)
    for i=1 to 10
    randomize
    a(i)=int(rnd*101)
    next i
    相似回答
    用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个...答：Next i Print "元素和=" & x Print "平均值=" & x / 10 For i = 0 To 9 If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) & " "Next i Print "大于平均值的元素个数=" & j Print "大于平均值的元素：" & y Me.Refresh End Sub ...
    VB编程题目: 随机产生10个0-100之间的整数放入数组,显示数组各元素的值...答：Private Sub Command1_Click()Dim a(9)Randomize Dim sum As Integer, min As Integer, max As Integer sum = 0: min = 100: max = 0 For i = 0 To 9 a(i) = Int(101 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max = a(i)Pr...
    vb编写程序,利用随机函数产生并显示10 个1~100 之间的随机整数并找出这...答：Private Sub Command1_Click() Dim a(10) As Integer Randomize Max = 1 For i = 1 To 10 a(i) = 1 + Int(Rnd * 100) Print a(i); If a(i) > a(Max) Then Max = i Next i Print Print "a("; Max; ")="; a(Max)End Sub ...
    ...使用一维数组编写程序,随机产生10个0~100的整数,求出最大值、最小...答：min As Integer max = 0 min = 100 For i = 1 To 10 If max < a(i) Then max = a(i) If min > a(i) Then min = a(i) Next i Print "max"; max; "min"; minEnd SubPrivate Sub Command3_Click() Dim ave As Double For i = 1 To 10 ...
    在VB中,利用随机函数产生 10个 1---100 之间的随机整数,找出其中能被...答：= SDA End If Next JNext IText1.Text = Text1.Text & "生成的20个随机数：" & vbCrLfFor I = 1 To 20If AA(I) < 10 ThenText1.Text = Text1.Text & "0" & AA(I) & Space(3)ElseText1.Text = Text1.Text & AA(I) & Space(3)End IfIf I Mod 10 = 0 ThenTex...
    用vb“随机产生10个整数存入一维数组中,求其最大数及所在的下标”语句及...答：Private Sub Form_Click()Dim a(1 To 10)Randomize '随机种子，保证每次出现随机数不一样 For i = 1 To 10 a(i) = Int(Rnd * 100) '随机生成0到99的整数 Print a(i);Next i Print maxnum = a(1) '初始最大值为随机数的第一个数 For i = 1 To 10 If maxnum < a...
    计算机VB中,利用随机函数产生10个10-100的随机数,并将其赋值给数组a...答：Private Sub Command1_Click() Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd() * 91) + 10 Print a(i); s = s + a(i) Next i Print Print "平均值="; s / 10End Sub
    大家正在搜
    标准模块不属于任何一个窗体VB用模块调用窗体窗体模块和标准模块的区别窗体模块通用声明段不能用VB随机函数的应用vb随机函数10～100窗体模块类模块标准模块和窗体模块若在窗体模块的声明部分声明