...RND)产生200个200~600之间的整数,每行输出10个数,找出这些整数中最...

发布网友发布时间：2024-09-27 19:28

共2个回答

热心网友时间：2024-10-21 23:07

可参考。如有帮助请采纳！

热心网友时间：2024-10-21 23:05

Dim a(200) As Integer
Dim i As Integer, mii As Integer, mai As Integer
For i=0 To 199
    a(i)=CInt(RND*400+200)
    Print a(i),
    If i MOD 10=0 Then
        Print
    End If
Next
mii=0
mai=0
For i=1 To 199
    If a(mii)>a(i) Then
        mii=i
    End If
    If a(mai)<a(i) Then
        mai=i
    End If
Next

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com