二级VB上机题库37

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

第73套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()DimflagAsBooleanflag=FalsePicture1.PrintLabel1.Caption,Text1.TextPicture1.PrintFrame1.Caption;"：",Fork=0To3IfOption1(k).Value=TrueThenPicture1.PrintOption1(k).CaptionEndIfNextkFork=0To2'IfCheck1(k).Value=?ThenIfNotflagThenPicture1.PrintFrame2.Caption;"：",flag=TrueEndIfPicture1.PrintCheck1(k).Caption;"";EndIfNextkPicture1.PrintEndSubPrivateSubCommand2_Click()'?=""Fork=0To3Option1(k).Value=FalseNextkFork=0To2Check1(k).Value=0NextkPicture1.ClsCommand1.Enabled=FalseEndSubPrivateSubOption1_Click(IndexAsInteger)'?EndSub[10分]

2.PrivateSubCommand1_Click()Dima%,b%,c%,n%n=Val(Text1.Text)'a=Val(?)b=Val(List1.List(List1.ListCount-1))c=a+bDoWhilecn'a=?b=c'List1.AddItem?c=a+bLoopEndSub[10分]

三、综合应用题

1.Dima(5,40)PrivateSubCommand1_Click()DimchAsStringch$=""OpenApp.Path"\in5.dat"ForInputAs#1Fori=1To5Forj=1To40Input#1,a(i,j)ch=cha(i,j)""Nextjch=chChr(13)Chr(10)NextiClose#1Text1.Text=chEndSubPrivateSubCommand2_Click()'===================考生编写的程序==============???'================================================EndSubPrivateSubCommand3_Click()OpenApp.Path"\out5.dat"ForOutputAs#1Fork=0To4Print#1,Label1(k)NextkFork=0To4Print#1,Text2(k)NextkClose#1EndSub[10分]

第74套一、基本操作题

1.[10分]

2.[10分]

二、简单应用题

1.PrivateSubCommand1_Click()'Timer1.Enabled=?Command1.Caption=IIf(Command1.Caption="开始","停止","开始")EndSubPrivateSubForm_Load()'?EndSubPrivateSubTimer1_Timer()StaticnDimaAsIntegern=n+1a=nMod3'SelectCase?Case1Label1.Caption="欢迎您参加等级考试！"Case2Label1.Caption="请您认真复习！"'Case?Label1.Caption="祝您获得好成绩！"EndSelectEndSub[10分]

2.PrivateSubCommand1_Click()n=Val(Text1.Text)'?Fork=1TonList1.AddItemInt(Rnd*100)NextkEndSubPrivateSubCommand2_Click()'Fork=List1.ListCount-1To?Step-1IfVal(List1.List(k))Mod2=1Then's=s+Val(?)'List1.RemoveItem?List1.RemoveItemkEndIfNextk'?=sEndSub[10分]

三、综合应用题

1.Dima(5,40)PrivateSubCommand1_Click()DimchAsStringch$=""OpenApp.Path"\in5.dat"ForInputAs#1Fori=1To5Forj=1To40Input#1,a(i,j)ch=cha(i,j)""Nextjch=chChr(13)Chr(10)NextiClose#1Text1.Text=chEndSubPrivateSubCommand2_Click()'===================考生编写的程序==============???'================================================EndSubPrivateSubCommand3_Click()OpenApp