vb6.0实验四习题与答案

实验四专业_____________班级________年级________姓名______________学号_______________一、实验目的1、熟练使用单行选择结构语句If…Then…Else2、熟练使用块选择结构语句If……Else…EndIf3、多分支块选择结构语句If……ElseIf……ElseIf……Else…EndIf二、实验内容1、设计窗体,按图示设置各控件:要求:编写适当事件过程，当程序运行时，在左边三个文本框各输入一个数，单击“排序”按钮，把它们由大到小排序后，依次显示在右边三个文本框中。PPrriivvaatteeSSuubbCCoommmmaanndd11__CClliicckk(())aa==VVaall((TTeexxtt11..TTeexxtt))::bb==VVaall((TTeexxtt22..TTeexxtt))::cc==VVaall((TTeexxtt33..TTeexxtt))IIffaabbTThheenntt==bb::bb==aa::aa==tt''aabb相相比比较较，，大大的的数数放放在在bb里里，，小小的的数数放放在在aa里里IIffaaccTThheenntt==cc::cc==aa::aa==tt''aacc相相比比较较，，大大的的数数放放在在cc里里，，小小的的数数放放在在aa里里IIffbbccTThheenntt==cc::cc==bb::bb==tt''bbcc相相比比较较，，大大的的数数放放在在cc里里，，小小的的数数放放在在bb里里TTeexxtt44..TTeexxtt==ccTTeexxtt55..TTeexxtt==bbTTeexxtt66..TTeexxtt==aaEEnnddSSuubb4、多分支选择结构SelectCase…Case……Case………CaseElse……EndSelect2、设计窗体,按图示设置各控件:编写适当事件过程，当程序运行时，在左边两个文本框各输入一个数，单击“求最大值”按钮后，其中最大值显示在右迦的文本框中PPrriivvaatteeSSuubbCCoommmmaanndd11__CClliicckk(())aa==VVaall((TTeexxtt11..TTeexxtt))::bb==VVaall((TTeexxtt22..TTeexxtt))IIffaabbTThheennTTeexxtt33..TTeexxtt==aaEEllsseeTTeexxtt33..TTeexxtt==bbEEnnddIIffEEnnddSSuubb3、按图示设置各控件，编写适当事件过程，程序运行时，在Text1、Text2分别中输入两个自然数，单击“判断”按钮，判断其为是否为自然对，分别在Text3中显示“yes”/“no”。（自然数对是指两个自然数的和与差都是一个自然数的平方）PPrriivvaatteeSSuubbCCoommmmaanndd11__CClliicckk(())DDiimmaa%%,,bb%%aa==VVaall((TTeexxtt11..TTeexxtt))::bb==VVaall((TTeexxtt22..TTeexxtt))IIffSSqqrr((aa++bb))==IInntt((SSqqrr((aa++bb))))AAnnddSSqqrr((AAbbss((aa--bb))))==IInntt((SSqqrr((AAbbss((aa--bb))))))TThheennTTeexxtt33..TTeexxtt==yyeessEEllsseeTTeexxtt33..TTeexxtt==nnooEEnnddiiffEEnnddSSuubb4、按图示设置各控件，编写适当事件过程，程序运行时，在上边三个文本框中依次输入三个数，判断以这三个数为系数的二元一次方程是否有实数解。若有实数解在Text4中显示“实数解”；否则，显示“复数解”。PPrriivvaatteeSSuubbCCoommmmaanndd11__CClliicckk(())aa==VVaall((TTeexxtt11..TTeexxtt))::bb==VVaall((TTeexxtt22..TTeexxtt))::cc==VVaall((TTeexxtt33..TTeexxtt))iiffbb^^22--44**aa**cc==00tthhaanntteexxtt44..tteexxtt==””实实数数解解””eellsseetteexxtt44..tteexxtt==””复复数数解解””EEnnddSSuubb5、按图示设置各控件，编写适当事件过程，程序运行时，在Text1中输入一个百分制成绩（0~100），单击“判定”按钮，在Text2中显示其等级（0~59为不及格、60~75为合格、76~85为良好、86~100为优秀）。6、按图示设置各控件，编写适当事件过程，程序运行时，在Text1中输入一个小于1000的自然数，单击“计算”按钮，在Text2中显示该数各位数字之和。PPrriivvaatteeSSuubbCCoommmmaanndd11__CClliicckk(())aa==TTeexxtt11..TTeexxttTTeexxtt22..TTeexxtt==VVaall((LLeefftt((aa,,11))))++RRiigghhtt((aa,,11))++MMiidd((aa,,22,,11))EEnnddSSuubb7、按图示设置各控件，编写适当事件过程，程序运行时，在Text1中输入一个数，单击“计算”按钮，求：|x|x≤-1y=Sinx-1x≤1Lnxx1PPrriivvaatteeSSuubbCCoommmmaanndd11__CClliicckk(())xx==VVaall((TTeexxtt11..TTeexxtt))IIffxx==--11TThheennyy==AAbbss((xx))EEllsseeIIffxx--11AAnnddxx==11TThheennyy==SSiinn((xx))EEllsseeyy==LLoogg((xx))EEnnddIIffTTeexxtt22..TTeexxtt==yyEEnnddSSuubb8、练习1）在窗体上画一文本框Text1，请编写可以让文本框只能接受小写字母的输入的事件过程代码。PPrriivvaatteeSSuubbTTeexxtt11__CChhaannggee(())DDiimmaa%%,,bb$$aa==LLeenn((TTeexxtt11..TTeexxtt))FFoorrII==11TTooaabb==MMiidd((TTeexxtt11..TTeexxtt,,II,,11))IIffAAsscc((bb))9977OOrrAAsscc((bb))112222TThheennTTeexxtt11..TTeexxtt==LLeefftt((TTeexxtt11..TTeexxtt,,II--11))TTeexxtt11..SSeellSSttaarrtt==IIMMssggBBooxx只只允允许许输输入入小小写写字字母母,,11++1166,,警警告告EEnnddIIffNNeexxttIIEEnnddSSuubb2）当（）时执行以下程序段，执行后，窗体显示的内容为（4）。PrivateSubForm_Click()a=75Ifa＝60Theni=i+4ElseIfa＝70Theni=i+3ElseIfa＝80Theni=i+2ElseIfa＝90Theni=i+1EndIfPrinti=,iEndSub3）以下程序段的执行结果是（23,9,14）。DimaAsInteger,bAsInteger,cAsIntegera=14:b=9:c=5:a=a+b:c=c+bIfa-cb-cThena=b+cIfa-bb-cThenb=a-cPrinta,b,c4）窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程：PrivateSubCommand1_Click()i=Text1.TextSelectCaseiCase1:j=+Case2:j=-Case3:j=*CaseElse:j=非法EndSelectText1.Text=jEndSub运行时，在Text1中输入1后单击命令按钮，Text1中内容是（+）。5）以下条件语句错误的是（A）。A)IfX0ThenY+1=YB)IfX+1=YThenY=Y+1C)IfXY+1ThenPrintYD)IfX+1Y+4ThenY=1:PrintY6）DimxAsIntegerx=Int(Rnd*10+5)SelectCasexCase5Print优秀Case4Print良好Case3Print通过CaseElsePrint不通过EndSelect