VB程序设计语复习版

1、在“考生”文件夹下有一个工程文件ITAT21.vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”，如下图所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“？”改为正确的内容，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘并提交。

PrivateSubC1_Click()DimkAsIntegerk=0While(k<List2.ListCount)IfList2.Selected(k)=TrueThenList1.AddItemList2.TextList2.RemoveItemkEndIfk=k+1WendEndSubPrivateSubC2_Click()List2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndSub

2在“考生”文件夹中有一个工程文件ITAT21.vbp。程序的功能是通过键盘向文本框中输入大、小字母及数字。单击标题为“统计”的命令按钮，分别统计输入字符串中的大写、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图所示。不得修改已经存在的程序，最后把修改后的文件按原文件名存盘。

PrivateSubCommand1_Click()DimnAsIntegerDimbAsIntegerDima(3)AsIntegers=RTrim(Text1.Text)n=Len(Text1.Text)Fori=1Tonb=Asc(Mid(s,i,1))SelectCasebCase48To57a(0)=a(0)+1Case65To90a(1)=a(1)+1Case97To122a(2)=a(2)+1EndSelectNextFori=0To2x(i)=a(i)NextEndSub3在“考生”文件夹下有一个工程文件ITAT22.vbp。窗体上的控件已经设计完毕（不需修改它们的任何属性），程序运行后，如果单击“变化”命令按钮，则形状控件shape1每隔1.5秒在形状控件的6种形状间作随机变化（提示：使用随机整数生成器），同时这6种形状的名称显示在列表框中，下图表示了它的变化。提供的窗体文件可以实现上述功能，但这个程序不完整，请补充。要求：把程序中的“？”改为适当的内容，使其正确运行，注意：不得修改已经存在的程序，最后把修改后的文件按原文件名存盘并提交。

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()DimnAsIntegern=Int(Rnd*6)List1.Selected(n)=TrueShape1.Shape=nEndSub4编写程序，完成以下功能：

（1）利用窗体的Load事件，预先把两位整数11、22、33、44、55、66、77、88、99依次存入a数组中并显示在文本框Text1中，界面设计如图(a)所示；

（2）运行程序，单击“插入”按钮，会弹出一个输入框（如图(b)所示），由用户输入一个两位整数并确定后，该整数被插入到数组的适当位置，数组依然保持升序（从小到大次序）排列，并显示在文本框Text2；

（3）窗体文件保存为ITAT31.frm，工程文件保存为ITAT31.vbp，将所有文件压缩并命名为“SF.rar”后提交。

(a)

(b)Dima(1To10)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerDimposAsIntegerDimxAsIntegerx=InputBox("请输入一个两位整数：","插入",34)Fori=1To9Ifx<a(i)Thenpos=iExitForEndIfNextiFori=9ToposStep-1a(i+1)=a(i)Nextia(pos)=xFori=1To10Text2.Text=Text2.Text&CStr(a(i))&""NextiEndSubPrivateSubForm_Load()DimiAsIntegerFori=1To9a(i)=i*10+iText1.Text=Text1.Text&CStr(a(i))&""NextiEndSub5新建窗口(窗体名为frm1)并创建一个文本框和一个命令按钮，只要在文本框中输入一个图像文件名(包括路径)，单击该命令按钮后，该图像就会成为此窗口的背景图像，请写编写程序代码。保存所有文件，并将所有文件压缩后提交。本题PrivateSubCommand1_Click()frm1.Picture=loadpicture(text1.text)EndSub6任务

（1）在名称为Form1的窗体上画两个图片框，名称分别为P1、P2，初始通过属性窗口为P1装载素材文件夹中的图片index.jpg；通过picture属性选择图片

（2）三个命令按钮名称为Cmdcut、Cmdcopy、Cmdpaste，标题如下图；

（3）请编写事件过程，使得在运行时，点击剪切按钮时会剪切P1中图片，点击复制按钮时会复制P1中图片，点击粘帖按钮时会将剪贴或复制下来的图片粘帖在P2图片框中；

（4）程序中不得使用任何变量；

（5）窗体文件保存为ITAT11.frm，工程文件保存为ITAT11.vbp。

PrivateSubCmdcut_Click()Clipboard.ClearClipboard.SetDataPicture1Picture1.Picture=LoadPicture()EndSubPrivateSubCmdpaste_Click()Picture2.Picture=Clipboard.GetDataEndSubPrivateSubCmdcopy_Click()Clipboard.ClearClipboard.SetDataPicture1EndSub

7任务

（1）在名称为From1的窗体上画二个文本框，名称分别为Text1、Text2，都包含垂直滚动条和水平滚动条，都可以显示多行文本；Multiline属性设置为truesrollbars属性设为真

（2）再画一个命令按钮，名称为C1，标题为“复制”（如图所示）；

（3）请编写事件过程，使得在运行时，在Text1中输入文本后，单击“复制”按钮，就把Text1中的文本全部复制到Text2中；PrivateSubText1_Change()Text2=Text1EndSub

（4）程序中不得使用任何变量；

（5）窗体文件保存为ITAT12.frm，工程文件保存为ITAT12.vbp。

8题干：在VB中用户自定义构造数据类型可以使用（B）语句。分数：1分AObjectBTypeCNew

DUse

9题干：在VB中，要定义一个包含15个整型元素的数组，下列语句正确的是（D）。ADimarrMyIntAsInteger(15)BDimarrMyIntAsInteger(14)CDimarrMyInt(15)

AsIntegerDDimarrMyInt(14)

AsInteger10题干：下列不是VB中集合对象的方法的是（C）。AAddBRemoveCDelDItem4.题干：下列关于Function过程的说法错误的是（C）。A声明一个Function过程必须说明返回值的类型

B在退出Function过程前必须设置返回值C因为Function过程有返回值，所以只能在表达式中调用，以将返回值赋给一个变量D可以使用Call语句调用Function过程11题干：退出For循环可使用的语句为（EndFor

）。12题干：窗体的标题栏显示内容由窗体对象的（Caption

）属性决定。

13题干：若要向列表框添加列表项，可使用的方法是（AddItem

）。14题干：关于过程的参数下列说法错误的是（D）。ASub过程和Function过程都可以有参数B可以使用Optional关键字声明可选参数

C如果指定了可选参数，则参数表中此参数后面的其他参数也必是可选的D如果指定了可选参数，则参数表中此参数后面的其他可选参数可不用再用Optional声明15题干：下列关于VB中的过程控制的说法中错误的是（C）。A转支结构可以使用Goto语句和Gosub语句BSelectCase是一种条件结构C如同C语言一样，SelectCase中各case子句都要有break语句D转支结构的一个重要用途是出错处理，利用OnErrorGoto语句

16题干：在窗体上画一个名称为Command1的命令按钮，然后编写如下程序PrivateSubCommand1_Click（）

StaticXAsInteger

StaticYAsInteger

Cls

Y=l

Y=Y+5

X=5+X

PrintX，Y

EndSub

程序运行时，单击三次命令按钮Command1后，窗体上显示的结果为（B）。A1516B15

6C1515D5

6

17题干：执行以下程序后输出的是（C）。

PrivateSubCommand1_Click()

Ch$=”AABCDEFGH”

PrintMid(Right(ch$,6),Len(left(ch$,4)),2)

EndSubACDEFGH

BABCDCFG

DAB18题干：为达到把a、b中的值交换后输出的目的，编程如下：

PrivateSubCommand1_Click()

a%=10:b%=20

Callswap(a,b)

Printa,b

EndSub

PrivateSubswap(ByValaAsInteger,ByValbAsInteger)

c=a:a=b:b=c

EndSub

在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是（C）。A调用swap过程的语句错误，应改为Callswapa,bB输出语句错误，应改为：Print”a”,”b”C过程的形式参数有错，应改为：swap(ByRefaAsInteger,ByRefbAsInteger)Dswap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a19.题干：下列可获得当前系统日期的函数是（Date()

）。20题干：下列程序是用来计算并输出7!（7的阶乘）的值：

PrivateSubCommand1_Click()

t=0

Fork=7To2Step-1

t=t*k

Next

Printt

EndSub

执行程序时，发现结果是错误的，下面能够得到正确结果的修改方案是（把t=0改为t=1）。21题干：VB中可用（MsgBox）语句产生消息框。22题干：下列不属于VB程序合法的变量名的有（bc）。

A:ab7

B:7ab

c:If

D:abc

23题干：下列有关VB中的变量命名规则，说法正确的有（bcd）。

A:一个变量名的长度没有限制

B:变量名的第一个字符必须是字母

C:变量名可以由字母，数字和下划线组成

D:VB中的保留字不能用作变量名

24题干：刚建立一个新的标准EXE工程后，在工具箱中默认出现的控件有（ABD）。A单选按钮

B图片框

C通用对话框D文本框

25题干：下列属于VB程序的界面接口的有（AB）。A窗体

B多文档窗体C模块

D类模块26题干：在VB中，为了定义变量的作用域，可以使用的变量范围说明符有（AD）。APublicBAbstractCProtected

DPrivate

27题干：在VB中检查变量类型通常使用的函数有（BC）。ATypeOfBVarTypeCTypeNameDVarTypeOf

28在“考生”文件夹下有一个工程文件ITAT21.vbp，在窗体上有一个命令按钮（其名称为Command1，标题为“输出平均值”），如下图所示。编写适当的事件过程。程序运行后，如果单击“输出平均值”命令按钮，则自动产生20个0～99范围内的随机整数并存放在数组arrN中；然后求出这20个随机整数的平均值，并将它输出在窗体上，下图窗体上的数据是单击“输出平均值”按钮三次，各次输出的结果（注意：每次输出都不一样）。提供的窗体文件可以实现上述功能，但这个程序不完整，请补充。要求：把程序中的“？”改为适当的内容，使其正确运行，不得修改已经存在的程序，最后把修改后的文件按原文件名存盘并提交。

OptionBase1PrivateSubCommand1_Click()

DimarrN(20)AsInteger

DimAverAsSingle

DimSumAsInteger,i

Randomize

Fori=1To20

’

arrN(i)=Int(Rnd*100)（2分）

Nexti

’

Sum=

0

（2分）

Fori=1To20

’

Sum=

sum+

arrN(i)

（2分）

Nexti

’

Aver=

sum/20

（2分）

PrintAver

EndSub

29在“考生”文件夹下有一个工程文件ITAT22.vbp。窗体上的控件已经设计完毕（不需修改它们的任何属性），程序运行后，用户在文本框Text1中输入至少含有两个大写字母的任意字符串，然后单击“求解”按钮，则在文本框Text2中逆序输出该字符串的大写字母，其它字符不输出，如下图所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请补充。要求：把程序中的“？”改为适当的内容，使其正确运行，注意：不得修改已经存在的程序，最后把修改后的文件按原文件名存盘并提交。

OptionExplicitPrivateSubCommand1_Click()

DimsAsString,dAsString

DimiAsInteger

Text1.SetFocus

s=Text1.Text

’Fori=1To

len(s)

’（2分）

’If

Mid(s,i,1)>=”A”

and

Mid(s,i,1)<=”Z”

Then

（2分）

d

=Mid(s,i,1)&d（3分）

EndIf

Nexti

Text2.Text=d

EndSubPrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSubPrivateSubCommand3_Click()

End

EndSub

30题干：求一元二次方程的a*x^2+b*x+c=0的根。新建一个工程，放置三个文本框，分别输入a,b,c的值，再放置一个文本框，用于显示方框的根，再放置一个按钮，点击时，需判定方程是否有实根，如果没有需重新输入a,b,c的值；如果有，需提示是否是两个相等的根，并在文本框内显示出方程的两个根的值。保存所有文件，并将所有文件压缩后提交。PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSingleDimtAsSingleDimx1AsSingleDimx2AsSinglea=Val(Text1)b=Val(Text2)c=Val(Text3) t=b*b-4*a*cIft<0ThenMsgBox"没有可行解"Text1=""Text2=""Text3=""ElseIft=0ThenText4="只有一个可行解"x1=-b+Sqr(b)Text4=Text4+x1ElseMsgBox"有俩个可行解"x1=-b+Sqr(b)x2=-b-Sqr(b)Text4=Text4&x1&""&x2EndIfEndSub31题干：在用户单击某窗口(窗体名为frm1)时，会显示一行信息：“欢迎光临!”，应在该窗体的哪个事件过程中，编写什么样的程序代码?请写出相应的事件过程名以及该过程内的程序代码。将文件保存后提交。PrivateSubForm_Click()Print"欢迎光临!"EndSub32某应用程序运行时窗口中有两个文本框(txtNumber和txtChinese)和一个命令按钮(cmdChange)。当单击cmdChange时，txtChinese中将显示txtNumber中数值的中文大写格式。例如，若在txtNumber中输入“12345”，单击命令按钮后，txtChinese中将显示“壹贰叁肆伍”，如下图所示。注：壹贰叁肆伍陆柒捌玖零。保存所有文件，并将所有文件压缩后提交。

PrivateSubCommand1_Click()IftxtNumber=""ThenMsgBox"请输入数字"txtNumber.SetFocusEndIfFori=1ToLen(txtNumber)c=Mid(txtNumber,i,1)SelectCasecCase"1"txtChinese=txtChinese+"壹"Case"2"txtChinese=txtChinese+"贰"Case"3"txtChinese=txtChinese+"叁"Case"4"txtChinese=txtChinese+"肆"Case"5"txtChinese=txtChinese+"伍"Case"6"txtChinese=txtChinese+"陆"Case"7"txtChinese=txtChinese+"柒"Case"8"txtChinese=txtChinese+"捌"Case""txtChinese=txtChinese+"玖"Case"0"txtChinese=txtChinese+"零"EndSelectNextiEndSub33题干：“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3，因而6就是完备数。编制程序，找出1~500之间的全部“完备数”，并将这些数字添加到一个下拉框里，当从下拉框里选择某个数时，窗体中某个区域显示该数的所有因子。保存所有文件，并将所有文件压缩后提交。PrivateSubCombo1_Click()n=Val(Combo1.Text)Fori=1ToInt(n/2)IfnModi=0ThenPrintiEndIfNextiEndSubPrivateSubCommand1_Click()DimiAsLongDimxAsLongForn=1To500x=0Fori=1ToInt(n/2)IfnModi=0Thenx=x+iEndIfNextiIfx=nThenCombo1.AddItemnNextnEndSub34任务描述：请编制一个简单的通讯簿程序，程序以Access数据库为数据源，可以实现通讯簿中联系人的浏览功能。窗体文件保存为ITAT41.frm，工程文件保存为ITAT41.vbp，将所有文件压缩并命名为“SJY.ra