《高级语言程序的设计-(VB)》试题样题

1、高级语言程序设计（VB）试题样题考试时间:90分钟机号成绩一、登录网络及文件操作1 .用桌面上的4位机器号作为用户名，登录到FS3,删除F盘中的所有容。2 .左F盘根目录下以专业（中文）+班号仃位）+班序号（2位）十（中文）一为名建立考试目录，并在该文件夹下分创建NO1、N02、N03和N04等四个文件夹下列四题分别存放在上述对应的四个文件夹中（否则无分）。二.用VB编写下列程序1 .用文本框筹控件和自定义过程实现输入n的值，计算1!+2!+3!+n!,并输出结2 .随机产生10个0、100之间的随机数.并求出最大值.最小值及最大值和最小值的位置。3 .用绘图方法绘制曲线：y=x-100（-1

2、0"10）o4 .用图像框和公共对话框（打开文件对象）等控件实现一个图像浏览器。VisualBasic语言程序设计笔试样卷（考试时间90分钟,满分100分）一、选择题（1） 一（35）题每题2分，共70分。下列各题A）、B）、C）、D）四个先项中，只有一个选择是正确的，请将正确选项涂写在答题卡相应位4上,答在试卷上不得分。（1）下列不能打开属性窗口的操作是A）执行“视图”菜单中的“属性窗口”命令B）按F4键0按Ctrl+TD）单击工具栏上的“属性窗口按钮下列可以打开立即窗口的操作是A) Ctrl+DB) Ctrl+E0 Ctrl+FD)Ctrl+GinputBox函数反回值的类型为A

3、）数值0变体（视输入的数据而定）B）字符串D）数值或字符串可以同时删除字符串前导和尾部空白的函数是.A) LtrimB) Rtrim0 TrimD) Mid-1表达式4+56*7/8Mod9的值是B)A)D)7（6） 如果在立即窗口中执行以下操作:a=8<CR>（«R）是回车键,下同）b二9<CR>printa>b<CR>则输出结果是A)-1B)FalseD)True以下语句的输出结果是PrintFormat$(32548.5,000.000.00")A) 3254& 5 B) 32, 548. 5C) 032, 548.5

4、0D)32. 548. 50执行以下程序段后，变量c$的值为a$=VisualBasicPrograminRMb$="Quick”c$=b$&UCase(Mid$(a$7.6)&Right$(a$Jl)A)VisualBASICProgramingB)C)QuickQUICKBasicBasicProgramingProgramingD)QuickBASICPrograming为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是A) ValueB) DefaultC) CancelD) Enabled（10）为了把焦点移到

5、某个指定的控件，所使用的方法是A) SetFocusB) VisibleC) RefreshD) GetFocus(11)设a=6,则执行x=Hf(a>5,-L0)卮x的值为A) 5B) 6C) 0D)执行下面的程序段后，X的值为x=5Fori=lTo20Step2x=x+i5NextiA)21B)2223D)24(13)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1ClickOFor1=1T。4x=4PJ=1To3Forx=3Fork=lTo2x=x+6NextkNextJNextiPrintXEndSub程痔运行后，单击命令按钮，输出结果是A)7B

6、)15rD)538(14)在繇上画一个命令按钮，然后编写如下事件过程：PrevateSubCommand1ClickOx=0DoUntilx-1a=InputBox(请输入A的值)a=Vai(a)b=Vai(b)InputBox(请输入X的值”)Vai(X)a+b+xInputBox（"请输入B的侑”）b=a=LoopPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、T,则输出结果为A）2B）14D）15在窗体（NameM性为Forml）Ji®两个文本框（其Name属性分别为Textl和Text2）和一，个命令按钮（Name属性为C

7、ommand1）.然后编写如卜两个事件过程:(15)PrivateSubCommandlClick()a=Textl.Text+Text2-TextPrintaEndSubPrivateSubFornunLoad()TextlText=*Text2Text="*Endsub程序运行后，在第一个文本框(Textl)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮，则输出结果为。A)444B)321123C)123321D)132231(16)阅读下面的程序段：Fori=lTo3Forj=lToiFork=jTo3a.a+1NextkNextjNexti执行上面的三

8、重循环后，a的值为_A)3B)14D)21(17)在窗体上画一个文本框(其中Name属性为Textl),然后编写如下事件过程：PrivateSubFormLoad()TtextLText=*TextLSetFocusFori=lTo10Sum=Sum+iNextiTextl-Text,SumEndSub上述程序的运行结果是。A)在文本框Textl中输出55在文B)本框Textl中输出0出错C)在文本框Textl中输出不定值D)(18)在窗体上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程：PrivateSubC

9、ommand1ClickOx=0DoWhilex<50D)4x=Cx+2)*(x+3)n=n+lLoopTextLText=Str(n)Text2Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0B)2和72C)3和50和168(19)用下面语句定义的数组的元素个数是DimA(-3To5)AsIntegerA)6B)8D)9(20)以下程序的输出结果是OptionBase1PrivateSubCommand1ClickODima(10).p(3)AsIntegerk=5Fori=lTo10a(i)=iNextiFori=lTo3p(i)=a

10、(i*i)NextIFori=lTo3k=k+p(i)*2NextiPrintksub33EndA)B)2835D)37(21)在窗体上面画一个命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1ClickODimaa=Array(1,2,3,4)J二i=4ToStep-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出绪果是A) 432134B) 12D) 1234C)(22)在窗体上面一个命令按钮(其Name属性为Command!),然后编写如下代码:Option Base 1Private Sub

11、 Commandl Click()Dim a (4, 4)For i =1 To 4For j =1 To 4Next jNext iFor i =3 To 4For j =3 To 4Print a (j. i)；Next jPrintNext iEnd Sub程痔运行后，单击命令按钮，其输出结果为0 8 11D)A) 69B) 7 109128 1112(23)710假定有如下的Sub过程:10 13Sub S (X As Single, y As Single)X -t/yy T Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command

12、l Click C )Dim a As SingleDim b As Singleb =4S a, bPi*int a,bEnd Sub程序运行后，单击命令按钮，输出结果为A) 54B) 1 IL25 IC) 1.25D)(24)阅读程序:输出结果为B)C)输出结果为FunctionF(aAsInteger)b=0Staticcb=b+1c=c+1f=a+b+cEndFunctionPrivateSubCommand1ClickDimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub运行上面的程序，单击命令按钮，A)44D)445(25)阅读程序：Subsub

13、P(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1Click()Da(1To4)AsIntegera(1) 5(2) 6(3) 7a(4)8subPa0Fori=1To4Printa(i)NextiEndSub运行上面的程序，单击命令按钮,A)2B)5出错41416(26)下列不能打开菜单编辑器的操作是A)按Ctrl+EB)单击工具栏中的“菜单编辑器”按钮执行”工具”菜单中的“菜单编辑器”命令按、Shift+Alt+MD)(27)假定有一个莱单项，名为Menultenu为了在运行时使该莱单项失效(变灰)，应使用的语句为oA

14、) Menuitem.Enabled二FalseB) Menuitem.Enabled二TrueC) Menuitem.Visible二TrueD) Menuitem.Visible,False(28)在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是.A) MoveB) ChangeC) ScrollD)GetFocus(29)假定窗体上有一个标签.名为Labelb为了使该标签透明并且没有边框，则正确的属性设置为0A) LabelLBackStyle=OLabelLBorderstyle=OB) LabelLBackStyle=lLabell.Borderstyle=lC) La

15、belLBackStyle=TrueLabelLBorderStyle.TrueD)Labell.BackStyle,FalseLabell.Borderstyle=False(30)在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：PrivateSubFormLoad()ListLAddItem，357,'ListLAddltem*246ListLAddItem123''ListLAddItemM56''TextLText=*EndSubPrivateSubList1DblClick()a=ListlTextPrinta+TextLTextE

16、ndSub程痔运行后，在文本框中输入“789”(见图1),然后双击列表框中的-456,则输出结果为A) 1245B) 456789C) 789456D) 0(31)为了暂时关闭计时器，应把该计时冢的某个属性设置为False ,这个属性是A) VisibleB) Timer(32)为了把一 Get文件号，记录号，变量名C) EnabledD) Interval(33)Get文件号，变量名，记录号 Put文件号，变量名，记录号 Put文件号，记录号，变量名写入文件中指定的位置，所使用的语句的格式为A)B)0D)End对窗体编写如下事件过程:EndSubPrivateSubFormMouseUp(B

17、uttonAsInteger,ShiftAsInteger,XAsSingle*YAsSingle)PHntBBBBB*EndSub程痔运行后，如果单击鼠标右键，则输出结果为A)AAAAAB)BBBBB。AMAAD)BBBBBBBBBBPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingleYAsSingle)IfButtonThenPi4ntJAAAAA"IfAAAAA(34)为了在运行时能显示窗体左上命的控制框(系统菜单)必须oA)把窗体的ControlBox属性设置为Fale,其他属性任意B)把窗体的Con

18、trolBoxIM性设置为True,并且把BoderStyle属性设置为1-5把窗体的C)ControlBox属性设置为False,同时把BoderStyle属性调协为非0值把窗体的D)ControlBox属性设置为True,同时把BoderStyle属性设置为0值(35)对窗体编写如下代码：OptionBase1PrivateSubFormKeyPress(KeyAsciiAsInteger)a=Array(237J26.87,4&498)ml=aCl)m2=IIfKeyAscii=13ThenFori=2To5Ifa(i)>mlThenml=a(j)m2=iEndIfNext

19、iEndIfPrintmlPrintm2EndSubC) 498D) 498程痔运行后，按回车键，输出结果为A)48B)2374 1二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡1-15序号的横线上，答在试卷上不得分。C1)设有如卜的VisualBasic表达式25 *x2-3*X-2*Sin(a)/3它相当于代数式【1】o(2)执行下面的程序段后，S的值为【2】S=5For1=2-6To4.9Step06S=s+1Nexti(3)表达式Fix(-32-68)+Int(-2302)的值为【3】。为了在运行时把图形文件Picf订&jp£装入图片框Picturel,

20、所便用的语句为【4】。在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1ClickOa=InputBoxC请输入一个整数)b=InputBoxC*请输入一个整数)Printa+bEndSub程序运行后，单击命令按钮，在输入对话框中分别输入321和456,输出结果为【5】o执行下面的程序段后，b的值为【6】0a=300b=20a=a+bb二a-ba二a-b(7)以下程序段的输出结果是7】。num=0Whilenum<=2num=num+lPrintnumWend在窗体画一个命令按钮.然后编写如下事件过程：PrivateSubCommand1ClickODim

21、a(l10)DimP(1Fori二lNext , iFor i=l二a (i*i)ForTo 3k=k+p*2NextiPrintkEndSub程序运行后，单击命令按钮，输出结果是8】o下面的程序用“冒泡法将数组a中的10个整数按升序排列，请在9】、【10】、【11】处将程序补充完整。OptionBase1PrivateSubCommand1ClickODimaa二Array(67&45.324,52&439,387.87.875,273,823)Fori=9Forr10Ifa(i)【11】a(j)Thenal=a(i)a=a(j)a(j)=alEndIfNextjNextiFori=lTo10Printa(i)NextiEndSub(10)在窗体画一个命令按钮，然后编写如下过程:Functionfun(ByVainumAsLong)AsLongDimkAsLongk=lnum=Abs(num)DoWhilenumk-k*(numMod10)num=nu