《VB程序设计》试卷 试卷九

《VB程序设计》试卷试卷九语言基础题（40分）判断题（本题10分，每小题1分）1. 可以在窗体的通用部分声明静态变量。2. 事件过程也可以用Sub过程调用语句进行调用。3. 表达式#5/22/996:22:30PM#-#4/22/99#的值是数值型的。4. 表达式-5^2>Rnd*10的值为False.5. 对象的Top和Left属性值都必须大于或等于零。6. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。7. 执行Hscroll1.Value=Hscroll1.Value+1赋值语句，就会产生Hscroll1滚动条的Change事件。8. 每个Vb对象都有Name属性。9. 组合框ComboBox和列表框ListBox都有Selected属性。10. CommonDialog对象的ShowSave方法能保存用户指定的文件。单选题（本题10分，每小题1分）1. 菜单条的顶层菜单控件＿＿。 [A]不允许设置快捷键 [B]允许设置快捷键[C]不存在ShortOut属性 [D]有子菜单时允许有快捷键 2. 当某文本框对象具有焦点时，击键盘上的一个键会触发该文本框对象的KeyPress事件，＿＿。 [A]该事件发生在文本框对象的KeyDown事件前。[B]该事件发生在文本框对象的KeyDown事件后。[C]随后便发生文本框对象的Lick事件。[D]随后便发生文本框对象的GotFocus事件。 3. 程序运行时，单击水平滚动条右边的箭头，滚动条的Value属性值＿＿。 [A]增加一个SmallChange量 [B]减少一个SmallChange量[C]增加一个LargeChange量 [D]减少一个LargeChange量 4. 执行Form1.Scale(10,-20)-(-30,20)语句后，Form1窗体座标系X和Y轴的正方向是＿＿。 [A]向左和向下 [B]向右和向上[C]向左和向上 [D]向右和向下 5. 执行List1.List(List1.ListCount)=“80”语句后，＿＿。 [A]会产生出错信息 [B]List1列表框最后一个表项被改为“80”[C]List1列表框会增加一个“80”表项[D]指定List1列表框的表项个数为80个 6. 为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在＿＿。[B]Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件中加入Dir1.Path=File1.Path代码7. 在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form_Load事件过程中加入＿＿语句。 [A]Text1.Index=0 [B]Text1.TabIndex=0[C]Text1.Appearance=0 [D]Text1.Tag=0 8. 窗体Form、框架Frame、图片框Picture、图像框Image中＿＿是容器控件。 [A]Image、Form、Frame [B]Frame、Picture、Image[C]Picture、Image、Form [D]Form、Frame、Picture 9. DimB1,B2AsBoolean语句显式声明变量＿＿。 [A]B1和B2都为布尔型变量 [B]B1是整型，B2是布尔型变量[C]B1是变体型，B2是布尔型变量 [D]B1和B2都为是变体型变量 10. 如果文本框Text1的GotFocus事件过程有Text1.Text=“abcd”:Text1.SelStart=1:Text1.SelLength=2代码，程序运行时，当文本框获得焦点后，文本框内会＿＿。 [A]显示abcd且ab字符被选取 [B]显示abcd且bc字符被选取[C]显示选取的ab字符 [D]显示选取的bc字符 填空题（本题20分，每小题2分）1. 表达式-2^2+43\5的值是＿＿＿＿。 2. 函数Int(Rnd*10)产生的随机数范围是＿＿＿＿。 3. 循环语句ForI=20To10Step–3.3…Next的循环次数是＿＿＿＿。4. 用＿＿＿＿方法可以在列表框中插入列表项。 5. DoUntil条件…Loop循环结构中，当条件为＿＿＿＿时结束循环。6. Text文本框能接受的最长字符数由文本框的＿＿＿＿属性确定。7. 执行＿＿＿＿语句，会清除Picture1l图片框内的图片。 8. 如果要新建一个顺序文件，用Open语句时，操作方式关键词是＿＿＿＿。9. 要设置命令按钮的背景色，首先必须使它的Style属性值设置为＿＿＿＿。Msgbox函数的数据类型是＿＿＿＿。 程序阅读题（本题20分，每小题5分）1.写出单击窗体的运行结果PrivateSubForm_Click()ForI=1To5 PrintTab(11-I); ForJ=1ToI*2-1 Print“*”; Next PrintNextIEndSub 2.写出单击窗体的运行结果OptionBase1PrivateSubForm_Click()Dima(5,5)AsIntegerDimiAsInteger,jAsIntegerFori=1To5Forj=1To5Ifj<=iThena(i,j)=1EndIfPrinta(i,j);"";NextjPrintNextiEndSub 3.程序运行时，连续二次单击窗体后，写出屏幕上显示的结果：DimxAsIntegerPrivateSubForm_Load()x=2EndSubPrivateSubForm_Click()StaticaAsIntegerDimbAsInteger,yAsIntegerb=x^2abcx,ba=a+xy=y+bPrinta,b,x,yEndSubSubabc(ByRefyAsInteger,ByValzAsInteger)y=y+zz=y-zEndSub4.写出单击窗体的运行结果PrivateSubForm_Click()Dima(4,4)AsIntegerDimcAsInteger,rAsIntegerDimiAsInteger,jAsInteger,kAsIntegerc=4:r=1:i=1:j=1Fork=1To16a(i,j)=kIfi<cAndj=rTheni=i+1ElseIfi=cAndj<cThenj=j+1ElseIfi>rAndj=cTheni=i-1ElseIfi=rAndj>r+1Thenj=j-1EndIfIfi=rAndj=r+1Thenc=c-1r=r+1EndIfNextFori=1To4Forj=1To4PrintTab(j*4);a(i,j);Ifj=4ThenPrintNextNextEndSub程序填空题（本题20分，每空2分）程序启动后，界面如右图所示：输入两点坐标，单击命令按钮，显示座标系、座标原点和两点的连线.PrivateSubForm_Load()Command1.Caption="显示连线"Picture1.Scale(-100,100)-(100,-100)Frame1.＿＿(1)＿＿="输入两点坐标"Label1.Caption="x1"Label2.Caption="y1"Label3.Caption="x2"Label4.Caption="y2"Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.TabIndex=0EndSubPrivateSubCommand1_Click()Picture1.Currentx=-30Picture1.Currenty=0Picture1.Print＿＿(2)＿＿Picture1.Line＿＿(3)＿＿Picture1.Line＿＿(4)＿＿Picture1.Line＿＿(5)＿＿EndSub冒泡排序BubbleSort过程是冒泡排序过程,使a数组中的数按降序排列。Swap过程交换两个变量数值。GenerateData过程产生10个[1，20]之间互不相同的随机整数存入a数组。程序如下：PrivateConstn=10Privatea(1Ton)AsIntegerPublicSubBubbleSort()DimiAsInteger,jAsIntegerGenerateDatai=1DoForj=i+1TonIfa(j)>a(i)Then ＿＿(1)＿＿EndIfNextji=i+1LoopWhile＿＿(2)＿＿Form1.Print"排序结果"Fori=1TonForm1.Printa(i);NextiEndSubPublicSubGenerateData()DimiAsIntegerDimjAsIntegerDimbAsBooleanFori=1Tonb=FalseDoWhile＿＿(3)＿＿a(i)=Int(20*Rnd+1)b=TrueForj=1To＿＿(4)＿＿Ifa(i)=a(j)Thenb=FalseExitForEndIfNextjLoopForm1.Printa(i)NextiEndSubPublicSubSwap(ByrefaAsInteger,ByrefbAsInteger)DimtempAsIntegertemp=aa=＿＿(5)＿＿b=tempEndSub 程