VB程序设计复习[1]

《VB程序设计复习[1]》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、《VB程序设计》课程复习一、判断题VK面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。X2、标签控件只是用来显示信息，不能响应鼠标的单击事件。X3、If与EndIf需要成对地使用，每一个If一定要冇一个EndIf与Z配对。丁4、窗体的Move方法不光可以移动窗体，而且还可以改变窗体的人小，同时也会改变窗体有关属性的值。丁5、VB屮使用数组必须遵循“先定义，后使用”的原则。二、选择题D(1)命令按钮没有属性。A、EnabledVisibleC^BackColorD^TextC(2)Form_Load事件中，耍使Pr

2、int方法的输出结果能在窗体中显示，应对窗体的属性进行设耳A、CaptionB、ForeColorC>AutoRedrawD、PictureA(3)下列哪个字符串不能作为VB中的变最名。A、Xy@abB、E28C、A_123D、cmdC(4)函数表达式Int(Rnd*90+10)是范围内的随机整数。A、[0,100]B、[10,90]C、[10,99]D、[90,99]C(5)“x是小于100的非负数”，用VB表达式表示正确的是。A^0<=x<100B、0

3、空1、程序运行时，先后依次选屮列表框控件Listl屮的表项“红楼梦”、“水浒传”、“封神榜”,如图所示。则:C(1)控件Listl的MultiSelect®性值为。A.TrueB.0NoneC.1SimpleD.FalseD(2)控件Listl的ListCount属性值为。A.2B.3C.4D.5A(3)控件Listl的Selected数组各元素中，值为True的元素的索引值(下标)为A.0、2、4B.1、3、5C.1、3D.2、4B(4)控件Listl的Text属性值为。A.“红楼梦”B.“封神榜”C.“水浒传”D.“红楼梦水浒

4、传対神榜”2、以下程序将用于实现二个文本文件合并。将文本文件“t2.txt”合并到“tl.txt”文件中。PrivateSubCommand1_Click()DimsasstringOpen“tl.txt"①Open"t2.txt"②DowhileNotEof(2)Lineinput#2,sPrint#1,sLoopClose#1,#2EndsubA(5)从以下选项中选择空格①的正确答案oA.ForAppendAs#1B.ForOutputAs#1C.ForInputAs#1D.ForRandomAs#1C(6)从以下选项中选择空

5、格②正确答案-A.ForAppendAs#2B.ForOutputAs#2C.ForInputAs#2D.ForRandomAs#23、设在界面上放置了一个滚动条Hscrolll和一个文本控件Textl,耍使每次单击滚动条两端肩头时，或单击滚动条滑块与两端箭头之间的空片区域时，文木内容能够反映滚动条的值,请选择合适内容填充以下空口。PrivateSubHscrolll⑤Textl.text=Hscroll1.⑥EndSubB(9)从以下选项屮选择空格⑤的正确答案oA.Click()B.Change()C.Scroll()D.Dbl

6、Click()A(10)从以下选项中选择空格⑥的正确答案。A.ValueB.SmallChangcC.LargcChangcD.Text四、程序设计1、卜“图给出了选择排序法对数组排序的N・S流程图，请根据该N・S流程图写出对数组a'P元索进行排序的完整程序，n使用符号常量，数据输入使用InputBox函数。输入n个数据给a(l)到a(N)Fori=lton・lP=iForj=i+ltonp=j交换a(i)和a(p)打印输出a(l)到a(N)PrivateSubForm_Click()Constn=10Dima(n)AsInteg

7、erDimiAsIntegerDimjAsIntegerDimtAsIntegerDimsAsIntegerFori=1Tona(i)=InputBoxC12n)NextiFori=iTon-1P=iForj=i+1TonIfa(p)>a(j)Thenp=jNextjtemp=a(i):a(i)=a(p):a(p)=tempNextiFori=1TonPrinta(i)NextiEndSub2.编程序计算11+2!+3!+...+10!PrivateSubFonnClick()DimsumAsLongDimiAsIntegerDi

8、mnAsLongsum=0n=1i=1Fori=1To10n=n*isum=sum+nNextiPrintsumEndSub3.编写验证素数的函数，并在窗体单击事件中调用函数。116贝PrivateFunctionprime(nAsInteger)