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

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

admin2011-04-29  67
问题 以下程序的功能是：先将随机产生的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://www.kaotiyun.com/show/wnhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)