编程题参考答案.docxVIP

题库（编程题）参考答案 1、已知 x,y,z 3 个变量中存放了 3 个不同的数，比较它们的大小并进行调整，使得xyz。 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 2、计算 0~200 之间所有能被 11 或 5 整除的数之和 Private Sub Form_Click() Dim n%, s% s = 0 For n = 0 To 200 If n Mod 5 = 0 Or n Mod 11 = 0 Then s = s + n Next n Print s End Sub 3、输入三角形三条边 a,b,c 的值，根据其数值，判断能否构成三角形。 Private Sub Command1_Click() a = Val(InputBox(输入 a 的长)) b = Val(InputBo