计算机VBA套题答案

第一套第一题：PrivateSubCommand1_Click()TxtWelCome.Value=欢迎使用VBA！EndSub第二题：PrivateSubCommand1_Click()'''不得删除本行注释Dims%,i%,M%,N%M=Text1.ValueN=Text2.Values=0Fori=MToNs=s+iNextLabel1.Caption=sEndSub第三题：PrivateSubCommand1_Click()'''不得删改本行注释DimrsAsADODB.RecordsetDimstrSQLAsStringSetrs=NewADODB.RecordsetstrSQL=Select*fromcoursewhere课程编号='&Text1.Value&''本行需要补充代码rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码Ifrs.EOFThenrs.AddNewrs(课程编号)=Text1rs(课程名称)=Text2rs(学时)=Text3rs(学分)=Text4'本行需要补充代码rs.UpdateEndIfrs.CloseSetrs=NothingEndSub第二套第一题：PrivateSubCommand1_Click()'''不得删除本行注释Label1.Visible=TrueEndSubPrivateSubCommand2_Click()'''不得删除本行注释Label1.Visible=FalseEndSub第二题：PrivateSubCommand1_Click()'''不得删除本行注释DimxAsInteger,yAsInteger,zAsIntegerx=Text1.Valuey=Text2.ValueIfFrame1.Value=1Thenz=x+yElseIfFrame1.Value=2Thenz=x-yElsez=x*yEndIfLabel6.Caption=zEndSub第三题：PrivateSubCommand1_Click()'成绩等级评定DimrsAsADODB.RecordsetSetrs=NewADODB.Recordset'本行需补充代码rs.Openselect*from学生,CurrentProject.Connection,2,2DoWhileNotrs.EOF()'本行需补充代码SelectCasers(综合分)CaseIs=90rs(等级)=优秀CaseIs=80rs(等级)=良好'本行需补充代码CaseIs=70rs(等级)=中等CaseIs=60rs(等级)=及格CaseElsers(等级)=不及格'本行需补充代码EndSelectrs.Update'本行需补充代码rs.MoveNextLooprs.CloseSetrs=Nothing等级评定后学生信息.Form.RecordSource=select*from学生MsgBox完成等级评定！,0+64,提示EndSub第三套第一题：PrivateSubCommand1_Click()'''不得删除本行注释Label1.ForeColor=RGB(255,0,0)EndSubPrivateSubCommand2_Click()'''不得删除本行注释Label1.ForeColor=RGB(0,0,255)EndSub第二题：PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=Text1.Valueb=Text2.ValueIfabThenLabel1.Caption=abElseIfa=bThenLabel1.Caption=a=bElseLabel1.Caption=abEndIfEndSub第三题：PrivateSubCombo1_Change()DimrsAsADODB.RecordsetDimstrSQLAsStringSetrs=NewADODB.RecordsetstrSQL=Select*Frombookwhere书号='&Combo1.Value&''本行需要补充代码rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码IfNotrs.EOF()ThenText1=rs(书名)Text2=rs(单价)Text3=rs(数量)Text4=rs(单价)*rs(数量)'本行需要补充代码EndIfrs.CloseSetrs=NothingEndSub第四套第一题：PrivateSubCommand1_Click()TxtEnabled.Enabled=TrueEndSubPrivateSubCommand2_Click()TxtEnabled.Enabled=FalseEndSub第二题：PrivateSubCommand1_Click()'按分段函数求yDimxAsSingle,yAsSinglex=Text1.ValueIfx=0Theny=Abs(x-5)ElseIfx=5Theny=Sqr(x^2-1)Elsey=3*x-2EndIfLabel3.Caption=yEndSub第三题PrivateSubCommand1_Click()'按姓名查找教师信息Dimf_markAsBooleanDimSQLstrAsStringDimrsAsADODB.Recordset'本行需补充代码Setrs=NewADODB.RecordsetSQLstr=select教师.姓名,教师.性别,教师.出生日期,教师.职称,专业.专业名称from教师,专业where教师.专业编号=专业.专业编号rs.OpenSQLstr,CurrentProject.Connection,2,2'本行需补充代码f_mark=FalseDoWhileNotrs.EOF()AndNotf_markIfrs(姓名)=Text1.ValueThen'本行需补充代码Text2.Value=rs(姓名)Text3.Value=rs(性别)Text4.Value=rs(出生日期)Text5.Value=rs(专业名称)SelectCasers(职称)'本行需补充代码Case讲师Frame1.Value=1Case副教授'本行需补充代码Frame1.Value=2Case教授Frame1.Value=3'本行需补充代码EndSelectf_mark=TrueEndIfrs.MoveNext'本行需补充代码LoopIfNotf_markThenMsgBox查无此人!,0+64,提示EndIfrs.CloseSetrs=NothingEndSub第五套第一题OptionCompareDatabasePrivateSubComboFont_Change()TxtTest.FontName=ComboFont.ValueEndSub第二题OptionCompareDatabasePrivateSubCommand1_Click()DimxAsIntegerx=Text1.ValueIfx0ThenLabel1.Caption=请输入一个自然数ElseIfxMod2=0ThenLabel1.Caption=x&是偶数ElseLabel1.Caption=x&是奇数EndIfEndSub第三题PrivateSubCommand1_Click()DimrsAsADODB.RecordsetDimstrSQLAsString'用于存储SQL语句strSQL=Select姓名FromExamStuWhere生源='&Text1.Value&''本行需要补充代码Setrs=NewADODB.Recordset'本行需要补充代码rs.OpenstrSQL,CurrentProject.Connection,2,2DoWhileNotrs.EOF'本行需要补充代码List1.AddItemrs(姓名)rs.MoveNextLooprs.CloseSetrs=NothingEndSub第六套第一题OptionCompareDatabasePrivateSubListFontS_BeforeUpdate(CancelAsInteger)EndSubPrivateSubListFontS_Click()TxtTest.FontSize=ListFontS.ValueEndSub第二题OptionCompareDatabasePrivateSubCommand1_Click()'字符串转换'***CodeBegin***Dimstr1AsString,str2AsString,charAsStringDimnAsIntegerstr1=Text1.Valuen=Len(str1)Fori=1Tonchar=Mid(str1,i,1)IfAsc(char)=Asc(a)AndAsc(char)=Asc(z)Thenstr2=str2+Chr(Asc(char)-32)Elsestr2=str2+charEndIfNextiLabel2.Caption=str2'***CodeEnd***EndSub第三题OptionCompareDatabasePrivateSubCommand1_Click()'计算平均身高并筛选学生'***UserCodeBegin***'计算平均身高DimH_AvgAsSingleDimAvg_rsAsADODB.Recordset'本行需补充代码SetAvg_rs=NewADODB.RecordsetAvg_rs.Openselectavg(身高)as平均身高from学生,CurrentProject.Connection,2,2'将平均身高值赋予变量H_AvgH_Avg=Avg_rs(平均身高)Text1.Value=H_Avg'本行需补充代码Avg_rs.CloseSetAvg_rs=Nothing'本行需补充代码'Sou_rs记录集来源于'学生'表DimnAsIntegerDimSou_rsAsADODB.RecordsetSetSou_rs=NewADODB.RecordsetSou_rs.Openselect*from学生,CurrentProject.Connection,2,2'本行需补充代码'Tar_rs记录集来源于'符合条件学生'表DimTar_rsAsADODB.RecordsetSetTar_rs=NewADODB.Recordset'本行需补充代码Tar_rs.Openselect*from符合条件学生,CurrentProject.Connection,2,2n=0DoWhileNotSou_rs.EOF()IfSou_rs(身高)=H_AvgThenTar_rs.AddNew'本行需补充代码Tar_rs(学号)=Sou_rs(学号)Tar_rs(姓名)=Sou_rs(姓名)Tar_rs(性别)=Sou_rs(性别)Tar_rs(出生日期)=Sou_rs(出生日期)'本行需补充代码Tar_rs(生源)=Sou_rs(生源)Tar_rs(身高)=Sou_rs(身高)n=n+1'本行需补充代码EndIfSou_rs.MoveNextLoopTar_rs.Update'本行需补充代码Sou_rs.CloseSetSou_rs=NothingTar_rs.CloseSetTar_rs=NothingText2.Value=n'***UserCodeEnd***符合条件学生信息.Form.RecordSource=select*from符合条件学生MsgBox完成筛选！,0+64,提示EndSub第七套第一题OptionCompareDatabasePrivateSubCommand1_Click()TxtDate.Value=DateEndSub第二题OptionCompareDatabasePrivateSubCommand1_Cli