计算机专业第二次月考试题

1计算机专业第二次月考试卷一、选择题（本大题共10小题，每小题2分，共20分）1．在VisualBasic中，PrintInt(35*Rnd)+n产生的随机数的范围是10至44（含10及44），则n是...............................................（）A．10B.20C.30D.352.在VisualBasic中，下列可作为VisualBasic变量名的是............（）A.FilenameB.ValC.X%DD.Print3.在VisualBasic中，下列语句用来设置窗体中文本框（名称Text1）的属性，其中在运行时不能正确操作的语句是..................................（）A.Text1.Text=TextTestB.Text1.Name=TextTestC.Text1.Enabled=FalseD.Text1.Visible=False4.在VisualBasic中,下列运算符优先级最高的是......................（）A.+B.*C.D．And5.执行下面VisualBasic程序后，结果是哪个选项......................（）Fori=1To6IfiMod2=0ThenPrint#;ElsePrint*;EndIfNextiA．######B．******C．*#*#*#D．#*#*#*6.下面的VisualBasic程序是对数组a中的元素按升序排列，程序中空白位置应该填下列选项中的哪一个............................................（）OptionBase1DimiAsIntegerDimjAsIntegera=Array(2,4,7,9,3,6,20,11)Fori=1To7Forj=i+1To8Ifa(i)a(j)Thena(i)=a(i)+a(j)a(j)=a(i)-a(j)_____________EndIfNextjNextiFori=1To8Printa(i);NextiA.a(i)=a(j)B.a(i)=a(i)-a(j)C.a(j)=a(i)-a(j)D.ExitFor7.执行下面VisualBasic程序后，s=s+1语句被执行了多少次...........（）DimsAsIntegers=0Fori=1To10Forj=0Toi-1s=s+1NextjNextiA.0B.10C．55D.6628.执行下面VisualBasic程序，数组a中的数字50所在位置的下标是....（）OptionBase1PrivateSubCommand1_Click()DimiAsIntegerDimkAsIntegerDimtAsIntegerDimwAsIntegerDimmAsIntegera=Array(3,56,8,10,89,94,78,82,20,50,100)m=UBound(a)k=m/2Fori=1Tokw=a(i):a(i)=a(m-i+1):a(m-i+1)=wNextiEndSubA.1B.2C.3D.59.在VisualBasic中，关于控件及窗体说法不正确的是................（）A.任何一个控件都有名称B.任何一个控件都有属性C.任何一个控件都有单击事件D.控件是对象，窗体也是对象10.执行下面VisualBasic程序，输入a的值为10，最后输出s的值是....（）DimaAsIntegerDimsAsIntegera=InputBox(a=)SelectCaseaMod2Case1:s=1Case2:s=10Case3:s=11CaseElse:s=100EndSelectPrintsA.1B.2C.3D.100二、判断题（本大题5小题，每小题2分，共10分。）1．在VisualBasic中，对顺序文件既有读的操作语句，也有写的操作语句。（）2.在VisualBasic中，窗体appearance属性的功能是返回或设置对象的边框样式。（）3.在VisualBasic中，定时器控件在运行时是可见的。（）4.在VisualBasic中，窗体的move方法中，参数left、width、height都不可以省略。（）5.在VisualBasic中，form1.visible=true，这时窗体不可见。（）三、填空题（本大题共5小题，每小题2分，共10分。）1.VisualBasic的算术表达式4/3Mod3*2+2的结果是。2.在VisualBasic中，将文本框的scrollbar的属性设置为2，但没有垂直滚动条显示，原因是没有将属性设置为True。3.在VisualBasic中，有以下的循环：X=1Dowhilex=5X=Loop程序运行后，要求执行3次循环体，请填空。4.在VisualBasic中，根据数组占用内存方式的不同，将数组分为常规数组和。5.在VisualBasic中，要将某一控件从tab键顺序中删除，只要将其tabstop属性设置成。四、程序分析（本大题共1小题，每小题5分，共5分）阅读下面的VisualBasic程序，程序运行后s的值是OptionBase0PrivateSubCommand1_Click()Dima(4)AsIntegerDimiAsIntegerDimjAsIntegerDimwAsIntegerDimsAsIntegerj=0:s=03Fori=1To100w=Int(6*Rnd)Ifw=2Thena(j)=ws=s+a(j)j=j+1Elsei=i-1EndIfIfj=5ThenExitForNextiPrintsEndSub五、写出下列程序的运行结果（本大题共2小题，每小题5分，共15分）1．分析下面VisualBasic程序段。窗体中有一命令按钮（名称为Command1）。PrivateSubCommand1_Click()Dima(3)AsIntegerDimiAsInteger,wAsIntegerw=0Fori=0To3a(i)=iNextiFori=0To3w=w+fu(a(i))NextiPrintwEndSubPrivateFunctionfu(kAsInteger)k=k+1fu=kEndFunction窗体启动后单击命令按钮，输出w的值为。2．分析下面VisualBasic程序段。窗体中有一命令按钮（名称为Command1）OptionBase1PrivateSubCommand1_Click()a=Array(23,24,17,8,11,15,16,13)DimiAsIntegerDimnumAsIntegerDimkAsIntegerDimjAsIntegerDimflagAsIntegernum=0Fori=1To8flag=0k=Int(Sqr(a(i)))Forj=2TokIfa(i)Modj=0Thenflag=1NextjIfflag=0Thennum=num+a(i)NextiPrintnumEndSub窗体启动后单击命令按钮，输出语句Printnum执行结果是__________________。3.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(5,6,7,8,9)Sum=0Fori=1To54Sum=Sum+a(i)Nextip=Sum/5Fori=1To5Ifa(i)pThenPrinta(i);NextiEndSub程序运行后，单击命令按钮，则窗体上显示的内容为：。六、VisualBasic程序改错(本大题共2小题，每个错误5分，共20分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整)1．有数组:s=Array(a42,b3c56,de7fg,hi,jk35kmn)统计数组s的各个元素中含有数字字符个数，把结果放到数组b相应元素中，如上述数组s，当程序运行后b中各元素的值分别为：2,3,1,0,2。程序中有两处错误，请按要求改正。程序如下：（两个数组的下标都是从1开始，程序中定义的每个变量都用到,程序中只能用变量total统计数组中每个元素含数字字符个数）s=Array(a42,b3c56,de7fg,hi,jk35kmn)Dimb(5)AsIntegerDimtotalAsIntegerDimiAsIntegerDimjAsIntegerFori=1To5b(i)=0Forj=1ToLen(s(i))IfMid(s(i),j,1)=0AndMid(s(i),j,1)=9Thentotal=total+b(i)Nextjb(i)=totalNextiFori=1To5Printb(i);Nexti2．如图所示，窗体有两个框架，左边框架中有三个单选按钮（名称分别为Option1，Option2和Option3），单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框（名称为List1）；两个框架中间是命令按钮（标题为存放结果，名称为Command1），命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。（不能改变程序行数，不能增加函数）PrivateSubCommand1_Click()DimsAsStringList1.Clears=SelectCase1CaseOption1.Values=s+Option1.CaptionCaseOption2.Values=s+Option2.CaptionCaseOption3.Values=s+Option3.CaptionEndSelect5List1.Text=sEndSub七、程序填空（本大题共4个空，每空5分，共20分，按程序要求在答题纸上填入相应的内容，使程序完整正确）1．(VisualBasic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#”的数字放入数组a中，如果是数字但后面没有“#”则不存放。如输入的字符串为“12#a2bc3#d45#6e7”,则12、3、45分别存放到数组a的前三个元素中。请填空。OptionBase0PrivateSubCommand1_Click()DimsAsStringDimcAsStringDimiAsIntegerDimjAsIntegerDima(10)AsIntegerDimnumAsIntegerDimwAsIntegerDimflagAsInteger'标志：为0表示前一个字符非数字，为1表示前一字符为数字num=0:i=1:flag=0:j=0s=InputBox(s=)w=Len(s)DoWhilei=wc=Mid(s,i,1)Ifc=0Andc=9Thennum=num*10+Val(c):(1)EndIfIfflag=1Andc=#Then(2):j=j+1:flag=0:num=0EndIfIf(c0Orc9)Andflag=1Thenflag=0:num=0EndIfi=i+1LoopFori=0Toj-1Printa(i);NextiEndSub2、(VisualBasic试题)窗体中有一文本框(名称Text1)，一组合框(名称Combo1，已添加5个条目)，一滚动条（名称Hs1，min和max分别为1和5），一定时器控件（名称Timer1），定时器的Enabled属性初始为False，Interval属性值1000（1秒），一命令按钮(标题为开始，名称Command1)。程序功能：（1）开始命令按钮功能：启动定时器工作；（2）定时器Timer1事件功能：一是清空文本框，二是在文本框