• 所有问题

    • 用随机数厂产生50个10到100的互不相同的整数，存于一数组中，并以升序每行10个显示在窗体上

    在线等，急，先谢谢了

    举报该问题
    其他回答
    第1个回答  2008-04-16
    你用的是什么语言的啊？
    相似回答
    ...的互不相同的整数,存于一数组中,并以升序每行10个数显示在窗体上...答：Print a(i);If (i + 1) Mod 10 = 0 Then Print Next i
    ...的互不相同的整数存于一数组中,并以升序每行10个数显示在窗体上_百...答：Private Sub Command1_Click()Dim x(90) As Integer '高效代码，产生无重复随机数 For i = 10 To 100 x(i - 10) = i Next Randomize For i = 1 To 50 j = Int(Rnd * (91 - i)) + i t = x(i)x(i) = x(j)x(j) = t Next '排序 For i = 1 To 50 For j = 1 ...
    ...的互不相同的整数,存于一数组中,并以升序每行10个数在图片框上输...答：Dim a(10 To 100) As Boolean Randomize n = 0 While n < 50 x = Int(91 * Rnd) + 10 If Not a(x) Then a(x) = True n = n + 1 End If Wend n = 0 For i = 10 To 100 If a(i) Then Picture1.Print i;n = n + 1 If n Mod 10 = 0 Then Picture1.Print En...
    ...的互不相同的整数,存于一数组中,并以升序每行10个数在图片框上输...答：要求单击"产生函数"按钮随机产生50个互不相同的数以每行10个在图片框输出,单击"排序"后的数据以每行10个在图片框上输出...哪位VB高手可以帮下忙的,小弟在此谢过!
    vb编程!!请高手帮帮忙~~答：Private Sub Form_Click()Dim a(50) As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To 50 '产生50个10~100之间的互不相同的整数 Randomize a(i) = Int(Rnd * 91 + 10)For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 Next j Next i...
    VB数组题目!急!答：Option Base 1 Private Sub Command1_Click()'生成50个 10-100不相同数字 Dim 判断 As Boolean, a As Integer, x As Integer, temp As Integer, i As Integer, j As Integer Cls Randomize x = 1 Print "排序前"ReDim b(1)Do While x <= 50 a = Int(Rnd * 91 + 10)For i = ...
    随机产生五十个一百以内的正整数放入数组中,输出这五十个整数(每行十...答：char *argv[]) { srand((unsigned) time(NULL)); //用时间做种，每次产生随机数不一样int result[50];printf("随机产生范围【1,99】内的正整数数组 :\n");int i=0;int length=50;for(;i<length;i++){result[i]=random(89)+1;printf("%d ",result[i]);}printf("\n");...
    大家正在搜
    产生一个100到200的随机数在1到100之间产生10个随机数如何产生一个0到1之间的随机数随机生成1到100不重复随机数产生10到100的随机数产生两个0到10之间的随机数随机生成1到100随机数生成0到1之间的随机数的函数随机生成1到100随机数代码