全国计算机二级VB上机题库.docx
- 文档编号:5507153
- 上传时间:2022-12-17
- 格式:DOCX
- 页数:44
- 大小:1.66MB
全国计算机二级VB上机题库.docx
《全国计算机二级VB上机题库.docx》由会员分享,可在线阅读,更多相关《全国计算机二级VB上机题库.docx(44页珍藏版)》请在冰豆网上搜索。
全国计算机二级VB上机题库
第一题
DimsAsString
PrivateSubCommand1_Click()
OpenApp.Path&"\in4.dat"ForInputAs#1
s=Input(LOF
(1),#1)
Close#1
Text1.Text=s
EndSub
PrivateSubCommand2_Click()
DimmAsInteger
'IfLen(s)=0Then
MsgBox"请先使用“读数据”功能!
"
Else
'IfText1.SelLength=0Then
MsgBox"请先选中文本!
"
Else
t=""
Fori=1ToText1.SelLength
c=Mid(Text1.SelText,i,1)
Ifc<>""Then
t=t+c
Else
'x=t
IfInStr(x,"o")<>0AndInStr(x,"n")<>0Then
m=m+1
EndIf
t=""
EndIf
Nexti
'text2=Str(m)
EndIf
EndIf
EndSub
第二题
PrivateSubCommand1_Click()
DimkAsInteger
OpenApp.Path&"\in5.dat"ForInputAs#1
Fork=1To100
Input#1,a(k)
Text1=Text1+Str(a(k))+Space
(2)
Nextk
Close#1
EndSub
PrivateSubCommand2_Click()
Dimb(100)AsInteger
num=0
IfLen(Text1.Text)=0Then
MsgBox"请先执行“读数据”功能!
"
Else
'考生编写(功能:
生成存放素数的数组b)
'注意:
请务必将数组b的元素个数存入变量num中
num=1
Fori=1To100
Forj=2ToSqr(a(i))
Ifa(i)Modj=0Then
ExitFor
EndIf
Nextj
Ifj>Sqr(a(i))Then
b(num)=a(i)
num=num+1
EndIf
Nexti
'以下程序段将b数组的内容显示在Text2中
Fori=1Tonum-1
Text2.Text=Text2.Text+Str(b(i))+Space
(2)
Nexti
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
OpenApp.Path&"\out5.dat"ForOutputAs#1
Print#1,Text2.Text
Close#1
EndSub
第三题
在控件上右击——属性
第四题
PrivateSubmenu2_Click()
menu1.Enabled=True
EndSub
第五题
第一小题
(1)
Dima(10)AsInteger
PrivateSubForm_Load()
Fori=1To10
a(i)=Int(Rnd*100)
Next
EndSub
PrivateSubCommand1_Click()
x=a
(1)
y=a
(1)
Fori=2To10
IfOption1.Value=TrueThen
Ifa(i)>xThen
x=a(i)
EndIf
ElseIfa(i) y=a(i) EndIf Nexti IfOption1.Value=TrueThen Label2.Caption=x Else Label2.Caption=y EndIf EndSub 第二小题 (2) PrivateSubList1_DblClick() CallMoveItem(List1,List2) EndSub PrivateSubCommand1_Click() CallMoveAll EndSub PublicSubMoveItem(L1AsListBox,L2AsListBox) L2.AddItemL1.Text L1.RemoveItemL1.ListIndex EndSub PublicSubMoveAll() Fori=0ToList1.ListCount-1 List2.AddItemList1.List(i) Next EndSub 第五题 Dima(7,7)AsInteger PrivateSubForm_Load() read EndSub PublicSubread() OpenApp.Path&"\Data5.txt"ForInputAs#1 DoWhileNotEOF (1) Fori=1To7 Forj=1To7 Input#1,a(i,j) Nextj Nexti Loop Close#1 EndSub PublicSubSave() OpenApp.Path&"\out5.txt"ForOutputAs#1 Print#1,lblFirst.Caption,lblSecond.Caption Close#1 EndSub PrivateSubCommand1_Click() DimSumAsLong N=7 Counter=0 Sum=0 '===============考生编写程序开始====================== Fori=1ToN Forj=1ToN Ifi=jOri+j=8Then Ifa(i,j)Mod3=0Then Counter=Counter+1 Sum=Sum+a(i,j) EndIf EndIf Nextj Nexti lblFirst.Caption=Counter lblSecond.Caption=Sum '===============考生编写程序结束====================== Save EndSub 第六题 注意: 时钟的interval属性设置为300 DimflagAsInteger PrivateSubCmd_Click(IndexAsInteger) IfIndex=2Then End Else Image1.Picture=LoadPicture("yellow.ico") flag=Index Timer1.Enabled=True EndIf EndSub PrivateSubTimer1_Timer() SelectCaseflag Case0 Image1.Picture=LoadPicture("green.ico") Timer1.Enabled=False Case1 Image1.Picture=LoadPicture("red.ico") Timer1.Enabled=False EndSelect EndSub 第七题 第八题 PrivateSubForm_Click() Label1.Visible=True EndSub PrivateSubForm_Load() Form1.Caption="标签" EndSub 第九提 PrivateSubCommand1_Click() CallShowName(Command1) EndSub PrivateSubLabel1_Click() CallShowName(Label1) EndSub PrivateSubShowName(cAsControl) IfTypeOfcIsCommandButtonThen Label2.Caption="单击"&Command1.Caption EndIf 第十题 注意,时钟interval设置为500 PrivateSubForm_Load() Picture1(0).Left=0 Picture1(0).Top=100 Fork=1To7 Picture1(k).Visible=False Next EndSub PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubCommand2_Click() Timer1.Enabled=False EndSub PrivateSubTimer1_Timer() StaticiAsInteger Picture1(i).Visible=False i=i+1 Ifi=7Then i=0 EndIf Picture1(i).Visible=True EndSub 第十三题 第十四题 第十五题 第十六,七题 PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle) EndSub PrivateSubText2_Change() IfCheck1.Value=1Then Text3.PasswordChar="" Else Text3.PasswordChar="#" EndIf Text3.Text=Text2.Text EndSub PrivateSubCommand1_Click() ‘Text1.Enabled=true Text1.SetFocus EndSub PrivateSubCommand2_Click() IfText1.Enabled=FalseThen MsgBox"请先使用“输入密码”功能! " Else 'IfText1<>"abc"Then n=n+1 'Ifn=3Then MsgBox"三次密码输入错误,你无权进入本系统! " End Else MsgBox"第"+Str(n)+"次密码输入错误,请重试! " Text1="" Text1.SetFocus EndIf Else Text1.Enabled=False Text1="" 'form1.Hide 'form2.Show EndIf EndIf EndSub ‘Form2: PrivateSubCommand1_Click() Form2.Hide Form1.Show EndSub 第十八题 OptionBase1 DimsAsString PrivateSubCommand1_Click() OpenApp.Path&"\in4.dat"ForInputAs#1 s=Input(LOF (1),#1) Close#1 Text1.Text=s EndSub PrivateSubCommand2_Click() DimmAsInteger 'IfLen(s)=0Then MsgBox"请先使用“读数据”功能! " Else 'IfText1.sellength=0Then MsgBox"请先选中文本! " Else t="" Fori=1ToText1.SelLength c=Mid(Text1.SelText,i,1) Ifc<>""Then t=t+c Else 'Ift="the"Then m=m+1 EndIf t="" EndIf Nexti 'text2=Str(m) EndIf EndIf EndSub 第十九题 OptionBase1 Dima(100)AsInteger,numAsInteger PrivateSubCommand1_Click() DimkAsInteger OpenApp.Path&"\in5.dat"ForInputAs#1 Fork=1To100 Input#1,a(k) Text1=Text1+Str(a(k))+Space (1) Nextk Close#1 EndSub PrivateSubCommand2_Click() Dimb(100)AsInteger num=0 IfLen(Text1.Text)=0Then MsgBox"请先执行“读数据”功能! " Else '考生编写(功能: 生成b数组,且按从小到大顺序排序) '注意: 请务必将数组b的元素个数存入变量num中 '以下程序段将已排序的b数组显示在Text2中 Fori=1Tonum Text2.Text=Text2.Text+Str(b(i))+Space (2) Nexti EndIf EndSub PrivateSubForm_Unload(CancelAsInteger) OpenApp.Path&"\out5.dat"ForOutputAs#1 Print#1,Text2.Text Close#1 EndSub 第二十题 第二十一题 PrivateSubForm_Click() n=InputBox("请输入","等级考试","Basic") EndSub 第二十二题 PrivateSubCommand1_Click() DimnAsInteger DimbAsInteger Dima(3)AsInteger s=RTrim(Text1.Text) n=Len(Text1.Text) Fori=1Ton b=a(Mid(s,i,1)) SelectCaseAsc Case48To57 a(0)=a(0)+1 Case65To90 a (1)=a (1)+1 Case97To122 a (2)=a (2)+1 EndSelect Next Fori=0To2 Label=a(i) Next EndSub PrivateSubremove(LaAsListBox,LbAsListBox) 'Fori=0Tola.listcount-1 'Lb.AddItemla.List(i) Next 'la.Clear EndSub PrivateSubCommand1_Click() Callremove(List1,List2) EndSub PrivateSubCommand2_Click() Callremove(List2,List1) EndSub 第二十四题 Dima(10)AsInteger PublicSubSave() OpenApp.Path&"\out5.txt"ForOutputAs#1 Print#1,Label4.Caption Close#1 EndSub PrivateSubCommand1_Click() OpenApp.Path&"\Data5.txt"ForInputAs#1 'DoWhileNoteof (1) Fori=1To10 Input#1,a(i) 's=s&a(i) Nexti Loop Close#1 Label2.Caption=s EndSub PrivateSubCommand2_Click() '============以下考生编写程序开始================= Fori=1to9 Forj=i+1to10 Ifa(i)>a(j)then t=a(i) a(i)=a(j) a(j)=t endif nextj nexti '============考生编写程序结束===================== Fori=1To10 s=s&Str(a(i)) Nexti Label4.Caption=s Save EndSub 第二十五,六题 PrivateSubHScroll1_Change() EndSub PrivateSubForm_Load() EndSub PrivateSubList1_Click() HS.Width=List1.Text EndSub 第二十七题 PrivateSubForm_Load() Loadme EndSub PrivateSubOption1_Click(IndexAsInteger) DimnAsInteger n=Val(Text1.Text) SelectCaseIndex Case0 Text2.Text=f1(n) Case1 Text2.Text=f1(n+2) EndSelect EndSub PublicFunctionf1(nAsInteger)AsLong DimxAsLong x=1 Fori=1Ton x=x*i Next f1=x EndFunction 第二十八题 PrivateSubForm_Load() OpenApp.Path&"\in4.txt"ForInputAs#1 LineInput#1,s Text1.Text=s Close#1 EndSub PrivateSubCommand1_Click() DimnAsInteger s=Text1.Text s1=RTrim(Text2.Text) Do p=InStr(s1,s) Ifp<>0Thenn=n+1 s=Mid(s,p+1) LoopWhilep=0 Label3.Caption=n EndSub 第二十九题 PrivateFunctionisprime(aAsInteger)AsBoolean DimflagAsBoolean flag=True b%=2 DoWhileb%<=Int(a/2)Andflag IfInt(a/b%)=a/b%Then flag=False Else b%=b%+1 EndIf Loop isprime=flag EndFunction PrivateSubC1_Click() DimxAsInteger x=17999 DoWhilex<18000 Ifisprime(x)Then Text1.Text=x ExitDo Else x=x-2 EndIf Loop EndSub PrivateSubC2_Click() OpenApp.Path&"\out5.txt"ForOutputAs#1 Print#1,Text1 EndSub 第三十题 第三十三题 OptionBase1 Dima(100)AsInteger,numAsInteger PrivateSubCommand1_Click() DimkAsInteger OpenApp.Path&"\in5.dat"ForInputAs#1 Fork=1To100 Input#1,a(k) Text1=Text1+Str(a(k))+Space (1) Nextk Close#1 EndSub PrivateSubCommand2_Click() Dimb(100)AsInteger DimIasinteger,jasinteger,tasinteger,nasinteger num=0 IfLen(Text1.Text)=0Then MsgBox"请先执行“读数据”功能! " Else '考生编写(功能: 生成b数组,且按从小到大顺序排序) '注意: 请务必将数组b的元素个数存入变量num中 ForI=1to100 Ifa(i)mod3=0then N=n+1 B(n)=a(i) Endif Nexti Fori=1ton-1 Forj=i+1ton Ifb(i)>b(j)then T=b(i) B(i)=b(j
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机 二级 VB 上机 题库