本学期VB编程题汇总(附参考程序)
一、“时间转换程序”的制作
1、设计一个“时间转换程序”的界面（如下）
2、为“确定”按钮添加如下事件过程代码，使得当用户单击“确定”时，计算机能实现时间转换，并在文本框中输出结果。
3、编写“退出”按钮的事件过程代码
确定按钮的代码如下：
Dim t as long,h as integer,m as integer
Dim a as integer,s as integer
T=text1.text
H=t \3600
A=t mod 3600
M=a \60
S=a mod 60
Text2.text=h & “小时”& m & “分钟”& s & “秒”
二、“温度转换”
编一个程序，输入一个摄氏温度c，将其转换成华氏温度f输出(f = c* 9/5 +32)。
程序界面如下：
要求：当用户输入一个摄氏温度后，单击“华氏温度=”按钮，输出正确结果。
“华氏温度”按钮的代码为：
Dim c as single, f as single
C=text1.text
f = c* 9/5 +32
text2.text=f
三、“求圆柱的体积”
1.编一个程序，输入一个圆柱的底面半径(双精度型)与高(双精度型)，求圆柱的体积(双精度型，圆周率以3.14计算)。
2.当用户输入半径与高后，单击按钮，输出正确结果。
按钮的代码为：
Dim r as double,h as double,s as double
const pi as single =3.14
r=text1.text
h=text2.text
s=pi*r*r*h
text3.text=s
四、“绝对值”程序
开始按钮的代码为：
Dim x as single ,y as single
X=text1.text
If x<0 then y= -x else y=x
Text2.text=y
五、打折问题
某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。
“计价”按钮的代码为：
Dim weight as single ,money as single
weight=text1.text
money=weight*1.5
If weight>2 then
Money=money*0.8
End if
Text2.text=money
六、任意输入三条边，判断它们能否构成一个三角形。
“判断”按钮的代码为：
Dim a as single ,b as single , c as single
a=text1.text
b=text2.text
c=text3.text
If (a+b>c)and(b+c>a)and(c+a>b) then
Text4.text=”可以构成三角形”
Else
Text4.text=”不可以构成三角形”
End if
七、for循环
练习题
用券下载整式乘法计算练习题幼小衔接专项练习题下载拼音练习题下载凑十法练习题下载幼升小练习题下载免费
：
（1）求s=1+4+7+…+100的值
Dim I as integer,s as integer
S=0
For i=1 to 1000 step 3
S=s+i
Next i
Print “s=1+4+7+…+100的结果为：”；s
(2)求s=1+22+…+264的值
Dim I as integer,s as single
S=0
For i=0 to 64 step 2
S=s+2^i
Next i
Print “s=”；s
（3）求出100——999之间的所有水仙花数（如果一个三位数，它的每位数字的立方和等于这个三位数，则称它为水仙花数。例如：153＝13＋ 53＋ 33，所以153是一个水仙花数）
解法1：
Dim I as integer,a as integer,b as integer,c as integer
For i=100 to 999
A=I \100
B=(I mod 100)\10
C=(I mod 100) mod 10
If A^3+B^3+c^3=I then print I
Next i
解法2：
Dim I as integer,a as integer,b as integer,c as integer
For a=1 to 9
For b=0 to 9
For c=0 to 9
I=a*100+b*10+c
If A^3+B^3+c^3=I then print I
Next c
Next b
Next a
（4）计算1*2+2*3+3*4+4*5+…+N*（N+1）的和 (N≤60)
程序界面如下：
当用户输入N后，单击按钮后，输出正确结果
N=text1.text
S=0
For I=1 to N
S=s+I*(I+1)
Next I
Text2.text=s
八、循环嵌套练习题：
（1）炊事员采购问题：
一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？
Dim x as integer,y as integer,z as integer
For X=0 to 33
For Y=0 to 50
Z=90-x-y
If X*15+10*y+z*5=500 then print x,y,z
Next y
Next x
（2）求2~1000中的完全数（因子之和等于它本身的数为完全数。例如28的因子是1，2，4，7，14，且1+2+4+7+14=28，则28是完全数）
Dim n as integer,s as integer,j as integer
For n=2 to 1000 ‘从2到1000逐个判断
S=0 ‘S用于累加N的约数和,初始为0
For j=1 to n\2 ‘n的约数只可能是从1到n\2之间的数
If n mod j=0 then s=s+j ‘如果n除以j的余数为0，则j为n的约数，将它加入s
Next j
If s=n then print n ‘如果约数和s与N相等，则N为完全数，输出它
Next n
浙公网安备 33021202002483