關於幾道VB編程題，請高手解答！！！

Private?Sub?Command1_Click()

Dim?a(1?To?10)?As?Integer,?i?As?Integer,?j?As?Integer,?iMin?As?Integer

Print?"排序前的數組為："

For?i?=?1?To?10

a(i)?=?Int(Rnd?*?100)

Print?a(i);

Next?i

Print

Print?"排序後的數組為："

For?i?=?1?To?9

iMin?=?i

For?j?=?i?+?1?To?10

If?a(j)?<?a(iMin)?Then?iMin?=?j

Next?j

t?=?a(iMin):?a(iMin)?=?a(i):?a(i)?=?t

Next?i

For?i?=?1?To?10

Print?a(i);

Next?i

End?Sub

print

單擊兩次後的效果

Private Sub Form_Load()

Label1.Caption = "Visual Bacic程序設計"

Label1.FontSize = 20

List1.List(0) = "隸書"

List1.List(1) = "宋體"

List1.List(2) = "黑體"

End Sub

Private Sub List1_Click()

If List1.Selected(0) = True Then

Label1.FontName = "隸書"

ElseIf List1.Selected(1) = True Then

Label1.FontName = "宋體"

ElseIf List1.Selected(2) = True Then

Label1.FontName = "黑體"

End If

End Sub

第二題運行結果：

請壹定采納哦！

上一篇:兩元lagrange插值如何用C語言表示

下一篇:林有有是誰演的？