vb编程训练（01）及答案

各位同学，每周一次的vb编程训练与大家见面了。请同学们认真做好程序编写工作，然后再到机房进行代码验证，并确认程序运行是否符合要求，逻辑上没有错误，再用不同颜色水笔修改源代码。

练习本应该准确反映编程题目和正确代码，做到书写规范，字迹清晰，有笔记或注释。

公布本周2题的编程题和代码。请用vb运行验证。

1、输入一个三位数，分别输出其个位数、十位数、百位数上的数字.

提示： 取数位是本题的关键。 利用好求余 、 实数除运算符（配合int函数取整数位），能独立写出各个数位上的相关表达式，是基本要求。

Dim m as double

Dim a as double

Dim b as double

Dim c as double

m=inputbox(“输入一个三位数”)

a= int(m / 100)

b= int(m / 10) mod 10

c=m mod 10

print a ,b ,c

2、输入2个数，把两个数的值交换后输出

提示： 交换的思想，需要借助第三个变量实现。切不可简答的a=b 和b=a ，犯了逻辑上的错误。代码如下:

Dim a as double

Dim b as double

Dim c as double

a=inputbox(“输入一个数据”)

b=inputbox(“再输入一个数据”)

c=a

a=b

b=c

print a , b