VisualBasic程序设计试卷库2

------金陵科技学院考试卷出卷教师教研（实验）室主任第页总页第页总页题号一二三四五六七八九十总分阅卷人得分一、单选择题（每题1分，共20分）请将正确选项写在答题纸上。１．用于从字符串左边截取字符的函数是（）Ａ．Ltrim()Ｂ．Trim()Ｃ．Left()Ｄ．Instr()２．可获得当前系统日期的函数是（）Ａ．Date()Ｂ．Time()Ｃ．IsDate()Ｄ．Year()３．退出For循环可使用的语句为（）Ａ．ExitForＢ．ExitDoＣ．EndForＤ．EndDo４．窗体的标题栏显示内容由窗体对象的（）属性决定。Ａ．BackColorＢ．BackStyleＣ．TextＤ．Caption５．程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。Ａ．ValueＢ．EnabledＣ．DefaultＤ．Cancel６．标签框所显示的内容，由（）属性值决定。Ａ．TextＢ．(名称)Ｃ．CaptionＤ．Alignment７．文本框的（）属性用于设置或返回文本框中的文本内容。Ａ．TextＢ．(名称)Ｃ．CaptionＤ．Name８．计时器控件的（）属性用于设置Timer事件发生的时间间隔。Ａ．StretchＢ．IntervalＣ．ValueＤ．Length９．滚动条的（）属性用于返回或设置滚动条的当前值。Ａ．ＶalueＢ．MaxＣ．MinＤ．Data10．若要向列表框添加列表项，可使用的方法是（）Ａ．AddＢ．RemoveＣ．ClearＤ．AddItem11．图像框或图片框中显示的图形文件，由它们的（）性性值决定。Ａ．DownPictureＢ．PictureＣ．ImageＤ．Icon12．以下不属于键盘事件的是（）Ａ．KeyDownＢ．KeyUpＣ．UnloadＤ．KeyPress13．VB中可用（）语句产生一消息框。Ａ．InputBoxＢ．ShiftＣ．BothＤ．MsgBox14．下列符号中哪个是VB程序中合法的变量名（）A．ab7B．7abC．IfD．a*bc15．X是小于100的非负数，用VB表达式表达正确的是（）A．0≤X≤100B．0=X100C．0=XandX100D．0≤X10016．以下叙述中正确的是（）A．窗体的Name属性指定窗体的名称，用来标识一个窗体B．窗体的Name属性的值是显示在窗体标题栏中的文本C．可以在运行期间改变对象的Name属性的值D．对象的Name属性值可以为空17．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）A．选按钮B．图片框C．通用对话框D．文本框18．设有如下变量声明:DimTestDateAsDate，为变量TestDate正确赋值的表达方式是（）A．TextDate=#1/1/2002#B．TestDate=#“1/1/2002”#B．extDate=date(“1/1/2002”)D．TestDate=“1/1/2002”19．设a=3,b=5，则以下表达式值为真的是（）A．a=bAndb10B．(ab)Or(b0)C．(a0)Eqv(b0)D．(-3+5a)And(b0)20．目录列表框的Path属性的作用是A．显示当前驱动器或指定驱动器上的目录结构B．显示当前驱动器或指定驱动器上的某目录下的文件名C．显示根目录下的文件名D．显示该路径下的文件二．基本概念填空题（10空*1分，计10分）1．对象的方法是指。2．允许文本框可以输入多行信息的属性为。金陵科技学院考试卷200200学年第学期系(院)级专业课程VisualBasic程序设计课程编号(2卷)闭卷姓名学号得分------金陵科技学院考试卷出卷教师教研（实验）室主任第页总页第页总页3．已知a=3.5，b=5.0，c=2.5，d=true，则表达式：a=0anda+cb+3ornotd的值是。4．表达式ucase（mid（“abcdefgh”，3，4））的值是。5．菜单设计中，用符号来命名字母。6．VisualBasic采用驱动的编程机制，程序员之需要编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤。7．如果要在单击命令按钮时执行一段代码，则应将这段代码写在_________________事件过程中。8．表示控件与窗体左侧距离的属性是。9．若A=20，B=80，C=70，D=30，则表达式A+B160Or（B*C200AndNotD60）的值是。10．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为。三、分析程序运行结果（4题*6分，计24分）1．本程序有一个标准模块和一个窗体模块。Submain过程是本程序的启动过程，其他过程是窗体模块的事件过程。执行本程序，依次单击命令按钮command1和command2，在窗体上输出的3行内容分别是：、、。‘标准模块PublicxasintegerSubmain()X=5Form1.showForm1.printxEndsub‘窗体模块DimyasintegerPrivatesubcommand1_click()Y=x*2PrintyEndsubPrivatesubcommand2_click()Y=x/2PrintyEndsub2.单击窗体后，在文本框Text2中显示的内容是_____________；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是_______________和___________________。PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=1:y=0DoWhilex3y=y+x‘A语句x=x+1‘B语句LoopText1.Text=xText2.Text=yEndSub3．当Sub过程Value形参表中存在ByVal关键字时，执行本程序，单击窗体，在窗体上显示的第二行的内容是（）；若将形参表中的ByVal关键字删除，再执行本程序，单击窗体后在窗体上显示的第一行内容是（），第二行的内容是（）。PrivateSubValue(ByValmAsInteger,ByValnAsInteger)m=m*2n=n-5Printm=；m,n=；nEndSubPrivateSubForm_Click()DimxAsInteger,yAsIntegerx=10:y=15CallValue(x,y)Printx=；x,y=；yEndSub------金陵科技学院考试卷出卷教师教研（实验）室主任第页总页第页总页4、写出下面程序段的运行结果。PrivateSubForm_Click()Dimi%Dimf(2)Fori=0To2f(i)=sq(i*i+1)NextiDoUntili=0i=i-1PrintF(;i;)=;f(i)LoopEndSubPublicFunctionsq(x)x=x+2sq=x*4-5EndFunction四、完善程序填空题（7空*2分，计14分）1、下面的程序输入X的值，按以下公式求Y值。100-X-100≤X〈0y=100+X0≤X≤100400100〈X≤200privatesubcommand1_click()x=val(text1.text)selectcasexcase()printx-100orx200caseis0y=100-xcaseis=100y=100+xcase()y=400endselecttext2.text=yendsub2.以下程序实现2＋22＋222＋2222＋……请完善程序。PrivateSubForm_Click()Prints(2,5)EndSubPrivateFunctions(mAsInteger,nAsInteger)Dimint1AsIntegerDimlng1AsLongForint1=()lng1=（）s=s&+&lng1NextEndFunction3．以下程序求出所有满足条件的M和N，条件是m+n=99，且M,N的最大公约数是3，清完善程序PrivateSubForm_Click()DimmAsInteger,nAsIntegerForm=（）n=99-mIf（）ThenPrintm,nNextEndSubPrivateFunctiongcd(mAsInteger,nAsInteger)AsIntegerDimuAsInteger，vAsInteger，rAsInteger（）------金陵科技学院考试卷出卷教师教研（实验）室主任第页总页第页总页v=nDoWhilev0r=uModvu=vv=rLoopgcd=uEndFunction五、改错题（4错*3分，计12分）本程序的功能是：随机生成15个3位正整数，找出其中的升序并移动放置到数列的左端，非升序数放置在数列的右边。（）升序数是指其各位数字从高到低位，一个比一个大的整数，如134，257，389等均为升序数）清在下面含有错误的源程序中找出错误并修改。OptionExplicitPrivateSubCommand1_Click()Dima(15)AsInteger,iAsIntegerDimstAsString,tAsInteger,jAsIntegerRandomizeFori=1To15a(i)=Int(Rnd*900)+100st=st&Str(i)NextiText1=stFori=1To15Ifflag(a(i)Thent=a(i)Forj=i-1To1Step-1a(j－1)=a(j)Nextja(1)=tEndIfNextist=Fori=1To15st=st&Str(a(i))NextiText2=stEndSubPrivateFunctionflag(ByValnAsInteger)AsBooleanDimiAsInteger,a(3)AsIntegerFori=1To3a(i)=Mid(str(n),i,1)NextiIfa(1)a(2)Anda(2)a(3)Thenflag=TrueElseflag=FalseEndIfEndFunction六、编写程序（2题*10分，计20分）1、从键盘上输入N名同学的成绩，显示在文本框Text1中（由Command1事件过程完成）。按成绩从高到低的次序进行排序，并将结果显示在文本框Text2中（由Command2事件过程完成）。2、从键盘上输入一个正整数N，求N！（由Command1事件过程完成）,程序中必须要包含一个名为Fact的递归过程，用于计算阶乘。