计算机专业理论试题(A)
注意事项:
1.本试卷共八道大题。总分240分。
2.第I卷“一、选择题”、第II卷“二、判断题”的答案填涂在机读卡上,其余各题答案写在答题纸上,答在试卷上不得分。用蓝黑钢笔、碳素笔或圆珠笔答题。 3.答题前将密封线内项目填写清楚。
第Ⅰ卷(选择题共100分)
一、选择题(本大题共50小题,每小题2分,共100分。在每小题所给出的四个选项中,只有一个符合题目要求,将正确选项填涂在机读卡上
1.计算机处理数据过程中,是将存储介质上的数据调入到下列哪种硬件中进行数据处理( A )
A.内存 B.硬盘 C.光盘 D.软盘
2.按照电子器件更新划分,大规模集成电路计算机是第几代. .........( D )
A.一 B.二 C.三 D.四
3.关于计算机软件描述错误的是...................................( D )
A.Windows 98是操作系统,属于系统软件
B. Office2003是办公软件,属于应用软件
C.图像处理软件是处理图像工具,属于应用软件
D. DOS是操作系统,属于应用软件
4.二进制数小数0.1B转换成十六进制数的结果是....................( D )
A.0.1 B.0.4 C.0.6 D.0.8
5.下列关于计算机病毒防治叙述错误的是...........................( D )
A.计算机要经常更新杀毒软件病毒库并定期查杀
B.计算机要安装软件防火墙,防止病毒侵入
C.来历不明的邮件文件不要打开,防止邮件中携带病毒
D.计算机鼠标、键盘要定期清洗,防止计算机病毒侵入
6.计算机最早应用于弹道运算属于.................................( A )
A.科学计算 B.辅助技术 C.数据处理 D.人工智能
7.A文件长度为512KB,B文件长度是2MB,B文件长度是A文件多少倍.....( D )
A.8 B.2 C.3 D.4
8.同一台计算机能够安装不同位数的操作系统,通常情况下,数据处理速度最慢的操
作系统是........................................................( D )
A.64位 B.16位 C.8位 D.32位
9.在Windows XP中,当用鼠标左键在不同驱动器之间拖动文件时,系统默认的操作是.....( C )
A.移动 B. 创建快捷方式 C.复制 D.无任何操作
10.在Windows XP中,利用“搜索”窗口查找文件时,不能用于文件查找的选项是( D )
A.文件名 B.文件修改日期 C.文件大小 D.文件读写的权限属性
11.在Windows XP的“控制面板”中不能设置的项目是................. ( D )
A.日期和时间 B.添加或删除程序
C.输入法 D.Outlook电子邮件账户
12.在Word2003编辑状态下,编辑化学反应方程式Fe+2HCl=FeCl2+H2↑,必须使用的
命令是...........................................( B )
A.编辑-查找 B.字体-下标 C.插入-图示 D.格式-段落
13.在Word2003中,哪个命令不会出现在“表格”菜单里............... ..( C )
A.公式 B.排序 C.插入 D.自动套用格式
14.在Word2003文档中,选中“使用通配符”,在“多”与“体”之间只有一个字符,将所有“多”与“体”之间字符都替换为“媒”,最优的方法是.........( A )
A.查找“多?体”,替换成“多媒体”
B.查找“多×体”,替换成“多媒体” C.分别查找中间字符,替换成“媒”
D.查找“多*体”,替换成“多媒体”
15.在Excel2003文档中,对分数进行高级筛选,如果条件是“语文、数学、外语
仅一门不及格”,则下述条件区域表示正确的是....................( D )
A. B.
C. D.
16.打开Excel2003工作簿,在单元格中输入内容 2013-4-1,要在其下面单元格内连续出现“日”的递增,不正确的操作是................................( B )
A.选中内容单元格及要填充的区域,点击编辑菜单,选择填充-序列,选中按日期-日-确定
B.选中内容单元格,按住Ctrl键,然后拖动向下填充句柄进行填充
C.选中内容单元格,直接拖动向下填充句柄进行填充
D.选中内容单元格,在下面填写“2013-4-2”,选中“2013-4-1”、 “2013-4-2” 两个单元格,拖动填充句柄进行填充
17.在Excel2003中,下列哪种操作不能输入条件表达式.................( C )
A.高级筛选 B.自动筛选 C.分类汇总 D.条件格式
18.在Visual Basic中,Print Len("ABab河北")的值是.................(B )
A.4 B. 6 C. 8 D.12
19.在Visual Basic中,当窗体被装载时触发的事件是..................( C )
A.Unload B.Click C.Load D.DblClick
20.Visual Basic中决定对象是否可见的属性是........................( D )
A.Enabled B.See C. Name D.Visible
21. Visual Basic中声明数组 Dim A(1 to 100,-3 to 4),则Ubound(A,2)的值是( D )
A. 1 B. 100 C. -3 D.4
22.关于Visual Basic中控件属性的说法不正确是....................( D )
A.控件都有Name属性 B.有些控件有相同的属性
C.每个控件规定了一个默认属性,在对控件的这个属性进行操作时可不写属性名
D.同一窗体中的同类控件,它们的属性值都一样
23.在Visual Basic中,关于对象的说法正确的是....................( D )
A.程序运行时所有对象的位置不能改变 B.所有对象的大小都是可以改变的
C.对象在程序运行时都是可见的 D.有些对象中还可以包含其它对象
24.在Visual Basic中,语句Print Mid("ABCDEFG", 2, 3) = "123"的输出结果是(A )
A. False B. True C.A123EFG D. 123
25.下面Visual Basic表达式不合法的是.............................( C )
A. "12"+12 B. "ab"+"12" C."ab"+12 D.Now+1
26.在Visual Basic程序运行过程中可以用来输入文本的函数是.. .....( B )
A. Msgbox B. Inputbox C. Rnd D. 文本框
27.执行下面Visual Basic程序,最后输出s的值是 (D )
Dim a As Integer, i As Integer
Dim b As Integer, j As Integer
Dim s As Integer
a = 5
b = 10
s = 0
For i = 1 To a
b = 5
For j = 1 To b
s = s + b
b = b - 1
Next j
Next i
Print s
A. 15 B. 30 C. 45 D. 75
28.在Visual FoxPro中,以下关于关系模型的叙述错误的是...........( B )
A.构成关系模型的二维表中不允许有重复的字段名
B.构成关系模型的二维表中同一列数据可以有不同的数据类型
C.构成关系模型的二维表中不允许有完全相同的记录
D.在关系模型中数据被组织成二维表
29.在Visual FoxPro中,定义菜单标题,设置菜单访问键时,需要在访问键代表字母前加字符....................................................( A )
A. \- B. >\ C. \< D. -\
30.下列关于Visual FoxPro中报表的叙述,正确的是................( D )
A.在报表设计器中每个带区的大小是不可以改变的 B.报表数据源只能是数据库表
C.如果报表需要按照某一字段值的大小顺序输出,则相应的表或视图必须按该关键字段索引
D. 报表的“页标头”带区的内容每条记录打印一次
31.在Visual FoxPro中,以下关于视图的描述中正确的是...........( A )
A. 视图和查询的最大区别在于视图可以对源表中的数据进行更新
B. 视图文件的扩展名为 .pqr C. 视图只能从一个表派生出来
D. 视图不能检查更新的合法性
32.在Visual FoxPro中,项目文件的默认扩展名为.................( B )
A. .SCR B. .PJX C. .MPR D. .MNX
33.在Visual FoxPro中,关于查询的叙述错误的是.................( B )
A. 在查询设计器中的“杂项”选项卡中可以指定是否包含重复记录以及列在前面的记录个数或百分比 B. 查询结果保存在数据库中
C. 在查询去向中,临时表是将查询结果保存在一个临时表中,关闭表时自动清除
D. 查询设计器中,“筛选”选项卡的作用是指定查询记录的条件
34.在Visual FoxPro中,建立索引的INDEX命令的参数中,表示建立唯一索引的是( D )
A.CANDIDATE B. ASCENDING C. DISTINCT D. UNIQUE
35.在Visual FoxPro中,下列表达式中运算结果为“good”的是.....( D )
A.SUBSTR("mygoodfriend",AT("good","mygoodfriend"))
B. SUBSTR("mygoodfriend",2,4)
C. RIGHT(LEFT("mygoodfriend",6),4)
D. LEFT(RIGHT("mygoodfriend",AT("good","mygoodfriend")),4)
36.以下各项中哪个是数据通讯系统的主要技术指标....................( C )
A. 压缩率 B. 分辨率 C. 传输速率 D. 时钟主频
37.下列计算机网络拓扑结构中,一般不在局域网中使用的是.............. ( D )
A. 总线型结构 B. 星型结构 C. 环型结构 D. 分布式结构
38.在通信系统中,把来自许多信号源的信号组合起来,再通过一条传输线路同时发送的技术称为... ................................................ (B )
A. 多路分解 B. 多路复用 C. 并行通信 D. 同步传输
39.在TCP/IP传输层的协议数据首部,依据下列哪个字段来确定通信双方主机内发送或接收数据的应用进程... ... .................................... ( D )
A. 序号 B. 确认号 C. IP地址 D. 端口号
40.OSI参考模型中,数据链路层处理的协议数据单元为.... ............. ( D )
A. 数据段 B. 比特 C. 报文 D. 数据帧
41.下列关于TCP/IP协议描述错误的是................................( D )
A. 起源于ARPANET B. 是目前Internet事实上的国际标准和工业标准
C. TCP/IP协议的发展是先定义完整理论框架,再实现相应协议
D. 网际层只提供无连接的数据报服务
42.下面关于TCP协议的特性描述错误的是............................. ( D )
A. 面向连接 B. 提供数据传输的可靠性保证
C. 具有差错检验和流量控制功能 D. 提供数据格式转换功能
43.在电子邮件服务中,邮件服务器之间转发邮件使用的协议是..........( B )
A.HTTP B.SMTP C.POP3 D.IMAP
44.网络操作系统的基本任务是.......................................( D )
A. 屏蔽本地资源与网络资源之间的差异 B. 管理网络系统的共享资源
C. 为用户提供基本的网络服务功能 D. 以上全是
45. 在以太网中,设备之间使用非屏蔽双绞线进行连接,则设备的硬件接口是( B )
A. RJ-11接口 B. RJ-45接口 C. BNC接口 D. AUI接口
46. 以下网络设备中,在OSI参考模型工作层次和网桥相同的是......... ( A )
A. 交换机 B. 路由器 C. 集线器 D. 中继器
47. WWW服务器的域名为ftp.hevttc.edu.cn,文件file1.rar放置在服务器的根目 录下,服务器的主目录为D:\dir,则使用Internet Explorer浏览器访问该文件 使用的URL为( B )
A.http://ftp.hevttc.edu.cn/dir/file1.rar B.http://ftp.hevttc.edu.cn/file1.rar
C.ftp://ftp.hevttc.edu.cn/file1.rar D.ftp://ftp.hevttc.edu.cn/dir/file1.rar
48.“非对称数字用户线路”的简称是.................................( B )
A.ISBN B.ADSL C.DDN D.ATM
49.校园网内的一台计算机访问外部网络的服务器时,使用域名访问失败,而使用IP 地址访问成功,造成这种故障的原因可能是........................( C )
A.该计算机的网络断开 B.被访问的外部服务器网络断开
C.该计算机的DNS服务器设置有误 D.该计算机与DNS服务器不在同一子网
50.当前Internet流行的P2P(peer-to-peer,对等网络)模式的网络应用淡化了计算机网络服务提供者与服务使用者的界限。和传统的C/S模式的网络应用不同,P2P模式以“非中心化”的方式使得更多的用户计算机同时身兼客户机与服务器的双重身份,将互联网推向了一个新的阶段。使用P2P模式进行通信的网络主机节点之间使用对等的方式,通过直接交换信息来共享计算机资源。以下网络应用使用P2P模式的是...........................( C )
A.DNS B.Web C.BitTorrent D.FTP
第Ⅱ卷(非选择题共140分)
二、判断题(本大题14小题,每小题1分,共14分。将答案填涂在机读卡上,正确的填涂“√”格,错误的填涂“×”格)
1.一般情况下,光盘比硬盘读取速度慢。 ( T )
2.计算机处理数据快慢和CPU主频无关。 ( F )
3.在Windows XP中,如果希望某个文件不能被删除,可将它的属性设置为“只读”。 ( T )
4.在Windows XP中,鼠标右键单击不同的对象,弹出的快捷菜单都是相同的。( F )
5.在Word2003编辑状态下,可以对文字进行动态效果设置。 ( T )
6.在Word2003打印对话框中,打印“8页至18页与25页”,在页码范围输入“8-18; 25”。 ( F )
7.在Excel2003文档中,工作表删除后能够通过“撤销”操作恢复工作表。( F )
8.在Excel2003工作表中,不可以对没有合并过的单元格进行拆分。 ( F )
9.在Visual Basic中,不同模块中的变量可以重名。 ( T )
10.在Visual FoxPro中,使用PACK命令将删除当前表中全部记录。 ( F )
11.全双工通信方式中,信息可以向两个相反方向传送,但是不能同时进行。 ( F )
12.计算机网络中,通信双方的对等层必须使用相同的协议。 ( F )
13.决定局域网性能的三要素是:网络拓扑、传输介质和介质访问控制方法。 ( T )
14.在数据通信中,将数字信号变换为模拟信号的过程称为解调。 ( F )
三、填空题(本大题共13小题,每小题2分,共26分。请将答案填写在答题纸上)
1.按照计算机所处理的信号进行分类,可以分为模拟式计算机和 数字 式计算机。
2.中央处理器(CPU)包括运算器和 控制 器。
3.把二进制数10100100101B转换成十六进制为 525 H。
4.如果需要设置Windows XP中窗口的色彩方案、字体大小等属性,可用鼠标右键
计算机专业理论试题A 单击桌面空白处,在快捷菜单中选择“属性”选项打开“显示 属性”对话框后,点击 外观 标签进行设置。
5.在Word2003中,如果对表格中的数值进行计算,则需要点击“表格”下 的 排序 。
6.在Excel2003表格中,A1=2,B1=3,C1=4,D1=5,E1=6,A2=7,B2=8,C2=9,D2=10, E2=11,A3=2,B3=3,C3=4,D3=5,E3=6,则sum(A1:D2,B2:E3)结果为。
7.在Visual Basic中,当设置文本框的PasswordChar属性为"*",程序运行后在 文本框中输入"123",则用Print输出文本框的内容时显示的是 123 。 (填写结果时不要加双引号)
8.Visual Basic表达式(10 < 8) And (10 > 8) Or (5 > 4) And (-3 < 3)的值 是 True 。
9.在Visual FoxPro中,用于指定组合框中数据来源的属性是 rowsouce 。
10.在Visual FoxPro中,? IIF(len(rtrim("my " -"book"))>6,1,-1) 的输出是 -1 。
11.计算机网络协议的三要素中,用于定义每部分控制信息和数据所代表含义的是 语义 。
12.标准的B类IP地址的网络地址部分为 16 位二进制值。
13.用户使用Windows XP接入Internet,需要配置的TCP/IP主要参数是IP地址、 子网掩码 、默认网关和DNS。
四、根据已知的环境与题意,写出相应的Visual FoxPro操作命令或SQL语句,要 求每小题用一条命令或语句完成(本大题共5小题,每小题4分,共20分,请填
写在答题纸上)。
现有数据库BOOKGL.DBC,其中包含表“books.dbf”,“books.dbf”结构为:图书编号(C,4)、书名(C,30)、出版社(C,20)、出版日期(D)、价格(N,8,2)、作者(C,10),页数(N,4)。在相应数据库和表已打开的前提下,写出完成下述功能的命令。
1.逻辑删除所有出版社为“清华大学出版社”、价格大于35的记录。(用Visual FoxPro命令)
2. 以“图书编号”为关键字建立降序的候选索引,索引名为BH。(用Visual FoxPro命令)
3.将“books.dbf”中所有“页数”大于300的图书“价格”增加10。(用SQL语句)
4.在数据库BOOKGL.DBC中建立表AUTHORS.DBF(作者编号(C,4),作者姓名(C,10),所在城市(C,20),联系电话(C,15),作者性别(C,2)),设置“作者编号”字段为主索引,并对“作者性别”字段的输入值限制为只能是“男”或“女”,否则提示“性别输入错误!”(用SQL语句)
5.查询books.dbf表中 “价格”大于28的记录,包括“书名”、“出版社”,“价格” 字段内容,按“价格”字段降序排列,结果保存到文本文件GAO.txt中(用SQL语句)
五、程序分析(本大题共2小题,每小题5分,共10分,读程序并分析结果,请填写在答题纸上)
1.运行下面的Visual Basic程序,输出结果中有几个偶数______6___
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer Dim j As Integer
Dim num As Integer
For i = 0 To 10
num = 10 + Int(11 * Rnd)
For j = 0 To i
If num = a(j) Then Exit For
Next j
If j > i Then a(i) = num Else i = i - 1
Next i
For i = 0 To 10
Print a(i);
Next i
End Sub
2.有Visual ForPro程序如下:程序的功能是计算用数学表达式描述
-1-1/2!-1/3!+ 3!/ 4!-1/5!+ 5!/6! -1/7! +7!/8!+ 8!/9!+9!/10!
CLEAR
SS=0
AA=0
BB=0
FOR I=1 TO 10
FL=0
J=2
DO WHILE J<=SQRT(I) AND FL=0
IF I % J=0
FL=1
ELSE
J=J+1
ENDIF
ENDDO
IF FL=0
DO MM WITH AA,I
SS=SS-1/AA
ELSE
DO MM WITH AA,I
DO MM WITH BB,I-1
SS=SS+BB/AA
ENDIF
ENDFOR
?SS
PROCEDURE MM
PARAMETERS S,N
X=1
P=1
DO WHILE X<=N
P=P*X
X=X+1
ENDDO
S=P
RETURN
ENDPROC
六、写出下列程序的运行结果(本大题共5小题,每小题5分,共25分,请填写在答题纸上)
1.分析下面Visual Basic程序段。窗体中有一命令按钮(名称为C6_1)。(5分)
Private Sub C6_1_Click()
Dim i As Integer
Dim j As Integer
Dim w As Integer
a = Array(1, 2, 3, 4)
b = Array(5, 6, 7, 8)
For i = 0 To 3
w = w + fu(a(i), b(i))
w = w + a(i)
Next i
Print w
End Sub
Private Function fu(ByVal x As Integer, ByVal y As Integer)
Static k As Integer
k = k + 1
x = x + y
y = x - y
x = x - y
fu = k
End Function
窗体启动后单击命令按钮,输出w的值为 20 。
2.下面Visual Basic程序段,是对顺序文件进行操作。(5分)
Open "c6_2.txt" For Output As #1
Print #1, "k1"; "k2"; "k3"
Print #1, "12"; "34"; "56"
Print #1, "p1"; "p2"; "p3"
Print #1, "88"; "99"; "77"
Close #1
Open "c6_2.txt" For Input As #1
Seek #1, 10
Line Input #1, score
Print score
Close #1
程序运行后,Print score输出结果是 23456 。
3.在Visual FoxPro的表单上添加两个文本框,一个Name属性为:Text1,另一个Name属性为:Text2,添加一个命令按钮,其Name属性为:Command1,Caption属性为:确定。Command1的Click事件代码如下:
xa=VAL(TRIM(ThisForm.Text1.value))
n=LEN(TRIM(ThisForm.Text1.value))
DIMENSION aa(n)
DIMENSION bb(n)
FOR i=n TO 1 step -1
aa(i)=xa % 10
xa=INT(xa/10)
ENDFOR
nm=0
FOR i=1 TO n
IF aa(i) % 2<>0
nm=nm+1
bb(nm)=aa(i)
ENDIF
ENDFOR
FOR i=1 TO nm
bb(i)=bb(i)+5
bb(i)=bb(i) % 10
ENDFOR
FOR i=1 TO INT(nm/2)
t=bb(i)
bb(i)=bb(nm-i+1)
bb(nm-i+1)=t
ENDFOR
t=0
FOR i=1 TO nm
t=t*10+bb(i)
ENDFOR
ThisForm.Text2.value=STR(t)
运行上面的表单,在Text1文本框中输入:23456789,单击“确定“按钮,在Text2文本框中显示的是 4208 。
第4、5题使用下面的数据库
设有数据库文件BGGL.DBC,包含3个表,分别是KEFANG、RUZHU、KEHU。其中KEFANG的结构为:客房号(C,4)、类型(C,10)、价格(N,4,0),RUZHU的结构为:客房号(C,4)、客户号(C,4)、入住日期(D),退房日期(D),KEHU的结构为:客户号(C,4)、姓名(C,8)、性别(C,2)、工作单位(C,20);各表中数据如下:
KEFANG.DBF
记录号 客房号 类型 价格
1 1101 普通客房 280
2 1102 贵宾客房 500
3 1201 总统套房 2000
4 1202 总统套房 1500
5 1301 普通客房 280
6 1302 贵宾客房 600
RUZHU.DBF
记录号 客房号 客户号 入住日期 退房日期
1 1101 1001 03/25/05 03/28/05
2 1102 1002 03/27/05 03/29/05
3 1201 1003 03/28/05 04/05/05
4 1202 2001 03/27/05 03/31/05
5 1301 2002 03/23/05 04/01/05
KEHU.DBF
记录号 客户号 姓名 性别 工作单位
1 1001 王林 男 AA商贸公司
2 1002 刘月明 女 BB电子公司
3 1003 姚晓敏 女 CC农产品公司
4 2001 肖敏 女 DD商贸公司
5 2002 黄小兵 男 EE电子公司
4. 有如下Visual FoxPro程序:
OPEN DATABASE BGGL
USE KEHU
ACCEPT "请输入客户姓名:" TO XM
INDEX ON 姓名 TAG XMH OF XM
SEEK XM
KEHUH=客户号
SELECT 1
USE RUZHU
GO TOP
DO WHILE NOT EOF()
IF 客户号=KEHUH
KEFANGH=客房号
NM=退房日期-入住日期+1
SELECT 2
USE KEFANG
DO WHILE NOT EOF()
IF 客房号=KEFANGH
S=价格*NM
EXIT
ENDIF
SKIP
ENDDO
EXIT
ENDIF
SKIP
ENDDO
?S
运行上面的程序,输入“姚晓敏”,显示的结果是: 18000 。
5. 有如下Visual FoxPro程序:(代码中行末的分号为逻辑行连接符)
OPEN DATABASE BGGL
ACCEPT "请输入客房类型名:" TO KFLX
SELECT 客房号 FROM KEFANG WHERE 类型=KFLX INTO DBF KF
ALTER TABLE KF ADD XX C(8)
ALTER TABLE KF ADD TH N(3,0)
SELECT RUZHU.客房号 AS 客房号,KEHU.姓名 AS 姓名,(RUZHU.退房日期;
-RUZHU.入住日期+1) AS 天数 FROM RUZHU,KEHU WHERE RUZHU.客户号=;
KEHU.客户号 INTO DBF KH
USE KH
DO WHILE NOT EOF()
KFH=客房号
XM=姓名
TSH=天数
UPDATE KF SET XX=XM,TH=TSH WHERE 客房号=KFH SKIP
ENDDO
SELECT KEFANG.类型,KEFANG.客房号,KF.XX,TH*KEFANG.价格 AS TJ;
FROM KEFANG,KF WHERE KEFANG.客房号=KF.客房号 INTO DBF JG
USE JG
DO WHILE NOT EOF()
?客房号,XX,TJ
SKIP
ENDDO
运行上面的程序,输入“普通客房”,显示的结果是:
1101 王林 840
1301 黄小兵 2520
七、Visual Basic程序改错(本大题共有两个小题,每题5分,共10分,每个程序有两个错误行,请在答题纸上写出错误行和对应的正确行,改对一处得一处分,改错不扣分)
1.下面的程序是利用随机函数产生10个10到100之间的随机整数,并按由小到大的顺序放入数组a中。(提示:题目中的语句Goto x是转移到标号x位置执行)
程序中有两处错误,请将错误行和相应的正确行写在答题纸横线上。
Dim a(10) As Integer
Dim num As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 1 To 10
k = i
num = 10 + Int(Rnd * 91)
For j = 1 To i-1
If num < a(j) Then
GoTo 20
Next j
a(i) = num
10:
Next i
GoTo 30
20:
For m = k To j M=K TO J-1 STEP -1
a(m + 1) = a(m) A(M)=A(M-1)
Next m
a(j) = num
GoTo 10
30:
For i = 1 To 10
Print a(i);
Next i
Print
2.窗体中(如图所示)有一个定时器控件(名称Timer1),有三个标签(Caption属性分别是滚动条、组合框、列表框),一个滚动条(名称HS1,Min和Max的属性初值分别为0和5,Value初值为0),一个组合框(名称Combo1),一个列表框(名称List1),组合框和列表框初始为空,一个框架,框架中有两个复选框(名称分别为Check1和Check2,Caption属性如图所示)。
程序的功能是:窗体启动后,定时器开始工作,工作时每隔3秒钟触发一次事件,Timer事件中完成4项工作:(1)滚动条的值加1;(2)往组合框中添加滚动条的Value值;(3)调用Combo1_Change过程;(4)当滚动条的值为5时定时器停止工作。在
A
Combo1_Change过程中,要将滚动条当前值加上复选框中当时所有选中项的标题添加到列表框中,Combo1_Change过程中只给出了部分程序,省略的程序都是正确的。
程序中有两处错误, 请将错误行和相应的正确行写在答题纸横线上。
Private Sub Combo1_Change()
List1.AddItem HS1.Value
If Check1.Value = True Then 1
List1.List(HS1.Value - 1) = List1.List(HS1.Value - 1) + Check1.Caption
End If
End Sub
Private Sub Timer1_Timer()
HS1.Value = HS1.Value + 1
Combo1.AddItem HS1.Value
Combo1_Change
If HS1.Value = 5 Then Timer1.Visible = False ENABLE
End Sub
八、程序填空(本大题共7个空,每空5分,共35分,按程序要求在答题纸上填入相应的内容,使程序完整正确)
1.下面程序运行时输入长度少于20个字符的字符串,以“#”结束,然后对字符串从左端进行处理。处理方式:把数字和非数字内容分别放入两个数组,数组a存放数字,数组b存放非数字,存放时把相邻的数字或非数字内容作为一个整体进行存放,如输入的字符串为“12abc3d456ef#”,则12、3、456分别存放到数组a的前三个元素中,”abc”中,”abc”、”d”、”ef”分别存放到数组b的前三个元素中。请填空。(Visual Basic题)
Dim a(20) As Integer
Dim b(20) As String
Dim c As String
Dim i As Integer
Dim j As Integer
Dim w1 As String
Dim w2 As String
Dim m As Integer
Dim n As Integer
c = InputBox("请输入c$=", "输入数据")
c = Trim(c)
w1 = Left(c, 1)
c = Mid(c, 2)
Do While w1 <> "#"
If w1 >= "0" And w1 <= "9" Then
w2 = Left(c, 1)
c = Mid(c, 2)
Do While w2 >= "0" And w2 <= "9" And w2 <> "#"
w1 = w1 * 10 + w2
w2 = Mid(c, 1, 1)
c = Mid(c, 2)
Loop
a(i) = w1
i = i + 1
(1)_W1=W2__________________________________
w2 = Left(c, 1)
c = Mid(c, 2)
Do While Not (w2 >= "0" And w2 <= "9") And w2 <> "#"
w1 = w1 + w2
w2 = Left(c, 1)
c = Mid(c, 2)
Loop
b(j) = w1
j = j + 1
End If
w1 = w2
Loop
If w1 >= "0" And w1 <= "9" Then
a(i) = w1
i = i + 1
Else
If_(2) Not (w2 >= "0" And w2 <= "9")_________
Then b(j) = w1
j = j + 1
End If
End If
For m = 0 To i - 1
Print a(m);
Next m
For n = 0 To j - 1
Print b(n); " ";
Next n
2、窗体中(如图所示)有五个标签,分别显示了姓名,照片,滚动条,个人信息四项提示信息,还有一个标签(Label5)在图中显示的是“年龄是:12”;一个文本框(名称为Text1),用来输入多个姓名;一个图片框在窗体中显示的是一动物图片;一个框架,框架中有两个单选按钮(名称分别为Option1,Option2)用来选择性别;一个列表框(名称为List1)用来显示个人信息;一个滚动条(名称为HS1);一个命令按钮。当移动滚动条后在Label5上显示滚动条的值作为年龄的信息。当单击命令按钮后将把选中的姓名、性别、滚动条移动产生的值作为年龄在列表框中显示出来,并根据选择的姓名把此人的照片(以姓名作为照片的名字,扩展名为bmp)在图片框中显示出来。不完整的空白位置请写出正确的内容(Visual Basic题)。
Private Sub Command1_Click()
Dim xm As String
xm = Text1._(3)_SELTEXT____
Picture1.Picture = LoadPicture("d:\" & xm & ".bmp")
List1.AddItem "姓名:" + xm
If Option1.Value = True Then List1.AddItem "性别:" + Option1.Caption
If Option2.Value = True Then List1.AddItem "性别:" + Option2.Caption
List1.AddItem "年龄:" + Str(HS1.Value)
End Sub
Private Sub HS1_Change()
_(4)_LABEL5.CAPTION____ = "年龄是:" & HS1.Value
End Sub
3.已知有“STUDENT.DBC”数据库,其中包含三个表:USER、XUESHENG和CHENGJI,其中USER表的结构为:用户名(C,10)、权限(C,4),XUESHENG表的结构为:学号(C,10)、姓名(C,8),CHENGJI表的结构为:学号(C,10)、数学(N,5,1)、英语(N,5,1)、信息技术(N,5,1),设计应用程序界面如下:
设置控件属性如下:
有三个标签,其Name属性分别为Label1、Label2和Label3,Caption属性分别为“用户名:”、“学号:”、“结果:”。有三个文本框,其Name属性分别为Text1、Text2、Text3,一个命令按钮,Name属性为Command1,Caption属性为“确定”。
编写Visual FoxPro程序实现下述功能:
①在Text1文本框中输入用户名,单击“确定”按钮,如果用户不存在,在Text1文本框中显示“用户不存在,请重新输入!”;如果用户存在,则根据权限的不同进行不同的操作:
如果“权限”是“查询”,则标签Label2的Caption变成“学号”,“确定”按钮变成“查询”按钮(命令按钮的Caption变成“查询”);
如果“权限”是“统计”,则标签Label2的Caption变成“班级”,“确定”按钮变成“统计”按钮(命令按钮的Caption变成“统计”)。
②在Text2文本框中输入学号,单击“查询”按钮,如果该学号存在,则在Text3文本框中显示学生的姓名,数学,英语,信息技术字段的值;如果不存在,则在Text3文本框中显示“没找到!”;
③在Text2文本框中输入班级(班级是学号的前8位),单击“统计”按钮,如果班级存在,则在Text3文本框中显示班级、该班级数学的平均分、该班级英语的平均分以及该班级信息技术的平均分;如果不存在,则在Text3文本框中显示“该班级不存在!”。 Command1的Click事件代码如下,请在空白位置填写正确的命令。(代码中行末的分号为逻辑行连接符)
(5) mm=trim(thisform.command1.caption)
SHURU=TRIM(ThisForm.Text2.Value)
OPEN DATABASE STUDENT
DO CASE
CASE MM="确定"
SELECT * FROM USER WHERE 用户名=TRIM(ThisForm.Text1.Value) INTO DBF YH
USE YH
GO TOP
IF EOF() THEN
ThisForm.Text1.Value="用户不存在,请重新输入!"
ELSE
(6) if 权限=”查询”
ThisForm.Command1.Caption="查询"
ThisForm.Label2.Caption="学号"
ELSE
ThisForm.Command1.Caption="统计"
ThisForm.Label2.Caption="班级"
ENDIF
ENDIF
(7) case mm=”查询”
SELECT XUESHENG.姓名,CHENGJI.数学,CHENGJI.英语,CHENGJI.信息技术;
FROM XUESHENG,CHENGJI WHERE XUESHENG.学号=SHURU AND XUESHENG.学号=;
CHENGJI.学号 INTO DBF LSH
USE LSH
GO TOP
IF NOT EOF()
ThisForm.Text3.Value=姓名+" "+STR(数学)+" "+STR(英语)+;
" "+STR(信息技术)
ELSE
ThisForm.Text3.Value="没找到!"
ENDIF
OTHERWISE
SELECT LEFT(学号,8) AS 班级,AVG(数学) AS 数学,AVG(英语) AS;
英语,AVG(信息技术) AS 信息技术 FROM CHENGJI GROUP BY 班级;
WHERE LEFT(学号,8)=SHURU INTO DBF CHJ
USE CHJ
GO TOP
IF NOT EOF()
ThisForm.Text3.Value=班级+" "+STR(数学)+" "+STR(英语)+;
" "+STR(信息技术)
ELSE
ThisForm.Text3.Value="该班级不存在!"
ENDIF
ENDCASE