期末vb程序填空+设计

《期末vb程序填空+设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、程序设计constructionqualityacceptanceandassessmentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10thenormsofconstructionsupervision,theelectricpo

2、werconstructionsupervisionregulations1题目：由输入对话框输入n（n必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框label1上显示。Sum=1/2+1/6+……+1/(k*(k+1)) (k<=n)Privatesubform_click()Dimnasinteger,sumasdouble,kasintegerN=val(inputbox(“n=”,”请输入自然数n（n>0且n<30）”))Dowhilen<=0!!  !!n>30                          

3、     or N=val(inputbox(“n=”,”请重新输入”))LoopSum=0K=0DoconstructionqualityacceptanceandassessmentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10

4、thenormsofconstructionsupervision,theelectricpowerconstructionsupervisionregulationsK=!! !!                                                  k+1Sum=sum+1/(k*(k+1))Loopuntil!!!!                                       (k+1)>nLabel1.caption=“sum”+str(sum)Endsub 2题目：下面的程序用于打印出以

5、下图形。程序代码：Privatesubform_click()constructionqualityacceptanceandassessmentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10thenormsofconstructi

6、onsupervision,theelectricpowerconstructionsupervisionregulationsDimi%,j%,k%ForI=3to0step-1 Forj=0to2*iPrint“”; Nextj Fork=5to!!   !!                                       11-2*iPrint“*”; NextkprintNextiForI=0to3 Forj=0to2*I+2!!   !!                                         

7、    print“”; Nextj Fork=0to4-2*iconstructionqualityacceptanceandassessmentRegulation(ProfessionalEdition)(DL/T5210.2-2009~DL/T5210.8-2009);1.9thequalitycheckoutandevaluationofelectricequipmentinstallationengineeringcode(DL/T5161.1-2002~5161.17-2002);1.10thenormsofconstruct

8、ionsupervision,theelectricpowerconstructionsupervisionregulationsPrint“*”; Nextk!!   !!