VB编程题 输入xyz三个数,按从小到大的次序显示

Posted 2023-03-23

VB编程题 输入xyz三个数,按从小到大的次序显示

源程序如下：

1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。

2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。

3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。

解题：

先在窗体上画一个按钮，代码如下：

Private Sub Command1_Click()

   Dim x!, y!, z!

   x = InputBox("input x")

   y = InputBox("input y")

   z = InputBox("input z")

   Print " 排序前："; x; "  "; y; "  "; z

   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

运行程序效果图如下：

扩展资料：

其他实现方法：

Private Sub Command1_Click()

Dim tmp, i, j As Integer '定变量

Dim a(2) As Integer '定数组

a(0) = x  

a(1) = y

a(2) = z  'xyz三个数赋值给数组，实际调试中用实际数字代替

For i = 0 To 1

For j = 1 To 2

If a(i) > a(j) Then

tmp = a(i)

a(i) = a(j)

a(j) = tmp

End If

Next j

Next i  '循环由小到大排序，估计这是考点

Print a(0)

Print a(1)

Print a(2) ，由小到大逐一打印 参考技术A 如果这是一道考试题目的话，考察的知识点还是很多的。
出题人的本意估计是要考数组循环排序，单纯xyz 3个数字比较的话其实还有很多更简单的写法。

Private Sub Command1_Click()
Dim tmp, i, j As Integer '定变量
Dim a(2) As Integer '定数组
a(0) = x  
a(1) = y
a(2) = z  'xyz三个数赋值给数组，实际调试中用实际数字代替

For i = 0 To 1
For j = 1 To 2
If a(i) > a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next j
Next i  '循环由小到大排序，估计这是考点

Print a(0)
Print a(1)
Print a(2) ，由小到大逐一打印

参考技术B #include "stdio.h" #include "stdlib.h" int main() int a[4],i,j,m; scanf("%d",&a[1]); scanf("%d",&a[2]); scanf("%d",&a[3]); for(i=1;i

输入三个整数，比较三个数大小并按从小到大的顺序排列。python代码怎么写?高手请指导，谢谢！

lt = [] # 保存输入的数字列表
a = '' # 临时保存输入的数字

# 输入数字，输入#结束数字输入
while 1:
    a = input()
    if a.isdigit():
        a = int(a)
    elif a=='#':
        print('输入结束')
        break
    else:
        print('请输入数字')
        continue 
    lt.append(a)

#打印源序列
print('源序列：',lt)
# 排序
lt.sort()
# 打印排序后序列
print('排序后：', lt)

参考技术A #!/usr/bin/env python

def main():
    a = map(int, raw_input().split())
    print ' '.join(map(str, sorted(a)))

if __name__ == '__main__':
    main()

参考技术B 输入4个正整数比较大小，并输出最小一个