vb程序设计。使用数组和循环结构。

2025-05-23 22:39:51

推荐回答（2个）

回答1：

Private Sub Command1_Click()
Dim a(4), i, j, t
Label1.Caption = ""
For i = 0 To 4
  a(i) = Val(Text1(i).Text)
Next
' 冒泡法
For i = 0 To 3
  For j = i To 4
    If a(i) < a(j) Then
      t = a(i)
      a(i) = a(j)
      a(j) = t
    End If
  Next
Next
For i = 0 To 4
  Label1.Caption = Label1.Caption & a(i) & " "
Next
End Sub

回答2：

病情分析：
你好，这种情况提示是既往感染过梅毒，现在已经痊愈了。
指导意见：
一旦感染过梅毒TPPA终身阳性，你的情况，目前应该是没有传染性的，不会传染给宝宝。

vb程序设计。 使用数组和循环结构。

vb程序设计。使用数组和循环结构。