《二级VB上机题库17》由会员分享，可在线阅读，更多相关《二级VB上机题库17（20页珍藏版）》请在金锄头文库上搜索。
1、二级VB上机题库171、【简答题】DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=1ThenText3.Text=Text1.TextElseIfwhich=2ThenText3.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text=Text1.TextText1.Text=ElseIfwhich=2ThenText3.Text=Text2.TextText2.Text=EndIfEndSubPrivateSubedit_Click()Ifwhich=?Then
2、IfText1.Text=Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfElseIfwhich=?ThenIfText2.Text=Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfEndIfIfText3.Text=Thenpaste.Enabled=FalseElsepaste.Enabled=TrueEndIfEndSubPrivateSubpaste_Click
3、()Ifwhich=1ThenText1.Text=?ElseIfwhich=2ThenText2.Text=?EndIfEndSubPrivateSubText1_GotFocus()本过程的作用是：当焦点在Text1中时，which=1which=1EndSubPrivateSubText2_GotFocus()本过程的作用是：当焦点在Text2中时，which=2which=2EndSub10分解析：DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=1ThenText3.Text=Text1.TextElseIfwhich=2ThenText3
4、.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text=Text1.TextText1.Text=ElseIfwhich=2ThenText3.Text=Text2.TextText2.Text=EndIfEndSubPrivateSubedit_Click()Ifwhich=1ThenIfText1.Text=Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfElseIfwhich=2ThenI
5、fText2.Text=Thencut.Enabled=Falsecopy.Enabled=FalseElsecut.Enabled=Truecopy.Enabled=TrueEndIfEndIfIfText3.Text=Thenpaste.Enabled=FalseElsepaste.Enabled=TrueEndIfEndSubPrivateSubpaste_Click()Ifwhich=1ThenText1.Text=Text1+Text3.TextElseIfwhich=2ThenText2.Text=Text2+Text3.TextEndIfEndSubPrivateSubText1
6、_GotFocus()本过程的作用是：当焦点在Text1中时，which=1which=1EndSubPrivateSubText2_GotFocus()本过程的作用是：当焦点在Text2中时，which=2which=2EndSub2、【简答题】10分解析：按要求解答即可3、【简答题】10分解析：按要求解答即可4、【简答题】Dima(15)AsStringPrivateSubC1_Click()DimkAsIntegerOpenin5.txtForInputAs#1Form1.ClsFork=1To15Input#1,a(k)Printa(k)NextkClose?EndSubPrivate
7、SubC2_Click()DimkAsInteger,nAsInteger,cAsStringn=Len(?)c=Ifn0ThenFork=1To15IfLeft(a(k),?)=Text1.TextThenc=c+?EndIfNextkIfc=ThenText2.Text=未找到！ElseText2.Text=?EndIfElseText2.Text=未输入查找内容！EndIfEndSub10分解析：Dima(15)AsStringPrivateSubC1_Click()DimkAsIntegerOpenin5.txtForInputAs#1Form1.ClsFork=1To15Input#
8、1,a(k)Printa(k)NextkClose#1EndSubPrivateSubC2_Click()DimkAsInteger,nAsInteger,cAsStringn=Len(Text1.Text)Text1c=Ifn0ThenFork=1To15IfLeft(a(k),n)=Text1.TextThenIfLeft(a(k),Len(Text1)=Text1.TextThenIfLeft(a(k),Len(Text1.Text)=Text1.TextThenc=c+a(k)EndIfNextkIfc=ThenText2.Text=未找到！ElseText2.Text=cEndIfE
9、lseText2.Text=未输入查找内容！EndIfEndSub5、【简答题】Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Pathin3.datForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()需考生编写10分解析：Max=a(1)Min=a(1)Fori=2To100Ifisnarc(a(i)=TrueThenIfa(i)MaxThenMax=a(i)Ifa(i)MinThenMin=a(i)End
10、IfNextText1.Text=MaxText2.Text=MinEndSub以下Function过程用于判断某数是否为水仙花数Functionisnarc(pAsInteger)x=Fix(p/100)y=Fix(p-x*100)/10)z=p-x*100-y*10Ifp=x3+y3+z3Thenisnarc=TrueElseisnarc=FalseEndIfEndFunctionPrivateSubForm_Unload(CancelAsInteger)OpenApp.Pathout3.datForOutputAs#1Print#1,Val(Text1.Text)Print#1,Val(
11、Text2.Text)Close#1EndSub6、【简答题】10分解析：PrivateSubCommand1_Click()IfOp1.ValueThenText1.FontName=Op1.CaptionElseIfOp2.ValueThenText1.FontName=Op2.CaptionEndIfIfCh1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfIfCh2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEn
12、dSubPrivateSubForm_Unload(CancelAsInteger)unload_subEndSub7、【简答题】10分解析：PrivateSubC1_Click()DimnAsInteger,kAsInteger,sAsLongn=Val(Cb1.Text)s=0Fork=nTo5000Ifk/n=Int(k/n)Thens=s+kEndIfNextkText1.Text=sEndSubPrivateSubForm_Unload(CancelAsInteger)unload_subEndSub8、【简答题】10分解析：PrivateSubC1_Click()Image1.Wi
13、dth=Image1.Width+100或Image1.Width=100+Image1.WidthImage1.Height=Image1.Height+100或Image1.Height=100+Image1.HeightEndSubPrivateSubC2_Click()Image1.Width=Image1.Width-100或Image1.Width=-100+Image1.WidthImage1.Height=Image1.Height-100或Image1.Height=-100+Image1.HeightEndSub9、【简答题】10分解析：PrivateSubCommand1
14、_Click()DimnAsLongCD1.FileName=CD1.Filter=所有文件|*.*|文本文件|*.txt|Word文档|*.docCD1.FilterIndex=2CD1.ShowOpenCD1.Action=1IfCD1.FileNameThenOpenCD1.FileNameForInputAs#1n=LOF(1)Text1=Input$(n,#1)Close#1Close1EndIfEndSub10、【简答题】10分解析：PrivateSubText1_Change()Text2.Text=Text1.Text或Text2.Text=Text1或Text2=Text1.Text或Text2=Text1EndSub 20 / 20
