vb计算机上机试题

1、一、单项选择题（25 道小题，共 25 分）1、VB 中工程软件的扩展名为（）（1 分）B、frmD、bas国 AtrimCright3、文本框 textl 的 text 属性的数据类型是（）（1分）4、下列（）属性决定窗体标题栏显示内容（1 分）5、命令按钮 command 体具有下列哪个事件（）（1 分）2、把字符串abcdef右边的空格去掉应使用（）函数（1 分）.B、字符串C 单精度D、双精度AClickB、KeyPressGGotFocusD、DblClick6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为 True,然后再把 ScrollBars属性设置

2、为()(1分）B、17、DimD、3D（3,1To10,1To15）语句中，数组的元素个数为()(1 分)3*10*164*10*158、如果整型变量c、d、x 的值分别为 8、6、0,则下列语句 ForI 的值为（）（1 分）B、3*11*16D、4*11*15I=ctodx=x+iNextI执行结束时,CvbpB、rtrimD、midANameB、CaptionGTextD、BackStyle循环体9、假定有以下循环结构DoUntil 条件循环体Loop则正确的描述是（）（1 分）执行A 如果条件是一个为 0 的常数，则一次循环体也不环体B、如果条件是一个为 0 的常数，则至少执行一次循C

3、 如果条件是一个不为 0 的常数，则至少执行一次D、不论条件是否为真;至少要执行一次循环体10、x 是小于 100的非负数,用 VB 表达式表示正确的是（1分）11、12、A0=x0rAnd下列语句错误的是（AexitCendInputboxA 整型forsubx100 x100） （1 分）函数返回的数据类型为（）（1 分）C 单精度13、假定有以下程序段:Print14、15、B、D、B、D、B、D、0=x1000=xexitexit逻辑型字符串dox100selectForI=1To3:Forj=1To5Step-1:PrintI*j:Nextj:NextI 贝1J 语句I*j 的执行次

4、数是（）（1 分）A15B、18C10D、0如果要清除在窗体中打印输出的文字，可以利用（）语句（1 分）AInputB、LoadCClsD、Paintcase表达式表列，其中的表达式表列不正确的为（）（1 分）OACase100*a，CCaseIs300016、下列说法错误的是（）（1 分）ClAVB 声明数组时既可指定上界也可指定下界国 C 数组元素的下标可以是数值，也可以是结果在上下界之间的数值表达式17、下面的四个数组说明语句语法正确的是（）（1分）dB、Case1000To2000D、Case2000Is4:x=x*y:y=y+1:Loop 执行后 x 的结*B、4D、20口 B、变量

5、名的最后一个字符可以是类型声明字符D、不能与关键字同名JB、Dimmynameasstringr-D、dimMyString=Hello,+Myfriend!cB、.368JD、2.5EOR2*ac 的值是（）（1 分）B、FalseCDIMX（20）18、以下程序段：x=1:y=4:DoUntil 果为（）（1 分）因 A1C819、以下声明和命名标识符错误的是（）（1 分）口 A 必须以字母开头叵 C 长度不能超过 8 个字符20、下列说明错误的是（）（1 分）E3AConstMyVar#=123Cdimaasinteger,dimbassingle21、VB 中允许出现的数据形式为（）（

6、1 分）成A1.89E1.1。CD3222、设 a=2,b=3,c=4,d=5,下列表达式 abANDc=d忖ATATrue。C-1BD、123、语句 6*66/6 的输出结果是（）（1 分）国 A6CB、12卜；1C36 二 ID、21624、给窗体 form1 加载背景图片，应使用（）函数（1 分）LApicture,B、ucase因 GloadpictureD_LD、image25、字符串河南农业大学现教部的长度是（）（1 分）dA18CB、10卜;IC90D、16、填空题（12 道小题，共 35 分）51、 设定系统当前日期是 2004 年 5 月 12 日， Month （date）

7、=。122、设 A$=VisualBasic,len（a$）函数返回值是。I 窗体3、在窗体的声明部分，语句 Privatex%语句，是将变量定?为?变量。（2 分）truefalse两个值。5、顺序文件读操作用语句6、一个工程可以包括多种类型的文件，其中扩展名为.frx 的文件表示文件不可见的7、Command1.Visible=False,是将命令按钮 1 设为I_口货币八、10、DimXAsCurrency 是将变量 X 定?为型。（2 分）11、某次大奖赛，有 6 个评委打分，如下代码对一名参赛者，输入 6 个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分，即为该参赛者的得分

8、。代码中 aver 变量存放平均分，max1 变量存放最高分，min1 变量存放最低分。请在空线处补充使之完整。PrivateSubCommand7_Click（）Dimmark!,aver!,i%,max1!,min1!aver=0Fori=1To6mark=InputBox（输入第&i&位评委的打分）Ifi=1Thenmax1=mark:min1=markElseIfmarkmax1Thenmax1=markEndIfEndIfaver=aver+markNext（aver-min1-max1）/4aver=PrintaverEndSub（9 分）12、这是一个用户名校验程

9、序。用户名为“user”，密码为“1234”，单击按钮：（1）如果用户名和密码均正确，即输出欢迎 user 来到欢乐世界！字样（2）若用户名错误，则要求重新输入用户名（3）如果用户名正确，密码错误，则弹出“密码错误！”警告窗口，并直接退出程序。8、当鼠标在控件上暂停时，显示提示信息，要用tooltiptext属性。9、Textel.SetFocus语句功能是把焦点移到textl上。（2 分）OptionExplicitDimUserNameAsString,userpasswordasstringDiminputNameAsString,inputpasswordasstringPrivate

10、Subform_load（）UserName=user:userpassword=1234endsubprivatesubcommand1_click（）gt:inputName=InputBox（请输入用户：,用户名确认，）T-username=user仆msgbox用户名错误，请重新输入”gotogtelseinputpassword=InputBox（请输入密码：,密码验证，）ifinputpassworduserpasswordthenendmsgbox”密码错误！:elseMsgBox欢迎&UserName&来到欢乐世界！EndIfendifEndSub（6 分）正确

11、 d 错误7、在 for 循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（1 分）正确 n 错误8、将文本框 Textl 中的内容清除，可使用语句 Textl.cls。（1 分）正确.错误9、文件名的命名规则同变量的命名规则一样。（1 分）正确 d 错误10、InputBox 函数返回值的类型是字符串类型。（1 分）错误四、编程题（4 道小题，共 60 分）1、编写程序，计算并输出下面?数前 n 项（n=10）的部分和。（要求用循环做，非循环不给分。）1!+2!+3!+4!+n!（15 分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！4037913请将你解答

12、本题所写的源程序粘贴到下面或者上载源程序DimaAsLong,bAsLong,cAsIntegern=InputBox（请输入一个正整数,阶乘和,10）a=1b=oForc=1Tona=a*cb=b+aNextPrintbrlIj请将你解答本题所写的源程序粘贴到下面或者上载源程序PrivateSubCommand2_Click()DimiAsInteger,jAsIntegerFori=1To4PrintTab(30-3*i);Forj=1To2*i-1Print2*i-1;NextNextEndSub3、编写程序，输出 1001000 之间的所有质数，并给出 1001000 之间质数的个数及

13、其和。(15 分)必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！4、编写程序，用牛顿切线法求方程 f(x)=3xA3-4xA2-5x+13=0(其中人表示募运算)在区间1,2上的近似实根 r,迭代初值自选，精确到 0.0001o提示：计算公式为 x=x-f(x)/f(x)(15 分)必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计！请将你解答本题所写的源程序粘贴到下面或者上载源程序考号：601110016 姓名：李洋洋剩余时间：58:51 保存交卷退出帮助强烈建议您使用 IE5.0 以上，屏幕分辨率 800X600 以上，真彩，小字体浏览三、判断题（10 道小题，共 10 分）1、VB 中请求对象执行某一操作的要求称为方法。（1 分）“正确错误2、False 为字符型常量。（1 分）正确错误3、语句 Print25*40 执行时输出的结