VB问题！IF语句的！懂的来！

2025-03-25 06:42:50

推荐回答（5个）

回答1：

Private Sub Command1_Click()
Dim AA() As String, Temp As String
Dim i As Long, j As Long
Dim MaxNumber As Long
MaxNumber = 3 '此处修改为任意的数据个数
ReDim AA(MaxNumber)
i = 1
Do
AA(i) = InputBox("请输入数字")
If IsNumeric(AA(i)) = True Then i = i + 1
If i = (MaxNumber + 1) Then Exit Do
Loop

For i = 1 To MaxNumber
For j = i + 1 To MaxNumber
If Val(AA(i)) < Val(AA(j)) Then
Temp = AA(i)
AA(i) = AA(j)
AA(j) = Temp
End If
Next
Next

For i = 1 To MaxNumber
Print AA(i)
Next
End Sub

回答2：

Private Sub Command1_Click()
Dim a(1 To 3) As Integer

For i = 1 To 3
a(i) = InputBox("任意输入一个数")
Print a(i);
Next i
Print
For i = 1 To 2
If a(i) < a(i + 1) Then
b = a(i)
a(i) = a(i + 1)
a(i + 1) = b
End If
Next i
For i = 1 To 3
Print a(i),
Next i

End Sub

回答3：

Private Sub Form_click()
Dim a, b, c, temp
a = Val(InputBox("输入数字"))
b = Val(InputBox("输入数字"))
c = Val(InputBox("输入数字"))
If a < b Then
temp = a
a = b
b = temp
End If
If a < c Then
temp = a
a = c
c = temp
End If
If b < c Then
temp = b
b = c
c = temp
End If
Print a, b, c
End Sub

回答4：

dim lng(2) as long, inval,i&,iMax&,iMin&
for i=0 to 2
inval=inputbox(.....)
if IsNumeric(inval)=true then
lng(i)=clng(inval)
else
lng(i)=0
end if
next
if lng(0)>lng(2) then
imax=lng(0)
imin=lng(2)
lng(0)=imin
lng(2)=imax
end if
if lng(1)>lng(2) then
imax=lng(1)
imin=lng(2)
lng(1)=imin
lng(2)=imax
end if
for i=2 to 0
print lng(i)
next

回答5：

Private Sub Command1_Click()
Dim a(1 To 3) As Integer, i%, j%
b=a
a=inputbox("任意输入三个数")
For i = 1 To 3
a(i) = i
Print a(i);
Next i
Print
For i = 1 To 3
t = a(3)
For j = 2 To 1 Step -1
a(j + 1) = a(j)
Next j
a(1) = t
For j = 1 To 3
Print a(j);
Next j
Print
Next i
End Sub