河南大学09级VB程序设计课后习题参考答案Word文档格式.docx

1、2-4Timer1_Timer（）Text1.TextNowCaptionText1.Text2-5IfBackColorvbRedThenvbYellowElseIf2-6Label1.Left-Label1.Height-100Form1.Height3-2nIntegerRandomizeInt（90Rnd）10）n3-3河南大学环境与规划学院Int（71Rnd3-4Hex（Asc（Right（Text1.Text,1）3-5mDatem3-6bLeft（Text1,1）Right（Text1,Mid（Text1,2,&3-7Form_click（）InputBox（请输入字符）Left

2、（r,1）Mid（r,3,Right（r,3-8Label1.FontSize4010Label1.BackColorRGB（Rnd256,256）Label1.ForeColorQBColor（Int（16Rnd）3-10r!请输入您的工资:a（r100a）c50）d5010）5e105）2f5您的工资是:100元张数：a50元张数：b10元张数：c5元张数：d2元张数：e1元张数：f4-1pSingle,SingleText1Text2Text3（1r）MsgBox您的本息是：Round（s,2）4-2maxmina!请输入第一个实数b!请输入第二个实数a,b,4-3请输入年份Mod40A

3、nd400您刚刚输入的年份为闰年!您刚刚输入的年份不是闰年!4-4a=b=c!c=d!m!（-bSqr（d）/（2a）n!X1;m,X2=（-b）iSqr（Abs（-d）+Abs（i）iX2-4-5x!x60Text2重考！ElseIf70及格！80中等！90良好！优秀！Text14-6SelectCasexIs708090Select4-7请输入年龄30您的年龄为s,请参加长跑运动请参加跳绳运动请参加竞走运动请参加慢跑运动4-8ForToStepn;20ThenPrintNext4-91000374-100:Dor%请输入学生成绩1LoopUntil-1学生平均成绩=（m（n4-11（-1）

4、（a1-2+3-4+5-6+99-100=4-12m%请输入正整数m（m=1）阶乘n%请输入正整数n（n=m）t1it+（m+1）!+n!=4-13a%b%c%4-14500i;4-15LongDoWhile0.00001Loope的近似值是5-2i%,Array（1,4,5,6,7,8,9,9s（i）s（i）;5-3OptionBasex（）x（1）x（i）x（ix（i）;Nextx（10）x（i）x（10）9x（1）5-4a（5,5）Sumja（i,j）Int（Rnd51j）j）;jSum5-5a（）MaxInteger,iMaxjMaxMiniMinjMinM输入MN输入NReDima（M,N）MN900）a（1,1）:j）:i:Max=Max,iMax=iMax,jMax=jMaxMin=Min,iMin=iMin,jMin=jMinErase5-6na（n,n）5-7Variant73）Preserve7）or5-8Command1_Click（IndexInteger）IndexText3Val（Text1）Val（Text2）346-1yz请输入圆柱体的半径请输入圆柱体的高度volumex,y,z圆柱体的体积为6-2窗体模块请输入圆柱体的