谁能帮我？我就要VB考试了，到现在还一窍不通呢T-T

来源：百度知道 编辑：UC知道 时间：2024/06/18 03:27:33
改错

题目：下面程序段将7个随机整数从小到大排序

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Dim t%, m%, n%, w%, a(7) As Integer
For m = 1 To 7
a(m) = Int(10 + Rnd() * 90)
Print a(m); " ";
Next m
Print
For m = 1 To 6
t = m
'**********FOUND**********
For n = 2 To 7
'**********FOUND**********
If a(t) > a(n) Then n = t
Next n
'**********FOUND**********
If t = m Then
w = a(m)
a(m) = a(t)
a(t) = w
End If
Next m
For m = 1 To 7
Print a(m)
Next m
End Sub

2. '题目:给定三角形的三条边，计算三角形的面积。要求
' 程序首先判断给定的三条边能否构成三角形。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'-------

题目：下面程序段将7个随机整数从小到大排序

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------

Private Sub Form_Click()
Dim t%, m%, n%, w%, a(7) As Integer
For m = 1 To 7
a(m) = Int(10 + Rnd() * 90)
Print a(m); " ";
Next m
Print
For m = 1 To 6
t = m
'**********FOUND**********
For n = 2 To 7'需要改为m+1 to 7
'**********FOUND**********
If a(t) > a(n) Then n=t’这里需要改为t=n
Next n
'**********FOUND**********
If t = m Then ’需改为t<>m
w = a(m)
a(m) = a(t)
a(t) = w
End If
Next m
For m = 1 To 7
Print a(m)
Next m
End Sub
2. '题目:给定三角形的三条边，计算三角形的面积。要求
' 程序首先判断给定的三条边能否构成三角形。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'-------------------------