2023年VB语言程序设计试题库

VB程序设计一、判断题1.同一Ｆｏrｍ窗体中的各控件可以互相重叠，其显示的上下层次的顺序不可以调整。(X)ﻫ2.一个对象的若能辨认多个事件，我们只能对其中一个事件编程()ﻫ3.单选按钮与复选框对象的Ｖaｌue属性类型不同，且只能取值Tｒue和False。(√）４．事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。()ﻫ5.图片框的Move方法不仅可以移动图片框,并且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值。(√)ﻫ６.“A=B＝C”是一个合法的VisuaｌBasic语句。（）

7.当在一个简朴组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（)ﻫ8.ViｓualＢasic程序的运营可以从Ｍain()过程启动,也可以从某个窗体启动。(√）ﻫ9.在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。()

10.对于文献系统控件,当驱动器控件Drivel中的驱动器符改变时，文献夹列表控件Dir1中显示的文献夹也作相应的改变，可以在Dｒive1中的Ｃｈａｎge事件中使用如下命令。Dir1．Ｐatｈ＝Ｄrive1.Drive(√）

11.滚动条控件可作为用户输入数据的一种方法。(√）ﻫ１2.单选按钮控件和复选框控件都具有Vａlue属性，它们的作用完全相同。（）

13.静态变量是一种局部变量,当原过程再次被执行时,静态变量的初值是上一次过程调用后的值。（√)ﻫ１4．VisualBaｓｉc提供的几种标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置,则需使用自定义坐标系统。(√）ﻫ1５．注释语句RＥM可自成一语句。(√）

16.用鼠标选中某菜单控件时,触发Ｃlick事件；而用键盘选中该菜单控件时，触发KeyＰress()ﻫ１7.组合框兼有文本框和列表框两者的功能,用户可以通过键人文本或选择列表中的项目来进行选择。(√)ﻫ18.当定期器控件的Iｎｔerｖａl属性值设立为0时，会连续不断地激发Ｔｉmeｒ事件。（）

19．执行程序x=0：fｏrＩ＝２to10ｓtep–2:x=x+1０:nextI后x的值为０。(√)ﻫ２．句“FｏntNａｍe="宋体"”与“Forｍ1.FｏｎtNａme="宋体"”的作用完全相同,无一例外。()

21局变量只能在窗体的通用区内用Publｉc或gloｂaｌ定义。()ﻫ22.在盘驱动器列表框Dｒｉｖel的Changｅ事件过程中,代码Dirl．Path=Driｖel．Drive的作用是:当Ｄｒiｖel的驱动器改变时,Dirl的目录列表随不同驱动器作相应改变。（√）2３．直到型循环至少能执行一次循环体。（√）ﻫ2４．Ｖａｒiaｎt是一种特殊的数据类型,Variant类型变量可以存储除定长字符串数据及自定义类型外的所有系统定义类型的数据。Vaｒｉａnｔ类型变量还可具有Empty、Errｏr和Null等特殊值。(√)

２５.假如一个菜单项的Viｓiblｅ属性为False，则它的子菜单也不会显示。（√）

26.运营程序后在同一窗体上不也许同时选中两个单选钮。（)ﻫ2７.窗体的Eｎaｂｌｅd属性值为Falsｅ时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反映。(√)ﻫ２8．定期器的ｉnteｒval属性值为０时,不会发生tiｍer事件。(√）

２9．框架控件和形状控件都不能响应用户的鼠标的单击事件。（)

30.在一个窗体的代码中不能使用Unｌoad语句来卸载本窗体,即一个窗体只能由其他窗体卸载。()3１．移动图片框时，以该图片框为载体的各控件的Ｌeft和Tｏp属性值不变。（√）二．单选题３2．组合框的Cｈangｅ(）事件在下列那种情况下发生?(C)Ａ、在程序改变控件的大小时发生B、用户在下拉列表中改变选项时发生C、用户在编辑文本区内容时发生D、当程序改变组合框的Sｔｙle属性时发生３３．为了使标签框的中的文字能自动折行,必须同时设立下面两个属性为True。（D)A、Captioｎ和AutoSizeB、AutoＳｉze和AligｍenｔC、Visiblｅ和ＥnabｌeD、AｕtoSize和ＷordWarｐ34.假如希望文献列表框只显示可执行文献,应当修改（B)属性。ﻫＡ、ＰatｔernB、FilterC、ＰathD、ＦileName３5．为了使某个命令按钮处在不可用状态,应当设立该命令按钮的属性。（B)Ａ、DefaulｔＢ、EnabledC、CancｅlD、ＴabＩndex3６．通用对话框控件的返回值ＦileName表达所选择文献的(B）。ﻫA、途径名B、全名C、文献主名Ｄ、文献扩展名３７.关于单选按钮和复选框，下列说法对的的是:(C)Ａ、单选按钮和复选框的Ｖａlue属性值也许是０或1Ｂ、同一窗体上的单选按钮只能有一个处在选中状态Ｃ、复选框不支持DｂlCliｃｋ事件D、单选按钮选中状态的改变只能由用户进行，而不能由程序设立38.下列控件中哪个控件没有Ｃhange事件(D)

Ａ、滚动条B、目录列表框C、标签D、单选按钮39.菜单项显示分隔线是通过设立（A)属性来实现的。

A、CaptionＢ、VｉsibｌｅC、CheｃkedD、Ｅｎabｌｅd40.运营时组合框控件Comｂ1中所选择的表项,可以表达为(C）。

A、Coｍｂ1.TextB、Comｂ１.LiｓtC、Coｍb1.ListIｎｄexD、Cｏmb1.ListCｏunt41.要使Ｓhape控件以实心方式填充，应当设立其(Ｂ）属性。A、ＦiｌｌCoｌorB、FillStｙleC、BackStylｅＤ、Shａpe42.向文本框中输入一个字符,下列事件不会发生。（C）

A、ＣｈaｎgｅB、ＫeyPressC、GｏtFoｃuｓD、ＫeｙDown43．下面关于框架、复选框和单选钮的叙述,对的的是。(Ｂ)

Ａ、框架没有Caｐtion属性，而复选框和单选钮都有Ｃaｐtion属性Ｂ、一个框架中的复选框有可以多个被选中ﻫC、一个窗体中单选钮有且只有一个可以被选中

A、可以把窗体中已存在的单选钮拖到框架中，成为框架中的一员44.用户在窗体上单击时，将先后触发该窗体的（D)A、MouseDown事件、Ｃlick事件、MouseＭｏｖe事件、MousｅUp事件ﻫB、Cｌｉｃk事件、ＭouseDown事件、ＭｏuseUｐ事件、MouｓｅMoｖe事件ﻫC、MouｓeDoｗn事件、Cliｃｋ事件、MouseUp事件、MouseMoｖe事件

Ｄ、MouｓeＤｏwn事件、ＭｏｕseＵp事件、Click事件、MouｓeMoｖｅ事件45．下面方法不属于列表框和组合框。（A)ﻫA、ClsB、ＡddItｅmＣ、GｅtFocusD、RｅmｏveItem

46.在图片框控件Ｐｉctｕre1上坐标(x,y)处画一个绿色点,写作(D)。

A、Psｅｔ（x,y）,Ｒｇｂ(0，25５,0）B、Piｃturｅ1.Pｓet(ｘ,y),Ｇreen

C、Pseｔ(x,y),vbGreenD、Picturｅ1.Pset（ｘ,y）,vbGreeｎ４７.下面关于滚动条和计时器控件的叙述，其中错误的是。(B）Ａ、当滚动条的Ｖａｌue值改变时,发生Ｃhangｅ事件Ｂ、当拖动滚动条时，释放鼠标时发生Ｓｃroｌl事件C、计时器控件在运营时是不可见的Ｄ、计时器和滚动条控件都有Enable属性４8.单击滚动条两端的任一个滚动箭头,将触发该滚动条的(C)事件。Ａ、ScroｌlB、ＫeyDownＣ、ＣhaｎgeD、Ｄragover49.设立某子菜单项的Captioｎ(标题）属性为“画图(&D）”,ShｏｒtCut（快捷键)属性为“Ctrl＋Ｌ”。启动工程时,下面不会触发该子菜单的Ｃliｃk事件。(D)Ａ、打开主菜单,按Ｄ键Ｂ、直接按Ctrl+L键C、用鼠标单击该子菜单项D、打开主菜单,按Alｔ+D50．要改变控件的宽度，应修改该控件的（C)属性。

Ａ、TopＢ、LｅfｔC、WｉｄtｈD、Hｅighｔ51.顺序文献有三种打开方式，下面种不是。(A）Ａ、ＲanｄomB、InｐutC、OｕtpｕｔD、Apｐend5２．（C)对象不能作为控件的容器。ﻫA、FormB、ＰictureＢoxC、ShapｅD、Fｒａme53.将命令按钮Comｍanｄ1设立为不可见，应修改命令按钮的(A)属性。ﻫＡ、VisｉbleB、ValuｅC、CaｐｔiｏnD、Eｎaｂleｄ５４．下列数据类型中,占用内存最小的是(B）。

Ａ、BooleaｎB、ByteＣ、IｎteｇeｒD、Ｓingｌe55.(Ｄ)对象具有Ｃleaｒ方法。A、图片框Ｂ、窗体C、复选框D、列表框５6．一个对象可以执行的动作和可被对象辨认的动作分别称为(B)。ﻫＡ、事件、方法Ｂ、方法、事件ﻫC、属性、方法Ｄ、过程、事件57.已知A、B、C中C最小，则判断A、B、C可否构成三角形３条边长的逻辑表达式是(B)。ﻫＡ、A>=BＡnｄＢ＞＝CAnｄC>0B、A＋C＞BＡndB＋C>AＡnｄＣ>０ﻫC、(Ａ＋Ｂ＞=COｒA－C<=C)AndＣ＞０58．将通用对话框CommoｎDialog1的类型设立成“另存为”对话框,可调用该控件的的(B）方法。

A、SｈowOｐenB、SｈowＳａveC、ShｏwColorＤ、ShowＦoｎｔ５9．下面(C)是日期型常量。

A、“1２/19/99”B、12/19/9９60.重新定义图片框控件的坐标系统,可采用该图片框的(A）方法。Ａ、ScalｅB、ScaｌeXＣ、SｃａleYD、ＳetFｏcｕs61．_＿__Ｄ___对象不具有Capｔｉｏn属性。Ｄ

A、LａｂｅｌB、OptiｏnC、ForｍD、Tiｍer６2．Inｔeｇer类型的变量可存的最大整数是(D)。

A、255Ｂ、256C、３276863.要改变控件的宽度,应修改该控件的(Ｃ)属性。ﻫA、ＴｏｐB、LefｔC、ＷidthD、Heｉｇｈt64．对于窗体级变量，以下说法错误的有：（B）

A、所在窗体的各子程序都可以访问

Ｂ、其他窗体的子程序不能访问

C、所在窗体的子程序能访问用Privａｔe定义的窗体级变量

Ｄ、一定要在所在窗体的通用区内定义ﻫ６5.在窗体Forml的Click事件过程中有以下语句：（C)“Label1．Captiｏn=”“ＶisualBａｓic”若本语句执行之前，标签控件的Captｉon属性为默认值，则标签控件的Name属性和Captioｎ属性在执行本语句之前的值分别为。ﻫA、“Ｌaｂｅｌ”、“Label”Ｂ、“Ｌａbｅi1”、“VisuaｌBasic”ﻫC、“Ｌaｂel1”、“Ｌaｂel1”Ｄ、Caption、“Ｌａbel”66.下面关于变量的作用域和生存周期的描述对的的是(C)

A、全局变量可在窗体的通用区内定义

B、窗体级变量与静态变量具有相同的作用域和生存周期ﻫC、同一过程中用“Ｄｉｍ”定义的局部变量和用“Ｓtatｉc”定义的局部变量具有相同的作用域ﻫＤ、同一过程中用“Dim”定义的局部变量和用“Ｓtatｉc”定义的局部变量具有相同的生存周期67．一个菜单项是不是一个分隔条,由(B）属性决定。ﻫA、Naｍｅ(名称)B、CapｔionC．EnabledＤ、Visible68.Ｉｎteｇer类型的变量可存的最大整数是。(D）ﻫＡ、２５5B、２56C69.下面(Ｂ)对象在运营时一定不可见。

A、ＬinｅB、TｉmerC、ＴeｘｔD、Option70.形状控件所显示的图形不也许是(D)。ﻫA、圆B、椭圆Ｃ、圆角正方形D、等边三角形7１.以下(A)方式打开的文献只能读不能写。ﻫA、InputB、OｕtputC、RandomD、Aｐpend72.对象不具有Caｐtｉon属性。(D）A、LabeｌB、OｐtionC、ForｍD、Tiｍerﻫ７３．由Fork=35TＯ０Ｓtｅp3:Nｅｘtk循环语句控制的循环次数是（A)

Ａ、０Ｂ、１2C、-１174．以下(A）方式打开的文献只能读不能写。

A、InpuｔＢ、OutｐutC、RaｎdomD、Aｐｐenｄ7５.由Foｒｋ=35ＴＯ0Step３：Nextk循环语句控制的循环次数是(A）

A、０B、１2Ｃ、-1176.想要改变控件在窗体中的左右位置,可以修改该控件的(B)属性。ﻫA、TopB、LeftC、WｉdthD、Rigｈｔ77.要在文献列表框中显示不同类型的文献可以通过设立(A)属性

Ａ、PatternB、ＰathC、ＦilenameD、ＬistIndex７8.窗体的DrawWiｄth属性值设立为大于1时,下列（C)属性会失去作用

A、BacｋcｏloｒB、FilｌSｔyleC、DrawstyleD、Fillcolｏｒ79.假如在图片框上使用绘图方法绘制一个圆，则图片框的(Ａ)属性不会对该圆的外观产生影响。Ａ、BacｋcolorB、FoｒｅColｏｒC、DｒawWidｔhD、Drａｗｓtyle80．菜单编辑器中呈现以下状态，程序运营后下列(Ｄ)操作无法执行“复制”功能

A、打开“编辑”菜单后按下“C”

B、直接按下Ｃtrl+C

C、鼠标单击“复制”菜单项ﻫD、“Alt+E”——〉“Ａlt+C”三.填空题ﻫ81.VB的字符串运算符有__+_＿和&两种,其中运算符两边的表达式类型必须为字符型的运算符是＿_＿

&__。

ﻫ8２.设ｘ＝6,y=4,z=7,下面表达式的值是ｔruｅ_x>ｙandy＞x－zorx<yandnot２*y>z

８3.设ｎ是一个自然数，那么求n的位数Ｌ的表达式可以是Ｌ=__len(stｒ（n))-1___。

[例如：若n＝12３45,则Ｌ=５］84.在打开某窗体时，初始化该窗体中的各控件，应选用load事件。

8５．滚动条的当前值用__vaｌuｅ___表达。86．设x为大于零的实数，则大于x的最小奇数的VisuaｌBａｓic表达式是((Ｉnｔ(x)+1）\２)*2+l(或（（Ｆix（x)+1）\２)*2+1)。

87.在代码设计中，为了给某控件的BａcｋCｏｌor属性赋一个颜色值,可以有三种方法获得颜色,它们分别是QBCoｌoｒ(）函数、颜色常数和＿_＿RＧB(）函数＿＿__。ﻫ８8.a１和a2之中有且只有一个与a3的值相等，相应的ＶisuaｌBaｓic逻辑表达式是a１=a3Xorａ２=a３（或ａ1=a３Ａｎｄa<>a3Ora１<＞a3Ａnda2＝a3）。ﻫ8９．以图片框Pｉｃｔuｒe1的中心为圆心，以1000为半径在Ｐｉcturｅ1上画一个圆的方法是_picture1．circle（ｐicture1．widｔh/２,pｉcture1．height／2),１00０_____。90.设init的初值为１０，则由下列循环语句控制的循环次数是６。

DoWｈileinit>=5ﻫInｉt=iｎit-1

Lｏｏpﻫ91.窗体的Enablｅd属性值为_Fａlｓe_____时，该窗体上的按钮、文本框等控件就不会对用户的操作做出反映。

92．在VｉｓualBasic中,变量从它的作用范围来看。可分为全局变量、模块级变量和局部变量3种。ﻫ9３.VisuａｌＢaｓic提供了对文献的三种存取方式，分别是__Inpｕｔ__、_＿outpｕｔ___和__Append__＿。９4.8语句Ｐicｔure１.Circｌe(8０0,1００0),50０的含义是以图片框Pｉctuｒｅ1中的（800,１00０）为圆心,以5００为半径画一个圆。

95．用VｉsuａｌBasiｃ开发应用程序的"三步曲"是:__界面设计___、＿_属性设立__＿_＿和__代码设计___＿。

96.在VB中,若要产生一消息框,则可用函数__msgbox__来实现。

９7.已知ｎ为一个三位正整数,写出求n中十位数的ViｓualBaｓｉc表达式＿_(n\１0)mod10＿_＿＿。ﻫ９８.若要获得用户在驱动器列表控件中所选择的驱动器,可通过访问该对象的__Drive_＿＿属性来实现。ﻫ99.表达式（4．8＼2)＊7Mｏd3．1４的运营结果是＿＿_2＿__＿。ﻫ100.目录列表框（DｉrListBox)中,当前文献夹相应项目的LiｓtIndex属性值为_＿＿-1＿＿_。ﻫ10１.运用Line方法可以画__直线＿＿＿、_＿矩形___和_＿实心矩形___。１02．VｉｓualＢasic的菜单可分为__下拉式__菜单和___＿弹出式___菜单两种。

10３．在VｉｓualBasｉc中,___文献列表框＿_＿_＿和_＿__通用对对话框____＿控件具有Fｉlename属性。

10４.在VB中,用于产生输入对话框的函数是__Ｉnputbox＿__，其返回值类型为__字符型___,若要运用该函数接受数值型的数据，则可运用__Ｖal＿__函数对其返回值进行转换而得到。

ﻫ10５.用ＰｉｃtｕｒeBｏx和Iｍaｇe控件装载图形图像时，为了使图形图像与所在的控件大小相等，可以改变

１06．形状的Shａpe属性可以取＿__６____个值，分别代表各种不同的形状。1０７.假如在图片框上使用绘图方法绘制一个圆,则图片框的＿Bａcｋcｏｌor_属性不会对该圆的外观产生影响。PictureBox的__＿ｓtrｅｔｃh___属性和Ｉｍａge的__aｕtｏsize__属性。

１08．求ａ与ｂ之积除以ｃ的余数，用VB表达式为_＿＿mod(（a*ｂ)／ｃ)___。ﻫ１０9．VisｕalＢａｓic常见控件中可以作为其他控件容器的控件有__框架＿＿＿和＿图片框_。

110．ViｓuaｌBasic的菜单可在__菜单编辑器__中设计完毕。若要使某项菜单在运营时不可见,可设立该菜单对象的____Visiｂｌe＿＿_＿＿属性为Fａｌse来实现；若要使某项菜单在运营时失效,则应设立菜单项对象_＿Eｎabled___属性为False。ﻫ１11.在代码设计中,为了使定期器Tｉmer1能处在关闭状态,使系统不响应它的Ｔiｍer()事件，可以设立Timer１．Eｎablｅd=Ｆａｌse或__tｉmｅｒ1.Interval=0___。

112.表达式Chr（Asｃ(“R”)-Asc(“Ａ”)+Ａｓc（“a”))的值是__＿r＿__。ﻫ１１3．ＰriｎtMid$(Str$（-１2３4）,3,2)的结果为__23

＿__。程序阅读题

四、阅读下列程序,写出运营结果。ﻫ1、程序1ﻫPrｉｖateSubCoｍmaｎｄ1_Ｃliｃk()

DｉｍxAsIntegｅｒ,sAｓＩｎｔｅger

x=Vaｌ(InｐｕtBox("请输入一个正整数＝"）)ﻫ

Ｉfｘ<5Tｈeｎﻫ

s=s*x

Else

s=s＋ｘﻫ

ＥndIf

tｅxt1．Text="ｓ=＂＋Str(ｓ)ﻫEndＳubﻫ程序运营时连续3次单击Command１，且设输入的数是5，2和4时，分别写出文本框Text1.Text的值。ﻫ2、程序2ﻫPｒiｖateＳubForm_Cｌick()ﻫ

Foｒm１．Cｌsﻫ

w=3

Ｆork＝２To6Sｔep2

Forｍ1.Print"w＝＂;ｗ,＂k＝";kﻫ

w=w+１ﻫ

Nextｋﻫ

Fｏｒｍ1．Ｐrｉnｔ"w＝"；w,"ｋ=";ｋﻫEndＳub

写出程序运营时单击窗体后，Forｍ1上的输出结果。

3、程序3

PrivａteSubFｏｒm_Click(）

DｉｍxAｓString

DimiＡsIｎteger，nAsIntegｅrﻫ

Ｆorm1.Clsﻫ

x="ABCDＥFＧHKL"ﻫ

ｎ＝Ｌen(ｘ）

Foｒi=nTo1Step-２ﻫ

Ｆoｒm１.ＰｒiｎｔTａb（20－i）;Mid（x,i,1)ﻫ

NｅｘtｉﻫEndSub

写出程序运营时单击窗体后，Fｏrm1上的输出结果。ﻫ4、程序４ﻫ

ＤｉmaAsIｎtｅｇer,yAsIｎtegerﻫ

PriｖaｔｅSubFｏｒm_Loａd()ﻫ

Open＂c：\a1.dat"ＦorOｕtpuｔAs＃1

Ｃlose#１

EndSｕb

ＰrivateSubＣoｍmand1_Clｉck（)

Opｅｎ"c:\a1.ｄaｔ"ForAｐpenｄＡs#１ﻫ

Ｃａllaa(5)ﻫ

ｙ＝y+aﻫ

Pｒint#1,＂y="；y，"a=＂;a

Cｌｏse＃1

EndSuｂ

Ｓubaa(ｉAｓＩｎtegｅr)ﻫ

x＝1

ＤｏＵｎｔｉlx>i

ａ=a+x

ｘ=x+3

LoopﻫEｎｄSub

写出程序运营时连续3次单击Ｃｏmｍａnd1后，a１.daｔ文献的最终结果。

程序阅读题答案：1.ﻫｓ=５

s=１０ﻫs=４0ﻫ２．ﻫw=3k=2

w=4k=4

w=５k＝6ﻫw＝６k=8ﻫ３.

Ｌﻫ

Hﻫ

Fﻫ

D

B

4.

y=5a=5ﻫy=15a＝１0

y=3０a=15五.程序填空题

仔细阅读下列各小题的程序说明和相应的程序，在每小题提供的若干可选答案中,挑选一个对的答案。

1.【程序说明】

本程序求３～1０0之间的所有素数（质数)并记录个数,同时将这些素数从小到大依次写入顺序文献e:\ｄataout．txt，素数的个数显示ﻫ在窗体Fｏrｍ１上。ﻫ【程序】

ＰｒivateＳuｂCｏmmａnｄ１_Clicｋ()

DimｃoｕntＡsInteｇer,flaｇAsBooｌｅan

DｉmtiAsＩntｅgeｒ,t2ＡｓIｎtegｅrﻫ

(1)ﻫ

coｕｎt=0

Forti=3To100

flaｇ=Ｔruｅ

Fｏrt2=２ToInt（Sqｒ(t1)）

Iｆ(2）Tｈenflag=Falseﻫ

Nextt2

（３)

cｏｕｎｔ=cｏunt+1

Wｒite#1,t1ﻫ

EndＩf

Nｅxｔt1ﻫ

（4)

Clｏse#1ﻫＥndSｕbﻫ(1）A、Ｏpenｅ:\datａoｕt.tｘtForＯutputＡs#1

Ｂ、Opeｎe：＼dataout.txｔＦorInputAｓ#1

C、Opene：＼dataouｔ.txtForOuｔpuｔＡs＃2

D、Ｏｐenｅ:\dataoｕt．txｔForOutｐutAs#１ﻫ(2)A、ｔ2\t1=0B、t1Modt２=0C、t1\t2=0Ｄ、t2Modt1=0ﻫ（3)A、IfｆｌagThenＢ、Ift２>t1Then

Ｃ、Ｉｆｔ1>t2ＴhenD、Iｆｔ2>inｔ（ｓqｒ（t１))Ｔhｅn

(4)A、Forml．Print＂素数个数：＂;ｃouｎt

B、Ｐrint＃l＂素数个数：＂;Countﻫ

C、Ｆorm１.Print"素数个数：";ｃoｕｎt

Ｄ、Form1.Pｒint"素数个数:＂：Couｎt

２．[程序说明]ﻫ由输入对话框输入n（设n为大于零且小于30的自然数),计算下列表达式并在标签框Labｅｌ1上显示。

1／(1*2)+１／(2*3)+1/（3＊４)+……＋1／（n*(n+1）)

【程序】ﻫPｒivatｅSｕｂＦorm_Clｉcｋ（)ﻫDiｍｎAsIntｅger,suｍAsＤouｂlｅ,kＡｓＩnteger

Do（5)ﻫ

n=Vaｌ(InputBoｘ(＂n＝＂,＂请重输")）ﻫLｏoｐﻫsｕm=0ﻫ

（６)

Ｄｏﻫ

ｋ=k＋1

sum=(7)ﻫLooｐUntilk>=nﻫLabｅl１.Cａptｉon="Sum"+Ｓtr（sｕm)ﻫEndSub

（5)Ａ、Ｗhilｅn＜=Ooｒn＞=3０B、Wｈilen＜＝OAndn>=30

C、Untｉlｎ>0Ｏrn<30D、Untiln>=0andn<=3０ﻫ(6)A、k=2Ｂ、k=１Ｃ、K=-１D、k＝0

(７)A、1/（k＊（k+１））Ｂ、l/(k－1)＊kﻫ

Ｃ、sｕm+1/(k＊(k＋１）)D、suｍ+１／ｋ＊(k+1）

3.【程序说明】

本程序用于解决文本框Textl.Tｅxt中的内容,假设文本框中有偶数个字符。规定将文本框从头尾至中间依次各取字符，组成一个新的字符串str2,并在窗体上输出。ﻫ如:Tｅｘtｌ．Texｔ＝"123４5678",则Str2＝＂1８27３645"ﻫ【程序】ﻫＰrｉvateSubForｍ_Ｃlick()

ＤimStr1AsＳｔrｉｎｇ，Str2AｓStrinｇﻫStｒ1=TeXt1.Text

Ｓｔr２="＂

m＝0

Do（8）ﻫ

Str2=Stｒ2+(9）ﻫ

Stｒ２=Ｓtr2+（10)ﻫ

m=m+l

Lｏop

foｒｍｌ.PｒintStr2

EnｄSubﻫ(8)Ａ、Whilem

C、Untilm>Leｎ(Stｒ1)/２D、Untｉlm＜Lｅn（Sｔr１)／２

(9)A、Mid(str1,m，１)Ｂ、Ｍiｄ(ｓｔr１,len（stｒ１)-ｍ,1)ﻫ

C、Ｍiｄ(m，Stｒl，l)D、Miｄ(Sｔｒ1，m+l,1）ﻫ(10）A、Mｉｄ(sｔr1,len(ｓｔｒ1)-m+1,１)ﻫ

B、Mｉd(sｔr1，ｍ,1)ﻫ

Ｃ、Ｍid(sｔr1,ｌen(str1)-m，1)ﻫ

Ｄ、Mid(sｔr1,len(ｓtｒ1)-m＋1,1）ﻫ

程序填空题答案：DBＡCADＣADC六、程序填空题ﻫ1.下面是一个求ｎ！的自定义函数代码。

PrｉvateFｕnctionJC（nAｓInteｇer)AsLoｎgﻫＤimResｕltＡsLonｇ

Ifp=１Ｔhen

Resuｌt=1

Elｓｅ

Rｅsｕlｔ=(1）

EｎdIf

JC＝（2)

EｎdFuｎｃtiｏn2．下面的程序完毕以下功能:单击窗体上的“测试”（Comｍand1)按钮，出现一个输入框,规定输入一串字符，将该字符串中的非字母字符删除后,显示在窗体中的一个文本框(Ｔext1)中。ﻫPｒｉvatｅSubＣommanｄ１_Clｉcｋ（)ﻫDimSt1，Sｔ2ＡsＳｔringﻫＤimＣｈＡs（３）ﻫDimLＡsIｎtｅgｅr

St1=InputBoｘ("请输入一串字符"，"字符串输入")

L=（4)ﻫSｔ2=""ﻫFoｒｉ=1ToL

Ch=Mｉd(Ｓｔ1,i，１)ﻫIｆ(Ｃh>"Ａ"Aｎd(5））Or(Cｈ>"a"AndCh<＂z＂)Thｅｎﻫ

St２=St2+ＣhﻫＥndIｆﻫNｅｘti

Ｔｅｘt1．Tｅｘt=（6)ﻫＥndＳub３.下面的程序完毕以下功能:窗体上有两个命令按钮“产生”(Cｏmmanｄ１)和“排序”（Cｏｍmaｎd2）。单击“产生”按钮时,随机产生10个[1,20］范围内的整数放在数组Ａ中，并在窗体上输出。单击“排序”按钮时，用选择法排序这１０个数并输出。ﻫDimA(１0)AsIｎtegerPｒｉvatｅSubＣommａｎｄ1＿Ｃlｉｃk()

DｉmiAｓＩｎtｅgerﻫRandomizｅﻫPrint"排序前的数列:＂

Fori=１To10ﻫ

A(i)=(7）ﻫPrintSｔr(A(ｉ)）+＂";

ＮextiﻫPrｉｎt

ＥndSubＰrｉｖａtｅSubCommａnｄ２＿Clｉcｋ(）ﻫDimｉ,ｊ，Min,TｅmpAｓInteｇerﻫPrintﻫPｒint＂选择排序后的数列:"

ﻫFoｒi＝1Tｏ9

Min=A(i)ﻫＦｏrj＝（８）To10

ＩfA(j)<ＭinＴheｎ

Ｔｅmｐ＝A(j)ﻫ

A（ｊ)=（9)

Ｍiｎ＝Tｅmpﻫ

EnｄIｆ

NeｘtｊﻫA(i)=Miｎﻫ（10)

Forｉ=1To10

PｒintStr(A（i）)+"";

Nexti

Prinｔ

ＥndＳub程序填空题答案：（1)n*Jc(n-1)(２）resulｔ（3）string（4)ｌen(str)(5)ch<"z"（6)ｓt2(7)iｎt(Rnd*２0)+1(8)Ｉ+１（9)ｍin（10)nexti七、程序填空题

1.程序说明:运用一个计时器,一个标签框和两个命令按钮制作一个动态秒表，

单击“结束”命令按钮,秒表结束计时，并在标签框显示运营时间，如“运营

了0小时2分10秒”。(假设对象的属性都在程序代码中设定）一个动态秒ﻫ程序代码如下

DimｘＡsＬonｇ

DimhＡsIｎtegｅr,ｍAｓIntegｅr,ｓAｓInteｇer

PriｖateSｕbFoｒｍ＿Loaｄ()

Fｏｒm１.Captiｏn=＂动态秒表(小时:分:秒)＂ﻫ

Ｃommａｎｄ1.Capｔiｏn=＂开始［&S］＂

Commanｄ2.Capｔion="结束[&E］"

Label1.Aliｇnmenｔ＝2ﻫ

Lａbeｌ1.Captｉon="0：0:0"ﻫ

Ｔiｍｅr1.Interval＝（１）ﻫ

Tiｍer1.Eｎableｄ=Ｆalｓｅ

x=0

EndＳuｂ

PrｉvateSｕbCommaｎd1_Cｌick(）

(2)

EndSuｂﻫＰrivateSubCｏｍmaｎd2＿Ｃlicｋ(）

Ｔｉmer1.Ｅnａblｅd＝Fａlｓｅ

x=(3）

Lａbeｌ1．Cａptioｎ＝"运营了"+Str(h)+"小时"＋Str（m)+"分"+Sｔr（s)+"秒"ﻫEｎdSubﻫＰriｖａteSｕｂTiｍeｒ1_Timer（)ﻫ

x=x+1ﻫ

h=(4）ﻫ

m=(xＭoｄ３6０0)\60ﻫ

s=(5)ﻫ

Label1.Caｐｔion=Str(h)+":"+Sｔr(ｍ)+":"+Str(s）ﻫEｎdSｕbﻫ２．程序说明：己知自然对数的底数e的级数表达如下:ﻫe=1+1/(1！)+１／（2！)+...+1/（n!)+..．

本程序运用函数过程ｆact（)求e，其中的绝对值小于ＩE-8的项被忽略。程序代码如下

PｒivateFunctioｎfact（mAsInｔegeｒ)AsSingｌe

'求m！的函数

DiｍxAｓSｉngｌe,iＡsIntegｅrﻫ

x=1ﻫ

Fori=１Tｏmﻫ

X＝(6）ﻫ

Nｅxtiﻫ

ｆaｃt=xﻫEnｄＦｕｎｃtionﻫPrｉvａteSubForm_Clｉck(）

DimeＡsＳingｌe,iteｍAsSingｌeﻫ

DiｍnAsIntegeｒﻫ

e＝１:ｎ＝(7）

Ｄoﻫ

n＝ｎ+1

item=(8）

e=e+itｅmﻫ

LoopＷｈilｅ（9）程序填空题答案:⑴、1０00⑵、Tiｍｅr1.Enａbled=True或Time1＝Truｅ⑶、0⑷、x\360０⑸、xMｏd60⑹、x*I⑺、0⑻、1／faｃt(n）⑼、Abs(iｔeｍ)>=0.000０000１八、１.分别写出下面两段程序执行三次后的结果。PrivatｅSubFｏｒｍ_Ｃlｉck（)

DiｍiAsＩnteger

SｔａticjAsＩntegerﻫｊ=j＋1

i=ｉ＋1

Ｐｒiｎt"ｉ＝"；Ｓtｒ(ｉ),"j=";Ｓtr(ｊ)

ＥnｄSubＤｉmi,jAsIｎteｇerﻫPrｉvateSuｂFoｒｍ_Cｌiｃk(）ﻫj＝j+1ﻫｉ＝i＋１ﻫPrｉnt"i="；Str(i）,＂j＝＂;Sｔr（j)ﻫEndＳub参考答案：1左:右：

I=１ｊ=1I=１j=1I=1ｊ＝2I＝２j=2I=1j=3I=３j=3九.写出下面程序执行后的结果（其中在Form_Cｌiｃk()事件中调用了子过程Ｐroc）。

PrｉvateＳｕbFｏｒm_Click(）

Dimx,yAsＩnteｇerﻫDiｍu,vＡｓＩｎteger

x=1

ｙ=２

ｕ=3

Prｏcx