江苏计算机等级考试秋VB考试真题Word文档下载推荐.docx

1、 B.平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚筒式扫描仪 C.常见的宽屏液晶显示器的宽度与高度之比为16:9（或16:10） D.目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据 10.在下列有关计算机软件的叙述中,错误的是10 。 A.程序设计语言处理系统和数据库管理系统被归类为系统软件 B.共享软件是一种具有版权的软件,它允许用户买前免费试用 C.机器语言和汇编语言与特定的计算机类型有关,取决于CPU D.目前PC机只能使用Windows系列操作系统,均不能使用UNIX和Linux操作系统 11.在下列常用的PC机软件中,编辑的文档（内容）能直接保存为图片类型（例如JPE

2、G文件类型）的是11 。 A.Microsoft Word B.Microsoft Excel C.Microsoft PowerPoint D.Microsoft FrontPage 12.在下列关于以太网（局域网）的叙述中,错误的是12。 A.在共享式以太网中,任何时间只允许一对计算机进行通信 B.在交换式以太网中,每台计算机均独享相同的带宽,其带宽仅由交换机决定 c.无论是共享式以太网还是交换式以太网,网络中的所有计算机都要安装以太网网卡 D.无论是共享式以太网还是交换式以太网,它们的数据帧和MAC地址格式均相同 13.连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是

3、13 。 A.211.256.49.68 B.21.18.33.48 C.120.34.0.18 D.37.251.68.0 14.为了将异构的计算机网络互相连接起来,必须使用的网络设备是14 。 A.调制解调器 B.以太网集线器 c.以太网交换机 D.路由器 15.下列网络协议中,与发送电子邮件有关的是15 。 A.Http B.FTP C.SMTP D.TELNET 16.在下列有关字符集及其编码的叙述中,错误的是16 。 A.基本的ASCII字符集共有128个字符,每个字符使用7个二进位进行编码 B.GB2312字符集中收录了6千多个汉字,每个字符在机内通常使用双字节编码 C.GBK字符

4、集中的字符也采用双字节编码,且该字符集收录了部分繁体汉字 D.GB18030字符集中所有的字符均采用4字节编码,因此该字符集的代码空间很大 17.目前数码相机拍摄的照片在保存时通常采用的文件类型是17 。 A.BMP B.GIF C.JPEG D.TIF 18.MP3是数字波形声音的一种压缩编码文件格式,它采用的压缩编码标准属于18 。 A.MPEG-1 B.MPEG-2 C.MPEG-4 D.Dolbv AC-3 19.使用Macromedia公司的Flash软件制作的动画是一种矢量图形,在保存为动画文件 时其文件扩展名通常为19 。 A.GIF B.SWF C.AVI D.MPG 。 20

5、.在计算机应用中,CAD和CAM是典型的信息系统。它们属于20 。 A.管理业务系统 B.辅助技术系统 c.信息检索系统 D.信息分析系统 第二部分:vb程序设计 21.要将焦点设置在某个控件上,以下四个选项中正确的是_ A.只能使用鼠标直接点击该控件 B.只能使用Tab键将焦点移到该控件 C.只能在程序中调用该控件的setfocus方法 D.A、B、C三选项中涉及的方法均可用 22.在下列属性中,属于CommandButton控件、ListBox控件共有的是22。 A.Caption、Text B.Visible、Font C.Caption、Visible D.List、Visible 2

6、3.数学表达式 对应的visual Basic表达式是 23 。 A.Sin（30*3.14159/180）+Sqr（Log（x）+y）/2*3.14159+Exp（x+y） B.（Sin（30* /180）+sqr（Ln（x）+y）/（2* +Exp（x+y） C.Sin（30*180/3.14159）+Sqr（Log（x）+y）/（2*3.14159+e（x+y） D.（Sin（30*3.14159/180）+Sqr（Log（x）+Y）/（2*3.14159+Exp（x+y） 24.下列的关系表达式中,运算结果为True的是24。 A.CInt（1.5）=Int（1.5） B.Fix（1.

7、5）=Int（1.5） C.Fix（-1.5）=CInt（-1.5） D.Fix（-1.5）=Int（-1.5） 25.下列有关数组的叙述中,不正确的是25 。 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 数组作为形式参数时,传递的是每个数组元素的值 在窗体模块的通用声明处可以用Public说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A. B. c. D. 26.以下关于文件的叙述中,错误的是26 。 A•用Output模式打开一个顺序文件,即使不对它进行写操作,原来的内容也被清除 B.可以用Print#语句或Write#

8、语句将数据写到顺序文件中 C&若以Output、Append、Random、Binary方式打开一个不存在的文件,系统会出错 D.顺序文件或随机文件都可以用二进制访问模式打开 27.下列有关控件数组的说法中,错误的是27 。控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组 B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程 D.控件数组中每个元素的下标由控件的Index属性指定 28.以下Case语句中,能正确描述Y的绝对值大于6的是28。 A.Case Abs（Y）6 B.Case -6 To 6 C.Case No

9、t （-6 To 6） D.Case Is6 29&若在模块中用Private Function Fun（A As Single,B As Integer）As Integer定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是29。 A.Fun 3.14,J B.Call Fun（I,365） C.Fun （I）,（J） D.K=Fun（24”,”35”） 30&若需要在同一窗体内安排两组相互独立的单选按钮（OptionButt.Dn）,可使用30控件做容器将它们分开。 TextBox PictureBox Image

10、Frame &A.或 B.或 c.或 D.或 二、填空题（请将答案填写在答题纸的相应答题号内,每个答案只占一行） 1.执行下面程序,单击Commandl,则数组元素a（1,2）的数值是 （ 1 ）,a（2,3）的数值 是（2）,a（4,3）的数值是（3）。 Option Explicit Private Sub Commandl_Click（） Dim a（4,4）As Integer,i As Integer Dim j As Integer,k As Integer,n As Integer n=6：k=2 Do For i=1 To 4 For j=1 To 4 If i+j=k The

11、n a（i,j）=n n=n-1 End If Next j Next i k=k+1 Loop Until k8 print Right（“ “ & a（i,j）,3）; Print End Sub 2.执行下面程序,单击Commandl,窗体上显示的第一行是（ 4 ） ,第三行是（ 5 ） , 最后一行是（6） 。 . Dim i As Integer,s As Integer For i=1 To 9 Step 3 . s=fun（i）+fun（i） Print s . Next i Private Function fun（m As Integer）As Integer Static

12、a As Integer If m Mod 2=0 then a=a+1 & m=m+1 Else a=a+2 m=m+2 fun=a+m Print fun End Function 3.运行下面的程序,单击Commandl,窗体上显示的第一行是 （ 7 ） ,第二行（ 8 ） ,最后一行是（ 9 ） 。 Dim a As Integer Dim b As Integer a=1 b=2 Print fun（a+2）,fun（2*a,b） Print a;b Private Function fun（x As Integer,ByVal y As Integer）As Integer x=x

13、+2 y=x-y+3 fun=x+y Print x ;y ;fun End Function 4.执行下面的程序,单击Commandl,窗体上显示的第二行是 （10） ,第三行（11） ,第四行是（12） 。 Private Sub Command1_Click（） Dim N As Integer,K As Integer N=36 : K=5 Print Trans（N,K） Private Function Trans（N As Integer,K As Integer）As String Dim R As Integer If N0 Then R=N Mod K If R0 Then

14、 a=Right（sp & a,Len（b） For i=1 To Len（b） If Mid（a,i,1）=Mid（b,i,1）Then Mid（a,i,1）=”0” Mid（a,i,1）=”1” End Sub .6.下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、前若干项的和,项数由文本框输入。试完善程序使其达到功能要求。 Private Sub Calculate_Click（） Dim n As Integer,al As Integer,a2 As Integer Dim i As Integer,t As Single,S As Single n=V

15、al（Textl.Text） al=1 . a2=2 For i=1 To n （ 16 ） s=s+t a2=al+a2 （ 17 ） Text2=S 7.下面程序的功能是：从一组以16进制数形式表示的若干个字节数据中,找出其中的汉 字代码（若相邻的两个字节中,每个字节的最高一位的数值都大于或等于8,则这两个字节为 一个汉字的代码）。 Dim st（）As String,P As String,k As Integer Dim n As Integer,i As Integer P=Trim（Textl） n=InStr（P,” ”） If （18） Then ReDim Preserve

16、st（k） st（k）=Left（p,n-1） p=Right（p,Len（p）-n） ReDim Preserve st（k+1） （ 19 ） Loop Until n=0 For i=1 To UBound（st）-1 If chinese（st（i）,st（i+1） Then Listl.AddItem st（i） & ”,” & st（i+1） （ 20 ） Private Function chinese（p As String,q As String）As Boolean Dim st As String,k As Integer,n As Integer Dim i As In

17、teger st=”0123456789ABCDEF” For i=1 To Len（st） If Left（p,1）=Mid（st,i,1） Then k=i-1 （21） If k=8 And n=8 Then chinese=True End Functinn 8.本程序的功能是求出nm之间所有的可分解整数。所谓可分解整数是指具有以 下性质的数,它的各位数字之和等于其所有质因子各位数字之和（注意：素数不是可分 解整数）。例如整数121,各位数字之和是4,其质因子是11、11,质因子的各位数字之和 也是4（1+1+1+1=4）,所以121是可分解整数。 .Private Sub Comma

18、ndl_Click（） Dim n As Integer,m As Integer,k As Integer n=Textl nl=Text2 For k=n To m If sum1（k）=sum2（k）Then Listl.AddItem k Next k Private Function suml（ 22 ） As Integer 求一个数的各位数字之和 suml= （23） n=n10 Private Function sum2（ByVal n As Integer） As Integer 求质因子及其各位数字之和 Dim k As Integer,an As Integer （24）

19、 nn=n If n Mod k=0 Then sum2=sum2+suml（k） n=nk （25）nn/2 End FunCtion 9.下面程序的功能是：将a、b两个数组的数据按从大到小的顺序合并到数组c中。a,b两个数组的数据分别从文本框A和文本框B输入,数据以空格分隔。合并结果在文本框C中输出。 Option Base 1 Dim a（）As Integer,b（）As Integer,c（）As Integer Dim i As Integer,st As String st=Trim（Textl） Call load_a（st,a） st=Trim（Text2） Call loa

20、d_a（st,b） ReDim c（1） （26） for i=2 To UBound（a） Call change（a（i）,c） For i=1 To UBound（b） Call change（b（i）,c） For i=1 To UBound（C） Text3=Text3 & Str（c（i） Private Sub load_a（s As String,a（）As Integer） 将文本框中数据存入数组 Dim i As Integer,k As Integer,P As String,q As String*1 For i=1 To Len（s） q=Mid（s,i,1） If

21、q=”0” And q=”9” Or q=”-” Then （27） Else If p” Then ReDim Preserve a（k） a（k）=Val（p） （28） If p ReDim Preserve a（k+1） a（k+1）=P Private Sub change（n As Integer,c（）As Integer） 插入排序 Dim i As Integer,j As Integer ReDim Preserve C（UBound（c）+1） For i=1 To UBound（c）-1c（i）Then For j=UBound（c） to i+1 Step -1 c（

22、j）=c（j-1） （29） （30） 参考答案 一、选择题 1.A 2.D 3.A 4.B 5.D 6.C 7.B 8.B 9.B 10.D 11.C 12.B 13.A 14.D 15.C 16.D 17.C 18.A 19.B 20.B 21.D 22.B 23.D 24.B 25.A 26.C 27.B 28.D 29.B 30.C 二、填空题 （1）15 （2）9 （3）2 （4）5 （5）12 （6）25 （7）4 5 9 （8）5 -1 4 （9）1 2 （10）7 （11）36 （12）121 （13）101101 （14）001110 （15）011011 （16）t=al/a2 （17）al=a2-al （18）n2或Len（p）2 （19）st（k+1）=P （20）i=i+1 （21）If Left（q,1）=Mid（st,i,1）Then n=i-1 （22）ByVal n As Integer （23）suml+n Mod 10 （24）k=2 （25）k=k+1 （26）c（1）=a（1） （27）p=p & Mid（s,i,1） （28）P=” （29）Exit For （30）c（i）=n