循环结构画出将三个互不相等实数X1,X2,X3由大到小排序的流程图
用冒泡法排序:
新建工程,在窗体中加入CommandButton和TextBox控件,将下列代码Copy到代码窗口中:
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m_string As String
Dim m_min As Single
Dim X(3) As Single
For i = 1 To 3
X(i) = Val(InputBox("请输入第" & i & "个数字"))
Next
For i = 1 To 2
For j = i + 1 To 3
If X(j) > X(i) The...全部
用冒泡法排序:
新建工程,在窗体中加入CommandButton和TextBox控件,将下列代码Copy到代码窗口中:
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m_string As String
Dim m_min As Single
Dim X(3) As Single
For i = 1 To 3
X(i) = Val(InputBox("请输入第" & i & "个数字"))
Next
For i = 1 To 2
For j = i + 1 To 3
If X(j) > X(i) Then
m_min = X(i)
X(i) = X(j)
X(j) = m_min
End If
Next j
Next i
m_string = Text1。
Text
For i = 1 To 3
m_string = m_string & X(i) & ", "
Next i
Text1。Text = m_string
End Sub。
收起