vb编程 产生10个50-100(包括50和100)的随机整数,并用“冒泡排序”按从小到大的顺序输出。

界面效果图也要额,我要的是vb。net的程序,我没说清楚,我加你好友了... 界面效果图也要
额,我要的是vb。net的程序,我没说清楚,我加你好友了
展开
 我来答
百度网友f73bdb1
2011-05-27 · TA获得超过2176个赞
知道小有建树答主
回答量:1077
采纳率:90%
帮助的人:367万
展开全部

Private Sub Command1_Click()

Dim a(1 To 10) As Integer

Dim i As Integer, j As Integer

Print "随机取到的10个50-100(包括50和100)的随机整数为"

For i = 1 To 10

    Randomize

    a(i) = Int(Rnd() * 51 + 50)

    Print a(i);

Next i

Print

Print "用“冒泡排序”按从小到大的顺序排序后"

For i = 1 To 10

    For j = 1 To 10 - i

        If a(j) > a(j + 1) Then

            t = a(j)

            a(j) = a(j + 1)

            a(j + 1) = t

        End If

    Next j

Next i

For i = 1 To 10

    Print a(i);

Next i

End Sub

小开文档铺
2011-05-27 · TA获得超过224个赞
知道小有建树答主
回答量:129
采纳率:50%
帮助的人:61.3万
展开全部
Private Sub Command1_Click()
Dim aR(1 To 10)
Dim i
Dim StartNo, endNO

Me.List1.Clear
Me.List2.Clear

StartNo = Me.StartNo
endNO = Me.endNO

'生成随机数
For i = 1 To 10
Randomize
aR(i) = Int((endNO - StartNo + 1) * Rnd + StartNo) 'Int((100 * Rnd) + 50)
Me.List1.AddItem aR(i)
Next

'冒泡排序
For i = 1 To 10 - 1
For j = i To 10
If aR(i) > aR(j) Then
a = aR(i)
aR(i) = aR(j)
aR(j) = a
End If
Next
Next

For i = 1 To 10
Me.List2.AddItem aR(i)
Next

End Sub

程序上只有5个控件:
列表框2个:Me.List1,Me.List2
文本框2个:Me.StartNo,Me.endNO
一个按钮:Command1

界面就不给你了,应该能明白的!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友bdb9803
2011-05-27 · TA获得超过1.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:53%
帮助的人:1亿
展开全部
邮件已发,278700294@qq.com

Private Sub Command1_Click()
Dim a(9) As Integer, i As Integer, j As Integer
For i = 0 To 9
a(i) = Int(Rnd * 51) + 50
Print a(i);
Next
Print
For i = 0 To 9
For j = 0 To i
If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next
Next
For i = 0 To 9
Print a(i);
Next
Print
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式