vb上机题目实验4选择循环结构

1、实验 4 选择循环结构(设计性)实验目的：掌握选择结构（If-Then-Else 结构及其嵌套结构或 Select Case 结构）程序的概念掌握循环结构（For 循环、While 循环或 Do-Loop 循环）程序的概念实验内容：实验 1：写出下列程序的运行结果：(1)Private Sub Form_Click( ) Dim x%, y% x=InputBox(“Enter y=InputBox(“Enter If xy Thenx”)y”)Prx-y若输入的 x，y 值分别为 4,5ElsePr End If Suby-xEnd PrivateDim x=4 y=7(2)Sub Form

2、_Click( )x! ,y! ,z!z=x Mod y If z3 Thenx=y y=zz=x Mod y End IfPrx, y, z End SubPrivate Sub Form_Click( ) Dim x!, y!x=1.5：y=3.5If x0 Theny=y-x(3)ElseIf y0.5 x=yElseIf x3.5y=y*x End IfThenThenPr End Sub或者用x, yx = InputBox(Enterx：) ： y = InputBox(Enter y：)代替上段语句中的：x=1.5：y=3.5(4) Private Sub Form_Click(

3、 ) Dim x!, y!x=InputBox(“EnterSelect Case xCase 1, -59 Toy=x/4+5Case 2 To 15y=x3/2 Case Is10y=x Case Elsey=0 End Selectx: ”)2 写出 x分别为-15，0，10，100 时的结果Pr End Sub“y=“,y实验 2：编程序计算下列分段函数：ex+ln xx0y=0 x=03x2+5x+1x0实验 3：输入一个数，判断它能否同时被 2，3，5 整除；实验 4：计算个人收入纳税额。收入 1000 元以下纳税为 0；1000 元2000 元纳税为2001 元4000 元纳税为

4、 3.5%；4000 元以上纳税为 5%。2.5%；实验 5：写出下列程序的运行结果：（1） x=0Fori=1 to 3x=x+i Next iPrx+i(2)a=10WhilePra20Prx实验 6：假设某乡镇企业现有产值 2376000 元，如果保持年增长率为 13.45%，试问多少年后该企业的产值可以翻一番。实验 7：用多项式计算 e 的近似值：e = 1 + 1/1! + 1/2! + 1/3! + + 1/N!实验 8：我国现有亿。13 亿，若按年增长 0.8%计算，多少年后我国将超过 26实验 9：输入 x、y、z 三个数，按从小到大的次序显示。实验 10：编制程序，计算某个学

5、生奖学金的等级，以三门功课成绩 m1、m2、m3 为评奖依据。奖学奖标准如下：一等奖。符合下列条件之一的i.平均分大于 95 分者一等奖：ii.有两门成绩是 100 分，且第三门功课成绩不低于 80 分者二等奖。符合下列条件之一的（1） 平均分大于 90 分者二等奖：（2） 有一门成绩是 100 分，且其他功课成绩不低于 75 分者三等奖。各门功课成绩不低于 70 分者。符合条件者就高不就低，只能获得高的那一项奖学金。要求显示获奖的等级。实验 11：编写程序，在图形框（PictureBox）中显示出所有的水仙花数。所谓水仙花数，是指一个 3 位数，其各数位上的数字的立方和等于该数本身。例如：153 是水仙花数，因为 153=13+53+33实验