[精品]会考操作题复习
一、VB操作题 1 .输入正方体的边长a,编程求该正方体的表面积S和体积V。要求: (1) 打开文件“zft.vbp“,完善程序; (2) 将正方体的边长输入到文本框textl中; (3) 将正方体的表面积S输出到labell中,正方体的体积输出到label2中; (4) 单击“结束”按钮时能结束程序运行。 2. 寻找“水仙花数”。水仙花数是满足每一位上数字的立方之和恰好等于它自己 一组三位的正整数,例如:153就是一个水仙花数,F+53+33=153。请找出所有的 水仙花数及个数。要求: (5) 打开文件“sxhs.vbp”,完善程序; (6) 将每一个水仙花数sxh输出到窗体,将个数sum输出到labell中; (7) 单击“结束”按钮时能结束程序运行。 3. 编写程序求下列函数第n项的值。 尸 0n=l F(n)=0 Then py=“正数” If a=0 Then py=“零” Ifa0 then Print “有两个不相等的实数根” Else If d=0 Then Prin「乙有两个相等的实数根” Else Print “没有实数根” endif End If End sub ③ 下面的程序是求100以内奇数积s的值(S=l*3*5*7.*99)。 Private Sub Commandl_Click() Dim i As integer Dim s As double s=l For i=l to 100 step 2 s=s*i Nexti Prints End Sub ④ 输入一个学生的成绩(0-10。的整数),对其进行等级评定。100- 80分为“良好”,79-60分为” 及格”,60分以下为”不及格”.超出范围的数值为”超出范围” Private Sub Command 1 _Click() Dim x As integer x = box(“请输入学生成绩“) Select Case x Case801。100 print “良好” Case60 to 79 print ”及格” Case 0 to 60 print ”不及格” case else Print ”超出范围” end select End sub ⑤ 求解“百鸡问题”:已知公鸡每只3元,母鸡每只5元,每3只小鸡1元。用100元钱买100 只鸡,问每种鸡应各买多少? 完善下面程序的空白部分: Dim a As Integer, b As Integer, c As Integer a = 0:b = 0:c = 0 For a = 0 To 33 For b = 0 To 20 For c = 0 To 100 If a+b+c=100 And a*3+b*5+c/3=100 Then Print a; b; c End If Next c Next b Next a 二、Word操作题 1、打开文档WD01.DOC,按照要求完成下列操作。 [1] 将文中所有错词“款待”替换为“宽带”;将标题段文字(“宽带发展面临路径选择”) 设置为三号黑体、红色、加粗、居中并添加文字蓝色底纹,段后间距设置为16磅。 [2] 将正文各段文字(“近来,……设备商、运营商和提供商都难以获益。“)设置为 五号仿宋_GB2312,各段落左右各缩进2厘米,首行缩进0.8厘米,行距为2倍 行距,段前间距9磅。 [3] 将正文第二段(“中国出现宽带接入热潮,一个难得的历史机会。”)分为等 宽的两栏,栏宽为7厘米。并以原文件名保存文档。 2、打开文档WDO2.DOC,按照要求完成下列操作。 [1] 将文中所有“质量法”替换为“产品质量法”;将标题段文字(“产品质量法实施不 力地方保护仍是重大障碍”)设置为三号、楷体_GB2312、蓝色、倾斜、居中并添 加文字黄色底纹,并设置段后间距为18磅。 [2] 将正文各段落文字(“为规范没有容身之地。”)设置为小四号宋体、加粗, 各段落右缩进1厘米,悬挂缩进0.8厘米,行距为2倍行距。 [3] 将正文第一段(“为规范.…重大障碍。”)和第二段合并,并将合并后的段落分为 等宽的两栏,栏宽为7厘米。并以原文件名保存文档。 三、EXCEL操作题 1. 打开ex01.xls,完成如下操作: 打开工作簿文件EXNLxls,按照下列要求进行操作: 1将下列己知数就立一抗震救灾捐献统计表 (存放在A1: D5的区域内),将当前工作表Sheet便名为“救灾统计表”。 单位指款(万元)实物(件)折合人民币(万元) 第一部门 1.95 89 2.45 第二部门 1.2 87 1.67 第三部门0.95 52 1.30 总计 2. 对各项捐献进行总计,填入“总计“行的相应单元格中(结果的数字格式为常规样式)。 3. 选中“单猷和晰合人民币“两列数据(不