资源描述：
《VB面向对象程序设计实习报告.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、2011年5月一、实习目的熟练掌握面向对象的概念、特点和基本的程序设计方法，熟悉使用常用的算法解决实际问题。二、实习时间第14周三、实习地点二机房、A302、五机房四、实习内容1、编写程序，将乘法“九九表”存入数组中，单击显示按扭，可以在当前窗口中显示出来；单击交换按扭后，弹出输入框，根据输入框里输入的数据交换乘法“九九表”任意两行的数据。代码：PrivateSubCommand1_Click()Dima(9,9)AsIntegerFori=1To9Forj=1Toia(i,j)=i*jNextjNextiFori=1To9Forj=1ToiPr
2、inti;"*";j;;"=";a(i,j);vbTab;NextjPrintNextiEndSubPrivateSubCommand2_Click()Dima(9,9)AsIntegerFori=1To9Forj=1Toia(i,j)=i*jNextjNextix=Val(InputBox("请输入需要交换的行数"))y=Val(InputBox("请输入需要交换的行数"))PrintPrint"交换后的结果："Fori=1To9Forj=1ToiSelectCaseiCasexForn=1ToyPrinty;"*";n;;"=";a(y,n)
3、;vbTab;Nextnj=iCaseyForn=1ToxPrintx;"*";n;;"=";a(x,n);vbTab;Nextnj=iCaseElsePrinti;"*";j;;"=";a(i,j);vbTab;EndSelectNextjPrintNextiEndSubPrivateSubCommand3_Click()EndEndSub2、由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误
4、记0分。最后给出总得分。代码：PrivateSubCommand1_Click()Dima%,b%,c%Fori=1To10Randomizea=Left(Rnd*100,1)b=Left(Rnd*1000,2)Label1.Caption=a&"+"&bc=InputBox("输入答案","回答")Ifc=a+bThenMsgBox"回答正确,加10分","0","结果"Sum=Sum+10ElseMsgBox"回答错误","0","结果"c=InputBox("重新输入答案","第二次回答")Ifc=a+bThenMsgBox"回答正确,加5
5、分","0","结果"Sum=Sum+5ElseMsgBox"回答错误,0分","0","结果"EndIfEndIfNextiMsgBox"答题完毕,总分:"&Sum,"0","得分"EndSubPrivateSubCommand2_Click()EndEndSub2、设计一个用户登录检测程序，若用户输入的用户名和密码均无误，显示“欢迎使用本系统”，否则提示用户名或密码错误，请用户重新输入。若用户名或密码连续三次输入错误，则显示“对不起，您不是本系统的合法用户”，然后退出。要求系统一共有三个用户，且每个用户对应不同的密码。代码：DimsumAsI
6、ntegerPrivateSubCommand1_Click()x=Text1.Texty=Text2.TextIfx="张三"Andy="0000"Orx="李四"Andy="1111"Orx="王五"Andy="2222"ThenMsgBox"欢迎使用本系统"ElseMsgBox"用户名或密码输入错误，请重新输入"EndIfsum=sum+1Ifsum>=3ThenMsgBox"对不起，你不是本系统的合法用户"EndIfEndSubPrivateSubCommand2_Click()EndEndSub4、编写程序，计算你从出生当天开始计算，到
7、2011年5月31日一共经过了多少天。要求：1、出生日期从键盘输入2、正确处理和判断闰年问题代码：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,sumAsIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa<2011ThenForj=aTo2011If(aMod400=0)Or(aMod4=0AndaMod100<>0)Thensum=sum+366Elsesum=sum+365EndIfNextjF
8、ori=1TobSelectCaseiCase1,3,5,7,8,10,12sum=sum-31*2Case4,6,9,11sum=su
