以下程序的功能是:先将随机产生的10个不同的整数放人数组a中,再将这10个数按升序方式输出。请填空。 Private Sub Form Click() Dim a(10)As Integer,i AS Integer Randomi

admin2011-04-29  41

问题 以下程序的功能是:先将随机产生的10个不同的整数放人数组a中,再将这10个数按升序方式输出。请填空。
    Private Sub Form Click()
    Dim a(10)As Integer,i AS Integer
    Randomize
    i=0
    Do   
    num=Int(Rnd*90)+10   
    For j=1 To i   检查新产生的随机数是否与以前的相同,相同的无效
    If num=a(j)Then
    Exit For
    End If
    Nextj
    Ifj>i Then
    i=i+1
    a(i)=   
    End If
    Loop Whilei<10
    For i=1 To 9
    For j=   To 10
    If a(i)>a(j)Then temp=a(i):a(i)一a(j):   
    Nextj
    Next i
    For i=1 To 10
    Print a(i)
    Next i
    End Sub

选项

答案num i+I a(j)=temp

解析
转载请注明原文地址:https://jikaoti.com/ti/PbO0FFFM
0

最新回复(0)