vb基础编程题汇总.docVIP

字号： 大大? 中中? 小小 VB编程题汇总(附参考程序) 本学期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 x0 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 weight2 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+bc)and(b+ca)and(c+ab) 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