Private Sub Command1_Click()
Dim i%, j%, t%, n%, a(10) As Integer
n = Val(InputBox("sffafa", "fasfaf"))
For i = 1 To n - 1
Randomize
a(i) = Int(Rnd * 21 + 70)
For j = n To i + 1
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
Print a(j)
End Sub请哪位大虾看一下这段程序哪里出错了!!
拜谢!!!
Dim i%, j%, t%, n%, a(10) As Integer
n = Val(InputBox("sffafa", "fasfaf"))
For i = 1 To n - 1
Randomize
a(i) = Int(Rnd * 21 + 70)
For j = n To i + 1
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
Print a(j)
End Sub请哪位大虾看一下这段程序哪里出错了!!
拜谢!!!
解决方案 »
- 关于form窗体的背景图片
- test
- New 关键字问题.
- 如何对数据库中的记录按顺序自动进行编号,如有10条记录,删除第二条记录,自动编号为1-9,这怎么实现?
- 急啊!哪位可以给我一个递归实现访问某个磁盘的某个目录(由用户指定)以下的文件和目录以及获得相对与该目录的层数的源代码啊!!??
- 谁知道如何显示、打印左右镜像的文字?
- ini文件的读写问题(100分惊喜大餐,今天给分,能用就给分)
- 如何在文本框中显示数据库信息?
- glite(zgq),怎样设置Spread3.5的多层表头和合并单元格?
- 大家有什么好的算法比较一下!(怎么给50分,最高27?)
- 哪位大哥能提供点比较好的教程?
- 网页中的控件如何拿到VB中使用?
For j = n To i + 1
If a(j) < a(j - 1) Then
这时候a(j)里有值吗?
用逐语句调试一下吧