2012年对口高考VB试题

VB真题测试一.选择题.在VisualBasic中，Print"12”+45语句执行的结果是 ( )A.1245 B.57 C."12"+45 0.类型错.在VisualBasic中，关于文件保存的说法正确的是 ( )A.只保存扩展名是.frm的文件B.只保存扩展名是.vbp的文件C.只保存扩展名是.bas的文件D.扩展名是.frm,.vbp,.bas这三类文件都可以保存TOC\o"1-5"\h\z.在VisualBasic中，设置窗体Form1的标题为“VB程序窗体”的指令是 ( )A.F=”VB程序窗体〃 B.Form1.top=”VB程序窗体〃C.Form1.caption=”VB程序窗体〃 D.Form1.topic=”VB程序窗体〃.读下面VisualBasic程序，最后一行输出结果是 ( )a=-262:b=5c=Len(Str(a)+Str(b))PrintcA.4 B.5 C.6 D.7.设a=2:b=4:c=7:d=8VisualBasic表达式Nota<bOrc=9Andd<>9的值是 ( )A.1 B.-1 C.True D.False.在VisualBasic中，向图片框(picture1)装入图片(〃c:\a.jpg”)正确的语句是.( )picture1.Picture=Load(”c:\a.jpg”)picture1.Picture.Load(”c:\a.jpg”)picture1.Picture=Loadpicture(”c:\a.jpg”)picture1.Picture=Loadpicture.Load(”c:\a.jpg”)TOC\o"1-5"\h\z.在VisualBasic中，关于控件说法不正确的是 ( )A.可以创建控件数组 B.控件都有名称C.控件都有单击事件 D.用Visible属性可以改变某些控件的可见性.下面VisualBasic中数据中，表示1978年10月20日正确的格式是 ( )A.10-20-1978B.10/20/1978C.#1978.10.20# D.#10-20-1978#.VisualBasic中文本框的默认属性是哪个选项 ( )A.Caption B.Text C.SelText D.Selstart.在VisualBasic中，下面关于双击窗体要触发的事件说法正确的是 ( )A.只触发Click事件 B.只触发DblClick事件C.可以触发Click和DblClick事件 D.可以触发Load和DblClick事件二、判断题.在VisualBasic中，write#语句是把数据写入顺序文件中，print#语句是把顺序文件中的内容打印出来。( )三、填空题在VisualzBasic中）获得命令按钮的标题使用的属性是。代数式3X7+1+x庄VisualBasic中的相应表达式是 五、程序分析（本大题共2小题，每小题5分，共10分，读程序并分析结果，请填写在答题纸上）1.阅读下面的VisualBasic程序，分析程序中n=n+1的执行次数是DimmAsInteger,nAsIntegerDimjAsInteger,kAsIntegerm=3Forj=1TomStep1Fork=-jTo3Step2n=n+1Nextkm=4NextjPrintn六、写出下列程序的运行结果(本大题共5小题，每小题5分，共25分，请填写在答题纸上).窗体中有一命令按钮，此按钮单击事件程序如下：PrivateSubCommand1_Click()DimmAsIntegerDimaAsIntegerDimbAsIntegera=1:b=2:m=0m=vb1(a,b)m=m+a+bPrintmEndSub函数：Functionvb1(wAsInteger,ByValnAsInteger)w=100:n=200vb1=w+nEndFunction窗体启动后单击命令按钮，最后m的值是 。.如图所示，图中有一个文本框（名称为T1）,两个选项按钮（名称分别为Opl,Op2）,两个复选框（名称分别为Chl,Ch2）,两个框架，一个命令按钮（Commandl）,命令按钮的单击事件中代码如下：提示：函数Instr（位置，字符串1,字符串2）的功能：返回字符串2在字符串1中的起始位置，如果找不到返回值是0,位置表示从第几个字符开始查找。PrivateSubCommand1_Click()Tl.Text=""IfOp1.Value=TrueThenT1.Text=T1.Text+Mid(Op1.Caption,InStr(1,LCase(Op1.Value),"true"),2)EndIfIfOp2.Value=TrueThenT1.Text=T1.Text+Mid(Op2.Caption,InStr(1,LCase(Op2.Value),"true"),2)EndIfT1.Text=T1.Text+Mid(Ch1.Caption,1,Ch1.Value+1)T1.Text=T1.Text+Mid(Ch2.Caption,1,Ch2.Value+1)EndSub窗体启动后,先选中如图所示的各选项,然后再单击命令按钮,此时文本框中显示内容是七、程序改错（本大题共2小题，每题5分，共10分。每个程序有两处错误，请在答题纸上写出错误行代码和修改后的正确代码，改错不扣分，请将答案填写在答题纸上）.下面的程序是将一输入的字符串进行分类赋值，方法：从字符串的最左端开始截取一字符，然后进行判断，数字字符放入数组a中，将其它字符放入数组b中，然后继续处理下一个字符，直至全部处理完，最后分类打印，程序中有两处错误，请将错误行和正确的全行写在答题纸相应的横线上。（VisualBasic题）Dima（100）AsIntegerDimb（100）AsIntegerDimcAsStringDimiAsIntegerDimjAsIntegerDimkAsIntegerDimmAsIntegerDimwAsStringc=InputBox("c=",〃〃，〃〃)k=Len(c)Fori=1Tokw=Right(c,1)c=Right(c,k-1)Ifw>="0"Andw<="9"Thena(j)=w:j=j+1Elseb(m)=Asc(w):m=m+1EndIfc=c-wNextiPrintFori=0Toj-1Printa(i);NextiPrintFori=0Tom-1PrintChr(b(i));NextiPrint.窗体中(如图所示)有一定时器控件(名称Timer1),每2秒钟触发一次Timer事件，有两个标签用于提示后面的控件名称，一文本框Text1,一滚动条(名称HS1)。窗体启动后(此图为窗体刚启动时的状态)，滚动框根据计时器事件向右移动，但当单击滚动框左端后，滚动框开始向左移动，当单击滚动框右端后，滚动框开始向右移动，文本框中的文字大小随滚动条的值变化。窗体通用部分声明了两个变量，后面给出了三个事件过程。程序中共有两处错误分布在三个事件过程中(每个事件过程中最多有一处错误)，请将错误行和正确行写在答题纸相应的横线上。(VisualBasic题)(提示：Form_Activate()表示窗体变为活动窗体后触发的事件)窗体通用部分声明代码：DimAAsInteger‘变量A用于确定滚动框向左(为0)还是向右(为1)滚动DimWAsIntegerPrivateSubForm_Activate()W=HS1.ValueA=0EndSubPrivateSubHS1_Change()IfW<HS1.ValueThenA=0ElseA=1EndIfW=HS1.ValueEndSubPrivateSubTimer1_Timer()IfText1.FontSize<10ThenText1.FontSize=11IfText1.FontSize>80ThenText1.FontSize=79IfA=1ThenText1.FontSize=Text1.FontSize+1ElseText1.FontSize=Text1.FontSize-1EndIfEndSub八、程序填空(本大题共7个空，每空5分，共35分。按程序要求在答题纸上填入相应的内容，使程序完整正确，请将答案填写在答题纸上)1.下面的程序前部分功能考生自己分析，后部分功能是输入一数据，然后在数组中找此数据，若找不到则程序结束，若找到将数组元素下标小于此数据下标的数据由大到小排列并输出，请在空白位置填写正确的命令(VisualBasic题)。Dima(9)AsIntegerDimiAsIntegerDimtAsIntegera(0)=20+Int(Rnd*91)

Fori=1To9t=20+Int(Rnd*91)Ift<a(i-1)Theni=i-1Elsea(i)=tEndIfNextiFori=0To9Printa(i);NextiPrintt=InputBox("inputt=","")Fori=0To9Ift=(1)ThenExitForEndIfNextiIfi=10ThenEnd=i-1Fork=0Toi/(2)t=a(k)a(k)=a(i-k)a(i-k)=tNextkFori=0To9Printa(i);Nexti.下面程序可以打印一个九九表完整九行或部分行，思路是在窗体中加入两个文本框，第一个文本框(text1)用于指定输出九九表的起始行，第二个文本框用于指定输出九九表的结束行，如在第一个文本框中输入2,第二个文本框中输入6,打印出如图所示的2到6行。命令按钮的单击事件中有打印九九表的程序，请在空白位置填写正确的命令(程序要求：第一个文本框数字必须比第二个文本框小，两个文本框中不能为空)(VisualBasic题)。t*s=2et*s=2e£22£3d-S-£***耳*起始行2结束行PPrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerIfText1.Text<>”"(3)Text2.Text<>""Thena=Textl.Textb=