Question

关于一个VB程序段的问题

程序如下：（交换两变量中的值并算出两变量值的和）
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim x As Integer
a = InputBox("请输入存入a变量中的整数：", "输入数据")
b = InputBox("请输入存入b变量中的整数：", "输入数据")
Print "a:"; a, "b:"; b
x = a: a = b: b = x
Print "a:"; a, "b:"; b
Print "两变量的和为："; a + b
End Sub
在这一程序段中"x=a:a=b:b=x"是如何做到交换a，b的值？
怎样不用第三值x来交换a，b的值？
为什么输入小数输出的值被四舍五入？

Answer 1

1）交换变量是这样完成的：
x = a: a = b: b = x '三行代码写成一行用冒号分隔
第一步
x=a ‘变量a中的值赋值到变量x
第二步
a=b ‘变量b中的值赋值到变量a
’这时a的值变成了b中的值，a中原先的值已被覆盖没了！
'还好a中原先的值之前已于第一步保存到x里了，它并未丢失
第三步
b=x ‘变量x中的值赋值到变量b ，好了到此a和b完成了彼此之间的数值调换
'x起到中间过渡的作用。
'***不利用第三方中间过渡无法完成数值互换，
'***原因是两方中至少一方的原值会在赋值后丢失，从而无法完成数值交换
'***这是必须使用中间变量的根本原因

2）为什么输入小数输出的值被四舍五入？

因为变量a、b、x都被声明为integer(整型)数字类型，其变量值不会允许存在小数。
如果将小数赋值给它们，系统会自动做四舍五入后保存到变量里，这是系统的内置安排。

如需显示小数请将相关变量声明为单精、双精、小数和货币等数字类型。例如
Dim a As Single
Dim b As Single
Dim x As Single

Answer 2

第一个循环的意思是将i从1枚举到4
并且s记录了i的各个值相乘结果所以
s=4!=24
第二个循环将k从5倒数到3
s记录了各个k的和
s=5+4+3=12
第三个循环将i从3数到9每次数数的跨越长度是5
所以
第一次进入的时候
i=3
第二次
i=8
第三次i先执行加法i=8+5=13再比较，i>9，跳出循环
所以
循环体执行2遍

Answer 3

x=a:a=b:b=x

其实就是
x=a
a=b
b=x
只不过一个写成一行，另外一种写成三行，写法不一样而已