二级VB上机题库22

精品文档-下载后可编辑二级VB上机题库22二级VB上机题库22

第43套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.[10分]

2.PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()'?Timer1.Enabled=FalseEndSubPrivateSubForm_Activate()'Fork=0To359Step?'x=radius*Cos(k*3.14159/180)+?y=y0-radius*Sin(k*3.14159/180)Form1.Circle(x,y),20Nextka=90b=90len1=Line1.Y1-Line1.Y2len2=Line2.Y1-Line2.Y2EndSubPrivateSubTimer1_Timer()a=a-30Line1.X2=len1*Cos(a*3.14159/180)+x0'Line1.?=y0-len1*Sin(a*3.14159/180)'b=?-30/12Line2.X2=len2*Cos(b*3.14159/180)+x0Line2.Y2=y0-len2*Sin(b*3.14159/180)EndSub[10分]

三、综合应用题

1.PrivateSubCommand1_Click()DimchAsStringText1=""OpenApp.Path"\in5.dat"ForInputAs#1Fork=1To5Input#1,chathlete(k)=chText1=Text1ch""Forj=1To8Input#1,cha(k,j)=Val(ch)Text1=Text1ch""NextjText1=Text1Chr(13)Chr(10)NextkClose#1EndSubPrivateFunctiongetmark(nAsInteger)AsSingle's=?maxnum=sminnum=s'Fork=2To?s=s+a(n,k)Ifmaxnuma(n,k)Thenmaxnum=a(n,k)EndIfIfminnuma(n,k)Thenminnum=a(n,k)EndIfNextks=(s-maxnum-minnum)/5'getmark=s*3*?EndFunctionPrivateSubCommand2_Click()'要求考生编写的程序[10分]

第44套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubText1_Change()DimchAsString'ch=Right$(?)ch=Right$(Text1,1)Ifch="A"Andch="Z"ThenLabel1.Caption=LCase(ch)n=n+1ElseIfch="a"Andch="z"ThenLabel1.Caption=UCase(ch)n=n+1Else'Label1.Caption=?Label1.Caption=Right$(Text1,1)EndIf'Label2.Caption=?Label2.Caption=nEndSub[10分]

2.PrivateSubCommand1_Click()'Timer1.Enabled=?Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubForm_Load()left0=Shape1.LeftEndSubPrivateSubTimer1_Timer()IfShape1.FillColor=blue_colorThenIfShape1.Left0ThenShape1.Height=Shape1.Height+100Shape1.Width=Shape1.Width+100Shape1.Left=Shape1.Left-50Shape1.Top=Shape1.Top-50Else'Shape1.FillColor=?Shape1.FillColor=red_colorEndIfEndIfIfShape1.FillColor=red_colorThenIfShape1.Leftleft0ThenShape1.Height=Shape1.Height-100Shape1.Width=Shape1.Width-100'?=Shape1.Left+50Shape1.Left=Shape1.Left+50'?=Shape1.Top+50Shape1.Top=Shape1.Top+50Else'Shape1.FillColor=?Shape1.FillColor=blue_colorEndIfEndIfEndSub[10分]

三、综合应用题

1.PrivateSubCommand1_Click()DimsAsStringCommonDialog1.Filter="所有文件|*.*|文本文件|*.txt"'CommonDialog1.FilterIndex=?OnErrorGoToopenerrCommonDialog1.InitDir=App.PathCommonDialog1.ShowOpen'Open?ForInputAs#1Input#1,sClose#1'Text1.Text=?openerr:EndSubPrivateSubCommand2_Click()======================'考生需要编写的程序======================EndSubPrivateSubCommand3_Click()CommonDialog1.Filter="文本文件|*.txt|所有文件|*.*"CommonDialog1.FilterIndex=1OnErrorGoToopenerrCommonDialog1.FileName="out