信息技术算法与程序设计知识要点.pdf

《信息技术算法与程序设计知识要点.pdf》由会员分享，可在线阅读，更多相关《信息技术算法与程序设计知识要点.pdf（20页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、江苏省高中信息技术算法与程序设计 VB 选修知识要点相关知识点一算法1.1.定义定义相关题解：1 算法：就是解决问题的方法和步骤;算法是程序设计的“灵魂”,算法+数据结构程序;单选题1、下列关于算法说法不正确的是AA、算法独立于任何具体的语言,BASIC 算法只能用 BASIC 语言来实现B、解决问题的过程就是实现算法的过程C、算法是程序设计的“灵魂”D、其它三项都正确2 2算法的描述方法：算法的描述方法：1 算法的描述：可分多种表达方法,一般用自然语言、流程图和伪代码进行描述;2 自然语言描述法：指用人们日常生活中使用的语言本国语言,用自然语言描述符合我们的习惯,且容易理解;3 流程图描述：

2、也称程序框图,它是算法的一种图形化表示方法;且描述算法形象、直观,更易理解;4 伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述;是专业软件开发人员常用方法;开始或结束输入或输出判断处理或运算连接点流程线相关题解：单选题1、图 形 符 号 在算法流程图描述中表示B.A 处理或运算的功能B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束2、图形符号在算法流程图描述中表示A.A 处理或运算的功能 B 输入输出操作C 用来判断条件是否满足需求D 算法的开始或结束3、以下哪个是算法的描述方法AA 流程图描述法 B 枚举法 C 顺序法D 列表法4、以下哪个是算法的描述方法DA

3、 顺序法 B 列表法 C 集合法 D 自然语言描述法二程序设计基础1 常用高级编程语言：BASIC、VB、Pascal、C、C+、Java1 1 面向对象的程序设计语言：面向对象的程序设计语言：其中的对象对象主要是系统设计好的对象,包括窗体等、控件等2 2 控件：控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件,如文本框,命令按钮等;常用控件常用控件：控件控件对象的类型对象的类型前缀前缀名字举例名字举例窗体窗体Formfrmfrmfind命令按钮命令按钮Command buttoncmdcmdok标签标签Labellbllblinput文本框文本框TextBoxtmrtmrCloc

4、k若命令按钮若命令按钮 CommandCommand 的的 EnabledEnabled 属性设置为属性设置为 TrueTrue时按钮有效时按钮有效,设置为设置为 FalseFalse 时按钮无效时按钮无效3 3 对象的属性、方法和事件对象的属性、方法和事件1 1 属性属性属性属性NameName设置对象的名称CaptionCaption决定控件中显示的内容文字TextText决定窗体中文本框中显示的内容初始为空白HeightHeight决定控件高度WidthWidth决定控件宽度TOPTOP决定控件的靠顶部位置LeftLeft决定控件的靠左边位置FontFont设置控件中字体格式BackCo

5、lorBackColor设置控件背景色ForeColorForeColor设置控件的前景色BorderStyleBorderStyle设置控件的边框风格AlignmentAlignment即标签文字对齐属性即标签文字对齐属性：0Left Justify 时文本左对齐；1Right Justify 时文本右对齐；设置为 2Center 时文本居中;设置为 False 时输入控件 CaptionCaption 中文字超过控件宽度时超出部分被裁剪掉,设置为 True 时,控件可水平扩充,以适应控件 CaptionCaption 属性;决定控件是否可见决定控件运行时是否有效AutoSizeAutoSi

6、zeVisibleVisibleEnabledEnabled对象对象.属性属性值属性属性值对象中属性可以在设计界面时通过属性窗中设置,也可以在运行时通过程序代码设置,方法如下例：给文本框“Txt123”的“Text”属性赋值为字符串“20”,代码如下=”20”变量对象变量对象.属性属性如果要获取对象的状态或特性,这时就要读取对象的属性值,方法如下例：读取文本框“txt123”的“Text”属性的代码如下a=2 2 方法方法对象.方法参数名表例：”欢迎使用”该语句使用 print 方法在 form1 窗体中显示字符串“欢迎使用”3 3 事件及事件驱动事件及事件驱动事件是对象对外部操作的响应,如在

7、程序执行时,单击命令按钮会产生一个 Click 事件;如需要命令按钮响应 Click 事件,就把完成 Click 事件功能的代码写到 Click 事件的事件过程中,与事件一一对应;事件过程的形式如下：Private Sub 对象_事件名事件过程代码End Sub一个简单的一个简单的 VBVB 程序程序求圆的周长和面积Private Sub Command1_ClickDim r As Single定义 r 为单精度型Dim c As Single定义 c 为单精度型Dim s As Single定义 s 为单精度型r=Val 输入半径 rc=2r计算周长s=rr计算面积=c输出周长=s输出面积

8、End SubPrivate Sub Command2_ClickEnd退出End Sub 相关题解：单选题1、下列关于程序设计说法正确的是B;A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程,比较流行的高级语言是PASCAL,FORTRAN,EXCEL,C+等B、程序设计就是寻求解决问题的方法,并将其实现步骤编写成计算机可以执行的程序的过程C、程序设计语言和计算机语言是同一个概念的两个方面D、程序设计就是指示计算机如何去解决间题或完成一组可执行指令的过程2、下列说法错误的是 D.A、程序设计就是寻求解决问题的方法,并将其实现步骤编写成计算机可以执行的程序的过程B、程序设计语言的

9、发展经历了机器语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的过程D、程序设计语言和计算机语言是同一概念的两个方面一、常量一、常量：批在程序进行过程中不变的量在VB 中一般分数值常量与字符常量两种数值常量：就是数学中说的常数,分整型常量和实型常量两种整型常量：即整数,指不带小数点的数值如1、0、-10、+35 等都是合法的整数实型常量：即实数,指带小数点的数值;实型常量又分为定点数和浮点数两种;例：定点数：和,浮点数：2E6、1E5、88E例：103可表示为,字母 E 表示底数 10浮点数就是数学上的科学计数法;字 符 串 常 量：被 一 对 双 引

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

11、;如 HELLO 和 Hello 是同一个变量;数据及运算数据及运算1 常用数据类型：整型 Integer、长整型 Long、单精度型 Single、双精度型 Double、字符串型 String、布尔型 Boolean、日期型 Date其中整型 Integer、长整型 Long、单精度型 Single、双精度型 Double 属于数值型表示范围：整型 Integer-32768 32767,存储为 16 位,2 个字节长整型 Long-21 亿 21 亿,可以表示人口数量布尔型 BooleanTrue 真、是 或 False 假、非字符串型 String 定长字符串：065535 个字符,不

12、定长字符串：020 亿个字符字符串型数据是指用“”括起来的一串字符;如“欢迎进入 VB 世界”、“VisualBasic”、“1234”都是字符串类型;日期型 Date100/1/19999/12/31日期型数据专门用来处理日期和时间;VB 采用一对“”把日期和时间的值括起来,如 2003/08/20 表示 2003 年 8 月 20 日;2 常量和变量的命名、声明及赋值符号常量的声明：Const 常量名 As 常量类型=常量值如：ConstpiAsSingle=常量名为 pi变量的声明：Dim As 如：DimaAsInteger 定义一个整型变量,变量名为 a变量的赋值VB 中使用 Let

13、 语句给变量赋值,其形式如下：Let 变量=表达式其中,方括号表示这部分内容是可选的,通常可以省略该关键字;例题例题Private Sub Form_ClickDim a As Integer,b As Integer,c As IntegerDim str As StringLet a=54Let b=114c=a+bstr=HelloWorldPrint a=;a,b=;b,c=;cPrint strEnd Sub数据的输出数据的输出程序中运算得到的结果,除可以使用文本框和标签显示外,对于大批量的数据更适合用Pint 方法输出,格式如下对象.Pint 表达式列表例题：例题：Private

14、Sub Form_ClickDim x As Single,y As Single-61;-3492;12This is;a bookx=3:y=4PrintPrint x=;x,y=;yEnd Sub注意：注意：PrintPrint 方法方法相关题解：单选题1、下列变量名写法错误的是BA、abc_123B、123abcC、abc123D、abc2、下列语句中定义了一个实型变量的是BA、Dim end as IntegerB、Dim sum As SingleC、Dim Name As StringD、其它三项都不对3、在 VB 中,以下哪个是正确表示十六进制整型数常量DA、32FB、H32F

15、C、h32FD、&32F4、在 VB 中,以下关于符号常量的声明,声明正确的是:CA、Dim TAG as StringB、Const TAG as String Visual+BasicC、Const TAG as String=Visual BasicD、Const TAG as String5、下面B不是字符串常量A、TrueB、FalseC、D、你好运算符运算符1、算术运算：+加-减乘 指数例：22=4/浮点除例：5/2=整除例：5 2=2Mod 求余数例：5 Mod 2=1求：330 6/2相关题解单选题1、分析下列程序:Private Sub Form_Clicks=113+11

16、Mod 3Print sEnd Sub当单击窗体时 s 的值是A.A、5B、6C、4D、3关系运算关系运算=赋值、小于号不等于 大于号=大于等于号 2 结果为 True 真或是相关题解单选题1、下面表达式的值是 false 的有C.A、969 n97B、Int lenbasicC、str2000 2逻辑运算逻辑运算NotNot 取反取反 AndAnd 与与 OrOr 或或运算结果为布尔型 BooleanTrue 或 False逻辑运算符的优先级为：No And OrTrue Or False And False And Not False日期运算符与日期表达式日期运算符与日期表达式日期表达式是

17、用日期运算符“+”或“-”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子,如表达式“2003/09/01+30”的运算结果是“2003-10-1”；表达式“2003/10/20-2003/10/10”的运算结果为整数 10相关题解单选题1、设 a=2,b=3,在 VB 中,表达式 ab Or b3值是:BA、FalseB、TrueC、-1D、1字符运算字符运算字符串连接符为“+”和“&”“123”+“45”=“12345”“123”&“45”=“12345”123+“45”=168“123”+45=168运算符的执行顺序运算符的执行顺序在在 VBVB 中中,当一个表达式中同时出

18、现多种运算符时当一个表达式中同时出现多种运算符时,运算次序由运算符运算次序由运算符的优先级决定的优先级决定,优先级高的运算符先运算优先级高的运算符先运算,优先级相同的从左向右进行优先级相同的从左向右进行运算运算;不同性质的运算符优先级如下不同性质的运算符优先级如下;算术运算符算术运算符 字符串运算符字符串运算符 关系运算符关系运算符 逻辑运算符逻辑运算符7+6 5-3 and 3155/27+6 5-3 and 3155/2常用函数常用函数数学函数数学函数Absx 求 x 的绝对值,例：abs=Sqrx 求 x 的平方根,例：sqr100=10Intx求x 的最大整数例：int=3 int=-

19、4Rndx 产生 0,1之间的随机数不包括 1SinxCosxTanxAtnxExpxLogx使用三角函数时使用三角函数时,参数应是弧度参数应是弧度,如数学中如数学中 sin30sin300 0应写为：应写为：sin30180sin30180字符串函数字符串函数Len 字符串 求字符串的长度,例：Len“hello”=5Left字符串,截取长度 截取字符串左边部分,例:Left“hello”,2=“he”Mid 字符串,起始位置,截取长度,例：Mid“hello”,2,2=“el”其他：Right 字符串,长度截取字符串右边部分;例:Right“hello”,2=“lo”String 数值,字

20、符生成指定长度与指定字符的字符串,例：String3,”9”=”999”常用转换函数常用转换函数Val字符串 将字符串转换为数值Str数值 将数值转换为字符串Chr 字符代码Asc 字符TabTab 定位函数的使用定位函数的使用例题Private Sub Form_ClickDim aAs IntegerDim bAs Integera=4:b=9Print Tab1;数;Tab9;平方;Tab18;立方;Tab27;平方根Print Tab1;a;Tab9;a a;Tab18;aaa;Tab27;SqraPrint Tab1;b;Tab9;b b;Tab18;bbb;Tab27;SqrbEn

21、d Sub用户交互函数用户交互函数VBVB 提供提供 InputBoxInputBox 和和 MsgBoxMsgBox 函数用于人机交互函数用于人机交互InputBoxInputBox 其语法格式为：其语法格式为：InputBoxInputBox 提示提示,标题标题,默认值默认值,X,X 坐标坐标,Y,Y 坐标坐标MsgBoxMsgBox其语法格式为：其语法格式为：MsgBoxMsgBox 提示信息提示信息,按钮按钮,标题标题相关题解单选题1、Visual Basic中,下列A函数是求绝对值的;A、ABSXB、SQRXC、INTXD、GNX2、表达式 Abssqr100 的值是C;A、-36B

22、、360C、36D、-3603、下列A数据类型不是数值型;A、DateB、SingleC、DoubleD、Integer4、下列函数中,返回值是字符串的是A.A、MidB、InstrC、ValD、Len5、下列A函数返回系统的当前时间;A、timeB、dateC、dayD、year12gt6、代数表达式2表达式后错误的是DA、gtt/2B、1/2gt2C、gt2/2D、gt2/22ab7、数学式子4ab在 VB 中的正确写法是：A、2a+b/4aB、2a+b/4abC、2a+b4abD、2a+b/4ab8、判断 x 是否在区间 a,b 上,在 VB 中以哪个逻辑表达式是正确的CA、axandx

23、=bB、ax=bC、ax and x=b综合分析1、向 n 变量存入 1 个 2 位整数,要使此 2 位数十位和个位上的值分别存入x,y 变量;正确的算法是D;选项:x、x=Leftn,1 y=n-x10 Print x:Print yB、x=Leftn,1 y=Rightn,1 Print x:Print yC、x=n/10 y=n-x10 Print x:Print yD、x=Intn/10 y=n-x10 Print x:Print y2、向 x 变量中输入任意一个小写字母,再将 x 变量中的小写字母转成大写字母;正确的算法是A.选项:A、输人字母到 x a=Ascx-32 x=chrx

24、 Print xB、输人字母到 x a=Ascx+32 x=chrx Print xC、输人字母到 x a=Valx一 32 x=Chrx Print xD、输人字母到 x a=Valx+32 x=Chrx Print x程序设计的顺序结构程序设计的顺序结构顺序结构：顺序结构：代码按照由上到下的顺序一行一行地执行代码按照由上到下的顺序一行一行地执行;程序执行过程中没有分支、程序执行过程中没有分支、没有重复没有重复,这种结构称为顺序结构这种结构称为顺序结构;例题：交换两个变量中的数据例题：交换两个变量中的数据;Private Sub cmdSwap_ClickDim x As Single,y

25、As SingleDim m As Singlex=Valy=Valm=x:x=y:y=m交换数据=Strx=StryEnd SubPrivate Sub cmdEnd_ClickEndEnd Sub相关题解单选题1、以下是一段 VB 程序：a=1b=a+1c=a+b它的基本结构属于 AA、顺序结构B、选择结构C、循环结构D、树型结构2、下列 VB 程序运行后,变量 x 的值为A.x=2Print x+lPrint x+2A、2B、3C、5D、8程序设计的分支结构程序设计的分支结构行行 If If 语句语句行 If 是指在一行中写完的 If 语句;其一般格式为：格式一：格式一：If If 条件

26、条件 ThenThen 语句语句执行这种形式的 If 语句时,首先对条件进行判断;若条件成立,则执行 Then 后面的语句；若条件不成立,则执行 If 语句后继程序行的语句格式二：格式二：If If 条件条件 ThenThen 语句语句 1 1ElseElse 语句语句 2 2例题：输入三个不相同的数例题：输入三个不相同的数,求出其中最小数求出其中最小数;Private Sub Form_ClickDim aAs Single,bAs Single,cAs SingleDim MinAs Singlea=InputBox输入 a,输入框b=InputBox输入 b,输入框c=InputBox输

27、入 c,输入框If a b Then Min=a Else Min=bIf c=60 Then=及格End IfIf a 0 时,y=4x+1;Private Sub Form_ClickDim x As SingleDim y As Singlex=ValInputBox请输入变量 xIf x=10 ThenValue=5xElseValue=4xEnd IfA、100B、80C、90D、70综合分析1、如要完成:从键盘输入一个正整数,判断是否是奇数,如是就在屏幕上显示;比较好的算法是B D;选项:A、输人的数存人 n 变量f=n/2=Intn/2如果 f 中的值为 True 就显示 n 中

28、值B、输人的数存人 n 变量f=n/2=Intn/2如果 f 中的值为 False 就显示 n 中值C、输人的数存人 n 变量如果 n/2=Intn/2 成立,就显示 n 中值D、输人的数存人 n 变量如果 n/2=Intn/2 不成立,就显示 n 中值2、下面是判断变量 x 是不是能被 5 整除的偶数的程序,横线上的逻辑表达式应为ABPrivate Sub commandl_ClickDim x As Integerx=ValText1.TextIf_=0 Then=这个数是能被 5 整除的偶数Else=这个数不是能被 5 整除的偶数End If选项：A、x Mod 5=0 And x Mo

29、d 2=0B、x Mod 10=0C、x Mod 5=0D、x Mod 2=03、如要完成:从键盘输入一个正整数,判断是否是偶数,如是就在屏幕上显示;比较好的算法是AC;选项:A、输入的数存人 n 变量f=n/2=Intn/2如果 f 中的值为 True 就显示 n 中值B、输入的数存人 n 变量f=n/2=Intn/2如果 f 中的值为 False 就显示 n 中值C、输入的数存人 n 变量如果 n/2=Intn/2 成立,就显示 n 中值D、输入的数存人 n 变量如果 n/2=Intn/2 不成立,就显示 n 中值4、下列程序段运行后,m 的值为AA=2:b=1:c=5If A b The

30、n m=A Else m=bIf c m Then m=c选项：A、1B、2C、5D、提示错误,无答案程序设计的循环结构程序设计的循环结构一、一、For-NextFor-Next 循环循环ForFor 循环变量一般形式是：循环变量一般形式是：ForFor 循环变量循环变量=初值初值 ToTo终值终值 StepStep 循环变量增量循环变量增量循环体循环体NxtNxt 循环变量循环变量例题例题 1 1：求：求 s s1+2+3+4.+1001+2+3+4.+100Private Sub Form_ClickDim i As IntegerDim sumAs Integersum=0For i=1

31、 To100sum=sum+i 循环体Next iPrint sum=;sumEnd Sub例题例题 2 2：StepStep循环变量增量循环变量增量Private Sub Form_ClickFor j=3 To 15 Step 2Print jNext jEnd Sub循环变量的初值、终值、循环变量增量都是数值型;其中要重复执行的操作称为循环体,增量可正可负,如果没有设置 Step,则增量的缺省值为 11、循环变量取初值；2、循环变量与终值比较,没有超过终值转 3,否则循结束,接着执行循环语句的后继语句；3、执行一次循环体4、循环变量增加一个增量5、重复步骤 24;以上可以看出,For-N

32、ext 循环变量是一种当型循环;说明（a）For 语句与 Next 语句必须成对出现,而且它们当中的“循环变量”必须是同一个变量,如上例中均为 I;（b）当循环变量为正时,循环变量超过终值,是指循环变量的值大于终值时；若为负,则是指循环变量的值小于终值;入口PA出口二、二、DoDoLoopLoop 循环循环For-NextFor-Next循环的次数是确定的循环的次数是确定的,但是有的问题只知道循环结束的条件但是有的问题只知道循环结束的条件,重复执行的重复执行的次数事先并不知道次数事先并不知道,这时需要这时需要 Do-LoopDo-Loop 循环循环格式一：格式一：Do WhileDo Whil

33、e 条件条件循环体循环体LoopLoop例题：求最大公约数例题：求最大公约数Private Sub Command1_ClickDim a As IntegerDim b As IntegerDim r As Integera=Valb=Valr=a Mod bDo WhileDo While r 0a=bb=rr=a Mod bLoopLoop=StrbEnd SubPrivate Sub Command2_ClickEndEnd Sub当当 VBVB 执行执行 Do While-LoopDo While-Loop循环时循环时,先判断指定的条件是否为真先判断指定的条件是否为真,若条件为真若条

34、件为真,执行执行循环体循环体,条件为假时退出循环条件为假时退出循环;格式二：格式二：DoDo循环体循环体Loop UntilLoop Until 条件条件这种循环的执行过程如图所示这种循环的执行过程如图所示;进入循环体后进入循环体后,先执行一次循环体先执行一次循环体 A,A,然后再检查然后再检查条件条件 P P 是否成立是否成立;如果不成立如果不成立,就重复执行循环体就重复执行循环体 A,A,直到条件直到条件 P P 成立退出循环体成立退出循环体;A AP PN N例题：如果我国人口每年以平均例题：如果我国人口每年以平均%的速度增长的速度增长,问多少年后我国人口问多少年后我国人口达到或超过达到

35、或超过 1515 亿亿 设现在人口为亿设现在人口为亿;Private Sub Form_ClickDim pAs SingleDim rAs SingleDim nAs Integerp=00r=n=0DoDop=p1+rn=n+1Loop UntilLoop Until p=00Print n;年后,人口=;pEnd Sub1、下列流程图表示的是程序的 B基本结构的算法;A 其它三项都不是B 循环结构C 选择结构D 顺序结构2、在 VB 中,以下程序段:x=0Do While x50 x=x+2x+3Loop执行后,x 的值为:C.A、168B、50C、72D、03、阅读下面程序,当单击窗体

36、之后,窗体上输出的是APrivate Sub Form_ClickDim i As Integer:Dim s As Integers=0For i=1 To 5s=s+iNext iPrint s,iEnd Sub选项:A、156B、s=15i=6C、65D、s=6i=54、要求计算机打印出 100 至 200 之问所有偶数的平方根值;正确的算法是 C;选项:A、i=100 Do While i200:Print i,Sqri:LoopB、i=100 Do While i200:Print i,Sqri:i=i+1:LoopC、For i=100 To 200 Step 2:Print i,

37、Sqri:Next iD、For i=100 To 200:Print i,Sqri:Next i5、下列程序段中,循环体执行的次数是By=2Do While y=8y=y+yLoop选项:A、2B、3C、4D、56、阅读下面程序,当单击窗体之后,m 的值是 C.Private Sub Form_ClickDim m As Integer:Dim i As Integerm=0For i=1 To 3m=m+2Next iPrint mEnd Sub选项：A、0B、4C、6D、87、在 VB 中,假定有以下程序段:For i=1 To 3 Step 2Print VBNext i则语句 Pri

38、nt VB的执行次数是：B;A、1B、2C、3D、48、下列程序段中,循环体执行的次数是Bx=0For y=1To10step-1x=x+1Next yA、1B、0C、10D、49、在 VB 中,假定有以下程序段:For i=3 To 1Print VBNext i则语句 Print“VB”的执行次数是:DA、出错B、2C、1D、011、单击窗体后,文本框 Text1、Text2中显示的内容是Private Sub Form_ClickDim x as Integer,n as IntegerAx=1n=0Do While x 1 时返回函数值为 age n-1 当 n=1 返回函数值为 38

39、B、定义 age n 函数 函数中当 n1 时返回函数值为 age n-1-3 当 n=1 返回函数值为 38C、定义 age n 函数 函数中不断地调用 age n-1-3D、定义 age n 函数 函数中不断地调用 age n 函数自己4 4、排序与查找数据、排序与查找数据四、应用程序设计1、程序设计的一般步骤2、简单程序设计综合分析1、a,b,c 三变量存放不同的数,值 a 最大,b 第二,比较好的算法是A、定义一个 maxx,y 函数值为 x,y 中的大值 a=maxmaxa,b,cB、如 a b 就 a=b如 a c 就 a=c如 b b 就 a=b如 a c 就 a=c如 b c

40、就 b=cD、如 a b 就两变量交换如 a c 就两变量交换如 b c 就两变量交换2、求 2+3+4+5+10 的值;能完成此运算,并且比较好的算法是 A;选项:A、定义求阶乘的函数用j cn 主程序中用一个循环 9 次调用 j cn 函数进行累加B、用一个程序完成:每一项阶乘用一个 For/Next 循环完成,整个程序包括 9 个循环C、用解析法:s=12+123+1234+12345678910D、不必定义函数,只要用一个单重循环就能完成3、要求打印 100 至 200 之间所有偶数的平方根 CA、i=100 Do While i 200:Print i,Sqri:loopB、i=10

41、0 Do While i 200:Print i,Sqri:i=i+1:loopC、For i=100 to 200 step 2:Print i,Sqri:Next iD、For i=100 to 200:Print i,Sqri:Next i编程题必修 1_15、编写程序,使能打印下面所示的图案;程序：Private Sub Form ClickDim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量For i=-3 To 3Print TabAbsi+5For j=1 To 4-Absi-1Print;Next jPrint换行Next

42、 iEnd Sub必修 2_15、编写程序,使能打印下面所示的图案;程序：Private Sub Form ClickDim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量For i=-3 To 3Print TabAbsi+5;For j=1 To 23-Absi-1Print;Next jPrint换行Next iEnd Sub必修 3_15、编写程序,使能打印下面所示的图案;程序：Private Sub Form_ClickDim i As IntegerDim j As IntegerFor i=1 To 6Print Tab10;

43、For j=1 To iPrint“”;Next jPrintNext iEnd Sub必修 4_15、完善显示按钮的 click 程序,将代码段中“变量 1“、“变量 2.“变量3、处换成正确的变量名,使当单击该按钮时,Labell.Label2分别显示 30、10,完成所有操作后,诸按“Ctrl+S”保存;Private Sub Command_Clickx=10y=30If x=60 Then=“及格”End IfIf a 60 Then=“不及格”End IfEnd Sub必修 1_16、编写程序,求函数 y 的值当 x0 时,y=4x+1;程序：Private Sub Form Cl

44、ickDim x As Single 定义 x 为单精度型变量Dim y As Single 定义 y 为单精度型变量x=ValInputBox请输入变量 xIf x=0 Theny=3x+1Elsey=4x+1End IfPrint y=;yEnd Sub必修 2_16、编写程序,求 y=6x-5 的值;x 的值在程序中调用 InputBox 函数,在弹出的标准输入对话框中输入程序：Private Sub Form_ClickDim x As SingleDim y As Singlex=ValInputBox“请输入变量 x”y=6x 5Print“y=”;End Sub必修 3_16、一

45、只猴子摘了一堆桃子,它每天吃当天桃子数的一半,每次忍不住多吃了一个;这样到第十天时只有一个桃子可以吃了,编程计算猴子最初共有多少个桃子;完成所有操作后,诸按“Ctrl+S”保存;程序：Private Sub Form_ClickDim i As IntegerDim s As Integers=1For i=1 To9s=s+12NextPrint“s=”;sEnd Sub必修 4_16、完善按钮“计算 7”的 Click 事件程序,当单击命令按钮时 Text1显示 7 的值;Private Sub Command1_ClickDim a As IntegerDim i As Integera

46、=1For i=1 To 7a=aiNext i=aEnd Sub必修 5_16、请将按钮计算 1+2+100的 Click 事件程序中的常量和变量换成正确的常量和变量,当单击命令按钮时 Text1显示 1+2+100 的值;完成所有操作后,诸按“Ctrl+S”保存;Private Sub Command1_ClickDim a As IntegerDim I As Integera=0For i=1 To 100a=a+iNext i=a必修 4_18、编写程序,当在 Textl中输入 x 的值后,单击计算按钮,求 y=|3x-5|的值;Private Sub Command1_ClickD

47、im x As SingleDim y As Singlex=y=Abs3x-5=yEnd Sub必修 5_18、在打开的窗体 Forml 中,在窗体中增加一个文本框Text3,在完整按钮中的程序,使当单击计算按钮时,计算 bb 一 4ec 的值,并在 Text3中显示出来;Private Sub Command1_ClickDim b As SingleDim c As SingleDim x As Singleb=c=x=bb 4c=xEnd Sub必修 1_17、编程计算 s=1-2+3-4+5-+99-100程序：Private Sub Form ClickDim s As Integ

48、er 定义变量 s 为整型变量Dim i As Integer 定义循环变量s=0For i=1 To 100if inti/2 i/2 Thens=s+iElses=s-iEndNext iPrint s=;sEnd Sub必修 2_17、编写程序,求 I+2+n=500 中最小的 n程序：Private Sub Form_ClickDim s As IntegerDim n As Integers=0n=0Don=n+1s=s+nLoop Until s =500Print“n=”;nEnd Sub必修 3_17、编程计算 s=12+23+34+nn+1 的值,其中 n=10Private

49、 Sub Form_ClickDim s As SingleDim i As Integers=0For i=1 To 10s=s+ii+1;Next iPrint“s=”;sEnd Sub必修 1_18、编程求:鸡和兔在一个笼里,共有腿 100 条,头 40 个,问鸡有几只,兔有几只程序：Private Sub Form ClickDim Ji As Integer 鸡Dim Tu As Integer 兔Dim LegAs Integer 腿数Dim HeadAs Integer 头数For Ji=1 To 50For Tu=1 To 25Leg=Ji2+Tu4计算腿Head=Ji+Tu计

50、算头If Leg=100 And Head=40 ThenPrint 鸡=;Ji;只,兔=;Tu;只End IfNext TuNext JiEnd Sub必修 2_18、编写递归函数求 5 的值;Public Function sn As Integer As LongIf n=1 Thens=1Elses=nsn-1End IfEnd FunctionPrivate Sub Form_ClickPrint“s5=”;s5End Sub必修 3_18、编写递归函数求 10 的值;Public Function sn As Integer As LongIf n=1 Thens=1Elses=n