实验二选择、循环结构程序设计(6学时)

《实验二选择、循环结构程序设计(6学时)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验报告二课程VB程序设计目选摄循环结构程序设计(6学时)成绩专2015级经济学四班姓名杨自然学号201531100361实验日期類佥(1)掌握分支结构(if、ifelse、selectcase)语句(2)舅屋循环酬I」细勾(For-NextxWhile-WendxDo-Loop)銅(3)舅屈盾环勾(4)舅屋素鳩去(5)齢循环控晡勾険交藪的问题实验内容-歸设计【实验3-1］编写f"系统登录"程序，对用户输入的账号和密码进行检验。(10分)(实验教材P39)要求：①贝絹不融6幽，靜马为4位抑，本题倔码段设为"majq"。②账号中不能有非数字字符，可以通过IsNumeric函数对文

2、本框中的输入内容进行测③密码输入时，屏幕上不能显示输入字符，以"刊代替。④当输入不正确时，显示提示信息。若单击”重试”按钮,则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击〃取消〃按钮，贝！J停止程序的运行。⑤密码检验运行界面稲俞入密码错i题示的信息分另蜘图3-2和图3-3所示。图3-2密码检验运行界面图3-3输入密码错误显示信息掌握简单if语句的使用須錨果：qnspugOa6ueqj_Tlxalqns6"!」dqnsPU3....=ixaisedpcai.HM=1XB丄・onp<8丄Opeo-

3、~ujjojqns“明尼qnspugPU30>P!D飞puEiuiu

4、coqnsaieAUdqnspugIIPu3ilPu3snDOj；assed

5、xa]_I1U=；xeised;xai邓PU3ueqiV<>HI'uoqewppxaqA+g'“錦刼舐）xo日6s*=!邓“卵1/喙xog6siMuaqi1（bfeuju=;xa£sedp（ai）1」b6“u[sv!LUjO0>

6、3!D_lpueujiuoDqnse^AUdqnspug（a

7、6uiss/人O

8、6u!SsyX'

9、o」】uo：）s/3DJnos）doja6eja_iauuejdqnsa^AUdPrivateSubTextNo_LostFocus()IfNotIsNumericCFext

10、No)ThenMsgBox”账号有非数字字符；vbExclamation,“输入账号"TextNo.Text=n"TextNo.SetFocusEndIfEndSub［请劑尔的典型结果的截图粘贴到下面］【实验3-2］税务部门征收所得税,规定如下（用IF语句实现）（10分）（P42）①当收入为200元以内（含200元）时，免征;②当收入为200~400元（含400元）时，将超过200元的部分纳税3%;③当收入为400~5000元（不含5000元）时，将超过400元的部分纳税4%;④当收入为5000元或5000元以11时，将超过400元的咅畛内税5%。程序运行后,单击窗体,在输人对

11、话框中输入收入数,程序将输出纳税金额,运行情况如下图卿，要求收入为2000应纳税为：64绷卿辩界面舅屋多分支if语句的使用,可自行用select语句改写。果：【请翔尔的代码粘贴到T®】PrivateSubForm_Load()DimxAsIntegerDimyAsSingleShowx=Val(InputBox("输入收入"))Ifx<=200Theny=0Elselfx<=400Theny=(x-200)*0.03Elselfx<5000Theny=(x-400)*0.04Elsey=(x-400)*0.05EndIfPrint“收入为"；x;“应纳税为”；yEndSuba纳

12、税计算

13、亘

14、

15、亘屋收入为4444应纳稅为161.76【实验3-3］猜数游戏程序自动产生f［「100］内的正整数z要用户猜,用户猜的值与被猜值的差8阴屮号个数表示”"刃越少表示差得越远,辱”越多表示相差越近。（用selectcase语句实现）（10分）（P43）界面设计参见下图:。猜敎舸堺面掌握selectcase语句的使用,可自行用if语句改写。弟够果：DimNAsIntegerPrivateSubCommandl_Click()DimdifAsIntegerdif=Abs(Val(Textl.Text)-N)PrintNSelectCasedifCaseIs=0MS=”你猜对

16、了,真聪明！！”Case1To2Case3To5MS=u*****nCase6To10MS=Case11To20Case21To50MS=咲刘CaseElseMS="肝EndSelectMsgBoxMSEndSubPrivateSubForm_Load()RandomizeTimerN=Int(100*Rnd+1)EndSub【请将你的典型结果的童f占贴到下面】QForml53工程3确走二循设计77确定【实验3-4］求自幅N的阶乘N!”运行结果如下图所示(10分)(P43)求阶乘界面掌握fo