2009─2010学年(1)《VB程序设计》上机测试卷

第1页共6页专业班级姓名班内序号2009─2010学年(专业班级姓名班内序号(答题结果Word文件在17：40以前发送到836102009@)考试时间：90分钟一、单项选择题(每小题2分，共40分)当运行程序时，系统自动执行启动窗体的_____事件过程。（A）Load（B）Click（C）Unload（D）GotFocus不论何控件，共同具有的是_____属性。（A）Text（B）Name（C）ForeColor（D）Caption要判断在文本框是否按下Enter键，可在文本框的_____中判断。（A）Change（B）Getfocus（C）Click（D）KeyPress在一行语句内写多条语句时，每个语句之间用_____符号分隔。（A），（B）：（C）、（D）；在VB中最基本的对象是_____，它是应用的基石，是其它控件的容器。（A）文本框（B）命令按钮（C）窗体（D）标签多窗体程序是由多个窗体组成的。在默认情况下，VB在应用程序执行时，总是把_____指定为启动窗体。（A）不包含在任何控件的窗体（B）设计时的第一个窗体（C）包含控件最多的窗体（D）包含控件最少的窗体有程序代码如下：Text1.Text=”Text1.text”则Text1、Text、”Text1.text”分别代表_____。（A）对象、值、属性（B）对象、方法、属性（C）对象、属性、值（D）属性、对象、值8、下面正确的赋值语句是_____。（A）x+y=30（B）Int(y)=30（C）y=x+30（D）3y=x9、为了给三个变量赋初值，下面正确的赋值语句是_____。（A）x=1:y=1:z=1（B）x=1,y=1,z=1（C）x=y=z=1（D）xyz=110、赋值语句：a=123&Mid(“123456”（A）“12334”（B）123（C）12334（D）15711、下面程序段由三种基本结构组成，下面属于三种结构之一的是_____。（A）递归结构（B）选择结构（C）过程结构（D）输入输出结构12、对于语句Ifx=1Theny=1，下列说法正确的是_____。（A）x=1和y=1均为赋值语句（B）x=1和y=1均为关系表达式（C）x=1为关系表达式，y=1为赋值语句（D）x=1为赋值语句，y=1为关系表达式13、一条语句要在下一行继续写，用_____符号作为续行符。（A）+（B）=（C）_（D）…14、数学表达式3≤x<10在VB中的逻辑表达式为_____。（A）3<=x<10（B）3<=xANDx<10（C）x>=3ORx<10（D）3<=xAND<1015、与数学表达式对应，不正确的VB表达式是_____。（A）a*b/(3*c*d)（B）a/3*b/c/d（C）a*b/3/c/d（D）a*b/3*c*d16、Rnd函数不可能为下列_____值。（A）0（B）1（C）0.1234（D）0.000517、Int(198.555*100+0.5)/100的值_____。（A）198（B）199.6（C）198.56（D）20018、表达式Len(“123程序设计ABC”)的值是_____。（A）10（B）14（C）20（D）1719、下列关于Do…Loop循环结构执行循环次数的描述正确的是_____。（A）DoWhile…Loop循环和Do…LoopUntil循环至少都执行一次（B）DoWhile…Loop循环和Do…LoopUntil循环可能都不执行（C）DoWhile…Loop循环至少都执行一次，Do…LoopUntil循环可能不执行（D）DoWhile…Loop循环可能不执行，Do…LoopUntil循环至少执行一次20、用If语句表示分段函数，下列不正确的是_____。（A）ifx>=1Thenf=Sqr(x+1)f=x*x+3（B）Ifx>=1Thenf=Sqr(x+1)Ifx<1Thenf=x*x+3（C）Ifx>=1Thenf=Sqr(x+1)Elsef=x*x+3（D）Ifx<1Thenf=x*x+3Elsef=Sqr(x+1)二、程序阅读题(每小题5分，共20分)1、下面程序段,运行后显示的结果是。PrivateSubForm_Click()Dimxx=Int(Rnd+5)SelectCasexCase5Print"优秀"Case4Print"良好"Case3Print"通过"CaseElsePrint"不通过"EndSelectEndSub（A）优秀（B）良好（C）通过（D）不通过2、下面程序段的运行结果为多少？PrivateSubCommand1_Click()Fori=1To5n=0Forj=iTo5n=n+1NextjNextiPrintnEndSub(A)10(B)5(C)15(D)13、下列程序的运行结果是。Privatesubcommand1_click()Dimx$,n%n=15dowhilen<>0a=nmod2n=n\2x=chr(48+a)&xloopprintxendsub(A)1(B)1111(C)10100(D)111104、如下程序，运行的结果是。Dima%,b%PublicSubp1(x%,y%)x=2*xy=y+2EndSubPublicSubp2(x%,ByValy%)x=2*xy=y+2EndSubPrivateSubCommand1_Click()a=2:b=4Callp1(a,b)Print“a=”;a;”b=”;ba=2:b=4Callp2(a,b)Print“a=”;a;”b=”;bEndSub(A)a=2b=4(B)a=4b=6a=4b=6a=8b=(C)a=4b=6(D)a=4b=6a=4b=4三、填空题(每小题1分，共10分)已知a=3.5,b=5.0,c=2.5,d=True，则表达式：a>=0Anda+c>b+3OrNotd的值是。结构化程序设计的三种基本结构是，，_____________。传地址方式是当过程被调用时，形参和实参共享。窗体中的模块级变量应在段声明，它的作用域是。在VB6.0中，数组的下标下界默认为0，利用语句可以使数组下标下界为1。若定义一维数组为：Dima(NToM)，则该数组的元素为个。VB中的变量按其作用域分为全局变量、模块级变量和变量。四、程序填空题(10分)以下程序的功能是用辗转相除法求两个自然数m，n的最大公约数和最小公倍数。程序运行后，先从键盘上输入两个自然数，求出并输出这两个数的最大公约数和最小公倍数。请在程序中有下划线的地方填入适当的内容，将程序补充完整。PrivateSubForm_Click()Dimm%,n%,m1%,n1%,r%n1=InputBox("输入n")m1=InputBox("输入m")Ifm1>n1Thenm=m1:n=n1Elsem=n1:n=EndIfDor=Ifr=0ThenExitm=nn=