当然能用If嵌套。在窗体上添加4个文本框和1个按钮,Text1、Text2和Text3输入,Text4输出。Private Sub Command1_Click()Dim a As Integer Dim b As Integer Dim c As Integer a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a > b Then If a > c Then If b > ...
c = t End If MsgBox a & " " & b & " " & c, vbOKOnly, "从大到小的顺序"
Private Sub Form_Click()Dim A(1 To 3), I, J, X As Integer For I = 1 To 3 A(I) = Val(InputBox("请输入数字"))Next I For I = 1 To 2 For J = I + 1 To 3 If A(I) < A(J) Then X = A(I)A(I) = A(J)A(J) = X End If Next J Next I For I =...
1 在窗体上画3个文本框(用来输入3个数)加一个按钮(名为"确定",输完数后点击)2 双击按钮,输入程序代码:Private Sub Command1_Click()Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer '定义3个整数a,b,c,a = Text1: b = Text2: c = Text3 If a > b Then...
Private Sub Form_Load()Me.Show a = Val(InputBox("请输入第一个数"))b = Val(InputBox("请输入第二个数"))c = Val(InputBox("请输入第三个数"))If a > b Then If a > c Then Print a; c; b Else Print c; a; b End If Else If b > c Then Print b; c; a Else...
Click()x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")If x < y Then t = x: x = y: y = t If x < z Then t = x: x = z: z = t If y < z Then t = y: y = z: z = t Print x, y, z End Sub ...
用户的这一行 If a > b > c Then是错误的,任何一门语言都是按照运算符优先级从左至右依次计算得出结果的,显然两个>运算符优先级是相同的,所以从左至右依次算。可以参考以下代码:Dim a As Single, b As Single, c As Single a = Text1.Text b = Text2.Text c = Text3.Text '无...
输入三个数,并且排序 Private Sub Command1_Click()Dim S(1 To 3) As Long, I As Long For I = 1 To 3 S(I) = Val(InputBox("请输入第 " & I & " 个数:", "输入", I))Next Call PaiXu(S) '排序 MsgBox "三个数是:" & S(1) & "," & S(2) & "," & S(3)...
Private Sub Command1_Click()a = Val(InputBox("请输入第一个数"))b = Val(InputBox("请输入第二个数"))c = Val(InputBox("请输入第三个数"))Label3.Caption = "a=" & Str(a) & ",b=" & Str(b) & ",c=" & Str(ac)End Sub Private Sub Command2_Click()Dim d(1 To...