2010计算机2级培训资料
计算机2级公共基础120题
计算机2级公共基础120题(1) 下面叙述正确的是______。
(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是______。
(C)A. 队列B. 线性表C. 二叉树D. 栈(3) 在一棵二叉树上第5层的结点数最多是______。
(B)A. 8B. 16C. 32D. 15(4) 下面描述中，符合结构化程序设计风格的是______。
(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句(5) 下面概念中，不属于面向对象方法的是______。
(D)A. 对象B. 继承C. 类D. 过程调用(6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是______。
(B)A. 可行性分析B. 需求分析C. 详细设计D. 程序编码(7) 在软件开发中，下面任务不属于设计阶段的是______。
(D)A. 数据结构设计B. 给出系统模块结构C. 定义模块算法D. 定义需求并建立系统模型(8) 数据库系统的核心是______。
(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是______。
(C)A. 数据库是一个独立的系统，不需要操作系统的支持B. 数据库设计是指设计数据库管理系统C. 数据库技术的根本目标是要解决数据共享的问题D. 数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是______。
(A)A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指______。
(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 下列叙述中正确的是______。
广东计算机2级office试题及答案
广东计算机2级office试题及答案一、Word试题：1. 在Word中创建新文档的快捷键是什么？2. 如何将文字设置为一级标题？3. 如何为文档添加页码？4. 如何调整段落的行间距？5. 如何插入一张图片到Word文档中？答案：1. 快捷键Ctrl + N可以创建新文档。
2. 选中要设置为一级标题的文字，点击“开始”选项卡中的“标题1”即可。
3. 在需要添加页码的位置，点击“插入”选项卡中的“页码”按钮，在弹出的菜单中选择合适的页码样式。
4. 选中要调整行间距的段落，点击“段落”选项卡中的“行间距”按钮，选择适当的行间距选项。
5. 点击“插入”选项卡中的“图片”按钮，选择要插入的图片文件，然后点击“插入”按钮即可将图片插入到文档中。
二、Excel试题：1. 如何在Excel中创建一个新的工作表？2. 如何将一列数据按照字母顺序排序？3. 如何设置Excel单元格的格式为货币格式？4. 如何使用函数计算一列数据的平均值？5. 如何创建一个简单的折线图？答案：1. 点击Excel底部的“新建工作表”按钮即可创建一个新的工作表。
2. 选择要排序的列，点击“数据”选项卡中的“排序”按钮，在弹出的对话框中选择合适的排序方式即可。
3. 选中要设置格式的单元格，点击“开始”选项卡中的“货币”按钮，在弹出的菜单中选择适当的货币格式即可。
4. 在需要计算平均值的单元格中输入“=AVERAGE(数据范围)”并按下回车键，其中“数据范围”为要计算平均值的数据所在的单元格范围。
5. 选择要绘制折线图的数据范围，点击“插入”选项卡中的“折线图”按钮，选择合适的折线图样式即可创建折线图。
三、PowerPoint试题：1. 如何在PowerPoint中创建一个新的幻灯片？2. 如何为幻灯片添加动画效果？3. 如何设置PowerPoint的幻灯片切换方式？4. 如何将PowerPoint幻灯片导出为PDF文件？5. 如何在幻灯片中插入视频？答案：1. 在PowerPoint左侧的“幻灯片”窗格中，点击“新建幻灯片”按钮即可创建一个新的幻灯片。
计算机2级考试内容
3.重点掌握：
⑴微机的基本组成及软、硬件的基本概念；
⑵计算机中数据的表示、数据的存储单位，字符、汉字及编码；
⑶不同进制数制之间的转换。
(二)操作系统的功能和使用
1.了解：
⑴操作系统的功能和分类；
⑵Windows 98中使用DOS程序的方法；
（2）不同工作区的数据操作。
（五）FoxPro程序设计
1．了解：
（1）屏幕格式与报表输出；
（2）命令运行中的环境设置；
（3）子程序、过程与过程文件；
（4）自定义函数。
2．掌握：
（1）格式输入输出命令；
（2）全局变量与局部变量；
（3）数组与数据库文件间的数据传递；
（一）数据库管理的基本知识
1．了解：
（1）数据库管理技术的发展；
（2）数据库、数据库管理系统、数据库系统概念。
2．掌握：
（1）数据模型；
（2）FoxPro系统性能参数；
（3）文件类型；
（4）关系运算。
3．重点掌握：
（1）FoxPro命令格式；
（2）数据类型（常量、变量、运算符、表达式）；
2.掌握：
⑴因特网基础知识；
⑵接入因特网，从因特网上下载文件等操作。
3.重点掌握：
⑴Web的概念与网上信息浏览；
⑵申请电子邮箱、编写电子邮件、发送和接收电子邮件。
(四)计算机安全与计算机病毒的防治
1.了解：
⑴计算机安全的概念；
⑵微型计算机的工作环境；
⑶计算机病毒的基本知识。
二、测试范围与考核要求
计算机二级-计算机基础知识点
计算机基础第一章 计算机的发展§1.1计算机的发展史1.ENIAC（埃尼阿克）：战争催生了第一台电子计算机，30多吨重，170平方，速度却很低下，1946年（20世纪40年代）产于美国。
2.冯·诺依曼：现代计算机之父。
冯·诺依曼计算机原理：①采用二进制：在计算机内部，程序和数据采用二进制形式进行存储。
②程序储存，自动执行：程序和数据存放在存储中，无需人工进行干涉。
3.发展历程：采用不同元件：①电子管：稳定性好，功耗和体积大；②晶体管：体积小；③中小规模集成电路：集成度越高，体积越小功耗越低；④大规模超大规模集成电路：集成度越高，体积越小功耗越低。
4.电子计算机的发展过程：（年份&器件考的最多，其他不考）§1.2计算机的应用、特点和分类1.计算机的特点：（不常考）①高速精确的运算能力；②准确的逻辑判断能力；③强大的存储能力；④自动功能；⑤网络与通信功能。
2.计算机的应用：①早期：主要用于大型计算；②现在：应用广泛：a.科学计算：·进行数值运算；推动科研技术的发展；·应用领域：基因测序/轨道计算/天气预报/云计算。
b.数据/信息处理：·进行非数值运算；图像、文字、声音等信息处理；·典型应用：OA办公系统。
c.过程控制：（实时控制）应用于工业制造；d.计算机辅助：·让计算机代替人的部分工作·CAD计算机辅助设计；CAM计算机辅助制造；CAI计算机辅助教育；·CAT计算机辅助技术；CIMSS计算机集成制造系统。
e.网络通信：购物、聊天、搜索；f.人工智能：游戏中的人机对战模式；g.多媒体应用：文本、图像、声音、视频；h.嵌入式系统：mp3、相机、手机、电视。
§1.3未来计算机发展趋势（不考？了解一下即可）1.发展方向：①巨型化：计算速度更快、存储容量更大、功能更完善、可靠性更高、运算速度可达万万亿次/秒、存储容量超过几百T字节。
计算机二级Ms office 演示文稿题库答案解题步骤
1、打开考生文件夹下的演示文稿yswg.pptx, 根据考生文件夹下的文件PPT-素材.docx, 按照下列要求完善此文稿并保存。
（1）使文稿包含七张幻灯片，设计第一张为标题幻灯片版式，第二张为仅标题版式，第三到第六张为两栏内容版式，第七张为空白版式；所有幻灯片统一设置背景样式，要求有预设颜色。
（2）第一张幻灯片标题为计算机发展简史，副标题为计算机发展的四个阶段；第二张幻灯片标题为计算机发展的四个阶段；在标题下面空白处插入SmartArt图形，要求含有四个文本框，在每个文本框中依次输入第一代计算机，……，第四代计算机尠，更改图形颜色，适当调整字体字号。
（3）第三张至第六张幻灯片，标题内容分别为素材中各段的标题；左侧内容为各段的文字介绍，加项目符号，右侧为考生文件夹下存放相对应的图片，第六张幻灯片需插入两张图片（第四代计算机-1.JPG 在上，第四代计算机木??在下）；在第七张幻灯片中插入艺术字，内容为谢谢尡。
（4）为第一张幻灯片的副标题、第三到第六张幻灯片的图片设置动画效果，第二张幻灯片的四个文本框超链接到相应内容幻灯片；为所有幻灯片设置切换效果。
（1）【解题步骤】步骤1：打开考生文件夹下的演示文稿yswg.pptx。
选中第一张幻灯片，在【开始】选项卡下【幻灯片】组中单击版式按钮，在弹出的下拉列表中选择标题幻灯片。
步骤2：单击【开始】选项卡下【幻灯片】组中单击新建幻灯片下拉按钮，在弹出的下拉列表中选择仅标题。
按同样方法新建第三到第六张幻灯片为两栏内容版式，第七张为空白版式。
步骤3：在【设计】选项卡下【背景】组中单击背景样式下拉按钮，在弹出的下拉列表中选择设置背景格式，弹出设置背景格式对话框，此处我们可在填充选项卡下单击渐变填充单选按钮，单击预设颜色按钮，在弹出的下拉列表框中选择一种，例如雨后初晴，然后单击全部应用按钮。
（2）【解题步骤】步骤1：选中第一张幻灯片，单击单击此处添加标题标题占位符，输入计算机发展简史字样。
计算机二级技术基础知识
计算机二级技术基础知识
计算机二级技术基础知识是指在计算机领域中的基本概念、操作技能和基础知识。
它是计算机研究和应用的基石，为进一步研究和应用计算机提供了必要的基础。
1. 计算机硬件基础知识
- 计算机的构成及功能
- 主要硬件设备的作用和特点
- 计算机的存储和处理原理
2. 计算机操作系统基础知识
- 操作系统的作用和功能
- 常见操作系统的特点和应用
- 操作系统的安装和配置
3. 计算机网络基础知识
- 网络基本概念和常见术语
- 网络拓扑结构和通信协议
- 常见网络设备和安全知识
4. 数据库基础知识
- 数据库的概念和使用场景
- 常见数据库管理系统及其特点
- 数据库的设计和管理基本原理
5. 程序设计基础知识
- 程序设计的基本概念和过程
- 常用的编程语言和开发工具
- 算法和逻辑思维的基础知识
6. 计算机安全基础知识
- 计算机安全的重要性和目标
- 常见的安全威胁和防御措施
- 常用的安全工具和技术
以上是计算机二级技术基础知识的一些主要内容，通过研究和
掌握这些知识，可以为深入研究和应用计算机领域打下坚实的基础。
NCRE全国计算机等级考试资料大全
全国计算机等级考试计算机等级考试即全国计算机等级考试。
全国计算机等级考试（National Computer Rank Examination，简称NCRE）是经原国家教育委员会（现教育部）批准，由教育部考试中心主办，面向社会，用于考察应试人员计算机应用知识与技能的全国性计算机水平考试体系。
1考试介绍全国计算机等级考试（National Computer Rank Examination，简称NCRE），是经原国家教育委员会（现教育部）批准，由教育部考试中心主办，面向社会，用于考查应试人员计算机应用知识与技能的全国性计算机水平考试体系。
NCRE考试采用全国统一命题，统一考试的形式。
所有科目每年开考两次。
一般为3月倒数第一个周六和9月倒数第二个周六，考试持续5天。
自1994年开考以来，NCRE适应了市场经济发展的需要，考试持续发展，考生人数逐年递增，至2012年底，累计考生人数超过4933万，累计获证人数达1876万。
为进一步适应新时期计算机应用技术的发展和人才市场需求的变化，教育部考试中心对NCRE考试体系进行调整，改革考试科目、考核内容和考试形式。
从2013年下半年考试开始，将实施2013年版考试大纲，并按新体系开考各个考试级别。
2等级设置3考试科目4考试教材5考试时间计算机职业英语一级考试为90分钟。
一级、二级、三级、四级均为无纸化考试，一级、四级考试时间为90分钟，二级、三级考试时间为120分钟。
全国计算机等级考试每年开考两次，分别在三月及九月举行，具体日期以官方公布为准。
笔试考试一般安排在开考第一天的上午进行，当天下午开始上机考试（一级、二级从上午开始），上机考试期限定为五天，由考点根据考生数量和设备情况具体安排。
2013年上半年计算机二级考试时间为：3月30日至4月3日；2013年下半年计算机二级考试时间为：9月21日至25日。
6考试报名每次考试报名的具体时间由各省（自治区、直辖市）级承办机构规定。
计算机二级必备知识点2024年
计算机二级必备知识点引言概述：计算机二级必备知识点是指在进行计算机二级考试准备过程中，需要掌握的重要知识点。
本文将从五个大点详细阐述这些知识点，包括操作系统、计算机网络、数据库、程序设计基础和计算机硬件。
正文内容：
一、操作系统
1.操作系统的定义与作用
2.常见的操作系统类型及其特点
3.操作系统的基本功能和特性
4.进程管理与线程管理
5.文件系统的组成与管理
二、计算机网络
1.网络的定义与分类
2.OSI模型与TCP/IP协议
3.网络的拓扑结构
4.网络传输介质
5.网络安全及常见攻击手段
三、数据库
1.数据库的定义与特点
2.数据库管理系统的组成与功能
3.数据库的范式与关系型数据库设计
4.SQL语言和基本操作命令
5.数据库的备份与恢复策略
四、程序设计基础
1.程序设计的基本流程
2.程序设计语言的选择与应用场景
3.程序的算法与逻辑
4.常见数据结构与算法
5.软件开发生命周期与规范
五、计算机硬件
1.计算机的基本组成与原理
2.中央处理器（CPU）的结构与性能指标
3.存储器的类型与层次结构
4.输入输出设备的分类与应用
5.计算机硬件维护与故障排除技巧。
国家计算机2级考试题库
第一套、1程序填空给定程序中，函数fun的功能是：有N*N矩阵，将矩阵的外围元素顺时针旋转。
操作顺序是：首先将第一行元素的值存入临时数组r ,然后使第一列成为第一行，最后一行成为第一列，最后一列成为第一行，临时数组中和元素成为最后一列。
第1处t[0][N-j-1]=t[j][0];第2处for(j=N-1;j>=0;j--)第3处t[j][N-1]=r[j];2程序修改给定程序MODI1.C中函数fun的功能是：计算s=f(-n)+f(-n+1)+……+f(0)+f(1)+f(2)+……+f(n)的值。
例如，当n为5时，函数值应为：10.407143。
/*******found******/double f(double x){if(x==0.0||x==2.0)return 0.0;else if(x<0.0)return (x-1)/(x-2);elsereturn (x+1)/(x+2);}double fun(int n){ int i;double s=0.0,y;for(i=-n;i<=n;i++){ y=f(1.0*i);s+=y;}/*******found******/return s;}3程序设计编写函数fun，它的功能是计算：s=根号下(ln(1)+ln(2)+ln(3)+……ln(m))S作为函数返回，在C语言中可调用log(n)函数求ln(n)。
log函数的引用说明是：Double log(double x)例如，若m 的值为：20，fun函数值为：6.506583。
double fun(int m){double s=0.0;int i;for(i=0;i<=m;i++)s+=log(1.0*i);s=sqrt(s);return s;}第二套程序通过定义学生结构体变量，存储了学生学号，姓名和3门课的成绩。
所有学生数据均以二进制方式输出到文件中。
计算机2级
Option Base 1 Dim Arr1(20) As IntegerDim Arr2(20) As Integer Dim Sum as IntegerSub ReadData1()Open App.Path & "\" & "datain1.txt" For Input As #1For i = 1 To 20 Input #1, Arr1(i)Next I Close #1 End SubSub ReadData2()Open App.Path & "\" & "datain2.txt" For Input As #1 For i= 1 To 20 Input #1, Arr2(i)Next i Close #1 End SubSub WriteData(Filename As String, Num As Integer)Open App.Path & "\" & Filename for Output As #1Print #1, Num Close #1 End SubPrivate Sub C1_Click()ReadData1ReadData2 End Sub Private Sub C2_Click()Dim arr3(20) As IntegerSum = 0 For i = 1 To 20arr3 (i) = Arr1(i) - Arr2(i) Sum = Sum + arr3(i)Next Print Sum End Sub Private Sub C3_Click ()WriteData "dataout.txt", SumPrivate Function isprime(a As Integer) As BooleanDim flag As Booleanflag = Trueb% = 2Do While b% <= Int(a / 2) And flagIf Int(a / b%) = a / b% Thenflag = FalseElseb% = b% + 1End IfLoopisprime = flagEnd FunctionPrivate Sub C1_Click()Dim i As Integeri = 18000 Do i = i - 1Loop Until isprime(i) Text1.Text = I End SubPrivate Sub C2_Click() Open "out5.txt" For Output As #1Print #1, Text1.Text Close #1Private Sub C1_Click()Dim temp As LongDim i As Integer, k As Integertemp = 1For k = 0 To 2If Op1(k).Value ThenFor i = 1 To Val(Op1(k).Caption)temp = temp * iNext iText1.Text = tempEnd If Next kPrivate Sub Command1_Click() Dim i As Integer Dim sum As Long sum = 1If n = 10 Or n = 12 Then For i = n To 1 Step -1 sum = sum * i NextElse For i = n To 2 Step -1sum = sum + iNextEnd IfText1.Text = sumEnd Sub1Dim Arr(100) As Inte Dim temp As Integer Sub ReadData() Open App.Path & "\" & "datain1.txt" For Input As #1For i = 1 To 100 Input #1, Arr(i) Next I Close #1 End SubSub WriteData(Filename As String, Num As Integer) Open App.Path & "\" & Filename For Output As #1 Print #1, Num Close #1Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 Step 2 Text1.Text = Text1.Text & Arr(i) & Space(5)temp = temp + Arr(i) Next I Print temp End Sub Private Sub Read_Click() ReadData End SubPrivate Sub Save_Click() WriteData "dataout.txt", temp End Sub2Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 If Arr(i) Mod 3 = 0 ThenText1.Text = Text1.Text & Arr(i) & Space(5) temp = temp + Arr(i) End If Next iPrint temp End SubPrivate Sub Read_Click() ReadData End SubPrivate Sub Save_Click() WriteData "dataout.txt", temp End Sub100个整数下届为1奇数元素显示在文本框中，求和并显示第二种是100个整数可以被3整除的显示并求和！第三种100整数该数组中大于等于50的元素在文本框显示，并求和显示在窗体上3Private Sub Calc_Click() Text1.Text = "" For i = 1 To 100 If Arr(i) >= 50 ThenText1.Text = Text1.Text & Arr(i) & Space(5) temp = temp + Arr(i) End If Next I Print temp End Sub Private Sub Read_Click() ReadData End SubPrivate Sub Save_Click() WriteData "dataout.txt", temp End Sub第四种100个整数下标为偶数的元素显示在文本框中，求合并显示Private Sub Calc_Click() For i = 1 To 100 If i Mod 2 = 0 Then Text1.Text = Text1.Text & Arr(i) & Space(2)sum = sum + Arr(i) End If Next i Print sum End SubPrivate Sub Form_Load() Text1.Text = "" End SubPrivate Sub Read_Click() ReadData End SubPrivate Sub Save_Click() WriteData "dataout.txt", sum End Sub第五种100个整数数组中小于50的元素在文本框中显示，并求和显示Private Sub Calc_Click() For i = 1 To 100 If Arr(i) < 50 Then Text1.Text = Text1.Text & Arr(i) & Space(2)sum = sum + Arr(i) End If Next I Print sum End SubPrivate Sub Read_Click() ReadData End SubPrivate Sub Save_Click() WriteData "dataout.txt", sum End Sub3，7，11计算5000以内能被该数整除的所有数之和，放在Text1中Private Sub C1_Click() If Cb1.Text = 3 Then divide (3) ElseIf Cb1.Text = 7 Then divide (7) Else divide (11) End ifPrivate Sub divide(x As Integer) Dim i As Integer Dim temp As LongFor i = 1 To 5000 If i Mod x = 0 Then temp = temp + I End If Next I Text1.Text = temp End sub1一个命令按钮一个文本框0-1000能被5或7整出的整数个数显示Sub SaveData() Open App.Path & "\" & "outtxt.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub Function Fun() Dim temp As Integer Dim i As Integer For i = 0 To 1000 If i Mod 5 = 0 or i Mod 7 = 0 Then temp = temp + 1 End If Next I Fun = temp End FunctionPrivate Sub Command1_Click() d = Fun() Text1.Text = d SaveData End Sub2在0-100一个命令按钮一个文本框不能被7整除的所有整数的和在文本框显示Function Fun() Dim i As Integer Dim temp As Integer For i = 0 To 100 If i Mod 7 <> 0 Thentemp = temp + I End If Next I Fun = temp End Function3在0-1000一个命令按钮一个文本框不能被7整除的所有整数的个数显示在文本框Function Fun() Dim i As Integer Dim temp As Integer For i = 0 To 1000 If i Mod 7 <> 0 Thentemp = temp +1 End If Next I text1.text= temp4在0-200一个命令按钮一个文本框能被3整除的所有整数的和显示在文本框Function Fun() Dim sum As Integer, i As Integer For i = 0 To 200 If i Mod 3 = 0 Then sum = sum + IEnd If Next I Text1.Text = sum End Function5在0-100一个命令按钮一个文本框所有偶数的平方和，显示在文本框Function Fun()Dim i As Integer, sum As Long For i = 0 To 100If i Mod 2 = 0 Then sum = sum + i * iEnd If Next I Text1.Text = sum End FunctionPrivate Sub Command1_Click()Image1.Picture = LoadPicture(App.Path & "\Misc34.ico") End SubPrivate Sub Command2_Click()Image1.Picture = LoadPicture(App.Path & "\Misc37.ico") End SubPrivate Sub Command3_Click()Image1.Picture = LoadPicture("") End SubPrivate Sub Dir1_Change()File1.Path = Dir1.Path End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.Drive End SubPrivate Sub File1_Click()Label2.Caption = File1.FileNameEnd SubOption Base 1 Dim a(5, 8) As Single, athlete(5) As String * 8Private Sub Command1_Click () Dim ch As String Text1 = ""Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 5Input #1, ch athlete(k) = ch Text1 = Text1 & ch & " "For j = 1 To 8 Input #1, ch a(k, j) = Val(ch)Text1 = Text1 & ch & " " NextText1 = Text1 & Chr(13) & Chr(10) Next k Close #1 EndSubPrivate Function getmark(n As Integer) As Singles = a (n, 1) maxnum = s minnum = s For k = 2 To 7s = s + a(n, k) If maxnum < a(n, k) Then maxnum = a(n, k) End If If minnum > a(n, k) Then minnum = a(n, k) End IfNext k s = (s - maxnum - minnum) / 5 getmark = s * 3 * a (n, 8) End FunctionPrivate Sub Command2_Click()' 要求考生编写的程序Dim Sorce (5) As Single Dim i As Integer Dim maxSorce As Single Dim maxnum As Integer for i = 1 To 5 Sorce (i) = getmark (i) Next maxSorce = Sorce (1) For i = 2 To 5 If Sorce (i) > maxSorce Then MaxSorce = Sorce (i) maxnum = I End If Next Text2.Text = athlete(maxnum) Text3.Text = maxSorce End Sub Private Sub Command3_Click() Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2, Text3 Close #1End SubPrivate Sub C1_Click()Dim k As Integer Form2.ShowForm2.Print Form1.L1.Caption; Form1.Text1Form2.Print Form1.L2.Caption; Form1.Text2Form2.Print Form1.L3.Caption; Form1.Text3Form2.Print Form1.Frame1.Caption; "：";For k = 0 To 1 If Form1.Op1(k).Value ThenForm2.Print Form1.Op1(k).CaptionEnd If Next k End SubPrivate Sub Form_Load() Text2.PasswordChar = "*"Private Sub C1_Click()Dim k As Integerk = 0While (k < List2.ListCount)If List2.Selected(k) = True ThenList1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Ifk = k + 1WendEnd SubPrivate Sub C2_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndex End Subtext1中的大写转换成小写，小写转换成大写Dim a$, b$, k%, n% a$ = "" n% = Asc("a") - Asc("A") For k% = 1 ToLen(Text1.Text) b$ = Mid(Text1.Text, k%, 1) If b$ >= "a" And b$ <= "z" Thenb$ = String(1, Asc(b$) - n%) ElseIf b$ >= "A" And b$ <= "Z" Then b$ = String(1, Asc (b$) + n%)End If End If a$ = a$ + b$ Next k% Text1.Text = a$Private Sub C1_Click () Timer1.Enabled = True End SubPrivate Sub C2_Click () Timer1.Enabled = False End SubPrivate Sub Timer1_Timer()P1.Move P1.Left + 20End Sub向Text1输入字符，单击统计按钮，在窗体上显示组合框列表项的个数Private Sub Command1_Click ()Combo1.AddItem Text1End SubPrivate Sub Command2_Click ()Print Combo1.ListCountEnd Sub单击加密按钮，根据选中的单选按钮后面的数字 n，把明文中的每个字母改为它后面的第n个字母（z后是a，Z后是A） Dim n as Integer, k As Integer, m As IntegerDim c As String, a As String For k = 0 To 2 If Op1(k).Value Thenn = Val(Op1(k).Caption) End If Next k m = Len (Text1.Text) a = "" For k = 1 To m c =Mid$(Text1.Text, k, 1) c = String (1, Asc(c) + n) If c > "z" Or c > "Z" And c < "a" Then c = String (1, Asc(c) - 26) End Ifa = a + c Next k Text2.Text = aEnd sub打开文件默认为“文本文件”转换是把文本框中小写转换成大写，存盘是存在out5.dat文件中Private Sub C1_Click() Dim a As StringCD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文件|*.doc|"CD1.FilterIndex = 2 CD1.Action = 1Open CD1.FileName For Input As #1 Input #1, a Close #1Text1.Text = aPrivate Sub C2_Click() Text1.Text = UCase (Text1.Text) End SubPrivate Sub C3_Click() CD1.FileName = "out5.dat" CD1.Action = 2OpenCD1.FileName For Output As #1 Print #1, Text1.Text Close #1Private Sub Command1_Click() Text4 = ""a = Val(Text1)b = Val(Text2) n = Val(Text3) Text4 = Text4 & a & " " & b k = 2Do While k < n c = a * b k = k + 1 If c < 10 Then Text4 = Text4 & " " & ca =b b =c Elsed = c \ 10 Text4 = Text4 & " " & d a = d k = k + 1If k <= n Then d = c Mod 10 Text4 = Text4 & " " & d b = d End IfEnd If Loop End Sub30个0~999的随机整数放入一个数组中，然后输出最大值，显示在窗体Private SubCommand1_Click()Dim arrN(30) As Integer Dim Max As Integer RandomizeFor i = 1 To 30 arrN(i) = Int(Rnd * 1000) Next iMax = arrN(1) For i = 2 To 30 If Max < arrN(i) ThenMax = arrN(i) End If Next I Print Max20个0~999的随机整数放入数组，输出大于500的所有整数之和。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
说明:
先为变量y赋初值1,然后通过循环语句将命令y=y*n重复执 行100次,循环体每次执行时,n的值依次取1,2,……, 100,循环体每次执行后,Y的值依次为1!,……,100!.
25
方法1:
在上述程序代码中添加一条命令x=x+y,也就是把 代码执行过程中产生的各Y值累加起来,那么最终 的X值就是所要求的各阶乘之和.
x=0 y=1 FOR n=1 to 100 y=y*n x=x+y endfor ?'x=',x
26
方法2:
在求100!时,将FOR子句改成for i=1 to n,代码段的功能 就变成了n!.将求n!的代码段重复执行100次,n的值从1 变到100.最后将每次执行产生的阶乘累加起来. x=0 for n=1 to 100 y=1 for i=1 to n y=y*i endfor x=x+y endfor ?'x=',x return
2
7.1 程序与程序文件
3
7.1.1 程序的概念
1.程序
定义:
程序是能够完成一定任务的命令的有序集合.这组命令被存 放在称为程序文件或命令文件的文本文件中.
2.程序方式
优点:
程序可以被修改并重新运行. 可以用多种方式,多次运行程序. 在一个程序中可以调用另一个程序. 具有在命令窗口中无法使用的结构化程序设计命令.
NOTE<注释内容>或*<注释内容> 以NOTE或*开头的代码行为注释行,一般用于对下 面一段命令的说明. &&<注释内容> 命令行后可添加注释,对所在行命令的说明.
6
7.1.2 程序文件的建立与运行
1.程序文件的建立
方法:
选择"文件"菜单中的"新建"命令,然后在"新 建"对话框中选择"程序",并单击"新建文件" 按钮. 在文本编辑窗口中输入程序内容. 保存程序文件.
18
命令说明:
SETP nIncrement的默认值为1. 可以在循环体内改变循环变量的值,但是这会影响 循环体的执行次数. EXIT在循环结束时,将控制从循环体内转移到 ENDFOR ENDFOR后面的命令. LOOP给定该参数,可以控制程序直接返回到FOR, 而不去执行LOOP后面的指令序列,但不影响计数 器的正常工作.
23
5.循环结构的嵌套使用
错误的命令格式:
DO WHILE1 FOR1 …… ENDFOR1 ENDDO1
正确的使用嵌套结构可使程序更清晰,可读性 更强.
24
6.程序举例
例如:编写程序,计算:T=1!+2! +……+100! 求100!的程序代码如下:
y=1 FOR n=1 to 100 y=y*n ENDFOR
3.参数传递方式
按"引用"传递
TO REFERENCE:按引用传递.
采用1调用模块程序时,如果实参是常量或一般形式的表 达式,系统会计算出实参的值,并把它们赋给相应的形参 变量,称为按值传递.如果实参是变量,则传递的将不是 变量的值,而是变量的地址.
按"值"传递
TO VALUE:按值传递.
37
采用2调用模块程序时,默认情况下是以按"值"方式传 递参数.如果实参是变量,可以利用SET UDFPARMS命令 重新设置参数传递的方式. 还可以在程序之间传递数组. 当实参是数组元素时,总是采用按值方式传递元素值. 当实参是数组名是,如果按"值"方式传递数组元素值时, 则传递数组的第一个元素值给形参变量. 如果按"引用"方式传递数组元素值时,则传递的将是整 个数组.
33
打开过程文件的命令格式:
SET PROCEDURE TO[<过程文件1>[<过程文件 2>,…]] [<ADDITIVE>]
关闭过程文件的命令格式:
RELEASE PROCEDURE TO[<过程文件1>[,<过程 文件2>,…] 2> …]
2.模块调用
格式1:
DO <文件名><过程名>
格式2:
19
3.DO WHILE-ENDDO语句
命令格式:
DO WHILE lExpression Commands [LO明:
条件lExpression是个逻辑表达式,如果第一次判断条件时, lExpression为假,则循环体一次也不执行.
20
执行DO WHILE语句时,系统先对表达式求值,如 果为真,则顺序执行循环体内的各条语句. 如果循环体包含LOOP命令,那么当遇到LOOP时, 就结束循环体的本次执行,不执行其后面的语句, 而是回到DO WHILE外重新判断条件. 如果循环体包含EXIT命令,那么当遇到EXIT时, 就结束该语句的执行,转去执行ENDDO后面的语 句. 通常LOOP或EXIT出现在循环体内嵌套的选择语句 中,根据条件决定是LOOP回去,还是EXIT出去. DO WHILE与ENDDO必须成对出现.
29
方法2:
Clear FOR i=100 TO 900 s=STR(i,3) && 将一个三位数转换成字符串 a=VAL(LEFT(s,1)) && 将字符串最左边的一个数字字符转换为数值 b=VAL(subs(s,2,1)) && 将字符串最中间的一个数字字符转换为数值 c=VAL(right(s,1)) && 将字符串最右边的一个数字字符转换为数值
9
7.1.3 简单的输入输出命令
1.INPUT命令
命令格式:
INPUT <字符表达式> TO <内存变量>
命令说明:
当程序执行到该命令时,程序暂停,等待用户从键 盘输入数据,用户可以输入任意合法的表达式. 当用户以Enter键结束输入时,系统计算表达式的 值并将表达式的值存入指定的内存变量,程序继续 向下运行.
10
2.ACCEPT命令
命令格式:
ACCEPT <字符表达式> TO <内存变量>
命令说明:
当程序执行到该命令时,程序暂停,等待用户从键 盘输入字符串. 当用户以回车键结束输入时,系统将该字符串存入 指定的内存变量,程序继续向下运行.
11
3.WAIT命令
命令格式:
WAIT [cMessageText] [TO VarName] [WINDOW [AT nRow,nColumn]][NOWAIT] [CLEAR | NOCLEAR] [TIMEOUT nSeconds]
21
4.SCAN-ENDSCAN语句
命令格式:
SCAN [NOOPTIMIZE] [Scope][FOR lExpression1][WHILE lExpression2] [Commands] [LOOP] [EXIT] ENDSCAN
命令说明:
〈范围Scope〉的默认值是ALL.
22
该语句自动切换记录指针到下一条符合条件的记录, 其功能相当于LOCATE,CONTINUE和DO WHILEENDDO语句功能的合并. EXIT和LOOP命令同样可以出现在该循环语句的循 环体内. 循环结构是可以嵌套使用的,但是要注意嵌套的结 构的次序.下一个循环体一定要在上一个循环体内, 它们之间不允许交叉嵌套.
4
例如:编写程序,计算圆的周长和面积.
程序过程
CLEAR && 清除Visual FoxPro主窗口上的全部内容 *设置半径 R=3* 依次计算圆的周长和面积 L=2*PI()*R S=PI()*R^2 *输出计算结果 ?"周长=",L?"面积=",S
5
说明:
程序中经常插入注释,以提高程序的可读性.注释 为非执行代码,不会影响程序的功能. 注释方式:
28
方法1:
CLEAR FOR i=100 TO 900 a=INT(i/100) && INT(153/100)等于1 b=INT((i-100*a)/10) && INT((153-100*a)/10)等于5 c=i-INT(i/10)*10 && 153-INT (153/10) *10 IF i=a^3+b^3+c^3 ?i ENDIF ENDFOR RETURN
定义:
循环结构也成为重复结构,是指程序在执行的过程 中,其中的某段代码被重复执行若干次.被重复执 行的代码段,通常称为循环体.
分类:
FOR-ENDROR DO WHILE-ENDDO SCAN-ENDSCAN
17
2.FOR语句
定义:
该语句常用于实现循环次数已知情况下的循环结构.
命令格式:
FOR MemVarName=nInitialValue TO nFinalValue [SETP nIncrement] Commads [EXIT] [LOOP] ENDFOR|NEXT
27
例如:找出100——900之间的所有"水仙花 数".
所谓"水仙花数"是指一个三位数,其各位数字的 立方和等于该数本身.(如153=13+53+33) 这题的关键是要知道如何分离出一个三位数中的各 位数字.下面列出两种方法,其中i代表三位数,a, b和c分别代表该三位数的百位,十位和个位上的数 b c 字.
8
3.执行程序文件
菜单方式:
选择"程序"菜单中的"运行"命令,打开"运行" 对话框;从文件列表框中选择要运行的程序文件, 单击"运行"命令按钮.