王老师重点50套操作题

1、01-第01套基本操作题（1）在名称为Forml的窗体上增添一个名称为H1水平转动条，请在属性窗口中设置它的属性值，知足以下要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击转动条上转动框以外的地区(不包括两边按钮)，转动框搬动10个刻度。再在转动条下边画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体以以下图。注意：存盘时必定寄存在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。（2）在名称为Form1的窗体上增添两个名称分别为Text1和Text2的文本框，初始内容均为空；再成立一个下拉菜单，菜单标题为操作，名称为M1，此菜单下含

2、有两个菜单项，名称分别为Copy和Clear，标题分别为复制、消除，请编写适合的事件过程，使得在程序运行时，单击复制选项菜单，则把Text1中的内容复制到Text2中，单击消除选项菜单，则消除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体以以下图。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意：存盘时必定寄存在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。PrivateSubClear_Click()PrivateSubCopy_Click()Text2.Text=Text2.Text=Text1.TextEndSubEndSub

3、01-第01套简单应用题（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签Label1，请增添一个单项选择按钮数组，名称为Op1，含三个单项选择按钮，它们的Index属性分别为0、1、2，标题依次为飞机、火车、汽车，再增添一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完满，要求去掉程序中的说明符，把程序中的?改为正确的内容，使得在程序运行时单击飞机或火车单项选择按钮时，在Text1中显示我坐飞机去或我坐火车去，单击汽车单项选择按钮时，在Text1中显示我开汽车去，以以下图。注意：不能够改正程序中的其余部分。最后将改正后的文件按原文件名存

4、盘。PrivateSubOp1_Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa=我坐b=我开SelectCase?*Index*Case0Text1.Text=a+Me.Op1(0).Caption+Case1Text1.Text=?+Me.Op1(1).Caption+Case2Text1.Text=b+Me.Op1(2).Caption+EndSelect去去去*a*EndSub（2）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上增添两个框架控件，名称分别为F1、F2，标

5、题分别为性别、身份；在F1中增添两个单项选择按钮控件Op1、Op2，标题分别为男、女；在F2中增添两个单项选择按钮控件Op3、Op4，标题分别为学生、教师；再增添一个命令按钮，名称为C1，标题为确定。以以下图。请编写适合的事件过程，使得在运行时，在F1、F2中各选一个单项选择按钮，尔后单击确定按钮，就能够依照下表把结果显示在文本框中。性别身份在文本框中显示的内容男学生我是男学生男教师我是男教师女学生我是女学生女教师我是女教师最后把改正后的文件以原来的文件名存盘。注意：考生不得改正窗体文件中已经存在的程序和Text1的属性，在结束程序运行以前，必定进行能够产生上表中一个结果的操作。必定用窗体右上

6、角的封闭按钮结束程序，否则无成绩。,*请考生编写程序*Ifop1andop3thenText1=”我是男学生”Ifop1andop4thenText1=”我是男教师”Ifop2andop3thenText1=”我是女学生”Ifop2andop4thenText1=”我是女教师”01-第01套综合应用题以下数列：1，1，2，3，5，8，13，21，的规律是从第3个数开始，每个数都是其前面两个数之和。在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了全部控件，以以下图。请编写适合的事件过程达成以下功能：选中一个单项选择按钮后，单击计算按钮，则计算出上述数列的第n项的值，并在文本框中显示

7、，n是选中的单项选择按钮后边的数值。(提示：因计算结果较大，应使用长整型变量。)注意：不能够改正已经给出的程序和已有的控件的属性；在结束程序运行以前，必定选中一个单项选择按钮，并单击计算按钮获得一个结果；必定使用窗体右上角的封闭按钮结束程序，否则无成绩。最后把改正后的文件按原文件名存盘。PrivateSubCommand1_Click(),*请考生编写程序*Dima(35)AsLongIfop1(0)thenn=30Ifop1(1)thenn=33Ifop1(2)thenn=35a(1)=1a(2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NextText1.Text=a(n)

8、EndSub02-第02套基本操作题（1）在名称为Form1的窗体上增添一个名称为L1的标签，标签上标题为请输入密码，增添一个名称为Text1的文本框，其宽、高分别为2000和300，设置适合的属性，使得在输入密码时，文本框中显示为*字符，其余再把窗体的标题设置为密码窗口，以上这些设置都必定在属性窗口中进行，程序运行时的窗体以以下图。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt1.vbp，窗体文件名储藏为sjt1.frm。在窗体中增添一个标签，名称设置为L1，将标签的Caption属性设置为请输入密码。尔后再增添一个文本框，设置其名称为Text1,尔后设置其Height属性为30

9、0，设置其Width属性为2000，设置其PasswordChar属性为*。最后将Form1的Caption属性设置为密码窗口。（2）在名称为Form1的窗体上增添一个名称为P1的图片框，请编写适合的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出单击图片框，每单击图片框外的窗体一次，就在窗体中输出单击窗体运行时的窗体以以下图。要求在程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt2.vbp，窗体文件名储藏为sjt2.frm。，PrivateSubForm_Click()PrivateSubP1_Click()Form1

10、.Print单击窗体P1.Print单击图片框EndSubEndSub02-第02套简单应用题（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体中有两个图片框，名称分别为P1、P2，其中的图片内容分别是一架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为发射，还有一个计时器，名称为Timer1。并给出了两个事件过程，但其实不完满，要求：设置Timer1的属性，使其在初始状态下不计时；设置Timer1的属性，使其每隔0.1秒调用Timer事件过程一次。去掉程序中的说明符，把程序中的?改为正确的内容，使得在运行时单击发射按钮，则航天飞机每隔0.1秒向上搬动一次，当抵达P2的下方时停止搬动

11、，以以下图。注意：不能够改正程序中的其余部分。最后把改正后的文件按原文件名存盘。PrivateSubC1_Click()Timer1.Enabled=?*True*EndSubPrivateSubTimer1_Timer()Statica%a=a=+1IfP1.TopP2.TopP2.?Then*Height*P1.MoveP1.Left,P1.Top-5-a,P1.Width,P1.HeightElseTimer1.Enabled=?*False*EndIfEndSub（2）在考生文件夹下有一个工程文件sjt4.vbp，运行情况以以下图。程序的功能是计算以下表达式的值：其中的N和x的值经过键

12、盘分别输入到文本框Text1、Text2中。此后若是单击标题为计算、名称为Command1的命令按钮，则计算表达式的值z，并将计算结果显示在名称为Label1的标签中。在给出的窗体文件中已经增添了全部控件和程序，但程序不完满。要求去掉程序中的说明符，把程序中的?改为正确的内容。：程序中不得使用运算符，而应注意考生不得改正窗体文件中已经存在的程序。使用函数xn进行幂运算。程序最少运行一次，依照以以下图输入数据，使x=10，N=5，单击计算按钮，计算z的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。PrivateFunctionxn(aAsSingle,mAsInt

13、eger)DimiAsIntegertmp=1Fori=1Tomtmp=?Nextxn=?EndFunction*tmp*a*tmp*DimtAsSingleDims,xAsSinglen=Val(Text1.Text)x=Val(Text2.Text)z=0Fori=2Tont=x+iz=z+？*xn(t,i)*NextLabel1.Caption=?CallSaveResultEndSubPrivateSubSaveResult()OpenApp.Path&out4.datForOutputAs#1Print#1,Label1.CaptionClose#1EndSub*z*02-第02套综

14、合应用题在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据，统计这些数据中素数的个数，并找出全部素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完满，请在指定的地点把程序补充完满。注意：不得改正原有程序和控件的属性。在结束程序运行以前，必定最少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把改正后的文件按原文件名存盘。Privatearr(100)AsIntegerPublicFunctionprime(xAsInteger)k=Int(Sqr(x)

15、+5)Fori=2TokIfxModi=0Thenprime=FalseExitFunctionEndIfNextprime=TrueEndFunctionPrivateSubCommand1_Click()OpenApp.Path&in5.txtForInputAs#1Fori=1To40Input#1,arr(i)NextClose#1EndSubPrivateSubCommand2_Click(),*请考生编写程序*DimaAsIntegerDimbAsIntegera=0b=arr(1)Fori=1To40Ifprime(arr(i)Thena=a+1Label3.Caption=aN

16、extFori=1To40Ifprime(arr(i)Andarr(i)=bThenb=arr(i)Label4.Caption=bNext*考生编写程序结束*OpenApp.Path&out5.txtForOutputAs#1Print#1,Label3.Caption,Label4.CaptionClose#1EndSub03-第03套基本操作题（1）在名称为Form1的窗体上增添两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为窗口。请经过属性窗口设置适合的属性，知足以下要求：Text2能够显示多行文本，并且有垂直和水平两个

17、转动条；程序运行时在Text1中显示输入的字符为*。程序运行后的窗体以以下图。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt1.vbp，窗体文件名储藏为sjt1.frm。（2）在名称为Form1的窗体上增添一个名称为Image1的图像框，其高、宽分别为口把考生文件夹下的图像文件pic1.bmp载入图像框；再画两个命令按钮控件，名称分别为1900、1700，经过属性窗C1、C2，标题分别为放大、减小，以以下图。要求：请编写适合的事件过程，程序运行后，若是单击放大按钮，则将图像框的高度、宽度均增添100；单击减小按钮，则将图像框的高度、宽度均减少100。要求程序中不得使用任何变量。经过

18、属性窗口设置图像框的适合属性，使得在放大、减小图像框时，其中的图像也自动放大、减小。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt2.vbp，窗体文件名储藏为控件图像框属性NameWidthHeightPictureStretch设置值Image117001900pic1.bmpTruesjt2.frm。控件命令按钮1命令按钮2属性NameCaptionNameCaption设置值C1放大C2减小PrivateSubC1_Click()Image1.Height=Image1.Height+100Image1.Width=Image1.Width+100EndSubPrivateS

19、ubC2_Click()Image1.Height=Image1.Height-100Image1.Width=Image1.Width-100EndSub03-第03套简单应用题（1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：单击读数据按钮，则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中；单击计算按钮，则找出这100个整数中的全部水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如：153135333所以153就是一个水仙花数)在窗体文件中已经给出了

20、全部控件(以以下图)和读数据命令按钮的事件过程以及判断一个数可否为水仙花数的通用过程。要求编写计算命令按钮的事件过程。注意：考生不得改正窗体文件中已经存在的控件和程序，在结束程序运行前，必定进行计算，并且必定通过单击窗体右上角的封闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。Dima(100)AsIntegerPrivateSubCommand1_Click()DimkAsIntegerOpenApp.Path&in3.datForInputAs#1Fork=1To100Input#1,a(k)NextkClose#1EndSubPrivateSubCommand2_Click()*需

21、考生编写的程序*DimiAsIntegerDimmaxAsInteger,minAsIntegermax=-1min=1000Fori=1To100Ifisnarc(a(i)ThenIfmax=a(i)Thenmin=a(i)EndIfNextiText1=maxText2=minEndSub以下Function过程用于判断某数可否为水仙花数Functionisnarc(pAsInteger)x=Fix(p/100)y=Fix(p-x*100)/10)z=p-x*100-y*10Ifp=x3+y3+z3Thenisnarc=TrueElseisnarc=FalseEndIfEndFunctio

22、nPrivateSubFormUnload(CancelAsInteger)OpenApp.Path&out3.datForOutputAs#1Print#1,Val(Text1.Text)Print#1,Val(Text2.Text)Close#1EndSub（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上增添一个组合框，名称为项：3、7、11(列表项的次序不限，但必定是这3个数字)；增添一个名为Text1的文本框；再增添一个标题为计算、名称为C1的命令按钮。以以下图。请编写适合的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击计算按钮，则计算5000以内能够被该数整

23、除的全部数之和，并放入Text1中。最后，按原文件名存盘。提示：由于计算结果较大，应使用长整型变量。注意：考生不得改正窗体文件中已经存在的程序，在结束程序运行以前，必定最少进行cb1，并输入三个列表一次计算。并且必定用窗体右上角的封闭按钮结束程序，否则无成绩。PrivateSubC1_Click()*需考生编写的程序*DimsumAsLongDimnAsIntegerDimiAsIntegern=Val(Cb1.Text)Fori=nTo5000IfiModn=0Thensum=sum+iEndIfNextiText1.Text=sumEndSub03-第03套综合应用题在考生文件夹下有一个工

24、程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码。请达成以下工作：在属性窗口中改正Text3的适合属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体以以下图；成立下拉式菜单，以下表所示:标题名称编写Edit剪切Cut复制Copy粘贴Paste窗体文件中给出了全部事件过程，但不完满，请去掉程序中的说明符，把程序中的?改为正确的内容。以便实现以下功能：当光标所在的文件框中无内容时，剪切、复制不能用，否则能够把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则粘贴不能够用，否则能够把Text3中的内容粘贴在光标所在

25、的文本框中的内容此后。注意：不能够改正程序中的其余部分。各菜单项的标题名称必定正确。最后将改正后的文件按原文件名存盘。DimwhichAsIntegerPrivateSubcopy_Click()Ifwhich=1ThenText3.Text=Text1.TextElseIfwhich=2ThenText3.Text=Text2.TextEndIfEndSubPrivateSubcut_Click()Ifwhich=1ThenText3.Text=Text1.TextText1.Text=ElseIfwhich=2ThenText3.Text=Text2.TextText2.Text=EndI

26、fEndSubPrivateSubedit_Click()Ifwhich=?Then*1*IfText1.Text=Thencut.Enabled=FalseCopy.Enabled=FalseElsecut.Enabled=TrueCopy.Enabled=TrueEndIfElseIfwhich=?ThenIfText2.Text=Thencut.Enabled=FalseCopy.Enabled=False*2*Elsecut.Enabled=TrueCopy.Enabled=TrueEndIfEndIfIfText3.Text=ThenPaste.Enabled=FalseElsePa

27、ste.Enabled=TrueEndIfEndSubPrivateSubpaste_Click()Ifwhich=1ThenText1.Text=?ElseIfwhich=2ThenText2.Text=?*Text1.Text+Text3.Text*Text2.Text+Text3.Text*EndIfEndSubPrivateSubText1_GotFocus()本过程的作用是：当焦点在Text1中时，which=1which=1EndSubPrivateSubText2_GotFocus()本过程的作用是：当焦点在Text2中时，which=2which=2EndSub04-第04套基

28、本操作题1）在名称为Form1的窗体上增添一个名称为Command1的命令按钮，标题为翻开文件，再增添一个名称为CD1的通用对话框。程序运行后，若是单击命令按钮，则弹出翻开文件对话框，请按以下要求设置属性和编写代码：设置适合属性，使对话框的标题为翻开文件；设置适合属性，使对话框的文件种类下拉式组合框中有两项可供选择：文本文件、全部文件(如图所示)，默认的种类是全部文件；编写命令按钮的事件过程，使得单击按钮能够弹出翻开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt1.vbp，窗体文件名储藏为sjt1.frm。Privat

29、eSubCommand1_Click()CD1.ShowOpenEndSub（2）在名称为Form1的窗体上增添一个名称为Command1的命令按钮，其标题为搬动本按钮，以以下图。要求编写适合的事件过程，使得程序运行时，每单击按钮一次，按钮向左搬动100。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt2.vbp，窗体文件名储藏为sjt2.frm。PrivateSubCommand1_Click()Command1.Left=Command1.Left-100EndSub04-第04套简单应用题1）在名称为Form1的窗体上增添一个

30、名称为Label1、标题为增添项目：的标签；增添一个名称为Text1的文本框，初始内容为空；增添一个名称为Combo1的下拉式组合框，并经过属性窗口输入若干项目(很多于3个，内容随意)；再增添两个命令按钮，名称分别为Command1、Command2，其标题分别为增添、统计。在程序运行时，向Text1中输入字符，单击增添按钮后，则将Text1中的内容作为一个列表项被增添到组合框的列表中；单击统计按钮，则在窗体空白处显示组合框中列表项的个数，以以下图。请编写两个命令按钮的Click事件过程。注意：程序中不得使用变量，也不能够使用循环构造。存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt3.v

31、bp，窗体文件名储藏为sjt3.frm。*需考生编写的程序*PrivateSubCommand1_Click()Combo1.AddItemText1EndSubPrivateSubCommand2_Click()PrintCombo1.ListCountEndSub2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体以以下图。该程序用来对在上面的文本框中输入的英文字母串(称为明文)加密，加密结果(称为密文)显示在下边的文本框中。加密的方法为：选中一个单项选择按钮，单击加密按钮后，依照选中的单项选择按钮后边的数字n，将明文中的每个字母改为它后边的第n个字母(z后边的字母认为是a，Z后边的字

32、母认为是A)，以以下图。窗体中已经给出了全部控件和程序，但程序不完满，请去掉程序中的说明符，把程序中的?改为正确的内容。注意：不得改正程序中的其余部分和控件的属性。最后将改正后的文件按原文件名存盘。PrivateSubCommand1_Click()DimnAsInteger,kAsInteger,mAsIntegerDimcAsString,aAsStringFork=0To2IfOp1(k)ValueThenEndIfNextkm=Len(Text1.Text)a=Fork=1To?c=Mid$(Text1.Text,?,1)c=String(1,Asc(c)+n)IfczOrcZAndc

33、a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEndIfNextjNextiForj=1To50ch=ch+Str(a(j)+NextjText2.Text=chEndSubPrivateSubC3_Click()Openout5.datForOutputAs#1Print#1,Text2.TextClose#1EndSub05-第07套基本操作题1）在名称为Form1的窗体上增添一个名称为L1，标题为业余爱好的标签，再增添一个名称为Ch1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为体育、音乐、美术，请设置复选框的属性，使其初始状态以下表

34、所示：体育选中可用音乐未选中不能用美术未选中可用程序运行后的窗体以以下图。注意：存盘时必定寄存在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名储藏为sjt1.frm。控件标签复选框1属性NameCaptionCaptionIndexValue设置值L1业余爱好体育01控件复选框2复选框3属性CaptionIndexEnabledCaptionIndex设置值音乐1False美术2（2）在名称为Form1的窗体上增添一个名称为Text1的文本框；再成立一个下拉菜单，菜单标题为操作，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为显示、隐蔽，请编写适合的事件过程

35、，使得在程序运行时，单击隐蔽菜单项，则文本框消失；单击显示菜单项，则文本框从头出现，程序运行后的窗体以以下图。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt2.vbp，窗体文件名储藏为sjt2.frm。PrivateSubHide_Click()PrivateSubShow_Click()Text1.Visible=FalseText1.Visible=TrueEndSubEndSub05-第07套简单应用题（1）在名称为Form1的窗体上增添一个名称为L1的标签，标题为口令；增添两个文本框，名称分别为Text1、Text2，初

36、始内容为空；再增添三个命令按钮，名称分别为C1、C2、C3，标题分别为显示口令、隐蔽口令、复制口令，在程序开始运行时，向Text1中输入的全部字符，都显示为*，单击显示口令按钮后，在Text1中显示全部字符，再单击隐蔽口令后，Text1中的字符不变，但显示的都是?，单击复制口令后，把Text1中的实质内容复制到Text2中，以以下图。要求：在属性窗口中，将窗体的标题改为口令窗口。成立适合的事件过程，达成上述功能。每个过程中只赞同写一条语句，且不能够使用变量。存盘时，工程文件名储藏为sjt3.vbp，窗体文件名储藏为sjt3.frm。*需考生编写的程序*PrivateSubC1_Click()T

37、ext1.PasswordChar=EndSubPrivateSubC2_Click()Text1.PasswordChar=?EndSubPrivateSubC3_Click()Text2.Text=Text1.TextEndSub（2）在名称为Form1的窗体上增添一个名称为P1的图片框，并利用属性窗口把考生文件夹中的图标文件Open.ico放到图片框中；再增添一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即翻开对话框时：标题为翻开文件，文件种类为Word文档，初始文件夹为C盘根文件夹。再编写适合的事件过程，使得程序在运行时，单击P1图片框，能够翻开上述对话框。程序运行后的窗

38、体以以下图。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt4.vbp，窗体文件名储藏为sjt4.frm。程序中不得使用任何变量。*需考生编写的程序*PrivateSubP1_Click()CD1.ShowOpenEndSub05-第07套综合应用题（1）在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮，标题分别是读数据和统计，请增添一个名称为Label1、标题为回文的个数为的标签和一个名称为Text1，初始内容为空的文本框，如图所示。程序功能以下：单击读数据按钮，则将考生文件夹下in5.dat文件的内容读到变量s中；单击统计按钮，则统计in5.dat文件(该文件中

39、仅含由空格间分开的字母串)中回文的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都同样的字符串，如recycer)读数据和统计按钮的Click事件过程已经给出，请完满foundhuiwen过程的功能，实现上述程序功能。注意：考生不得改正窗体文件中已存在的控件和程序，在结束程序运行以前，必定先进行统计，且必定用窗体右上角的封闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。Functionfoundhuiwen(pAsString)*需考生编写的程序*IfStrReverse(p)=pThenfoundhuiwen=TrueEndFunction06-第08套基本

40、操作题（1）在名称为Form1标题为“选题”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按次序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框在选中状态下，运行时的窗体以以下图。请画控件并设置相应属性。注意：存盘时必定寄存在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。（2）在名称为Form1的窗体上画一个名称为HS1的水平转动条，其刻度值范围为1100；画一个命令按钮，名称为C1，标题为“搬动转动框”。请编写适合的事件过程，使得在运行时，每单击命令按钮一次（假设单击次数少于10次），转动框向右搬动个刻度。运行时的窗体

41、以以下图。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必定寄存在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。PrivateSubC1_Click()HS1.Value=HS1.Value+10EndSub06-第08套简单应用题（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再成立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为加粗、斜体、下划线，名称分别为M1、M2、M3。请编写适合的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描绘的操作，以以下图。注意：存盘时必定寄存在

42、考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。M1_click()Text1.fontBold=trueM2_click()Text1.fontItalic=trueM3_click()Text1.fontUnderline=trueText1_MouseDown()Ifbutton=2thenPopupmenuformat（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入相关信息（密码框中显示*字符），尔后单击提交按钮则弹出确认对话框（

43、即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击确认按钮则程序结束，单击重输按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完满。要求：1）把Form1的标题改为注册，把Form2的标题改为确认；2）设置适合的属性，使Form2标题栏上的全部按钮消失（如图2所示）；3）去掉程序中的说明符，把程序中的？改为正确的内容。注意：不能够改正程序中的其余部分，标题等属性的改正只幸亏属性窗口中的进行。最后把改正后的文件按原文件名存盘。PrivateSubC1_Click()DimkAsIntegerForm2.?*show*Form2.PrintForm1.L

44、1.Caption;Form1.Text1Form2.PrintForm1.L2.Caption;Form1.Text2Form2.PrintForm1.L3.Caption;Form1.Text3Form2.PrintForm1.Frame1.?;：;*caption*Fork=0To1IfForm1.Op1(?).ValueThen*k*Form2.PrintForm1.Op1(k).CaptionEndIfNextkEndSubPrivateSubForm_Load()Text2.?=*passwordchar*EndSub06-第08套综合应用题在考生目录下有一个工程文件sjt5.vb

45、p，其窗体上有两个标签L1和L2，标题分别为口令和赞同次数；一个命令按钮C1，标题为确定；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示*），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完满，要求去掉程序中的说明符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击确定，若是输入的是123456则在Text1中显示口令正确；若是输入其余内容，单击确定后，弹出以以下图的错误提示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次输入。PrivateSubC1_Click()If?=1

46、23456Then*text1.text*Text1.Text=口令正确Text1.?=*passwordchar*ElseText2.Text=Text2.Text-1IfText2.Text?Then*0*MsgBox第&(3-Text2.Text)&次口令错误，请从头输入ElseMsgBox3次输入错误，请退出Text1.Enabled=?*false*EndIfEndIfEndSub07-第09套基本操作题1）在名称为Form1，标题为图片的窗体上增添1个名称为Image1的图像框，其高为2500，宽为2000。请经过属性窗口设置适合属性，将入考生文件夹下的图片文件pic1.jpg，并

47、使图片自动适应图像框的大小(以以下图)。注意：存盘时必定寄存在考生文件夹下，工程文件名储藏为sjt1.vbp，窗体文件名储藏为sjt1.frm。（2）在名称为Form1的窗体上增添1个名称为Label1，标题为口令的标签；增添一个名称为Text1的文本框；再增添三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为显示口令、隐蔽口令、从头输入。程序运行时，在Text1中输入若干字符，单击隐蔽口令按钮，则只显示与字符同样数量的*(如图2所示)；单击显示口令按钮，则正常显示输入的字符(如图1所示)，单击从头输入按钮，则消除Text1中的内容，并把光标定位到Text

48、1中。要求：请按要求增添全部控件，编写命令按钮的Click事件过程，程序中不得使用变量，在显示口令、隐藏口令按钮的事件过程中只能写1条语句。存盘时必定寄存在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。PrivateSubCommand1_Click()PrivateSubCommand2_Click()PrivateSubCommand3_Click()Text1.PasswordChar=Text1.PasswordChar=*Text1=EndSubEndSubText1.SetFocusEndSub07-第09套简单应用题1）在考生文件夹下有一个工程文件sj

49、t3.vbp，在程序运行时，单击“输入整数”按钮，能够从键盘输入一个整数，并在窗体上显示此整数的全部不同样因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完满。要求：请去掉程序中的说明符，把程序中的？改为正确的内容。不能够改正程序中的其余部分，也不能够改正控件的属性。最后用原来的文件名储藏工程文件和窗体文件。PrivateSubCommand1_Click()DimnAsIntegerCls?=InputBox（“请输入一个整数”）*n*Print“因子数”；fun(n)EndSubFunctionfun(mAsInteger)DimsAsI

50、ntegerS=0Fork=1toAbs(m)/2IfmModk=?Then*0*s=s+1PrintkEndIfNextk？*fun=s*EndFunction（2）在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项（如图1所示），单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些城市的城市（如图2所示）。已经给出了全部控件和程序，但程序不完满。要求：请去掉程序中的说明符，把程序中的？改为正确的内容，使其能正确运行，但不能够改正程序中的其余部分和控件属性

51、。最后用原来的文件名储藏工程文件和窗体文件。PrivateSubCommand1_Click()Dimk%Fork=List1.ListCount-1toIfList1.Selecte(k)=TrueThenList2.AddItem?List1.RemoveItem?0*step-1List1.List(k)*k*EndIfNextkEndSubPrivateSubCommand2_Click()Dimk%Text1=“已经选中的城市有：“Fork=0toList2.ListCount-1Step1Text1=?&“&List2.List(k)*Text1.Text*NextkEndSub0

52、7-第09套综合应用题在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白地点时，实心圆则向单击地点直线搬动；若用鼠标右键单击窗体，则实心圆停止搬动。窗体文件中已经给出了全部控件，但程序不完满。要求：请去掉程序中的说明符，把程序中的？改为正确的内容，使其能正确运行，不能够改正程序的其余部分和控件属性。最后把修改后的文件按原文件名存盘。Dimx0AsInteger,y0AsInteger,aAsSingle,radiusAsIntegerradius=Shape1.Width/2圆的半径IfButton=LEFT_BUTTONThenx0=

53、shape1.left+radius圆心的x坐标y0=shape1.top+radius圆心的y坐标Ifx=x0ThenStepy=Sgn(y-y0)*50Stepx=?*0*Elsea=(y-y0)/(x-x0)stepx=sgn(x-x0)*50?=a*stepxIfabs(stepy)abs(stepx)ThenStepy=sgn(y-y0)*50Stepx=stepy/aEndifEndIf?=True斜率*stepy*Timer1.Enabled*Else?=False*Timer1.Enabled*EndifEndSubPrivateSubTimer1_Timer()Shape1.

54、MoveShape1.Left+stepx,Shape1.Top+?EndSub*stepy*08-第10套基本操作题（1）在名称为Form1的窗体上增添一个名称为Shape1的形状控件，经过设置参数使其形状为圆形；增添一个名称为Label1的标签，标题为形状，标签的大小能够依照标签内容的字数、大小而定；增添一个名称为的文本框，文本框最多能够显示5个字符，文本框中初使内容为圆形，以以下图。注意：存盘时，将文件储藏至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。Text1（2）在名称为Form1的窗休上增添一个名称为Label1的标签，字号大小为四号，标题为等级考试

55、，如图1所示。经过设置属性使标签初始为不显示。请编写适合的程序，使得运行程序时，窗体的标题立刻变为标签，单击窗体时，显示标签，如图2所示。注意：存盘时，将文件储藏至考生文件夹下，且窗体文件名储藏为sjt2.frm，工程文件名储藏为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。PrivateSubForm_Click()Label1.Visible=TrueEndSubPrivateSubForm_Load()Form1.Caption=标签EndSub08-第10套简单应用题（1）考生文件夹中有工程文件sjt3.vbp。窗体上出名称为Label1、标题为“标签控件”的

56、标签；有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容（标题内容前有“单击”二字），以以下图是单击命令按钮后的窗体外观。请去掉程序中的说明符，把程序中的？改为正确的内容。注意：考生不得改正窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。PrivateSubCommand1_Click()CallShowName(？)EndSubPrivateSubLabel1_Click()CallShowName(？)EndSubPrivateSubShowName(cAs？)IfTypeOfcIsCommandBu

57、ttonThen*Command1*Label1*Control*Label2.Caption=单击&Command1.CaptionEndIfIfTypeOfcIsLabelThen？=单击&Label1.Caption*Label2.Caption*EndIfEndSub（2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图1所示。程序功能：将计时器控件设置为每隔0.5秒触发一次。运行程序时，只显示下标为0的图片框控件数组元素，其它图片框均不显示。单击“开始”按钮，数组中的每个图片框自左至右依次显示，时间间隔为0

58、.5秒，产生月亮从左向右搬动的收效，如图2所示。月亮移到右端后再从左端从头开始。单击“停止”按钮，月亮停止搬动。要求：去掉程序中的说明符，把程序中的？改为正确的内容，使其实现上述功能，但不能够改正程序中的其余部分。最后把改正后的文件按原文件名存盘。PrivateSubForm_Load()Picture1(0)Left=0Picture1(0)Top=100Fork=1To7Picture1(k)Visible=？*False*NextEndSubPrivateSubCommand1_Click()Timer1.Enabled=？*True*EndSubPrivateSubCommand2_C

59、lick()Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()StaticiAsIntegerPicture1(i)Visible=Falsei=i+1Ifi=?Then*8*i=？*0*EndIfPicture1(i)Visible=TrueEndSub08-第10套综合应用题考生文件夹下有一个工程文件sjt5.vbp。运行程序后，从文件中读出数据，放入5X5的二维数组a中。请编写程序，找出a数组中每行的最大值及该值行家中的序次（即列下标），并将所找到的结果分别储藏到一维数组b、c中（a第一行的最大值储藏在b(1)中，最大值的列序次储藏在c(

60、1)中）。注意：不能够改正程序的其余部分和控件属性。最后把改正后的文件按原文件名存盘。程序调试通事后，命令按钮的事件过程必定至少履行一次。Dima(5,5)AsIntegerDimb(5)AsIntegerDimc(5)AsIntegerPrivateSubCommand1_Click()N=5Fori=1ToN考生编写程序开始Max=a(i,1)Forj=1To5IfMaxa(i,j)ThenMax=a(i,j)EndIfb(i)=MaxIfMax=a(i,j)Thenc(i)=jNextj考生编写程序结束NextiSaveEndSub09-第13套基本操作题（1）在名称为Form1的窗体上