Question

急求 。今天8点VB考试。这是我搞到的必考题。急求答案。要不然可能会挂。





Answer 1

Dim x%, y%
Dim a(1 To 4) As Long
Dim t As Long
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
t = 0
For x = 1 To 3
For y = x + 1 To 4
If a(x) > a(y) Then
t = a(y)
a(y) = a(x)
a(x) = t
End If
Next y
Next x
Text1.Text = a(1)
Text2.Text = a(2)
Text3.Text = a(3)
Text4.Text = a(4)

Answer 2

B1~B1~B1~B1~B1~B1~B1~

Answer 3

没有源码，给出源码啊，这是填空题，请追问

Answer 4

这是填空题啊！

追答

不完整的题目呢？

Answer 5

还有运行的程序，这只有个窗口有什么用？