大哥大姐,1、随机生成15个1到100之间的整数, - 已解决

大哥大姐,1、随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.2、有一函数（函数

大哥大姐,

1、随机生成15个1到100之间的整数,然后将这组数由大到小排列.输出原数列与排列后的数列.

2、有一函数（函数式子在插图里面）建立一个函数M文件,分别输入自变量的值（0,1）、（-1,2）,然后输出函数值.

收藏：

点赞数：

评论数：

1个回答

1 Dim a(1 To 15)

Dim b(1 To 15)

Private Sub Form_Load()

Randomize

For i = 1 To 15

a(i) = Int(Rnd * 100 + 1)

Next i

For i = 1 To 15

b(i) = a(i)

Next i

k = 0

While k = 0

k = 1

For i = 1 To 14

p = i + 1

If a(i) < a(p) Then

v = a(i)

a(i) = a(p)

a(p) = v

k = 0

End If

Next i

Wend

MsgBox b(1) & "," & b(2) & "," & b(3) & "," & b(4) & "," & b(5) & "," & b(6) & "," & b(7) & "," & b(8) & "," & b(9) & "," & b(10) & "," & b(11) & "," & b(12) & "," & b(13) & "," & b(14) & "," & b(15)

MsgBox a(1) & "," & a(2) & "," & a(3) & "," & a(4) & "," & a(5) & "," & a(6) & "," & a(7) & "," & a(8) & "," & a(9) & "," & a(10) & "," & a(11) & "," & a(12) & "," & a(13) & "," & a(14) & "," & a(15)

End Sub

VB6.0实践可行

Function A(x,y)

If x > 0 And y > 0 Then

p = x * y

w = x * x + Sin(p) + 2 * y

Else

w = 0

End If

A = w

Exit Function

End Function

点赞数：

评论数：

相关问题

VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?

点赞数：
0
回答数：
1
已知函数f(x)=2^x-1(x0,把方程f(x)=x的根按照从大到小的顺序排列成一个数列﹛an﹜

点赞数：
0
回答数：
4
1、求由正整数从小到大排列构成的数列中前1000个数的和

点赞数：
0
回答数：
3
将函数f(x)=sin1/4x*sin1/4(x+2*π]*1/2(x+3*π]全部极值点按从小到大排列成数列{An}

点赞数：
0
回答数：
1
将一组数据从大到小（或从小到大）排列，______为这组数据的中位数．

点赞数：
0
回答数：
1
求由正整数从小到大排列构成的数列中,前2n个奇数的和

点赞数：
0
回答数：
1
a=5^1/2,b=10^1/3,c=110^1/6 将a、b、c从大到小排列~

点赞数：
0
回答数：
1
将1,2,3,4.除以3的余数依次排列起来得到一个数列,这个数列前100个数的和是多少?

点赞数：
0
回答数：
1
写出将x1,x2……x10按由大到小次序排列的算法

点赞数：
0
回答数：
1
求高手作一vb程序（二）内容利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇

点赞数：
0
回答数：
1

关注公众号

一起学习，一起涨知识