VB程序设计试题及答案(一)-vb程序设计答案

1、.vb程序设计试题及答案（一）一、单选题1. vb6.0是一种面向 b 的编程环境。 (a) 机器 (b) 对象 (c) 过程 (d) 应用2. 要使formi窗体的标题栏显示欢迎使用vb，以下 d 语句是正确的。 (a) forml.caption=“欢迎使用vb” (b) forml.caption=欢迎使用vb (c) forml.caption=欢迎使用vb (d) forml.caption=欢迎使用vb3. 若要使命令按钮不可操作，要对 a 属性进行设置。 (a) enabied (b)visible (c) backcolor (d)caption4. 如果在窗体上已经创建了一个

2、文本框对象texti，可以通过 c 事件获得输入键值的ascii码。 (a) change (b) lostfocus (c) keypress (d) gotfocus5. 下面 a 是合法的变量名。 (a) x_yz (b) 123ab。 (c) integer (d) x-y6. 以下关系表达式 中，其值为false的是 a 。 (a) abcabc (b) 女男 (c) basic=ucase(basic) (d) 123o then n=n+l (b) if sex=男 and age=4o and (duty=教授 or duty=副教授) then n=n+l (c) if se

3、x=男 and age=4o and right(duty，2)=教授 then n=n+l (d) if sex=男 and age=4o and duty=教授 and duty=副教授 then n=n+l10.下列关于doloop循环结构执行循环次数的描述正确的是 d 。(a) do whileloop循环和doloop until循环至少都执行一次 (b) do whileloop循环和doloop until循环可能都不执行 (c) do whileloop循环至少执行一次和doloop until循环可能不执行 (d) do whileloop循环可能不执行和doloop unt

4、il循环至少执行一次11.以下 b 是正确的fornext结构。 (a) for x=1 to step 10 (b) for x=3 to -3 step -3 精品. next x next x(c) for x=1 to 10 (d) for x=3 to 10 step 3 re: next x next y if i=10 then goto re12.如下数组声明语句， b 是正确的。 (a) dim a3,4 as integer (b) dim a(3,4) as integer (c) dim a(n,n) as integer (d) dim a(3 4) as integ

5、er13.下列语句中（假定变量n有值），能正确声明可变长数组的是 a 。 (a) dim a( ) as integer (b) dim a( ) as integer redim a(n) redim a(n) as string (c) dim a( ) as integer (d) dim a(10) as integerredim a(3, 4) redim a(n+10) redim preserve a(4, 4)14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 c 。 (a) sub f2(byval n%, byval m%) (b) sub f1(n%, by

6、val m%) (c) sub f1(n%, m%) (d) sub f1(byval n%, m%)15.设有如下程序段： public sub f1(n%) n=3*n+4 end sub private sub command1_click( ) dim n%, m% n=3 m=4 调用f1语句 end sub 则在command1_click事件中有效的调用语句是 b 。 (a) call f1(n+m) (b) call f1(m) (c) call f1(5) (d) call f1(m+5)16.用来设置粗体字的属性是 c 。 (a) fontitalic (b) fontna

7、me (c) fontbold (d) fontsize17.假定定时器的interval属性为1000，enabled属性为true，调用下面的事件过程，程序运行结束后变量x的值为 d 。 dim x as integer sub timer1_timer( ) for i=1 to 10 x=x+1 next i精品. end sub(a) 1000 (b) 10000 (c) 10 (d) 以上都不对18.在下列关于通用对话框的叙述中，错误的是 b 。 (a) commondialog1.showfont显示“字体”对话框 (b) 在“打开”或“另存为”对话框中，用户选择的文件名可以经f

8、iletitle属性返回 (c) 在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经filename属性返回 (d) 19.当用户按下并且释放一个键后会触发keypress、keyup和keydown事件，这三个事件发生的顺序是 c 。(a) keypress、keydown、keyup(b) keydown、keyup、keypress(c) keydown、keypress、keyup(d) 没有规律20.在下面关于顺序文件的描述中，正确的是 c 。(a) 顺序文件中每行的长度都是相同的。(b) 可以通过编程对文件中的某行方便地进行修改(c) 数据以ascii码的形式存放在文件

9、中，所以可通过记事本打开(d) 文件的组织结构复杂21.随机文件是因为 c 。(a) 文件中的内容是通过随机数产生的(b) 文件中的记录号通过随机数产生的(c) 可对文件中的记录根据记录号随机地读/写(d) 文件的每条记录的长度是随机的22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 a 正确。(a) f=“c:t1.txt” open f for input as #1(b) f=“c:t1.txt” open “f” for input as #2(c) open “c:t1.txt” for input as #1(d) open c:t1.txt for input a

10、s #223.坐标度量单位可由通过来 d 改变。(a)drawstyle属性 (b) drawwidth属性 (c) scale方法 (d) scalemode属性24.指令“circle (1000, 1000), 500, 8, -6, -3”将绘制 a 。(a) 画圆 (b) 椭圆 (c) 圆弧 (d) 扇形25.用ado数据控件建立与数据源的链接，设置操作过程按 a 顺序进行。选择数据源连接方式；选择数据库类型；指定数据库文件名；指定记录源(a) (b) (c) (d) 二、填空题1vb是建立在basic语言基础上的 可见 化编程语言或编程环境。2在窗体上已建立多个控件如text1、l

11、abel1、command1，若要程序一运行时焦点就定位在command1控件上，应对command1控件设置 tabindex 属性的值为 0 。3在vb中，1234、123456&、1.2346e+5、1.2346d+5这4个常数分别表示 整形 、 长整形 、 精品.单精度 、 双精度 类型。4表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0 。5数组声明时下标下界默认为0，利用 opation base 1 语句可以使下标为1。6传地址方式是当过程被调用时，形参和实参共享 存储单元 。7窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的

12、 全局范围 。8当用户单击滚动条的空白处时，滑块移动的增量值由 largechange 属性决定。9如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“ - (减号) ”符号，那么显示时形成一个分隔符。10使用 scale 方法可以自定义坐标系。11使用line方法画矩形，不许在指令中使用关键字 b 。12使用sql语句设置ado控件的recordsource属性，这commandtype属性需要设置成 1(adcmdtext)或者(adcmdunknown) 。13为了显示一个窗体，所使用的方法为show；而为了隐藏一个窗体，所使用的方

13、法为_hide_。14如果要将某个命令按钮不显示，则可将_visible_属性设置为false15在vb中窗体文件的扩展名为_.frm_。三、编程应用题1.程序阅读，写出下列程序的运行结果。(1) private sub command1_click( ) dim a, i%, min%, imin%, sum%, t% a=array(26, 43, 61, 87, 33, 19, 37, 59, 76, 69) min=a(0): imin=0: sum=a(0) for i=1 to ubound(a) sum=sum+a(i) if a(i)= aand ucase=0and ch=9

14、then form1.print ch; 是数字字符 else form1.print ch; 是其他字符 end if精品. end sub输出结果：是数字字符(3) public sub proc(a%( ) ) static i% do a(i)=a(i)+a(i+1) i=i+1 loop while i2 end sub private sub command1_click( ) dim m%, n%, x%(10) for i=0 to 4: x(i)=i+1: next i for i=1 to 2: call proc(x): next i for i=0 to 4: prin

15、t x(i); : next i end sub输出结果：3 5 7 4 52.补充程序(1)如下是账号和密码输入的检验程序，运行界面如下图1所示。输入帐号和密码后，单击“检验密码”按钮，如果密码正确则程序结束，假定密码为“s001”；如果密码不正确，则弹出如下图2所示对话框，单击“取消”则程序结束，单击“重试”则返回图1窗体，且密码文本框text2内容被清空，等待再次输入。补充完整如下程序。 图1 图2private sub command1_click() dim i as integer if text2.texts001 then i = msgbox(密码错误, 5 + vbexclamation, 警告) if i 4 then end else end text2.setfocus end if end if end sub(2)以下是求最大公约数和最小公倍数的程序，使用的是辗转相除法，将程序补充完整。pri