2022年2022年visualbasic复习试卷

1、精选学习资料 - - - 欢迎下载试 卷 一 一. 填空题21. 在 vb 中可以作为容器的为；a.form .textbox . pictureboxb.form .picturebox.framec.form .textbox .labeld.picturebox.textbox .listbox22. vb 中除窗体能显示图片外,下面列出的控件中可以显示图片的控件有；1. picturebox 2.image 3.textbox 4.commandbutton 5.optionbutton 6.labela.1 .2.3.4.b.1 .2.5.6.c.1 . 2.4.5d.1 .2.4.

2、6.23. 针对语句if i=1 then j=1,以下说法正确选项；a. i=1和 j=1 均为赋值语句b. i=1和 j=1 均为关系表达式c. i=1为关系表达式,j=1 为赋值语句d. i=1为赋值语句,j=1 为关系表达式24. 在某过程中已说明变量a 为 integer类型.变量 s 为 string类型,过程中的以下四组语句中,不能正常执行的为；a.s=2*a+1b.s="237"&".11":a=sc.s=2*a>3d.a=2:s=16400*a25. 下面所列四组数据中,全部为正确的vb 常数为；a.32768、1.34d

3、2、"abcde"、&o1767 b.3276、123.56、1.2e-2、#true# c.&habce、02-03-2002、false、d-3 d.abcde、#02-02-2002#、e-226. 下面有关数组处理的表达中,不正确选项；精品学习资料精选学习资料 - - - 欢迎下载1.在过程中用redim语句定义的动态数组,其下标的上下界可为赋了值的变量；2.在过程中,可以使用dim.private和 static语句定义数组；3.用 redim语句重新定义动态数组时,不得转变该数组的数据类型；4.可用 public语句在窗体模块的通用说明处定义一个

4、全局数组；a.1 .2.3.4.b.1 .3.4.c.1 .2.3.d.2 .4.27. 第一次显示某窗体时,将引发一系列大事,正确的大事为；a.load - initialize - activateb.initialize - load - activatec.load - activate-initialized.initialize- activate- load28. 定义两个过程private sub1st as string和 private sub2ch as string*6,在调用过程中用dim s3 as string*6、a3 as string定义了两个字符串数组；下

5、面调用语句中正确的有；1.callsub1s2 .callsuba3 .callsub2a4 .callsub2sa.1 .2b.1 .3c.2 .3d.2 .4精品学习资料精选学习资料 - - - 欢迎下载29. 运行下面程序,单击命令按钮command1就、立刻窗口上显示的结果为；精品学习资料精选学习资料 - - - 欢迎下载private sub command1_clickdim a as integer、b as boolean、c as integer、d as integer a=20/3:b=true:c=b:d=a+cdebug. print a、 d、a=a + cend

6、suba. 76falseb. 6.65.6falsec. 76a=6d. 78a=830. 以下控件中,不能作为数据绑定控件的为；a. label标签 b. textbox文本框 c. optionbutton单项按钮 d.listbox列表框 二.填空题（请将答案填写在答题纸的相应答题号内,每个答案只占一行）精品学习资料精选学习资料 - - - 欢迎下载1.正确表示命题“a 为一个带小数的正数,且b 为一个带小数的负数”的规律表达式为；2.运行下面的程序,当单击窗体时,文本框text1 中的内容为,文本框text2 中的内容为；private sub form_clickdim st as

7、 stringdim st1 as string、 st2 as string st = "asfrsdcfrskx"call change_stringst、 st1、 st2 text1.text = st1text2.text = st2 end subprivate sub change_strings as string、 st1 as string、 st2 as string dim tem as string、 i as integerfor i = 1 to lens tem = mids、 i、 1iftem = "s" then s

8、t1 = st1st2 = st2 & "at"elseif tem = "r" then st1 = st1 & "t"exit forelsest1 = st1 & tem st2 = st2 & tem精品学习资料精选学习资料 - - - 欢迎下载end ifnext i end sub3.执行下面程序,单击命令按钮command1,就在窗体上显示的第一行为,其次行为,第三行为；private sub command1_click dim s_data as integer、 d_data as

9、string、 k as integer、 p as string s_data = 29do until s_data <= 5 p = s_data mod 5 d_data = d_data & p s_data = s_data 5loopd_data = d_data & s_data print s_dataprint d_data p = ""for k = lend_data to 1 step -1 p = p & midd_data、 k、 1next kprint p end sub4.执行下面程序, 从键盘输入3,程序运

10、行终止后, a 1、 1 的值为,a 2、 2的值为；a 2、 3 的值为；private sub form_click精品学习资料精选学习资料 - - - 欢迎下载dim i as integer、 j as integer、 k as integer dim a as integer、 n as integern = inputbox" 输 入 n"redim an、 nfor i = 1 to n for j = 1 to nk = k + 1ai、 j = k + 10next j next icall sub1a、 n end subprivate sub sub

11、1a as integer、 n as integerdim i as integer、 j as integer dim t as integer、 k as integer k = n + 1for i = 1 to intn / 2 for j = i to n - it = ai、 jai、 j = ak - j、 iak - j、 i = ak - i、 k - jak i、 n + 1 - j = aj、 k - i aj、 k - i = tnext j精品学习资料精选学习资料 - - - 欢迎下载next i end sub5.执行下面程序, 单击命令按钮command1,就在

12、窗体上第一行显示为, 其次行显示为,第三行显示为；private sub command1_click output_count 4output_count 8output_count 4 end subprivate sub output_countupperlimit as integer static lowerlimit as integerdo while lowerlimit < upperlimit print lowerlimit;lowerlimit = lowerlimit + 1 loopprint lowerlimit end sub6.运行下面程序,单击命令按钮

13、command1 ,就在窗体上显示的第一行内容为,其次行内容为,文本框text1 中显示的内容为；private sub command1_click dim s as strings = "lausiv"text1.text = displays、 lens end subprivate function displays as string、 l as integer as string精品学习资料精选学习资料 - - - 欢迎下载if l > 1 then display = displays、 l - 1s = lefts、 l - 1 & right

14、s、 1 & mids、 l、 lens - l display = sprint display end function7.由键盘输入一个正整数,找出大于或等于该数的第一个素数；private sub form_clickdim p as integer 、 x as integer、 flag as boolean flag = falsex = inputbox" 请输入一个正整数"do while not flag p = 2:flag=do while flag and p <= x / 2if x mod p = 0 then flag = fa

15、lseelseend if loopif not flag then loopprint x end sub8.下面的程序可从一个由字母与数字相混的字符串中选出数字串,并把数字串构成的数写入一精品学习资料精选学习资料 - - - 欢迎下载个名为 list1 的列表框中（图1 为程序执行的画面） ；option explicitprivate sub cmd1_clickdim s as string、 k as integer、 cas string dim p as string、 i as integers = text1.textfor i = 1 to lensif mids、 i、

16、1 >= "0" and mids、 i、 1 <= "9" then p=elseif mids、 i + 1、 1 >= "0" and mids、 i + 1、 1 <= "9" and i <> 1 then if p <> "" thenck = p k = k + 1end if精品学习资料精选学习资料 - - - 欢迎下载end ifnext iredim preserve ck ck = pfor i = 1 to knext i

17、end sub9.给定一个十进制正整数,找出小于它并与其互质的全部正整数（所谓互质数为指最大公约数为 1 的两个正整数,图2 为程序执行画面） ；option explicitprivate function gcd as integer dim r as integerr = m mod nif r = 0 then gcd = nelsem = n: n = r精品学习资料精选学习资料 - - - 欢迎下载end ifend functionprivate sub command1_clickdim n as integer、 p as integer n = valtext1for p

18、= n - 1 to 2 step -1ifthen list1.additem p next pend sub10. 用 （ m表示数m的全部因子 （包括 1 和 m 在内） 之和； 假如 m<n,且 （ m=（ n=m+n+1,就数对 m、n 为拟互满数； 以下程序的功能为找出40 2000 之间的全部拟互满数,并将运算结 果按图 3 给出的格式显示在文本框text1 中；option explicitprivate sub command1_clickdim n as integer、 i as integer、 j as integerdim flg as boolean、 m

19、as integer for n = 40 to 2000flg = falsecall garcian、 m、 flg if flg thenend if next nend subprivate sub garcian as integer、 m as integer、 bool as boolean dim g1 as integer、 g2 as integer、 k as integerg1 = factornfor k = 4 to n - 1g2 = factork精品学习资料精选学习资料 - - - 欢迎下载ifthenbool = true m =exit forend if

20、next k end subprivate function factorn as integer as long dim i as integerfor i = 1 to nif n mod i = 0 thenend ifnext iend function试卷二一.挑选题1以下不能在 " 工程资源治理器"窗口中列出的文件类型为a bas b res c fnn d ocx2以下关于窗体的描述中,错误选项a 执行 unloadfoml语句后,窗体fonnl 消逝,但仍在内存中b 窗体的 ioad 大事在加载窗体时发生c当窗体的enabled 属性为 false时,通过鼠

21、标和键盘对窗体的操作都被禁止d 窗体的 height .width 属性用于设置窗体的高和宽3以下可作为v2sualbasic 变量名的为aa#a b4a c.xy dconsta4设有如下的记录类型type student numberas stringname as string age as integer end type就正确引用该记录类型变量的代码为a student name=" 张红 " b dim as students name " 张红 "c) dim s as type student d dim s as types name=

22、"张红 " s.dame "张红 "5函数 stringn , "str" 的功能为a 把数值型数据转换为字符串b 返回由 n 个字符组成的字符串c从字符串中取出n 个字符d) 从字符串中第n 个字符的位置开头取子字符串精品学习资料精选学习资料 - - - 欢迎下载6将数学表达式cos2a+b+5e2 写成 visual basic 的表达式,其正确的形式为acosa+ba2 十 5；exp2 bcos2a+b+5*exp2ccosa+b2 十 5*ln2 dcos2a+b+5*ln27在窗体上画一个命令按钮,名称为commandl

23、；单击命令按钮时,执行如下大事过程：prlvate sub commandl-c1ickoa$="software and hardware" b$righta$、8 c$=mida$、1 , 8msgbox a$、b$、c$、1 end sub就在弹出的信息框的标题栏中显示的信息为asoftware and hardware bsoftware chardwafe d18执行如下语句：a inutbox"today" , "tomorrow , "yesterday"、"day before yesterday&

24、quot; , 5将显示一个输入对话框,在对话框的输入区中显示的信息为atoday btomorrow cyesterday dday before yesterday9表示滚动条控件取值范畴最大值的属性为amax blargechange cvalue dmax-min10在窗体上画一个名称为listl 的列表框,一个名称为labell 的标签；列表框中显示如干城市的名称；当单击列表框中的某个城市名时,在标签中显示选中城市的名称；以下能正的确现上述功能的程序为a private sub listl_click bprivate sub listl_c1icklabell caption li

25、st1.listlndex labell nanle listl listindex end sub end sub程序运行后,假如单击命令按钮,就在窗体上显示的内容为a 空白 b 错误提示 c 北京 d 上海15假定有以下函数过程： function funs as string as string dim s1 as stringfor i=1 to lens s1 ucasemids , i, 1 十 s1 next ifun s1 end function在窗体上画一个命令按钮,然后编写如下大事过程：prlvate sub commmldl_clickdim str1 as strin

26、g ,str2 as string strl inputbox" 请输入一个字符串" str2=funstrlprint str2 end sub程序运行后,单击命令按钮,假如在输入对话框中输入字符串"abcdefg" ,就单击 " 确精品学习资料精选学习资料 - - - 欢迎下载定" 按钮后在窗体上的输出结果为aabcdefg babcdefg cgfedcba dgfedcba16设有语句open "c ： test dat" for output as#1就以下错误的表达为a 该语句打开c 盘根目录下一个己存

27、在的文件test datb 该语句在c 盘根目录下建立一个名为test dat 的文件c该语句建立的文件的文件号为1d 执行该语句后,就可以通过print# 语句向文件testdat 中写入信息17以下表达中错误选项a 用 shell 函数可以调用能够在windows 下运行的应用程序b 用 shell 函数可以调用可执行文件,也可以调用visualbasic 的内部函数c调用 shell 函数的格式应为：<变量名 > shelld 用 shell 函数不能执行dos 命令18以下关于过程及过程参数的描述中,错误选项a 过程的参数可以为控件名称b 用数组作为过程的参数时,使用的为&

28、quot;传地址 " 方式 c只有函数过程能够将过程中处理的信息传回到调用的程序中d 窗体可以作为过程的参数19在窗体上画一个名称为txta 的文本框,然后编写如下的大事过程：private sub txta_keypresskeyascii as integerend sub如焦点位于文本框中,就能够触发keypress 大事的操作为a 单击鼠标b双击文本框c鼠标滑过文本框d 按下键盘上的某个键20目录列表框的path 属性的作用为a 显示当前驱动器或指定驱动器上的路径b 显示当前驱动器或指定驱动器上的某目录下的文件名 c显示根目录下的文件名d 只显示当前路径下的文件21假定有如下

29、大事过程：priv ate sub form_mousedownbutton as integer、shift as integer、 x as single, y as singleif button 2 thenpopupmenu popform end ifend sub就以下描述中错误选项a 该过程的功能为弹出一个菜单bpopform 为在菜单编辑器中定义的弹出式菜单的名称c参数 x .y 指明鼠标的当前位置dbutton=2 表示按下的为鼠标左键22以下能够正确运算n. 的程序为二级 visual basic 语言程序设计试卷第5 页 共 15 页精品学习资料精选学习资料 - - -

30、 欢迎下载a) private sub commandl_click n 5:x1dox=x*1 i i 十 1loop while i n print xend subb) private sub commandl_click n 5: x 1： i=1dox x*1 i i 十 1loop while i n print xend subcprivate sub commandl_click n=5： x 1： i 1do x=x*1i i 十 1loop while i<=n print xend subdprivate sub commandl_c1ick n 5： x 1：i=

31、1do x=x*li=i 十 1loop while i n print xend sub23在窗体上画一个名称为commandl 的命令按钮, 再画两个名称分别为labell . label2的标签,然后编写如下程序代码：private x as integer private sub commandl-click x 5： y 3call procx、ylabell caption x label2 caption yend subprivate sub procbyval a as integer ,byval b as hteger x a* ay=b 十 b精品学习资料精选学习资料

32、- - - 欢迎下载end sub程序运行后,单击命令按钮,就两个标签中显示的内容分别为a5 和 3 b25 和 3 c25 和 6 d5 和 624窗体上有两个名称分别为textl .text2 的文本框,一个名称为commandl 的命令按钮；运行后的窗体外观如下列图；设有如下的类型声明type person name as string*8 major as string*20 end type当单击 " 储存 " 按钮时,将两个文本框中的内容写入一个随机文件test29 dat 中；设文本框中的数据已正确地赋值给person 类型的变量p；就能够正确地把数据写入文件

33、的程序段为a0pen"c ： test29 dat" for random as#1 put #1,1, pclose #1bopen "c: test29.dat" for random as #1 get#1, 1, pc10se #1copen "c test29 dat" for random as #1 len lenp put #1,1, pclose #1dopen "c ： test29 dat " for random as #1=lenp get #1, 1, pclose #125在窗体上画一

34、个名称为commondialogl的通用对话框,一个名称为commandl 的命令按钮；要求单击命令按钮时,打开一个储存文件的通用对话框；该窗口的标题为"save",缺省文件名为"savefile" ,在 "文件类型 " 栏中显示 *.txt ；就能够满意上述要求的程序为aprivate sub command_c1ick commondialogl filename="savefile"commondialogl.filter "all files|*.*|*.txt|*.txt|*.doc |*.do

35、c" commondialogl filterindex=2commondialogl dial0g title "save" commondialogl action 2end subbprivate sub commandl-click commondialogl filename "savefile"commondialogl filter "a11 files|*.*|*.txt|*.txt|* doc|* doc" c0mmondialogl filterindex 1commondialogl dialogtit

36、le "save" commondialogl action 2end subcprivate sub cmmandl_c1ick精品学习资料精选学习资料 - - - 欢迎下载commondialogl filename "save"commondialogl filter "a11files|*.*|*.txt|*.txt|*.doc|*.doc" commondialogl filterindex 2c0mmondialogl dialogtitle "savefile" commondialogl actio

37、n 2end subdprivate sub commandl_c1ick commondialogl filename "savefile"commondialogl filter "all files|*.*|*.txt|*.txt|*.doc|*.doc" commondialogl filterindex=1commondialogl dialogtitle="save" commondialogl action 1end sub每空 2 分,共 30 分 (1) isual basic 中有一种控件组合了文本框和列表框的特性

38、,这种控件为 精品学习资料精选学习资料 - - - 欢迎下载(2) visual basic 供应的对数据文件的三种拜访方式为随机拜访方式方式；3执行下面的程序段后,变量s 的值为 ；s5for i 2.6 to 4.9 step 0.6s=s 十 1next i 和二进制拜访精品学习资料精选学习资料 - - - 欢迎下载4为了在运行时把d:pic 文件夹下的图形文件a.jpg 装入图片框picturel ,所使用的语句为 ；5计时器控件能有规律的以肯定时间间隔触发 大事,并执行该大事过程中的程序代码；6以下程序的功能为：生成 20 个 200 到 300 之间的随机整数, 输出其中能被5 整

39、除的数并求出它们的和；请填空；private sub commandl_c1ickfori 1to 20x int *200+100 if 7 0 thenprint xs s 十 83end if next iprint "sum " ： send sub7 设 有 如 下 程 序 private sub form_clickdim a as integer , b as integera 20：b=50 pla, b p2a, b精品学习资料精选学习资料 - - - 欢迎下载p3a、bprint"a " ； a、"b "； b e

40、nd subsub plx as integer , byval y as integerx=x 十 10 v v 十 20end subsub p2byval x as integer、 y as integer x x 十 10y y 十 20 end subsub p3byvalx as integer、 byval y as integer x x 十 10y=y 十 20 end sub该程序运行后,单击窗体,就在窗体上显示的内容为：a 和 b= ；8在窗体上画一个名称为commandl 的命令按钮,编写如下大事过程private sub commandl_c1ickdim as s

41、tring a= 11for i 1 to 5print space6-i ； mid$3a , 6-i , 2*i-1 nextiend sub程序运行后,单击命令按钮,要求窗体上显示的输出结果为456345672345678123456789请填空；9 在窗体上画一个名称为combo1 的组合框,画两个名称分别label1 和 label2 及 caption属性分别为 "城市名称 "和空白的标签；程序运行后,当在组合框中输入一个新项后按回车键 ascii 码为 13时,假如输入的项在组合框的列表中不存在,就自动添加到组合框的列表中,并在label2 中给出提示 &qu

42、ot; 已胜利添加输入项"如下列图；假如存在,就在label2 中给出提示 " 输入项已在组合框中" ；请在 12> .13 和14> 处将程序补充完整；private sub combol <12> keyascii as integer 1f keyascii 13 thenfori 0 to combo1 listcount-11f combo1 text 13 ihen label2 caption " 输入项己在组合框中" exit subend lf next i精品学习资料精选学习资料 - - - 欢迎下载

43、label2 caption " 已胜利添加输入项" combo1 14 combo1 text end lfend sub10设有如下程序private sub searchaas variant , byval key as variant , index% dim i fori lboundato uboundaif key ai then index iexit sub end if next i index -1 end subprivate sub form_load showdtm b as variantdim n as integerb array1 ,

44、3, 5, 7, 9, 11, 13,15 call searchb ,11,nprintt n end sub程序运行后,输出结果为 ；试卷三一.挑选题： 35 题, 2 分/ 题,共 70 分以下各题 a .b .c .d四个选项中,只有一个选项为正确的,请将正确选项涂写在答题卡相应位置上, 答在试卷上不得分；1. 执行以下程序段后、 变量 c 的值为 a="visualbasicprograming" b="quick"c=b&ucasemida、7、6&righta、11 avisualbasicprogramingbquick

45、basic programing cquick basic programing dquick basic programing分析 :2. 不能正确表示条件“两个整型变量a 和 b 之一为 0,但不能同时为0”的布尔表达式为（）aa*b=0anda+b<>0ba=0orb=0anda<>0orb<>0精品学习资料精选学习资料 - - - 欢迎下载c) nota=0andb=0anda=0orb=0 da*b=0anda=0orb=0分析 :3. 下面子过程语句说明合法的为（）afunction flbyval n% bsub fl n%as integer

46、 cfunction fl%fl%dsubflbyvaln%分析 :4. 对窗体编写如下代码： optionbase1privatesubform_keypresskeyasciiasinteger a=array237、126、587、48、498ml=a1 m2=1ifkeyascii=13then fori=2to5ifai>mlthen ml=aim2=i endifnextiendif printml;printm2endsub程序运行后,按回车键,输出结果为（）a484b2371c5873d498分析 :45.visualbasic中没有供应以下（）大事amousedown

47、bmouseup cmousemove dmouseexit分析 :精品学习资料精选学习资料 - - - 欢迎下载6. 执行下面对面的程序后,x 的值为（）x=50foxi=1to20step2 x=x+i5nexti a66 b67 c68 d69分析 :7. 为了防止用户随便将光标置于控件之上,需做的工作为（）a将控件的 enabled 属性设置为falseb将控件的 tabstop 属性设置为falsec将控件的 tabstop 属性设置为trued将控件的 tabindex 属性设置为0分析 :8. 表达式 string2、"shanghai"的值为（）a) shb

48、) shanghaic) shanghaishanghaid) ss分析 :9. 为了在按回车键时执行某个命令按钮的大事过程,需要把该命令按钮的一个属性设置为true、 这个属性为（）a) valueb) defaulc) canceld) enabed分析 :10. isualbasic供应的缺省窗体包含（）a标题栏b菜单栏c工具条d状态栏分析 :11. 假定有一个菜单项,名为menuitem、 为了在运行时该菜单项失效（变灰）,应使用的语句为（）amenuitem.enabled=false bmenuitem.enabled=true精品学习资料精选学习资料 - - - 欢迎下载cmen

49、uitem.visible=true dmenuitem.visible=false 分析 :12. 以下不能打开菜单编辑器的操作为（）a按 ctrl+eb单击工具栏中的“菜单编辑器”按钮c执行“工具”菜单中的“菜单编辑器”命令d 按 shift+alt+m分析 :13. 列表框（如图2-6 所示）经过以下操作后,剩余的项目为（）listl.removeitemllistl.removeitem2listl.removeiteml aaabbb ccc ddd分析 :14. 要临时关闭计时器,应把计时器的某个属性设置为false ,这个属性为（）avisible btimer cenabled

50、 dinterval分析 :15. inputbox函数返回值的类型为（）a数值b字符串c变体d数值或字符串（视输入的数据而定） 分析 :16. 当窗体的 autoredraw 属性采纳默认值时, 如在窗体装入时使用绘图方法绘制图形,就应将程序放在 （）apaint大事bload 大事cinitilize大事dclick大事分析 :精品学习资料精选学习资料 - - - 欢迎下载17. 以下可以打开立刻窗口的操作为（）actrl+d bctrl+e cctrl+f dctrl+g分析 :18. 如为要向工具箱中加入控件和部件,可以利用“工程”的菜单中的（）命令a引用b部件c工程属性d添加窗体分析

51、 :19. 如要清除列表框的全部内容,可用来实现的方法为（）aremoveitem bclsccleard以上均不行以分析 :20. 假定有下面的过程：functionfuncaasinteger、basintegerasinteger staticmasinteger、iasintegerm=0i=2i=i+m+1 m=i+a+b func=mendfunction在窗体上画一个命令按钮,然后编写如下大事过程：private dimkdimpsubas ascommandl_clickinteger、masinteger integerk=4m=1p=funck、m printp; p=fu

52、nck、m printpendsub程序运行后,单击命令按钮,输出结果为（）；精品学习资料精选学习资料 - - - 欢迎下载a817b816c820d88分析 :21. 如何使图象（ image）控件中的图像自动适应控件的大小？（）a将控件的 autosize属性主,设为trueb将控件的 autosize属性设为 falsec将控件的 stretch属性设为 trued将控件的 strech属性设为 false分析 :22. 当对 drawwidth 进行设置后,将影响（）；aline .circle .pset 方法bline .shape 控件cline .circle .point方法dline .circle .pse