vb基础知识部分

1、vb基础知识部分：1 不是窗体属性的是：（b）a. captionb. loadc. maxbuttond. minbutton2 vb中Active X 控件的文件扩展名是：（a）a. .ocxb. .basc. .clsd. .frm3 标签控件的默认属性是：（c）a. topb. .textc. captiond. name4 类模块文件的扩展名是：（b）a. .basb. .clsc. .objd. .frm5 inputbox() 函数返回值类型为.(b)a. 数值b. 字符串c. 数值和字符串d. 变体 6Vb中每一个对象都有自己的属性、（b）和方法a. 程序b. 事件 7文本框默

2、认属性是(a)a. Textb. captionc. named. top 8. 要设置计时器控件的定时触发时间，需设置的属性是：（a）a. intervalb. enabledc. valued. text 9.标准模块文件的扩展名是（b）a. .vbgb. .basc. .frmd. .vbp 10.integer 类型的数据占用字节数是（b）a. 1b. 2c. 3d. 4 11.要使菜单项显示一条水平分隔线，应将 (b)a. /b. _c. *d. + 12.从滚动条的(b)属性，可取得它的当前值(b)a. textb. valuec. maxd. min 13.使用下列哪个语句，只将

3、窗体form1 载入内存，但不显示在屏幕上。(d)a. form1.showb. form1.loadc. show.form1d. load.form1 14.下面哪个语句执行后，窗体form1 从内存中卸载（a）a. unload. form1b. load.form1c. form1.visible=falsed. form1.hide15.结构化程序基本结构是（顺序、选择、循环）。16. 在标准模块中，用public 关键字声明的变量和常量在（ b ）范围内有效。a. 只在窗体模块中b. 在整个工程中c. 只在标准模块中d. 只在类模块中vb表达式部分：1. a=3, 则执行x=iif

4、(a>5,a<5,a>5)后，x的值为(a)a. falseb.a<5c. a>5d. true2. 设x=10,a=iif(x>5,6,0)后，a的值为(a)a. 6b. 5c. 0d. 13. 表达式 int(-17.8)的值是（c）a.-17b.-16c.18d.184. 表达式 92 mod 9*2/3 的值是(a)a. 3b. 1c. 0d. 16 9 mod 4的值是(b)a. 1b. 1c. 3d. 27 下面程序执行结果为：( c ) for k=10 to 1 step 1next kprint ka. 1b. 1c. 0d. 108 pr

5、int “10+6=”;10+6输出结果是（d）a. ”10+6”=10+6b. 10+6=10+6c. 16=10+6d.10+6=169 下面程序输出结果为：（c ）a=”Visual Basic” a=ucase(a) print aa. visual basicb. VISUAL basicc. VISUAL BASICd. Visual BASIC 10 . 下面程序输出结果为：(a)a= ”abcdefghijk”print mid(a,3,4)a. cdefb. abcdc. bcded. defg 11.下面程序输出结果为：（d）a=”abcde”mid(a,3,4)=”xx”

6、print aa. abcdxxeb. axxbcdec. axxded. abxxe12.优先级最低的是：（d）a. *b. /c. d. mod 13. 同时册掉字符串前导和尾部空格的函数是（b）a. midb. trimc. Ltrimd. Rtrim 14.下面关于通用过程的说法错误的是：（a）a. 在不同的模块中通用过程不能重名。b. 在不同的模块中通用过程可以重名。c. 通用过程可以出现在窗体模块和标准模块中d. 在同一模块中通用过程不能重名。 15.dim a(10 to 20) 所定义的数组元素个数是：（c ）a. 20b. 10c. 11d. 30 16.为了把一个记录型变量

7、的内容写入文件中指定的位置，所使用的语句的格式为：(d)a . PUT 文件号,变量名，记录号b. GET文件号，变量名，记录号c. GET 文件号，记录号，变量名d.PUT 文件号，记录号，变量名 17要设置菜单的访问键，应在菜单项的标题中加入的符号是：（ c）a. %b. !c. &d. vb程序运行结果部分：1.下面程序是计算110之间奇数之和以及偶数之和 ( d ) Private sub form_click()Dim k,a,c as integerFor k=1 to 9 step 2 C=c+( 1 ) A=a+( 2 )Next kPrint “偶数之和为：”; aP

8、rint “奇数之和为：”; cEnd suba. (1) k (2) kb. (1) k+1 (2)kc. (1) k (2) cd. (1) k (2) k+1 2.在窗体上画一个命令按钮，然后编写下列事件过程： private sub command1_click()dim a,b,m,j as integer a=0 for m=1 to 10 a=a+1:b=0 for j=1 to 10 a=a+1:b=b+2 next j next m print a;b程序运行后，单击命令按钮，输出结果为：(b)a. 200 110b. 110 20c. 10 20d. 20 110 3. 在

9、窗体上画一个命令按钮，然后编写下列事件过程： private sub command1_click()dim j,s,x as integerfor j=1 to 10 x=val(inputbox(“enter:”) if x/3=int(x/3) or x/5=int(x/5) then s=s+x end ifnext jprint s end sub 程序运行后，单击命令按钮，输入1,3,5,7,9,11,13,15,17,19后，程序的运行结果是：(a)a. 32b. 20c. 27d. 374. 在窗体上画一个命令按钮，然后编写下列事件过程： private sub command

10、1_click()dim x(3,3) as integerdim j,k as integerfor j=1 to 3 for k=1 to 3 x(j,k)=(j-1)*3+k next knext jfor j=2 to 3 for k=1 to 2 print x(k,j) next knextj end sub 程序运行后，单击命令按钮，则运行结果为：2 3 5 65下面程序的功能是计算输入数的阶乘值：(d) private sub form_click()dim n as integern=val(inputbox(“请输入一个大于0的整数：“)print fact(n) end

11、sub private function fact(m)dim I as integerfact= ( 1 )for I= 2 to ( 2 ) fact=fact* ( 3 )next I end function a. (1) 0 (2) m (3) I b. (1) 1 (2) m-1 (3) Ic. (1) 0 (2) m-1 (3) I d.(1) 1 (2)m (3) I6. 在窗体上画一个命令按钮，然后编写下列事件过程：(b ) sub ine(a,as intrger) static x as integerx=x+aprint x; end sub inc 2 inc 3 i

12、nc 4程序运行后的结果为：a. 11 14 18b. 2 5 9c. 3 6 10d.4 7 11 7. 在窗体上画一个命令按钮，然后编写下列事件过程：( c )sub m5 (x as integer,y as integer,z as integer) if x<y thenif y<0 then z=0else z=z+1end if end if print zend subprivate sub command1_click() m5 2,-1,2end sub单击命令按钮后，执行结果为：a. 1b. 0c. 2d. 38. 下面程序的功能是，输入任意长度的字符串，要求

13、将字符串倒置。（c） private sub command1_click() dim a ,c as string dim n,I as integer a=inputbox(“输入字符串”) n= ( 1 ) for I= 1 to int (n2) c=mid(a,I,1) mid(a,I,1)=mid(a,n-I+1,1) mid(a,n-I+1,1)=( 2 ) next I print a end suba. (1) a (2) ab. (1) a (2) cc. (1) len(a ) (2) cd. (1) 7 (2) a9.在窗体上画一个列表框和一个文本框，然后编写如下事件过

14、程： private sub form_load() list1.additem “aaa” list1.additem “bbb” list1.additem “ccc” list1.additem “ddd” list1.additem “eee”end subprivate sub list1_DblClick() text1.text=list1.textend sub程序运行后，双击列表框中”ccc”项时，文本框中的内容是：（c）a. bbbb. 3c. cccd. 210.下面程序的功能是单击窗体form1时，就会出现一个弹出式菜单“mm“。（b） private sub form

15、_mouseup if button= (1) thenform1.(2) mm end ifend suba. (1) 1 (2) showb. (1)2 (2) PopupMenuc. (1)2 (2) showd. (1)1 (2)PopupMenu11.下面程序的功能是标签label1的字体会随着时间从小变大并且反复循环。(c) Private sub timer1_timerIf label1.( 1 ) <100 then Label1.fontsize=Label1.fontsize*1.2Else Label1.fontsize=10End ifEnd sub上面程序执行

16、后，要求每秒钟改变一次字体大小，则计时器的（ 2 ）属性应设置成( 3 ).a. (1) fontsize (2) interval (3) 1b. (1) fontsize (2) Enabled (3) 1c. (1) fontsize (2) interval (3) 1000d. (1) fontsize (2) Enabled (3) 112.在窗体上画一个水平滚动条和一个命令按钮，然后编写如下事件过程：private sub comand1_click() dim I,s as integer for I=1 to Hscrolll.values=s+I next Iprint s

17、end subprivate sub form_load() Hscrolll.max=10End sub程序运行后，把水平滚动条从左移到右，单击命令按钮，运行结果为：（c）a. 66b. 10c. 55d. 1713.下面程序的功能是向一个顺序文件”zgda.txt”中写入员工姓名、年龄及工资。（ a ） pravite sub command1_click() dim name as string*8dim age as integerdim wage as singlename=”张三”age=22open “d:zgda.txt “ for ( 1 ) as #1 ( 2 ) #1 n

18、ame,age,wageclose #1end sub a. (1) output (2) write b. (1) input (2) print c. (1) output (2) input d. (1) input (2)output14.窗体的键盘事件如下：private sub form_keypress if keyascii=13 then print “回车” end ifend subprivate sub form_keyup if keycode=13 then print “抬起” end ifend sub程序运行后，按下回车键再抬起，则输出结果为：（ d ）a. 回车b. 抬起c. 抬起回车d. 回车抬起15.在窗体上画一个列表框，当双击列表框1中某个项目时，把它添加