[精品]会考操作题复习

一、VB操作题 1 .输入正方体的边长a,编程求该正方体的表面积S和体积V。要求 1 打开文件zft.vbp,完善程序； 2 将正方体的边长输入到文本框textl中； 3 将正方体的表面积S输出到labell中，正方体的体积输出到label2中； 4 单击“结束”按钮时能结束程序运行。 2. 寻找“水仙花数”。水仙花数是满足每一位上数字的立方之和恰好等于它自己 一组三位的正整数，例如153就是一个水仙花数，F5333153。请找出所有的 水仙花数及个数。要求 5 打开文件sxhs.vbp”,完善程序； 6 将每一个水仙花数sxh输出到窗体，将个数sum输出到labell中； 7 单击“结束”按钮时能结束程序运行。 3. 编写程序求下列函数第n项的值。 尸 0nl Fn 4n2 Fn-lfn-2-ln2 要求 a 打开文件dn.vbp,完善程序； b 输入n到textl中； c 将结果输出到text2中； 单击“结束”按钮时能结束程序运行。 4. 下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是 零，并输出判断结果。程序中有三处错误，请调试程序，使其运行正确。 程序如下 Private Sub Command 1 _Click Dim a As Single Dim py As String If a0 Then py正数” If a0 Then py零” Ifa0 Then py负数” print a End Sub 5. 打开工程l.vbp,完成下列算法 请你为某汽辕输公司编制-个计算运输费用的程鼠运输费用的计算方醍屈离愈远，荀公里运价愈低，如下 表所示 也离5即公里折扣二。％ 500s1000折扣5 1000s3000折扣顷％ s3000折扣15 如果运输的货物重削5吨，每吨运价加.225元请根据不同的运输■离计算出运费。 注 L请勿更诙main函数。 2.请在函数funcn中实现功能。 己提交的文件Modiile1.ba554字节 答题▼ 5.根据要求补全VB程序 ① 下列程序段的功能是将a,b两个变量的值相互交换，请完善程序。 Private Sub Commandl_Click Dim a As Single, b As Single, c As Single ca a b bc end sub ② 下列程序段的功能是输入一元二次方程ax2bxc0a0的三个系数，判断它的根的情况。 请将程序补充完整。 Private Sub Commandl_Click abox输入 a 的值” b box “输入 b 的值” c box “输入 c 的值” d b*b-4*a*c If d0 then Print “有两个不相等的实数根” Else If d0 Then Prin「乙有两个相等的实数根” Else Print “没有实数根” endif End If End sub ③ 下面的程序是求100以内奇数积s的值Sl*3*5*7...*99。 Private Sub Commandl_Click Dim i As integer Dim s As double sl For il to 100 step 2 ss*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 0b 0c 0 For a 0 To 33 For b 0 To 20 For c 0 To 100 If abc100 And a*3b*5c/3100 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. 选中“单猷和晰合人民币两列数据（不