为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

计算机水平考试笔试试卷及答案

2011-06-08 12页 doc 90KB 54阅读

用户头像

is_590451

暂无简介

举报
计算机水平考试笔试试卷及答案计算机水平考试试卷、 安徽省计算机水平考试试卷(2009年6月份) 一、单项选择题(每题1分,共40分) 在计算机领域中,MIPS通常用来描述计算机的( A ) A)运算速度 B)内存容量 C)分辨率 D)主频 2、下面属于计算机输出设备的是( A ) A)显示器 B)鼠标 C)键盘 D)扫描仪 3、微型计算机在工作中突然断电,则( B )中的信息全部丢失。 A)硬盘 B)RAM C)ROM D)光盘 4、若X是二进制1011,Y是十进制13,Z是十六进制1D,则X、Y、Z从大到小的顺序是( A )。(X、Y、Z都是无符号数)...
计算机水平考试笔试试卷及答案
计算机水平考试试卷、 安徽省计算机水平考试试卷(2009年6月份) 一、单项选择题(每题1分,共40分) 在计算机领域中,MIPS通常用来描述计算机的( A ) A)运算速度 B)内存容量 C)分辨率 D)主频 2、下面属于计算机输出设备的是( A ) A)显示器 B)鼠标 C)键盘 D)扫描仪 3、微型计算机在工作中突然断电,则( B )中的信息全部丢失。 A)硬盘 B)RAM C)ROM D)光盘 4、若X是二进制1011,Y是十进制13,Z是十六进制1D,则X、Y、Z从大到小的顺序是( A )。(X、Y、Z都是无符号数) A)Z YX B)Y Z X C)XYZ D)ZXY 5、在Windows中,下面关于删除文件的描述错误的是( C )。 A)U盘上的文件删除后,不能从回收站中还原 B)可以不经过回收站直接将文件删除 C)可以将文件先复制到回收站,需要时再将其从回收站还原 D)利用“清空回收站”选项可以把回收站中的文件全部删除 6、下面关于E-mail功能的描述中,错误的是( D ) A)在发电子邮件时,可以同时发送给多人 B)在发电子邮件时,可以发送附件 C)在接收电子邮件时,可以将附件下载到本地计算机上 D)在接收电子邮件时,必须将附件下载到本地计算机上 7、为减少多媒体数据所占存储空间,常采用( D )技术。 A)高速缓冲 B)数据压缩 C)多通道 D)流媒体 8、http://www.ahedu.gov,cn中的“http”指的是( C )。 A)计算机主机域名 B)文件传输协议 C)超文本传输协议 D)TCP/IP协议 9、下面关于计算机病毒的描述中,正确的是( D )。 A)计算机病毒不能感染安装了杀毒软件的计算机系统 B)计算机病毒只能通过网络传播 C)计算机病毒不能感染加密或压缩后的文件 D)计算机病毒可以通过U盘进行传播 10、下面系统软件中,最核心的是 ( C ) A)编译系统 B)语言处理系统 C)操作系统 D)数据库管理系统 11、在Visual Basic 6.0的设计模式下,双击窗体上的某个控件,打开的窗口是( B ) A)工程资源管理窗口 B)代码窗口 C)属性窗口 D)工具箱窗口 12、以下叙述错误的是( C ) A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件 B)程序运行时,双击一个窗体,则触发该窗体的Dblclcik事件 C)Visual Basic应用程序只能以解释方式执行 D)事件可以由用户触发,也可以由系统触发 13、以下不属于Visual Basic6.0系统的文件类型是( C ) A).Frm B).Bas C).Cpp D).Vbp 14、在Visual Basic 6.0中编写代码,如果要强制显示声明变量,可在窗体模块或标准模块的声明中加入语句( A ) A)Option Explicit B)Option Compare C)Option Base 0 D)Option Base 1 15、下列选项中( B )不是Visual Basic常量 A“Good Luck” B)PI C)1.5E-03 D)16.3412 16、以下声明语句中错误的是( B ) A)Const varl=123 B)Dim varl=”abc” C)Public varl As Integer D)Static varl As Integer 17、骰子是一个正六面体,分别用1~6代其六个面,掷一次骰子出现的数可表示为( A ) A)Int(Rnd*6+1) B) Int(Rnd*6) C) Int(Rnd*7) D) Int(Rnd(6)+1) 18、声明变量n为整型 ,执行语句n=4.5后,( A )。 A)n的值为4 B) n的值为5 C) n的值为4.5 D) 出错 19、表达式4+5\6*7/8的值是( B ) A) 4 B) 5 C) 6 D) 7 20、MsgBox()函数返回值的类型是( D ) A) 日期型 B) 字符型 C) 逻辑型 D) 整型 21、阅读下面的程序段: x=Input(“请输入第一个数:”) y= Input(“请输入第二个数:”) Print x+y 当输入22和33时,程序输出为( D ) A) 22 B) 33 C) 55 D) 2233 22、假设A= “Good Morning.”,B=”Afternoon,Boys.”,下列( A )表达式的结果是”Good Boys.” A)Left(A,5)+Right(B,5) B)Right (A,5)+ Left (B,5) C)Mid (A,1,5)+Right(B,1,6) D) Right (A,5)+ Right(B,5) 23.能正确执行的语句是( C ) A)x=Sin45° B)x=Sin(45°) C)x=Sin(45*3.14/180) D) x=Sin(45°/180) 24、下列正确的赋值语句是( B ). A)i+j=10 B)i=0 : j=0 C)i=0; j=0 D)i=0, j=0 25、设a=6,b=-1,c=8;执行语句Print a>b>c后,窗体上显示的结果是( C ) A)1 B) True C)False D) 出错 26、可以强行中断程序运行的操作时( D ) A) 按Ctrl+C键 B) 按Ctrl+Z键 C) 按Ctrl+V键 D) 按Ctrl+Break键 27、当用户单击滚动条的空白处时,滑块移动的增量由其( B )属性决定 A)SmallChange B) LargeChange C)Min D) Max 28、以下叙述中正确的是( A ). A)窗体的Name属性指定窗体的名称,用来标识一个窗体 B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C)可以在运行期间改变对象的Name属性值 D) 对象的Name属性值可以为空 29、以下能够触发文本框Change事件的操作是( D ) A)文本框失去焦点 B) 文本框获得焦点 C) 设置文本框的前景色 D) 改变文本框的 30、要在命令按钮上显示图片,应设置其( C )属性和Picture属性 A)Caption B) Name C)Style D) Appearance 31、时钟控件只有一个( C )事件 A)Click  B) Interval C)Timer D) Time 32、移除列表框Listl的第3项,应使用( A )语句 A)Listl.RemoveItem 2 B) Listl.RemoveItem 3 C) Listl.RemoveItem “张三”,2 D) Listl.RemoveItem “张三”,3 33、设置图像框Image1的( D )属性,可以自动调整装入图形的大小以适应图像框的尺寸。 A)AutoSize B) Appearance C)Align D) Stretch 34、下列对象中不能获得焦点的是( B )。 A)命令按钮控件 B) 标签控件 C)文本框控件 D) 单选按钮控件 35、控件数组的元素是通过( C )属性来区分的。 A)Name B) TabIndex C)Index D) Enabled 36、下列叙述中错误的是( A )。 A)Sub过程能通过其过程名返回值 B)Dim可以用于声明模块级变量或过程级变量 C)静态变量时一种过程级变量,当所在的过程执行结束时,其值依然存在 D) Public定义变量时,只能出现在通用声明段 37、下列叙述中正确的是( B )。 A)一个Sub过程至少要有一个Exit Sub语句 B) 一个Sub过程必须有一个End Sub语句 C)可以在Sub过程中定义一个Function过程,但不能定义Sub过程 D)可以在Function过程中定义一个Sub过程,但不能定义Function过程 38、设菜单项名称为MenuIt,为了在运行时使该菜单项失效(变灰),应使用的语句为( B )。 A)MenuIt.Enabled=True B) MenuIt.Enabled=False C) MenuIt.Visible=True D) MenuIt.Visible= False 39、关于语句Open"D:\Text.txt"For Output As #1,以下叙述中错误的是( C )。 A)若D盘根目录下无Text.txt文件,则该语句创建此文件 B)该语句用文件号1打开D盘根目录下的文件Text.txt C)该语句打开磁盘D已经存在的Text.txt,之后就可以从文件中读取信息 D) 执行该语句后,就可以通过Print语句或Write语句向Text.txt中写入信息 40、以下能判断文件指针是否到达文件尾的函数是( D )。 A)BOF B) LOC C)LOF D) EOF 二、填空题(每空2分,共20分) 1、数学表达式 的Visual Basic 6.0表达式为 a/(b+c/(d+sqr(e))) 。 2、表达式100+25 Mod 10 \ 4+Int(3.14)的值是 104 。 3、已知Fibonacci数列定义如下:f(1)=1,f(2)=1,f(n)=f(n-1)+f(n-2),n>2。下列程序的功能是计算并输出此数列前20个数冰求和,且每行输出5个数,试填空完成以下程序。 Option Explicit Private Sub Form_Click() Dim f(20) As Integer Dim n As Integer, s As Integer f(1)=1: f(2)=1: s=2 Print f(1);f(2); For n=3 To 20 f(n)= f(n-1)+f(n-2) S= s+f(n) ′求和 Print f(n); If n Mod 5 =0 Then Print ′打印5个数后换行 Next n Print “s=” ;s End Sub 4、随机产生10个1~999(包含1和999)之间的整数,找出其最大值、最小值和平均值,试填空完成以下程序。 Option Explicit Private Sub Form_Click() Cls Dim a(1 To 10) As Integer , s As Single Dim m_max As Integer, m_min As Integer, I As Integer Randomize For i= 1 To 10 a(i) = Int(Rnd * 999 _+1) ′产生随机数并存入数组a Print a(i) ′打印数组元素 Next i m_max = 0: m_min = 1000 For i = 1 To 10 If a(i) > m_max Then m_max = a(i) ′找最大的数 If a(i)< m_min Then m_min=a(i) ′找最小的数 s=s+a(i) ′10个数相加 Next i Print “最大数是:”;m_max ′输出最大数 Print “最小数是:”;m_min ′输出最小数 Print “平均值是:”;s / 10 ′输出平均数 End Sub 5、用一元纸币兑换一分、二分和五分的硬币;要求兑换的硬币的总数为50枚。试填空完成以下程序,列出所有可能的兑换。 提示:采用穷举法。一元等于100分,考虑5分最多20枚,2分最多50枚,余下是1分硬币。 Private Sub Form_Click() Dim i As Integer , j As Single , k As Single For i = 0 To 20 ′i表示5分硬币数量 For j = 0 To 50 ′j表示2分硬币数量 k=100-5*i- 2*j ′j表示1分硬币数量 If i+j+k= 50 Then Print i, j ,k End If Next j Next i End Sub 6、试填空完成以下程序,使其能够计算1+1/1!+1/2!+1/3!+…+1/N!+ …,直到最后一项小于10-5为止。 Function fact(m As Integer) As Long ′该函数的功能是计算m的阶乘 Dim x As Single , i As Integer x=1 For i =1 To m x= x*i ′求乘积 Next i Fact= x End Function Private Sub Form_Click() Dim e As Single, t As Single, n As Integer e=1 n=1 Do t= 1/fac(n) ′调用函数fact计算数列的单项值 e=e+t n=n+1 Loop Until t<0.00001 Print e End Sub 三、阅读程序题(每小题4分,共20分) 1、执行下列程序后,输出结果是 x= 182 n= 3 。 Private Sub Form_Click() Dim X As Integer, n As Integer X = 0: n = 0 Do While X < 50 X = (X + 1) * (X + 2) n = n + 1 Loop Print "X="; X, "n="; n End Sub 2、执行下列程序后,输出结果是 s=2468 。 Private Sub Form_Click() Dim a, s As Integer Dim i As Integer, j As Integer a = Array(2, 4, 6, 8) j = 1: s = 0 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print "s="; s End Sub 3、执行下列程序后,输出结果是 5 。 Private Sub Form_Click() Dim M(10) As Integer Dim k As Integer, x As Integer For k = 1 To 10 '给数组M赋值 M(k) = 11 - k Next k x = 8 Print M(3 + M(x)) End Sub 4、执行下列程序后,输出结果是 s=64 。 Private Sub Form_Click() Dim a(1 To 10) As Integer, b(4) As Integer Dim i As Integer, s As Integer s = 4 For i = 1 To 10 a(i) = i Next i For i = 1 To 4 b(i) = a(i + i) Next i For i = 1 To 4 s = s + b(i) * a(i) Next i Print "s="; s End Sub 5、执行下列程序后,单击命令按钮后的输出结果是 m= 8 n= 10 m= 32 n= 10 Private Sub Command1_Click() Dim m As Integer, n As Integer m = 4: n = 10 Call proc(m, n) Print "m="; m, "n="; n Call proc(m, n) Print "m="; m, "n="; n End Sub Private Sub proc(a As Integer, ByVal b As Integer) Static c As Integer c = c + 2 '定义c为静态变量 a = a * c b = b * c End Sub 四、编程题(共20分) 1.编程计算以下分段函数的值,自变量x的值由InputBox函数输入。(6分) VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4920 ClientLeft = 60 ClientTop = 450 ClientWidth = 6795 LinkTopic = "Form1" ScaleHeight = 4920 ScaleWidth = 6795 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 615 Left = 2640 TabIndex = 0 Top = 3000 Width = 1335 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim x, y x = Val(InputBox("请输入X的值")) If 1 <= x And x < 2 Then y = 3 * x - 5 ElseIf 2 <= x And x < 4 Then y = 2 * Cos(x) + 1 Else y = x ^ 2 - 4 * x + 5 End If Print x, y End Sub 设计一个程序,找出100~900范围内所有能同时被7和8整除的自然数并在列表框List1中显示。(7分) VERSION 5.00 Begin VB.Form Form2 Caption = "Form2" ClientHeight = 4875 ClientLeft = 60 ClientTop = 450 ClientWidth = 7140 LinkTopic = "Form2" ScaleHeight = 4875 ScaleWidth = 7140 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = " 统计" Height = 615 Left = 4560 TabIndex = 2 Top = 2640 Width = 855 End Begin VB.ListBox List1 Height = 2580 ItemData = "编程题2.frx":0000 Left = 1440 List = "编程题2.frx":0002 TabIndex = 0 Top = 1080 Width = 1215 End Begin VB.Label Label1 Caption = "统计100~900范围内所有能同时被7和8整除的自然数" Height = 255 Left = 600 TabIndex = 1 Top = 600 Width = 6015 End End Attribute VB_Name = "Form2" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() List1.Clear '将List1中原始内容清理干净 Dim i As Integer For i = 100 To 900 If i Mod 7 = 0 And i Mod 8 = 0 Then List1.AddItem i Next i End Sub 3.如下图所示,在文本框Text1中输入一个1900年以后的年份,判断并用消息框输出该年份所对应的生肖。已知1900年对应的生肖是鼠;12生肖的顺序是:鼠牛虎兔,龙蛇马羊,猴鸡狗猪。(7分) 提示:用Array函数把12生肖字符存入一个数组中。将输入的年份与1900的差值与12求余,按余数读取数组对应的元素,便可求得对应的生肖。 VERSION 5.00 Begin VB.Form Form3 Caption = "Form3" ClientHeight = 4995 ClientLeft = 60 ClientTop = 450 ClientWidth = 7485 BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form3" ScaleHeight = 4995 ScaleWidth = 7485 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "确定" Height = 615 Left = 3840 TabIndex = 2 Top = 3000 Width = 2295 End Begin VB.TextBox Text1 Height = 615 Left = 3480 TabIndex = 1 Top = 1200 Width = 2535 End Begin VB.Label Label1 AutoSize = -1 'True Caption = "请输入您的出生年份:" Height = 285 Left = 480 TabIndex = 0 Top = 1320 Width = 2850 End End Attribute VB_Name = "Form3" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Dim shxiao, n As Integer, s As String shenxiao = Array("鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪") n = Text1.Text s = shenxiao((n - 1900) Mod 12) MsgBox "您是" & Text1.Text & "年出生的,您的生肖是:" & s End Sub
/
本文档为【计算机水平考试笔试试卷及答案】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
热门搜索

历史搜索

    清空历史搜索