15电气一班郑明雨 1044 作业

原创于 2016-03-31 17:18:55 发布 · 418 阅读

0 ·

CC 4.0 BY-SA版权

15电气下半年VB 专栏收录该内容

3 篇文章

订阅专栏

本文提供了一个使用Visual Basic编写的简单示例程序，该程序演示了如何生成一组随机数并利用冒泡排序算法进行排序的过程。通过这个示例，读者可以了解到VB中数组的初始化、随机数生成以及冒泡排序的具体实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Option Base 1
Private Sub Command1_Click()

Cls
Font.size = 30
Dim a As Integer

Dim sierdun(15) As Integer
n = 1
While n <= 15
    sierdun(n) = Int(Rnd * 1000)
    n = n + 1
Wend

Dim swap As Integer
m = 1
While m < 14
     n = 1
     While n <= 15 - m
         If sierdun(n) < sierdun(n + 1) Then
         swap = sierdun(n)
         sierdun(n) = sierdun(n + 1)
        sierdun(n + 1) = swap
        End If
        n = n + 1
    Wend
m = m + 1
Wend

n = 1
While n <= 15
    Print sierdun(n)
    n = n + 1
Wend





End Sub