!算法与程序设计知识点汇总材料.doc

1、 高中信息技术高中信息技术算法与程序设计算法与程序设计 VBVB（选修）（选修） 知识要点知识要点 相关知识点 （一）算法 1.1.定义定义 相关题解： 1 算法：就是解决问题的方法和步骤。算法是程序设计的“灵魂” ， 算法+数据结构程序。 单选题 1、运用计算机程序解决实际问题时，合理的步骤是（B） 。 A、设计算法分析问题编写程序调试程序 B、分析问题设计算法编写程序调试程序 C、分析问题编写程序设计算法调试程序 D、设计算法编写程序分析问题调试程序 2 2算法的描述方法：算法的描述方法： 1 算法的描述：可分多种表达方法，一般用自然语言、流程图和伪 代码进行描述。 2 自然语言描述法：指

2、用人们日常生活中使用的语言（本国语言） ， 用自然语言描述符合我们的习惯，且容易理解。 3 流程图描述：也称程序框图，它是算法的一种图形化表示方法。 且描述算法形象、直观，更易理解。 4 伪代码描述法：是介于自然语言和计算机程序语言之间的一种算 法描述。是专业软件开发人员常用方法。 相关题解： 单选题 1、图形符号 在算法流程图描述中表示( D ). A 处理或运算的功能 B 算法的开始或结束 C 用来判断条件是否满足需求 D 输入输出操作 2、图形符号 在算法流程图描述中表示( A ). A 处理或运算的功能 B 算法的开始或结束 C 用来判断条件是否满足需求 D 输入输出操作 3、以下哪个

3、是算法的描述方法? ( A ) A 流程图描述法 B 枚举法 C 顺序法 D 列表法 4、以下哪个是算法的描述方法?( D ) A 顺序法 B 列表法 C 集合法 D 自然语言描述法 5、介于自然语言和计算机语言之间的一种算法描述是下列哪个选 项？（A ） A、伪代码 B、流程图 C、高级语言 D、VB 程序设计语言 （二）程序设计基础 （1）常用高级编程语言：BASIC、VB、Pascal、C、C+、Java 1 面向对象的程序设计语言：面向对象的程序设计语言：其中的对象对象主要是系统设计好的对象， 包括窗体等、控件等 2 控件：控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的 部件

4、，如文本框，命令按钮等。 常用控件常用控件： 控件控件 对象的类型对象的类型 前缀前缀 名字举例名字举例 窗体窗体 Command1 frm frmfind 命令按命令按 钮钮 Command button cmd cmdok 标签标签 Label lbl lblinput 文本框文本框 TextBox tmr tmrClock 若命令按钮若命令按钮(Command)的的Enabled属性设置为属性设置为True时按钮有时按钮有 效，设置为效，设置为 False 时按钮无效时按钮无效 3 对象的属性、方法和事件对象的属性、方法和事件 1 属性属性 属性属性 Name 设置对象的名称 Capti

5、on 决定控件中显示的内容（文字） Text 决定窗体中文本框中显示的内容(初始为空白) Height 决定控件高度 Width 决定控件宽度 TOP 决定控件的靠顶部位置 Left 决定控件的靠左边位置 Font 设置控件中字体格式 BackColor 设置控件背景色 ForeColor 设置控件的前景色 BorderStyle 设置控件的边框风格 Alignment 即标签文字对齐属性： (0)Left Justify 时文本左对齐； (1)Right Justify 时文本右对齐；设置为(2)Center 时文本居中。 AutoSize 设置为 False 时输入控件 Caption 中

6、文字超过控件宽度时超 出部分被裁剪掉，设置为 True 时，控件可水平扩充，以适 应控件 Caption 属性。 Visible 决定控件是否可见 Enabled 决定控件运行时是否有效 对象对象.属性属性值属性属性值 对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时 通过程序代码设置,方法如下 例：给文本框“Txt123”的“Text”属性赋值为字符串“20” ，代码 如下 Txt123.text =”20” 变量对象变量对象.属性属性 如果要获取对象的状态或特性，这时就要读取对象的属性值，方法 如下 例：读取文本框“txt123”的“Text”属性的代码如下 a = txt123

7、.text 2 2 方法方法 对象.方法参数名表 例：Command1.print ”欢迎使用” 该语句使用 print 方法在 Command11 窗体中显示字符串 “欢迎使用” 3 事件及事件驱动事件及事件驱动 事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会 产生一个 Click 事件。如需要命令按钮响应 Click 事件，就把完成 Click 事件功能的代码写到 Click 事件的事件过程中，与事件一一对 应。 事件过程的形式如下： Private Sub 对象_事件名( ) （事件过程代码） End Sub 一个简单的一个简单的 VB 程序程序求圆的面积 Private S

8、ub Command1_Click() 程序开始 Const PI As Single = 3.14 常量说明 Dim r As Single, s As Single 变量说明 r = InputBox(r=, 输入半径) 输入 r 的值 s = PI * r * r 数据处理 Print 圆的面积 s=; s 输出 End Sub 程序结束 相关题解： 单选题 1、下列关于程序设计说法正确的是( B )。 A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行 的高级语言是 PASCAL, FORTRAN, EXCEL, C+等 B、程序设计就是寻求解决问题的方法，并将其

9、实现步骤编写成计算机可以执行的 程序的过程 C、程序设计语言和计算机语言是同一个概念的两个方面 D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程 2、下列说法错误的是（ D ）. 输入或输出 判断 处 理 或 运算 连接点 流程线 开始或结束 A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机 可以执行的程序的过程 B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程 C、 计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过 程 D、程序设计语言和计算机语言是同一概念的两个方面 3、下列不属于程序设计语言中高级语言的是（C） 。 A、BASIC

10、 B、C 语言 C、汇编语言 D、PASCAL 4、程序设计语言的发展历程中，不包括（ ） 。 A、自然语言 B、机器语言 C、汇编语言 D、高级语言 一、常量一、常量：批在程序进行过程中不变的量在 VB 中一般分数值常 量与字符常量两种 数值常量：就是数学中说的常数，分整型常量和实型常量两种 整型常量：即整数，指不带小数点的数值如 1、0、 、-10、+35 等都 是合法的整数 实型常量：即实数，指带小数点的数值。 实型常量又分为定点数和浮点数两种。 例：定点数：3.14159 和-6.8，1.99 浮点数：2E6、1E5、88E 例：1.2345103 可表示为 1.2345E3，字母 E

11、 表示底数 10 浮点数就是数学上的科学计数法。 字符串常量：被一对双引号括起来的若干个合法的字符称为字符串 常量。例如：”China”、”Visual Basic”、”18”、”3.1415”等，双引号中 字符，不包括双引号本身。 符号常量：如果多次用到同一个常量，则可用一个有意义的名字表 示这个常量。 二、变量二、变量：在程序执行过程中，其值可以改变的量称为变量 变量命名注意要点：变量命名注意要点：1、必须以字母开头,不能以数字或其他字 符开头。 2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空 格等字符。 3、最长不超过 255 个字符 4、不能以 VB 保留字作变量名，如语

12、句定义符、函数名等。 5、VB 不区分变量名中字母大小写。如 HELLO 和 Hello 是同一个变 量。 数据及运数据及运算算 （1）常用数据类型：(整型)Integer、 （长整型）Long、 （单精度 型） Single、（双精度型） Double、（字符串型） String、（布尔型） Boolean、 （日期型）Date 其中(整型)Integer、 （长整型）Long、 （单精度型）Single、 （双精度型） Double 属于数值型 表示范围： (整型)Integer (-32768 32767，存储为 16 位 ， 2 个字节) (长整型)Long(-21 亿 21 亿，可以

13、表示人口数量) (布尔型）Boolean(True 真、是 或 False 假、非) （字符串型）String(定长字符串：065535 个字符，不定长字符 串：020 亿个字符) 字符串型数据是指用 “ ”括起来的一串字符。如“欢迎进入 VB 世 界！”、“ Visual Basic” 、“1234 ”都是字符串类型。 （日期型）Date（100/1/19999/12/31） 日期型数据专门用来处理日期和时间。VB 采用一对“#”把日期和 时间的值括起来，如#2003/08/20#表示 2003 年 8 月 20 日。 （2）常量和变量的命名、声明及赋值 符号常量的声明：Const 常量名

14、As 常量类型 = 常量值 如：Const pi As Single = 3.14159 常量名为 pi 变量的声明： Dim As 如：Dim a As Integer 定义一个 整型变量，变量名为 a 变量的赋值 VB 中使用 Let 语句给变量赋值，其形式如下： Let 变量 = 表达式 其中，方括号 表示这部分内容是可选的， 通常可以省略该关键字。 例题例题 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim str As String Let a = 54 Let b = 114

15、c = a + b str = Hello World Print a=; a, b=; b, c=; c Print str End Sub VB 语言中，下列数据类型说明符中表示整型的是（B） 。 A、Boolean B、Integer C、Date D、String 数据的输出数据的输出 程序中运算得到的结果，除可以使用文本框和标签显示外，对于大 批量的数据更适合用 Pint 方法输出，格式如下 对象 . Pint 表达式列表 例题：例题： Private Sub Command1_Click() Dim x As Single, y As Single Command11.Print

16、-61; -34 Command11.Print 9 * 2; 12 Command11.Print This is; a book x = 3: y = 4 Print x=; x, y=; y End Sub 注意：注意：Print 方法方法 相关题解： 单选题 在 VB 语言中，下列合法的变量名是（B） 。 A、34ab B、ab34 C、*abc D、cc 下列选项中属于字符串常量的是（ ） 。 A、ab B、a+b C、1235 D、1235 在 VB 语言中，下列合法的变量名是（ ） 。 A、aa B、a*b C、7ab D、dim 运算符运算符 1、 算术运算：+ 加 - 减 *

17、乘 指数 例：22 = 4 / （浮点）除 例：5 / 2 = 2.5 整除 例： 5 2 = 2 Mod 求余数 例：5 Mod 2 = 1 相关题解 单选题 1、分析下列程序: Private Sub Command1_Click() s=113 + 11 Mod 3 Print s End Sub 当单击窗体时 s 的值是( A ). A、5 B、6 C、4 D、3 关系运算关系运算 字符串比较时按字符的字符串比较时按字符的 ASCII 一一比较，数字一一比较，数字大大 写字母写字母小写字母小写字母 = 赋值 小于号 不等于 大于号 = 大于等于号 2 结果为 True(真或是) 相关题

18、解 单选题 1、下面表达式的值是 false 的有( C ). A、969 n97 B、Int(4.99) len(basic) C、str(2000) 2 逻辑运算逻辑运算 Not（取反）（取反）And（与）（与） Or（或）（或） 运算结果为布尔型（Boolean）True 或 False 逻辑运算符的优先级为：No And Or 1、下列逻辑表达式的值为“假”的是（A） 。 A、2 + 4 8 B、3 + 12 = 15 C、5 0 And 4 3 D、10 / 5 7 B、8 / 4 3 And 3 2 D、4 + 11 20 3、已知 A，B，C，D 是简单变量，且都已有互不相同的值

19、，执行 语句 A=C: D=B 后，下列 关系表达式逻辑值为“真”的是（A） 。 A、C=A B、A=B C、D=C D、B=C 日期运算符与日期表达式日期运算符与日期表达式 日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常 量、日期型变量、日期函数等连接起来的式子，如表达式 “ #2003/09/01# +30 ” 的 运 算 结 果 是 “ 2003-10-1 ” ； 表 达 式 “#2003/10/20# - #2003/10/10#”的运算结果为整数 10 相关题解 单选题 1、设 a=2, b=3,在 VB 中，表达式 ab Or b3 值是:( A ) A、False

20、B、True C、-1 D、1 字符运算字符运算 字符串连接符为“+”和“ 数; Tab(9); 平方; Tab(18); 立方; Tab(27); 平方根 Print Tab(1); a; Tab(9); a * a; Tab(18); a * a * a; Tab(27); Sqr(a) Print Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b) End Sub 用户交互函数用户交互函数 VB 提供提供 InputBox( )和和 MsgBox( )函数用于人机交互函数用于人机交互 InputBox( )其语法格式

21、为：其语法格式为： InputBox( 提示提示，标题，标题，默认值，默认值,X 坐标坐标，Y 坐标坐标) MsgBox( ) 其语法格式为：其语法格式为： MsgBox(提示信息提示信息，按钮，按钮，标题，标题 ) 相关题解 单选题 1、Visual Basic 中，下列( A )函数是求绝对值的。 A、ABS（X） B、SQR(X） C、INT（X） D、GN（X) 2、表达式 Abs(-3.6)*sqr(100)的值是( C )。 A、-36 B、360 C、36 D、-360 3、下列( A )数据类型不是数值型。 A、Date B、Single C、Double D、Integer

22、4、下列函数中，返回值是字符串的是 ( A ). A、Mid B、Instr C、Val D、Len 5、下列( A )函数返回系统的当前时间。 A、time() B、date() C、day() D、year() 6、代数表达式 2 2 1 gt 表达式后错误的是( D ) A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/2 7、数学式子 ab ba 4 2 在 VB 中的正确写法是： （ ） A、 (2*a+b)/4*a B 、(2*a+b)/(4ab) C 、(2a+b)(4ab) D 、(2*a+b)/(4*a*b) 8、判断 x 是否在区间a, b上，在 VB

23、 中以哪个逻辑表达式是正确 的?( C ) A 、ax and x=b B、 ax=b C、ax and x=b 综合分析 1、向 n 变量存入 1 个 2 位整数，要使此 2 位数十位和个位上的值分 别存入 x, y 变量。正确的算法是( D ) x、x=Left(n, 1) y=n-x*10 Print x:Print y B、x=Left(n, 1) y=Right(n, 1) Print x:Print y C、x=n/10 y=n-x*10 Print x:Print y D、x=Int(n/10) y=n-x*10 Print x:Print y 2、向 x 变量中输入任意一个小写

24、字母，再将 x 变量中的小写字母转 成大写字母。正确的算法是( A ). 选项: A、输人字母到 x a=Asc(x)-32x=chr(x) Print x B、输人字母到 x a=Asc(x)+32x=chr(x) Print x C、输人字母到 x a=Val(x)一 32x=Chr(x)Print x D、输人字母到 x a=Val(x)+32 x=Chr(x)Print x 程序设计的顺序结构程序设计的顺序结构 顺序结构：代码按照由上到下的顺序一行一行地执行。顺序结构：代码按照由上到下的顺序一行一行地执行。 程序执行过程中没有分支、没有重复，程序执行过程中没有分支、没有重复，这种结构称

25、为这种结构称为 顺序结构。顺序结构。 例题：交换两个变量中的数据。例题：交换两个变量中的数据。 Private Sub cmdSwap_Click() Dim x As Single, y As Single Dim m As Single x = Val(txtsx.Text) y = Val(txtsy.Text) m = x: x = y: y = m 交换数据 txtdx.Text = Str(x) txtdy.Text = Str(y) End Sub Private Sub cmdEnd_Click() End End Sub 相关题解 单选题 1、以下是一段 VB 程序： a =

26、 1 b = a + 1 c = a + b 它的基本结构属于（ A ） A、顺序结构 B、选择结构 C、循环结构 D、树型结构 2、下列 VB 程序运行后，变量 x 的值为( A ). x=2 Print x+l Print x+2 A、2 B、3 C、5 D、8 程序设计的分支结构程序设计的分支结构 行行 If 语句语句 行 If 是指在一行中写完的 If 语句。其一般格式为： 格式一：格式一：If 条件条件 Then 语句语句 执行这种形式的 If 语句时，首先对条件进行判断。若条件成立，则 执行 Then 后面的语句； 若条件不成立， 则执行 If 语句后继程序行的 语句 格式二：格式

27、二：If 条件条件 Then 语句语句 1 Else 语句语句 2 例题：输入三个不相同的数，求出其中最小数。例题：输入三个不相同的数，求出其中最小数。 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim Min As Single a = InputBox(输入 a, 输入框) b = InputBox(输入 b, 输入框) c = InputBox(输入 c, 输入框) If a b Then Min = a Else Min = b If c = 60 Then Label1.Caption

28、 = 及格 End If If a 0 时，y=4x+1） 。 Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(InputBox(请输入变量 x) If x = 10 Then Value = 5 * x Else Value = 4 * x End If A、100 B、80 C、90 D、70 综合分析 1、如要完成:从键盘输入一个正整数，判断是否是奇数，如是就在 屏幕上显示。比较好 的算法是( B D )。 选项: A、输人的数存人 n 变量f=(n/2=Int(n/2)如果 f 中的值为 True

29、 就显 示 n 中值 B、 输人的数存人 n 变量f=(n/2=Int(n/2)如果 f 中的值为 False 就显 示 n 中值 C、输人的数存人 n 变量如果 n/2=Int(n/2)成立，就显示 n 中值 D、输人的数存人 n 变量如果 n/2=Int(n/2)不成立，就显示 n 中值 2、下面是判断变量 x 是不是能被 5 整除的偶数的程序，横线上的逻 辑表达式应为( AB ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If _ = 0 Then Labell.Caption=这个数是能被 5 整除

30、的偶数 Else Labell.Caption=这个数不是能被 5 整除的偶数 End If 选项： A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0 3、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在 屏幕上显示。比较好的算法是( AC )。 选项: A、输入的数存人 n 变量f=(n/2=Int(n/2)如果 f 中的值为 True 就显 示 n 中值 B、 输入的数存人 n 变量f=(n/2=Int(n/2)如果 f 中的值为 False 就显 示 n 中值 C、输入的数存

31、人 n 变量如果 n/2=Int(n/2)成立，就显示 n 中值 D、输入的数存人 n 变量如果 n/2=Int(n/2)不成立，就显示 n 中值 4、下列程序段运行后,m 的值为( A ) A=2: b=1: c=5 If A b Then m = A Else m = b If c m Then m = c 选项： A、1 B、2 C、5 D、提示错误，无答案 程序设计的循环结构程序设计的循环结构 一、一、ForFor- -NextNext 循环循环 For 循环变量一般形式是：循环变量一般形式是： For 循环变量循环变量=初值初值 To 终值终值 Step 循环变量增量循环变量增量 循

32、环体循环体 Nxt 循环变量循环变量 例题例题 1：求：求 s1+2+3+4.+100 Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 循环体 Next i Print sum=; sum End Sub 例题例题 2：Step 循环变量增量循环变量增量 Private Sub Command1_Click() For j = 3 To 15 Step 2 Print j Next j End Sub 循环变量的初值、终值、循环变量增量

33、都是数值型。其中要重复执 行的操作称为循环体，增量可正可负，如果没有设置 Step，则增量 的缺省值为 1 1、 循环变量取初值； 2、 循环变量与终值比较，没有超过终值转 3，否则循结束，接着 执行循环语句的后继语句； 3、 执行一次循环体 4、 循环变量增加一个增量 5、 重复步骤 24。 以上可以看出，For-Next 循环变量是一种当型循环。说明 For 语句与 Next 语句必须成对出现，而且它们当中的“循环变量” 必须是同一个变量，如上例中均为 I。当循环变量为正时，循环变 量超过终值，是指循环变量的值大于终值时；若为负，则是指循环 变量的值小于终值。 二、二、DoDoLoopLo

34、op 循环循环 For-Next 循环的次数是确定的，但是有的问题只知道循环的次数是确定的，但是有的问题只知道 循环结束的条件，重复执行的次数事先并不知道，这循环结束的条件，重复执行的次数事先并不知道，这 是需要是需要 Do-Loop 循环循环 格式一：格式一： Do While 条件条件 循环体循环体 Loop 例题：求最大公约数例题：求最大公约数 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val(Text1.Text) b = Val(Text2.Text) r =

35、 a Mod b Do While r 0 a = b b = r r = a Mod b Loop Text3.Text = Str(b) End Sub Private Sub Command2_Click() End End Sub 当当 VB 执行执行 Do While-Loop 循环时，先判断指定的条件是否循环时，先判断指定的条件是否 为真，若条件为真，执行循环体，条件为假时退出循环。为真，若条件为真，执行循环体，条件为假时退出循环。 格式二：格式二： Do 循环体循环体 Loop Until 条件条件 这种循环的执行过程如图所示。进入循环体后，先执行一次这种循环的执行过程如图所示。

36、进入循环体后，先执行一次 循环体循环体 A，然后再检查条件，然后再检查条件 P 是否成立。如果不成立，就重是否成立。如果不成立，就重 复执行循环体复执行循环体 A，直到条件，直到条件 P 成立退出循环体。成立退出循环体。 例题：如果我国人口每年以平均例题：如果我国人口每年以平均 1.5%的速度增长，问多少的速度增长，问多少 年后我国人口达年后我国人口达到或超过到或超过 15 亿？设现在人口为亿？设现在人口为 12.3 亿。亿。 Private Sub Command1_Click() Dim p As Single Dim r As Single Dim n As Integer p = 12

37、30000000# r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 1500000000# Print n; 年后, 人口=; p End Sub 下列程序段执行结束后，变量 y 的值是（C） 。 y=2 Do while y1 时返回函数值为 age (n-1)当 n=1 返回函数值 为 38 B、 定义 age (n)函数 函数中当 n1 时返回函数值为 age (n-1)-3 当 n=1 返回函数 值为 38 C、定义 age (n)函数 函数中不断地调用 age (n-1)-3 D、定义 age (n)函数 函数中

38、不断地调用 age (n)函数自己 4、排序与查找数据、排序与查找数据 四、应用程序设计 1、程序设计的一般步骤 2、简单程序设计 综合分析 1、a,b,c 三变量存放不同的数，值 a 最大，b 第二，比较好的算法 是（ ） A、 定义一个 max(x,y)函数 （值为 x,y 中的大值） a = max(max(a,b),c) B、如 a b 就 a = b如 a c 就 a = c 如 b b 就 a = b如 a c 就 a = c 如 b c 就 b = c D、如 a b 就两变量交换如 a c 就两变量交换 如 b c 就 两变量交换 2、求 2! +3! +4! +5!+10!的

39、值。能完成此运算，并且比较好的算 法是( A )。 选项: A、定义求阶乘的函数用 j c(n) 主程序中用一个循环 9 次调用 j c(n)函数进行累 加 B、用一个程序完成:每一项阶乘用一个 For/Next 循环完成，整个程序包括 9 个循环 C、用解析法:s=1*2+1*2*3+1*2*3*4+1*2*3*4*5*6*7*8*9*10 D、不必定义函数，只要用一个单重循环就能完成 3、要求打印 100 至 200 之间所有偶数的平方根（ C ） A、 i = 100 Do While i 200:Print i,Sqr(i):loop B、 i = 100 Do While i 200

40、:Print i,Sqr(i):i = i + 1:loop C、 For i = 100 to 200 step 2:Print i,Sqr(i) : Next i D、 For i = 100 to 200:Print i,Sqr(i):Next i 编程题 编写程序，使能打印下面所示的图案。 * * * * * 程序： Private Sub Command1 Click() Dim i As Integer 定义 i 为整型变量 Dim j As Integer 定义 j 为整型变量 For i = -3 To 3 Print Tab(Abs(i)+5) For j=1 To (4-A

41、bs(i)-1 Print *; Next j Print 换行 Next i End Sub 编写程序，使能打印下面所示的图案。 * * * * * 程序： Private Sub Command1 Click() Dim i As Integer 定义 i 为整型变量 Dim j As Integer 定义 j 为整型变量 For i = -3 To 3 Print Tab(Abs(i)+5); For j=1 To 2*(3-Abs(i)-1 Print *; Next j Print 换行 Next i End Sub 编写程序，使能打印下面所示的图案。 程序： Private Sub

42、 Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 6 Print Tab(10); For j = 1 To i Print “”; Next j Print Next i End Sub 完善显示按钮的 click 程序，将代码段中“变量 1“、 “变量 2.“变量 3、处换成正确的变量名，使当单击该按钮时，Labell. Label2 分别显 示 30、10,完成所有操作后，诸按“Ctrl+S”保存。 Private Sub Command_Click( ) x = 10 y = 30 If x =60 The

43、n Label1.Caption = “及格” End If If a 60 Then Label1.Caption = “不及格” End If End Sub 编写程序，求函数 y 的值(当 x0 时，y=4x+1)。 程序： Private Sub Command1 Click() Dim x As Single 定义 x 为单精度型变量 Dim y As Single 定义 y 为单精度型变量 x = Val(InputBox(请输入变量 x) If x =0 Then y = 3 * x + 1 Else y = 4 * x + 1 End If Print y=;y End Sub

44、 编写程序，求 y=6x-5 的值。(x 的值在程序中调用 InputBox 函数， 在弹出的标准输入对话框中输入) 程序： Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(InputBox(“请输入变量 x”) y = 6*x 5 Print “y=”; End Sub 一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住 多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴 子最初共有多少个桃子。完成所有操作后，诸按“Ctrl+S”保存。 程序： Private Sub Command1_

45、Click() Dim i As Integer Dim s As Integer s = 1 For i =1 To 9 s = (s + 1)*2 Next Print “s=”;s End Sub 完善按钮“计算 7!”的 Click 事件程序，当单击命令按钮时 Text1 显 示 7!的值。 Private Sub Command1_Click( ) Dim a As Integer Dim i As Integer a = 1 For i = 1 To 7 a = a * i Next i Text1.Text = a End Sub 请将按钮计算1+2+100的Click事件程序中

46、的常量和变量 换成正确的常量和变量，当单击命令按钮时 Text1 显示 1+2+100 的值。 完成所有操作后，诸按“Ctrl+S”保存。 Private Sub Command1_Click( ) Dim a As Integer Dim I As Integer a = 0 For i = 1 To 100 a = a + i Next i Text1.Text = a 编写程序，当在 Textl 中输入 x 的值后，单击计算按钮，求 y = |3x - 5|的值。 Private Sub Command1_Click( ) Dim x As Single Dim y As Single

47、x = Text1.Text y = Abs(3*x-5) Text2.Text = y End Sub 在打开的窗体 Command1l 中，在窗体中增加一个文本框 Text3,在完 整按钮中的程序，使当单击计算按钮时，计算 b*b 一 4ec 的值，并 在 Text3 中显示出来。 Private Sub Command1_Click( ) Dim b As Single Dim c As Single Dim x As Single b = Text1.Text c = Text2.Text x = b * b 4 * c Text3.Text = x End Sub 编程计算 s=1-2+3-4+5-+99-100 程序： Private Sub Command1 Click() Dim s As Integer 定义变量 s 为整型变量 Dim i As Integer 定义循环变量 s = 0 For i=1 To 100 if int(i/2