1、计算机软件技术基础1复习资料计算机软件技术基础-1复习资料1.考试范围绪论部分1. 程序设计语言发展历史机器语言、汇编语言、面向过程的语言、面向对象的程序设计语言2. 对象及其属性、方法与事件对象、属性、方法、事件、类3. Visual Basic 的特点可视化、面向对象、灵活的编程支持、广泛的应用领域面向对象的程序设计部分1应用程序的结构和开发环境工具箱窗口、工程窗口、属性窗口、对象窗口、代码窗口建立应用程序的工作步骤新建工程、保存工程、窗体管理、程序试运行和调试、打开旧工程、建立安装程序常用的可视化控件窗体、命令按钮、文本框、标签数据部分1基本数据类型整型、长整型、单精度浮点型、双精度浮点
2、型、货币型、字节型、字符串型、逻辑型、日期时间型2直接常量整数常量、浮点型常量、字符串常量、逻辑型常量、日期型常量、时间常量、日期时间常量3. 变量变量命名规则普通变量的赋值声明变量对象类型变体类型类型声明的其他规定类型转换4. 符号常量5数组和子定义数据类型运算符与表达式部分1. 运算符算术运算符、比较运算符、字符串运算符、日期时间运算符、对象型比较运算符、逻辑运算符、运算符的优先级2. 书写表达式控制结构与算部分1. 控制结构程序流程图图例、顺序结构、分支结构、循环结构2IF语句3SELECT CASE 语句4. DO LOOP语句5. For next 语句6. 其他语句7. 程序设计例
3、子过程部分1SUB过程2Function 过程3过程的递归调用4. 形参与实参的结合5. 过程的例子内部控件部分1. 直线与形状 2. 图象与图片框 3. 滚动条与框架 4. 单选框与复选框 5. 列表框、组合框与定时器常用内部函数部分1. 数学函数 2. 字符串函数 3. 数组函数和语句 4. 日期与时间函数 5. 其他函数与语句 6. 预定义对话框鼠标、键盘事件部分1. 控件的显示 2. 鼠标事件 3. 键盘事件控件数组与菜单部分1. 控件数组 2. 菜单多模块程序设计与调试部分1. 多模块程序设计 2. 程序的调试文件操作部分1. 基本概念2. 文件的打开、读写和关闭3. 与文件读写有关
4、的函数和语句4. 与文件有关的控件2、复习题一、判断题1、框架控件和形状控件都不能响应用户的鼠标单击事件。( )2、当定时器控件的Interval属性值为0时,会连续不断地发送Timer事件。( )3、一个菜单项是不是分隔条,由Caption属性决定。( )4、可以通过语句代码使一个单选框组中的所有单选框均为不选定状态。( )5、Windows下窗体的子菜单最多有5级。( )6、一个变量在刚被声明尚未被赋值之前没有值。( )7、对英文字母的比较,默认情况下是区分大小写的。( )8、两个日期时间值可以做减法,但不能做加法。( )9、表达式 NOT x3是等价。( )10、注释行也能使用续行符。(
5、 )11、VB编译生成的可执行文件不再需要工程文件与各个模块文件。( )12、VB程序中不区分代码字符的大小写。( )13、当把浮点数赋给整型变量时,会出现溢出错误。( )14、在同一作用域中,变量名不能重复。( )15、日期时间型变量既可以保存日期值,也可以保存时间值,但不能同时保存日期和时间值。( )二、单向选择题1.多个语句可以书写在同一行上,但它们之间要加 A): B); C), D)、 2.在窗体Form1的Click事件过程中有以下语句:Label1.Caption=”Visual BASIC”,设标签的原Caption属性值为默认值,则该语句执行之后该标签控件Name属性和Cap
6、tion属性的值分别为 A)“Label1”、“Visual BASIC” B)“Label1”、“Caption”C)“Label”、“VisualBASIC” D)“Label”、“Label1”3.下面几对数据类型中,哪一对所占的内存大小一致: A)Integer、Single B) Integer、Boolean C) Date、Single D) Long、Variant 4.下面哪条语句可以正确地声明一个动态数组: A) Dim A(n) As Integer B) Dim A(1 To n) As IntegerC) Dim A() As Integer D) Dim A( ,
7、) As Integer 5.如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(7,3 To 5)声明的数组有 个元素A) 21 B) 28 C) 24 D)326.要使一个图片框控件自动地附在窗体的一条边上,应该设置它的 属性A)Picture B)Align C)Left D)AutoSize7.下列控件中,不具备Caption属性的是: A)ListBox B)CheckBox C)Frame D)正三角形8.下面哪类控件不支持Change事件: A)TextBox B)Label C)PictureBox D)ListBox9.下面各类型对象中,没有Mo
8、ve方法的是: A)Line B)Image C)Form D)Shape10.在列表框中添加一个条目,应使用列表框的什么方法: A)InsertItem B)AddItem C)AppendItem D)RemoveItem三、读程序,写结果1.执行下面程序,单击窗体后,窗体上显示的第一行结果是 ,第三行结果是 。Private Sub Form_Click() Dim Mystr As String Dim Mystr1 As String Dim Mystr2 As String Mystr1 = B For i = 1 To 3 Mystr2 = LCase(Mystr1) Mystr
9、1 = Mystr1 & Mystr2 Mystr = Mystr & Mystr1 Print Mystr Mystr1 = Chr(Asc(Mystr1) + i) NextEnd Sub2执行下面程序,窗体上显示的结果是什么?Dim m As Integer, n As Integer, k As Integern=20:k=1For m=1 to n Step k Print m n=n-1 k=k+2NextPrint n,k3下面程序段执行完毕,窗体上显示的结果是什么?Dim b As Integer,k As Integerb=1For k=1 To 6 b=b*k If b=2
10、0 Then Exit For Else k=k+1 End IfNext kPrint k,b4对下面程序,单击窗体后,在文本框Text1和Text2中显示的内容分别是什么?Provate Sub Form_Click() Dim x As Integer, y As IntegerX = 1 : Y =5Do While x 200 Print p,n6.对下面程序,单击窗体后,窗体上显示什么内容?Private Sub Form_Click() Dim x As Integer,y As Integer,z As Integer X=1:y=2:z=3 Call sub1(x,y,z)
11、Call sub1(y,z,x)Call sub1(y,y,z)End SubPrivate Sub sub1(byVal x As Integer, y As Integer, z As Integer) Dim I As Integer X=2*z Y=3*z Z=x+y Print x,y,zEnd Sub7.下面程序段在窗体上输出的是什么?Dim i As Integer, j As IntegerDim k As IntegerFor i=1 To 10 Step 3 For j=0 to 10 If j=5 Then i=i+4:Exit For j=j+1 k=k+1 Next
12、If i8 Then Exit ForNextPrint i,j,k8.下面程序段在窗体上输出的是什么?Dim a(4,4) As IntegerDim nc As Integer,nr As IntegerDim I as Integer,j As Integer ,k As IntegerNc=4:nr=1:I=1:j=1For k=1 To 16 A(I,j)=k If Inc And j=nr Then I=I+1 ElseIf I=nc And jnr And j=nc Then I=I-1 ElseIf I=nr And jnr+1 Then Nc=nc-1 Nr=nr+1 End
13、 IfNextPrint a(4,2),a(3,3),a(2,2) 四、程序设计题1.编写递归函数求1+2+3+m的值。2.编程计算100100000之间,共有多少个整数,满足它的各位数字之和为5。3.编程计算20212223210的值。4.编程计算100100000之间,共有多少个整数,满足它的各位数字之和可被3整除。答案:一、F F T T T F T F F FF T T T F二、B A B C C B D D A B三、1答案:Bb BbCc BbCcEe2答案:1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 413答案:7,
14、154答案:15,545答案:207.36 46答案:6 2 9 9 3 9 15 5 157答案:12 6 68答案:5 0 0四、1、答案:Private Function Add(n As Integer) As Integer If n = 1 Then Add = 1 Exit Function End If Add = m + Add(m - 1)End Function1、 答案:Private Sub Command1_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer
15、 intNum = 0 For lng1 = 100 To 50000 int2 = 0 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 5 Then intNum = intNum + 1 NextEnd Sub2、 答案:2047Private Sub Form_Click() Dim x As Integer, sum As Integer x = 1: y = 1 For I = 1 To 10 x = x * 2 sum = sum + x Next Print sumEnd Sub4、答案:31Private Sub Form_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer intNum = 0 For lng1 = 100 To 100000 int2 = 0 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 3 Then intNum = intNum + 1 Next Print intNumEnd Sub
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1