使用随机函数rand产生50个10-99的互不相同的随机整数放入数组a中，并以每行十个数据输出。要求用下标法

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a(50) As Integer
For i = 1 To 50
    Randomize
    a(i) = Int(Rnd * 40 + 10)
    Print a(i) & " ";
    If i Mod 10 = 0 Then
        Print
    End If
Next i
End Sub

追问

要C语言程序，使用的是C-free4

本回答被网友采纳