下载文档原格式
计算机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试题及答案一、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左侧的“幻灯片”窗格中，点击“新建幻灯片”按钮即可创建一个新的幻灯片。
计算机基础第一章 计算机的发展§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字节。
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. 计算机安全基础知识
- 计算机安全的重要性和目标
- 常见的安全威胁和防御措施
- 常用的安全工具和技术
以上是计算机二级技术基础知识的一些主要内容，通过研究和
掌握这些知识，可以为深入研究和应用计算机领域打下坚实的基础。
全国计算机等级考试计算机等级考试即全国计算机等级考试。
全国计算机等级考试（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考试报名每次考试报名的具体时间由各省（自治区、直辖市）级承办机构规定。
计算机二级必备知识点引言概述：计算机二级必备知识点是指在进行计算机二级考试准备过程中，需要掌握的重要知识点。
本文将从五个大点详细阐述这些知识点，包括操作系统、计算机网络、数据库、程序设计基础和计算机硬件。
正文内容：
一、操作系统
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.计算机硬件维护与故障排除技巧。
第一套、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门课的成绩。
所有学生数据均以二进制方式输出到文件中。
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的所有整数之和。
