资源描述:
《vb的几道题(可以参考一下)》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、加油!【程序填空】'1.下面的程序段用于打印出以下图形''*'***'*****'*******'*****'***'*'PrivateSubForm_Click()Dimi%,j%,k%Fori=0To3Forj=0To2-iPrint"";Nextj'**********SPACE**********Fork=1To2*i+1'fork=1to【?】Print"*";NextkPrintNextiFori=0To2Forj=0Toi'**********SPACE**********Print"";'printNextjFork
2、=0To4-2*iPrint"*";'【?】Nextk'**********SPACE**********Print'【?】NextiEndSub2.本程序段将一个十进制整数m转换成r(2-16)进制字符串'方法:将m不断除r取余数,直到商为零,以反序得到结果。'-------------------------------------------------------FunctionTranDec$(ByValm%,ByValr%)DimStrDtoR$constructionqualityacceptanceandassess
3、mentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10thenormsofconstructionsupervision,theelectricpowerconstructionsupervisionregulationsD
4、imiB%,mr%StrDtoR=""DoWhilem<>0'**********FILL**********mr=mModr‘mr=_____m=mrIfmr>=10Then'**********FILL**********‘StrDtoR=Chr(mr-10+_____)&StrDtoRStrDtoR=Chr(mr-10+65)&StrDtoRElseStrDtoR=mr&StrDtoREndIfLoopTranDec=StrDtoREndFunctionPrivateSubCommand1_click()Dimm0%,r0%
5、,i%m0=Val(Text1.Text)r0=Val(Text2.Text)Ifr0<2Orr0>16Theni=MsgBox("输入的R进制数超出范围",vbRetryCancel)Ifi=vbRetryThenText2.Text=""Text2.SetFocusElseEndEndIfEndIfLabel3.Caption="转换成"&r0&"进制数"'**********FILL**********Text3.Text=TranDec(m0,r0)‘Text3.Text=TranDec(m0,_____)EndSub3.要
6、求输入若干学生的成绩,计算平均分和高于平均分的人数,'并将这两个数据放入数组的最后。'-------------------------------------------------------PrivateSubForm_Click()Dimmark()AsInteger,i%,n%,avern=InputBox("输入学生的人数")ReDimmark(1Ton)aver=0Fori=1TonconstructionqualityacceptanceandassessmentRegulation(ProfessionalEdit
7、ion)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10thenormsofconstructionsupervision,theelectricpowerconstructionsupervisionregulationsmark(i)=Int(Rnd*101)aver=aver+ma
8、rk(i)Nexti'**********FILL**********‘ReDim_preserve____mark(1Ton+2)'增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留ReDimPreservemark(