算法与程序设计VB(选修).pdf

高中信息技术算法与程序设计VB（选修）知识要点相关知识点（一）算法1.定义相关题解：1 算法：就是解决问题的方法和步骤。算法是程序设计的“灵魂”，算法+数据结构程序。单选题1、下列关于算法说法不正确的是(A)A、算法独立于任何具体的语言，BASIC 算法只能用BASIC 语言来实现B、解决问题的过程就是实现算法的过程C、算法是程序设计的“灵魂”D、其它三项都正确2算法的描述方法：1 算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。2 自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。3 流程图描述：也称程序框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更易理解。4 伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。相关题解：单选题1、图 形 符 号 在算法流程图描述中表示(B).A 处理或运算的功能B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束2、图形符号 在算法流程图描述中表示(A).A 处理或运算的功能B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束3、以下哪个是算法的描述方法?(A)A 流程图描述法B 枚举法C 顺序法D 列表法4、以下哪个是算法的描述方法?(D)A 顺序法 B 列表法 C 集合法 D 自然语言描述法（二）程序设计基础（1）常用高级编程语言：BASIC、VB、Pascal、C、C+、Java输入或输出判断处理或运算连接点流程线开始或结束1 面向对象的程序设计语言：其中的 对象 主要是系统设计好的对象，包括窗体等、控件等2 控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮等。常用控件：控件对象的类型前缀名字举例窗体Form frm frmfind 命令按钮Command button cmd cmdok 标签Label lbl lblinput 文本框TextBox tmr tmrClock 若命令按钮(Command)的 Enabled 属性设置为True 时按钮有效，设置为False 时按钮无效3 对象的属性、方法和事件1 属性属性Name 设置对象的名称Caption 决定控件中显示的内容（文字）Text 决定窗体中文本框中显示的内容(初始为空白)Height 决定控件高度Width 决定控件宽度TOP 决定控件的靠顶部位置Left 决定控件的靠左边位置Font 设置控件中字体格式BackColor 设置控件背景色ForeColor 设置控件的前景色BorderStyle 设置控件的边框风格Alignment 即标签文字对齐属性：(0)Left Justify 时文本左对齐；(1)Right Justify 时文本右对齐；设置为(2)Center 时文本居中。AutoSize 设置为 False时输入控件Caption 中文字超过控件宽度时超出部分被裁剪掉，设置为 True 时，控件可水平扩充，以适应控件Caption 属性。Visible 决定控件是否可见Enabled 决定控件运行时是否有效对象.属性属性值对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置,方法如下例：给文本框“Txt123”的“Text”属性赋值为字符串“20”，代码如下Txt123.text=”20”变量对象.属性如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下例：读取文本框“txt123”的“Text”属性的代码如下a=txt123.text 2 方法对象.方法参数名表例：form.print”欢迎使用”该语句使用print 方法在 form1 窗体中显示字符串“欢迎使用”3 事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个Click 事件。如需要命令按钮响应Click 事件，就把完成Click 事件功能的代码写到Click 事件的事件过程中，与事件一一对应。事件过程的形式如下：Private Sub 对象 _事件名()（事件过程代码）End Sub 一个简单的VB 程序求圆的周长和面积Private Sub Command1_Click()Dim r As Single 定义 r 为单精度型Dim c As Single 定义 c 为单精度型Dim s As Single 定义 s为单精度型r=Val(Text1.Text)输入半径rc=2*3.14159*r 计算周长s=3.14159*r*r 计算面积Text2.Text=c 输出周长Text3.Text=s 输出面积End Sub Private Sub Command2_Click()End 退出End Sub 相关题解：单选题1、下列关于程序设计说法正确的是(B)。A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程，比较流行的高级语言是PASCAL,FORTRAN,EXCEL,C+等B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言和计算机语言是同一个概念的两个方面D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程2、下列说法错误的是（D）.A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程D、程序设计语言和计算机语言是同一概念的两个方面一、常量：批在程序进行过程中不变的量在VB 中一般分 数值常量 与字符常量 两种数值常量：就是数学中说的常数，分整型常量 和实型常量 两种整型常量：即整数，指不带小数点的数值如1、0、-10、+35 等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量 又分为 定点数 和浮点 数两种。例：定点数：3.14159 和-6.8，1.99 浮点数：2E6、1E5、88E例：1.2345103 可表示为 1.2345E3，字母 E 表示底数10浮点数就是数学上的科学计数法。字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如：”China”、”Visual Basic”、”18”、”3.1415”等，双引号中字符，不包括双引号本身。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。二、变量：在程序执行过程中，其值可以改变的量称为变量变量命名注意要点：1、必须以字母开头,不能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。3、最长不超过255 个字符4、不能以VB 保留字作变量名，如语句定义符、函数名等。5、VB 不区分变量名中字母大小写。如HELLO 和 Hello 是同一个变量。数据及运算（1）常用数据类型：(整型)Integer、（长整型）Long、（单精度型）Single、（双精度型）Double、（字符串型）String、（布尔型）Boolean、（日期型）Date 其中(整型)Integer、（长整型）Long、（单精度型）Single、（双精度型）Double 属于数值型表示范围：(整型)Integer(-32768 32767，存储为16 位，2 个字节)(长整型)Long(-21 亿 21 亿，可以表示人口数量)(布尔型）Boolean(True 真、是或 False假、非)（字符串型）String(定长字符串：0 65535 个字符，不定长字符串：0 20 亿个字符)字符串型数据是指用“”括起来的一串字符。如“欢迎进入VB 世界！”、“Visual Basic”、“1234”都是字符串类型。（日期型）Date（100/1/1 9999/12/31）日期型数据专门用来处理日期和时间。VB 采用一对“#”把日期和时间的值括起来，如#2003/08/20#表示 2003 年 8 月 20 日。（2）常量和变量的命名、声明及赋值符号常量的声明：Const 常量名As 常量类型 =常量值如：Const pi As Single=3.14159 常量名为 pi变量的声明：Dim As 如：Dim a As Integer 定义一个整型变量，变量名为a变量的赋值VB 中使用 Let 语句给变量赋值，其形式如下：Let 变量=表达式其中，方括号表示这部分内容是可选的，通常可以省略该关键字。例题Private Sub Form_Click()Dim a As Integer,b As Integer,c As Integer Dim str As String Let a=54 Let b=114 c=a+b str=Hello World Print a=;a,b=;b,c=;c Print str End Sub 数据的输出程序中运算得到的结果，除可以使用文本框和标签显示外，对于大批量的数据更适合用Pint 方法输出，格式如下对象.Pint 表达式列表 例题：Private Sub Form_Click()Dim x As Single,y As Single Form1.Print -61;-34 Form1.Print 9*2;12 Form1.Print This is;a book x=3:y=4 Print x=;x,y=;y End Sub 注意：Print 方法相关题解：单选题1、下列变量名写法错误的是(B)A、abc_123 B、123abc C、abc123 D、abc 2、下列语句中定义了一个实型变量的是(B)A、Dim end as Integer B、Dim sum As Single C、Dim Name As String D、其它三项都不对3、在 VB 中，以下哪个是正确表示十六进制整型数常量?(D)A、32F B、H32F C、h32F D、&32F 4、在 VB 中，以下关于符号常量的声明，声明正确的是:(C)A、Dim TAG as String B、Const TAG as String Visual+Basic C、Const TAG as String=Visual Basic D、Const TAG as String 5、下面(B)不是字符串常量A、True B、#False#C、D、你好 运算符1、算术运算：+加-减*乘 指数例：22=4/（浮点）除例：5/2=2.5 整除例：5 2=2Mod 求余数例：5 Mod 2=1相关题解单选题1、分析下列程序:Private Sub Form_Click()s=113+11 Mod 3 Print s End Sub 当单击窗体时s 的值是(A).A、5 B、6 C、4 D、3 关系运算=赋值、小于号不等于大于号=大于等于号 2 结果为True(真或是)相关题解单选题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 日期运算符与日期表达式日期表达式是用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01#+30”的运算结果是“2003-10-1”；表达式“#2003/10/20#-#2003/10/10#”的运算结果为整数10相关题解单选题1、设 a=2,b=3,在 VB 中，表达式ab Or b3 值是:(B)A、False B、True C、-1 D、1 字符运算字符串连接符为“+”和“&”“123”+“45”=“12345”“123”&“45”=“12345”123+“45”=168“123”+45=168运算符的执行顺序在 VB 中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 字符串运算符 关系运算符 逻辑运算符常用函数数学函数Abs(x)求 x 的绝对值，例：abs(-3.6)=3.6Sqr(x)求 x 的平方根，例：sqr(100)=10Int(x)求 x 的最大整数例：int(3.6)=3 int(-3.6)=-4Rnd(x)产生 0，1)之间的随机数（不包括 1）Sin(x)Cos(x)Tan(x)Atn(x)Exp(x)Log(x)使 用 三 角 函 数 时，参 数 应 是 弧 度，如 数 学 中sin300应 写 为：sin(30*3.14159/180)字符串函数Len(字符串)求字符串的长度,例：Len(“hello”)=5Left(字符串，截取长度)截取字符串左边部分,例:Left(“hello”,2)=“he”Mid(字符串，起始位置，截取长度),例：Mid(“hello”,2,2)=“el”其他：Right(字符串,长度)截取字符串右边部分。例:Right(“hello”,2)=“lo”String(数值，字符)生成指定长度与指定字符的字符串，例：String(3,”9”)=”999”常用转换函数Val(字符串)将字符串转换为数值Str(数值)将数值转换为字符串Chr(字符代码)Asc(字符)Tab 定位函数的使用例题Private Sub Form_Click()Dim a As Integer Dim b As Integer a=4:b=9 Print Tab(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()其语法格式为：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 4、下列函数中，返回值是字符串的是(A).A、Mid B、Instr C、Val D、Len 5、下列(A)函数返回系统的当前时间。A、time()B、date()C、day()D、year()6、代数表达式221gt表达式后错误的是(D)A、g*t*t/2 B、1/2*g*t2 C、g*t2/2 D、gt2/2 7、数学式子abba42在 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 中以哪个逻辑表达式是正确的?(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 变量中输入任意一个小写字母，再将 x 变量中的小写字母转成大写字母。正确的算法是(A).选项:A、输人字母到x a=Asc(x)-32 x=chr(x)Print x B、输人字母到x a=Asc(x)+32 x=chr(x)Print x C、输人字母到x a=Val(x)一 32 x=Chr(x)Print x D、输人字母到x a=Val(x)+32 x=Chr(x)Print x 程序设计的顺序结构顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重复，这种结构称为顺序结构。例题：交换两个变量中的数据。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=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 语句后继程序行的语句格式二：If 条件 Then 语句 1Else 语句 2例题：输入三个不相同的数，求出其中最小数。Private Sub Form_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 ThenLabel1.Caption=及格 End IfIf a 0 时，y=4x+1）。Private Sub Form_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 就显示 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 整除的偶数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、输入的数存人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、提示错误，无答案程序设计的循环结构一、For-Next 循环For 循环变量一般形式是：For 循环变量=初值 To 终值 Step循环变量增量循环体Nxt 循环变量例题 1：求 s1+2+3+4.+100 Private Sub Form_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 Form_Click()For j=3 To 15 Step 2 Print j Next j End Sub 循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1 1、循环变量取初值；2、循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤24。以上可以看出，For-Next 循环变量是一种当型循环。说明（a）For 语句与 Next 语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如上例中均为I。（b）当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。二、DoLoop 循环For-Next 循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop 循环A P 入口出口格式一：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=a Mod b Do While r 0 a=b b=r r=a Mod b LoopText3.Text=Str(b)End Sub Private Sub Command2_Click()End End Sub 当 VB 执行 Do While-Loop 循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二：Do 循环体Loop Until 条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件 P 是否成立。如果不成立，就重复执行循环体A，直到条件 P 成立退出循环体。例题：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口达到或超过 15 亿？设现在人口为12.3亿。Private Sub Form_Click()Dim p As Single Dim r As Single Dim n As Integer p=1230000000#r=0.015 n=0 Do p=p*(1+r)n=n+1 Loop Until p=1500000000#Print n;年后,人口=;p End Sub 1、下列流程图表示的是程序的(B)基本结构的算法。A 其它三项都不是B 循环结构C 选择结构D 顺序结构2、在 VB 中，以下程序段:x=0 Do While x50 x=(x+2)*(x+3)Loop 执行后，x 的值为:(C).A、168 B、50 C、72 D、0 3、阅读下面程序，当单击窗体之后，窗体上输出的是(A)Private Sub Form_Click()Dim i As Integer:Dim s As Integer s=0 A P N For i=1 To 5 s=s+i Next i Print s,i End Sub 选项:A、15 6 B、s=15 i=6 C、6 5 D、s=6 i=5 4、要求计算机打印出100 至 200 之问所有偶数的平方根值。正确的算法是(C)。选项:A、i=100 Do While i200:Print i，Sqr(i):Loop B、i=100 Do While i200: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 5、下列程序段中，循环体执行的次数是(B)y=2 Do While y=8 y=y+y Loop 选项:A、2 B、3 C、4 D、5 6、阅读下面程序，当单击窗体之后，m 的值是(C).Private Sub Form_Click()Dim m As Integer:Dim i As Integer m=0 For i=1 To 3 m=m+2 Next i Print m End Sub 选项：A、0 B、4 C、6 D、8 7、在 VB 中，假定有以下程序段:For i=1 To 3 Step 2 Print VB Next i 则语句 Print VB 的执行次数是：(B)。A、1 B、2 C、3 D、4 8、下列程序段中，循环体执行的次数是(B)x=0 For y=1 To 10 step-1 x=x+1 Next y A、1 B、0 C、10 D、4 9、在 VB 中，假定有以下程序段:For i=3 To 1 Print VB Next i 则语句 Print“VB”的执行次数是:(D)A、出错B、2 C、1 D、0 10、下列程序段中，循环体执行的次数是（C）x=0 For y=1 To 10 step-1 x=x+1 Next y A、1 B、10 C、0 D、4 11、单击窗体后，文本框Text1、Text2 中显示的内容是（A）Private Sub Form_Click()Dim x as Integer,n as Integer x=1 n=0 Do While x 20 n=n+1 x=x*3 Loop Text1.text=Str(x)Text2.text=Str(n)End Sub A、27 3 B、3 27 C、20 3 D、3 21 12、单击窗体后，文本框Text1、Text2 中显示的内容是（A）Private Sub Form_Click()Dim x as Integer,y as Integer x=1:y=0 Do While x 1 时返回函数值为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)函数函数中不断地调用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!的值。能完成此运算，并且比较好的算法是(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: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 编程题必修 1_15、编写程序，使能打印下面所示的图案。*程序：Private Sub Form 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-Abs(i)-1 Print*;Next j Print 换行Next i End Sub 必修 2_15、编写程序，使能打印下面所示的图案。*程序：Private Sub Form 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 必修 3_15、编写程序，使能打印下面所示的图案。程序：Private Sub Form_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 必修 4_15、完善显示按钮的click 程序，将代码段中“变量1“、“变量 2.“变量3、处换成正确的变量名，使当单击该按钮时，Labell.Label2 分别显示 30、10,完成所有操作后，诸按“Ctrl+S”保存。Private Sub Command_Click()x=10 y=30 If x=60 Then Label1.Caption=“及格”End If If a 60 Then Label1.Caption=“不及格”End If End Sub 必修 1_16、编写程序，求函数y 的值(当 x0 时，y=4x+1)。程序：Private Sub Form 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 必修 2_16、编写程序，求y=6x-5 的值。(x 的值在程序中调用InputBox 函数，在弹出的标准输入对话框中输入)程序：Private Sub Form_Click()Dim x As Single Dim y As Single x=Val(InputBox(“请输入变量x”)y=6*x 5 Print“y=”;End Sub 必修 3_16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。完成所有操作后，诸按“Ctrl+S”保存。程序：Private Sub Form_Click()Dim i As Integer Dim s As Integer s=1 For i=1 To 9 s=(s+1)*2 Next Print“s=”;sEnd Sub 必修 4_16、完善按钮“计算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 必修 5_16、请将按钮 计算 1+2+,+100的 Click 事件程序中的 常量 和变量 换成正确的常量和变量，当单击命令按钮时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 必修 4_18、编写程序，当在Textl 中输入 x 的值后，单击计算按钮，求y=|3x-5|的值。Private Sub Command1_Click()Dim x As Single Dim y As Single x=Text1.Text y=Abs(3*x-5)Text2.Text=y End Sub 必修 5_18、在打开的窗体Forml 中，在窗体中增加一个文本框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 必修 1_17、编程计算s=1-2+3-4+5-,+99-100 程序：Private Sub Form Click()Dim s As Integer 定义变量s 为整型变量Dim i As Integer 定义循环变量s=0 For i=1 To 100 if int(i/2)i/2 Then s=s+i Else s=s-i End Next i Print s=;s End Sub 必修 2_17、编写程序，求I+2+,+n=500 中最小的n 程序：Private Sub Form_Click()Dim s As Integer Dim n As Integer s=0 n=0 Do n=n+1 s=s+n Loop Until s 500 Print“n=”;nEnd Sub 必修 3_17、编程计算s=1*2+2*3+3*4+,+n*(n+1)的值，其中n=10 Private Sub Form_Click()Dim s As Single Dim i As Integer s=0 For i=1 To 10 s=s+i*(i+1);Next i Print“s=”;sEnd Sub 必修 1_18、编程求:鸡和兔在一个笼里，共有腿100 条，头 40 个，问鸡有几只，兔有几只?程序：Private Sub Form Click()Dim Ji As Integer 鸡Dim Tu As Integer 兔Dim Leg As Integer 腿数Dim Head As Integer 头数For Ji=1 To 50 For Tu=1 To 25 Leg=Ji*2+Tu*4 计算腿Head=Ji+Tu 计算头If Leg=100 And Head=40