算法与程序知识点

1、（一）算法1.定义相关题解：1算法：就是解决问题的方法和步骤。算法是程序设计的灵魂”，算法+数据结构=程序。单选题1、运用计算机程序解决实际问题时，合理的步骤是（ B）。A、设计算法一分析问题一编写程序一调试程序B、分析问题一设计算法一编写程序一调试程序C、分析问题一编写程序一设计算法一调试程序D、设计算法一编写程序一分析问题一调试程序2 .算法的描述方法：1算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。2自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我 们的习惯，且容易理解。3流程图描述：也称程序框图，它是算法的一种图形化表示方法。且描述

2、算法形象、直观， 更易理解。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自然语言描述法介

3、于自然语言和计算机语言之间的一种算法描述是下列哪个选项？（）A、伪代码B、流程图C、（Wj级语言D、VB程序设计语言（二）程序设计基础（1）常用高级编程语言：BASIC、VB、Pascal、C、C+、Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等2控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按 钮等。常用控件：控件对象的类型前缀名字举例窗体Formfrmfrmfind命令按钮Command buttoncmdcmdok标签Labellbllblinput文本框TextBoxtmrtmrClock右命令按钮（Command）

4、的Enabled属性设置为True时按钮有效，设置为 False时按钮无效3对象的属性、方法和事件1属性属性Name设置对象的名称Caption决定控件中显示的内容（义字）Text决定窗体中文本框中显示的内容（初始为空白）Height决定控件高度Width决定控件宽度TOP决定控件的靠顶部位置Left决定控件的靠左边位置Font设置控件中字体格式BackColor设置控件背景色ForeColor设置控件的前景色BorderStyle设置控件的边框风格Alignment即标签文字对齐属性：（0）Left Justify时文本左对齐；（1）Right Justify时文本石对齐；设置为 （2）Ce

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

6、性的代码如下a = txt123.text2方法对象.方法参数名表例：form.print"欢迎使用"该语句使用print方法在forml窗体中显示字符串欢迎使用“3事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生一个Click事件。如需要命令按钮响应 Click事件，就把完成 Click事件功能的代码写到 Click事件的事件过程 中，与事件对应。事件过程的形式如下：Private Sub对象事件名（）（事件过程代码）End Sub一个简单的VB程序求圆的周长和面积Private Sub Command1_Click()Dim r As Sin

7、gleDim c As SingleDim s As Singler = Val(Text1.Text)' c = 2 * 3.14159 * rs = 3.14159 * r * rText2.Text = cText3.Text = sEnd Sub'定义r为单精度型'定义c为单精度型'定义s为单精度型输入半径r计算周长'计算面积'输出周长'输出面积Private Sub Command2_Click（）End'退出End Sub相关题解：单选题1、下列关于程序设计说法正确的是 （B ）。A、程序设计语言的发展经历了机器语言、

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

9、不属于程序设计语言中高级语言的是（C）。A、BASIC B、C 语言 C、汇编语言 D、PASCAL4、程序设计语言的发展历程中，不包括（ A ）。A、自然语言 B、机器语言 C、汇编语言 D、高级语言5、介于自然语言和计算机语言之间的一种算法描述是下列哪个选项？ （ A ）A、伪代码B、流程图C、局级语言D、VB程序设计语言一、常量：批在程序进行过程中不变的量在VB中一般分数值常量与字符常量两种数值常量：就是数学中说的常数，分整型常量和实型常量两种整型常量：即整数，指不带小数点的数值如1、0、-10、+35等都是合法的整数实型常量：即实数，指带小数点的数值。实型常量又分为定点数和浮点数两种。

10、例：定点数：3.14159 和-6.8 , 1.99浮点数：2E6、1E5、88E例：1.2345 X 103可表示为1.2345E3 ,字母E表示底数10浮点数就是数学上的科学计数法。字符串常量：被一对双引号括起来的若干个合法的字符称为字符串常量。例如："China"、" Visual Basic > " 18"、" 3.1415”等,双引号中字符，不包括双引号本身。符号常量：如果多次用到同一个常量，则可用一个有意义的名字表示这个常量。二、变量：在程序执行过程中，其值可以改变的量称为变量变量命名注意要点：1、必须以字母开头，不

11、能以数字或其他字符开头。2、只能由字母、汉字、数字学或下划线组成，不能含有小数点、空格等字符。3、最长不超过255个字符4、不能以VB保留字作变量名，如语句定义符、函数名等。5、VB不区分变量名中字母大小写。如 HELLO和Hello是同一个变量。 数据及运算（1）常用数据类型：（整型）Integer 、（长整型）Long、（单精度型）Single、（双精度 型）Double、（字符串型）String、（布尔型）Boolean、（日期型）Date其中（整型）Integer 、（长整型）Long、（单精度型）Single、（双精度型）Double属于 数值型 表小范围：（整型）Integer （

12、-32768 32767 ,存储为 16 位，2个字节）（长整型）Long（-21亿 一一21亿，可以表示人口数量 ）（布尔型）Boolean（True 真、是或False 假、非）（字符串型）String（定长字符串：0 一 65535 个字符，不定长字符串：0 一 20亿个字符）字符串型数据是指用 “括起来的一串字符。如欢迎进入VB世界！ "、 “ VisualBasic ”、 “ 1234都是字符串类型。（日期型）Date （100/1/19999/12/31）日期型数据专门用来处理日期和时间。VB采用一对“ #把日期和时间的值括起来，如#2003/08/20# 表示 2003

13、 年 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

14、IntegerDim str As StringLet a = 54Let b = 114 c = a + b str = "Hello World" Print "a=" a, "b=" b, "c=" c Print str End SubB）。VB语言中，下列数据类型说明符中表示整型的是（A、BooleanB、IntegerC、DateD、String数据的输出Pint程序中运算得到的结果，除可以使用文本框和标签显示外，对于大批量的数据更适合用方法输出，格式如下对象.Pint 表达式列表例题：Private

15、Sub Form_Click（）Dim x As Single, y As SingleForml.Print-61;-34Form1.Print9 * 2; 12Form1.Print"This is""a book"x = 3: y = 4Print "x=" x, "y=" yEnd Sub注意：Print 方法相关题解：单选题在VB语言中，下列合法的变量名是（ B）。A、34ab B、ab34 C、*abc D、cc下列选项中属于字符串常量的是（）。A、ab B、a+bC、"1235"

16、D、1235在VB语言中，下列合法的变量名是（）。A、aa B、 a*bC、 7ab D、dim运算符1、 算术运算：例：2A2 = 4例：5 / 2 = 2.5例：52 = 2例：5 Mod 2 = 1+力口 一减 *乘A指数/ （浮点）除、 整除Mod求余数相关题解单选题1、分析下列程序：Private Sub Form_Click()s=113 + 11 Mod 3Print sEnd Sub当单击窗体时s的值是).A、5 B、6 C、4D、关系运算<>>=赋值、不等于大于等于号小于号大于号二小于等于号注意：关系表达式的运算结果为布尔值True 或 False例：3 &

17、gt; 2 结果为True（真或是）相关题解单选题1、下面表达式的值是false的有(C ).A、"969" < "n97" B、Int(4.99) <> len("basic")C、str(2000) < "1997"D2逻辑运算Not （取反）And （与）Or （或）运算结果为布尔型（Boolean ） True 或False逻辑运算符的优先级为：No > And > Or1、下列逻辑表达式的值为假"的是（A）。A、2 + 4 > 8 B、3 + 12 =

18、15 C、5 > 0 And 4 > 3 D、10 / 5 <32、下列逻辑表达式的值为假"的是（D）。A、3 + 5 > 7 B、8 / 4 < 4C、5 > 3 And 3 > 2 D、4 + 11 > 203、已知A, B, C, D是简单变量，且都已有互不相同的值，执行语句A=C: D=B 后,下列关系表达式逻辑值为 真"的是（A）。A、C=A B、A=BC、D=C D、B=C日期运算符与日期表达式日期表达式是用日期运算符“+”或-'”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#

19、2003/09/01# +30”的运算结果是 “2003-10- 1”；表达式 “#2003/10/20#- #2003/10/10#”的运算结果为整数10相关题解单选题1、设 a=2, b=3, 在 VB 中，表达式 a>b Or b>3值是:(B )A、False B、TrueC、-1 D、1字符运算字符串连接符为 “+%口 “&”“123” +“45” =" 12345 ”“123” &“45” =" 12345 ”123 +“45” = 168“123” + 45 = 168相关题解单选题VB的字符串运算符是“ &：该运算符主要用

20、于连接两个或更多的字符串。如： "abcd" &“efg”连接后的运算结果为："abcdefg"。那么，"1+2" & "3"的运算结果为：(C)。A、33 B、6 C、"1+23" D、True运算符的执行顺序在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定，优 先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 > 字符串运算符 > 关系运算符 > 逻辑运算符相关题解单选题在VB语言中，表示

21、大于0且b小于12”的正确表达式是(D)。A、b<12 or a > 0B、b > 12 And a < 0C、a > 12 Or a < 0D、a > 0 And b < 12常用函数数学函数Abs(x) 求 x 的绝对值，例：abs(-3.6) = 3.6Sqr(x) 求 x 的平方根，例：sqr(100) = 10int(-3.6) = -4Int(x) 求 x的最大整数例：int(3.6) = 3Rnd(x)产生0 , 1)之间的随机数(不包括 1 )Sin(x)Cos(x)Tan(x)Atn(x)Exp(x)Log(x)使用三角函数时，

22、参数应是弧度，如数学中 sin30 0应写为：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(数值，字符)生成指定长度与指定字符的

23、字符串，例： String(3, “ 9")=" 999函数mid (C,N1,N2)的作用是从字符串C中N1位开始取出长度为N2的子串。那么，Mid ("aBcDeFg", 3, 3) 的值为(D)。A、aBc B、cde C、eFg D、cDe常用转换函数Val(字符串)将字符串转换为数值Str(数彳1)将数值转换为字符串Chr(字符代码)Asc(字符)Tab定位函数的使用例题Private Sub Form_Click( )Dim aAs IntegerDim bAs Integera = 4: b = 9Print Tab(1);" 数

24、"Tab(9);"平方"Tab(18);"立方"Tab(27);" 平方根"Print Tab;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坐标)MsgBo

25、x()其语法格式为：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、-3603、下列(A )数据类型不是数值型。A、DateB、Single C、Double D、Integer4、下列函数中，返回值是字符串的是(A ).A、Mid B、Instr C、Val D、Len5、下列(A )函数返回系统的当前时间。A、time()B、date()C、day

26、() D、year()6、代数表达式表达式后错误的是(D )A、g*t*t/2B、1/2*g*tA2C、g*tA2/2D、gtA2/27、数学式子 在VB中的正确写法是：()A、 (2*a+b)/4*aB、(2*a+b)/(4ab)C、(2a+b)(4ab)D、(2*a+b)/(4*a*b)8、判断x是否在区间a, b上，在VB中以哪个逻辑表达式是正确的？( C )A、a<x and x<=b B、 a<x<=b C、a<x and x < b D、a>x and x<=b综合分析1、向n变量存入1个2位整数，要使此 2位数十位和个位上的值分别存

27、入x, y变量。正确的算法是(D )。选项：x、x=Left(n, 1) (2)y=n-x*10 Print x:Print yB、x=Left(n, 1)y=Right(n, 1) Print x:Print yC、*。y=n-x*10Print x:Print yD、 x=Int(n/10)y=n-x*10 Print x:Print y2、向x变量中输入任意一个小写字母，再将 x变量中的小写字母转成大写字母。正确的算 法是(A ).A、输人字母到B、输人字母到C、输人字母到D、输人字母到x a=Asc(x)-32选项：x a=Asc(x)+32*) Print xx a=Val(x) -

28、 32 x=Chr(x) Print xx a=Val(x)+32x=Chr(x) Print x程序设计的顺序结构顺序结构：代码按照由上到下的顺序一行一行地执行。程序执行过程中没有分支、没有重 复，这种结构称为顺序结构。例题：交换两个变量中的数据。Private Sub cmdSwap_Click()Dim x As Single, y As SingleDim m As Singlex = Val(txtsx.Text)y = Val(txtsy.Text)m = x: x = y: y = m'交换数据txtdx.Text = Str(x)txtdy.Text = Str(y)E

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

30、句格式二：If条件Then 语句1 日se 语句2 例题：输入三个不相同的数，求出其中最小数。Private Sub Form_Click（）Dim a As Single, b As Single, c As SingleDim Min As Singlea = InputBox（" 输入 a","输入框"）b = InputBox（" 输入 b","输入框"）c = InputBox（" 输入 c","输入框"）If a < b Then Min = a Else

31、Min = bIf c < Min Then Min = cPrint "最小数="Min执行这种形式的语句时，先进行判断。若条件成立，则执行语句 1;否则执行语句2。块If语句上述If-then 语句只能根据条件的真假是否执行一条语句，当 Then部分和曰se部分包含 的内容较多时，则可选用块If语句”结构。格式三：If条件Then语句块End If例题：当从输入一个数时，当该数大于或等于 60时显示"及格"，该数小于60时显示"不及格"。Private Sub Command1_Click()Dim a As Singlea

32、 = Val(Text1.Text)If a >= 60 ThenLabel1.Caption =" 及格"End IfIf a < 60 ThenLabel1.Caption ="不及格"End IfEnd Sub格式四：If条件Then语句块1Else语句块2End If例题：编写程序，求函数 Y的值(当xWO时，y=3x+1;当x>0时，y=4x+1)。Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox("请输入变量 x"

33、)If x <= 0 Theny = 3 * x + 1ElseEnd IfPrint "y=" yEnd Sub相关题解单选题1、以下是一段 Visual Basic 程序:If I=1 ThenX=X+1ElseX=X*2End If它的基本结构属于（A ）.A、选择结构 B、循环结构C、顺序结构D、树型结构2、下列程序段运行后，变量 Value的值是（A ）x = 20If x >= 10 ThenValue = 5 * xElseValue = 4 * xEnd IfA、100 B、80 C、90 D、70综合分析1、如要完成：从键盘输入一个正整数，判断

34、是否是奇数，如是就在屏幕上显示。比较好的算法是（BD ）。选项：A、输人的数存人变量 f=(n/2=Int(n/2)B、输人的数存人变量 f=(n/2=Int(n/2)C、输人的数存人变量如果n/2=Int(n/2)D、输人的数存人n变量如果n/2=Int(n/2)如果f中的值为True就显示n中值如果f中的值为False就显示n中值成立，就显示n中值不成立，就显示n中值2、下面是判断变量x是不是能被5整除的偶数的程序， 横线上的逻辑表达式应为(AB )Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If = 0 Th

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

36、2)C、输入的数存人 n变量如果n/2=Int(n/2)D、输入的数存人n变量如果n/2=Int(n/2)4、下列程序段运行后，m的值为(A )A=2:b=1:c=5If A < b Then m = A Else m = bIf c < m Then m = c选项：A、1B、2C、5D、提示错误，无答案程序设计的循环结构一、For-Next 循环For循环变量一般形式是：For循环变量=初值To终值Step循环变量增量 循环体Nxt循环变量例题 1 :求 s = 1+2+3+4.+100Private Sub Form_Click()Dim i As IntegerDim su

37、m As Integersum = 0For i = 1 To 100sum = sum + i '循环体Next iPrint "sum=" sumEnd Sub例题2 : Step循环变量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step ,则增量的缺省值为11、 循环变量取初值；2、 循环变量与终值比较，没有超过终值转3,否则循结束，接着执行循环语句的后继语句；3、

38、 执行一次循环体4、 循环变量增加一个增量5、 重复步骤24 。以上可以看出，For-Next 循环变量是一种当型循环。说明(a) For语句与Next语句必须成对出现， 而且它们当中的 循环变量”必须是同一个 变量，如上例中均为I。(b) 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。入口出口二、Do Loop 循环For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop 循环格式一 ： Do While 条件循环体Loop例题：求最大公约数Private Sub Comma

39、nd1_Click()Dim a As IntegerDim b As IntegerDim r As Integera = Val(Text1.Text)b = Val(Text2.Text)r = a Mod bDo While r <> 0a = bb = rr = a Mod bLoopText3.Text = Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二：Do循环体Loop Until 条件这种循

40、环的执行过程如图所示。进入循环体后，先执行一次循环体A,然后再检查条件 P是否成立。如果不成立，就重复执行循环体A,直到条件P成立退出循环体。PN例题：如果我国人口每年以平均1.5% 的速度增长，问多少年后我国人口达到或超过15亿？设现在人口为 12.3亿。Private Sub Form_Click()Dim pAs SingleDim rAs SingleDim nAs Integerp=1230000000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Until p >= 1500000000#Print n;" 年后&quo

41、t;,"人口 =" pEnd Sub下列程序段执行结束后，变量y的值是(C)。y=2Do while y<=6y=y+yLoopA、2 B、6 C、8 D、16分析程序，写出执行结果。Private Sub command1_click()Dim S As IntegerAs IntegerS=0For i=1 to 10 Step 2S=S+iNext iPrint " S=" ;sEnd Sub答案：S= 25(三)算法与问题解决1、解析法2、穷举法3、递归法综合分析1、有5人，问第5人年龄，说比前面第 4人小3岁，问第4. 3. 2人，都说比

42、前面人小 3 岁，问第1人，说他的年龄为38岁。问第5人的年龄多大。用递归法解决此问题的正确步 骤是(B )。选项：A、定义age (n)函数 函数中当n>1时返回函数值为age (n-1) 当n=1返回函数值 为38B、定义age (n)函数 函数中当n>1时返回函数值为 age (n-1)-3 当n=1返回函数 值为38C、定义age (n)函数 函数中不断地调用 age (n-1)-3D、定义age (n)函数 函数中不断地调用 age (n)函数自己4、排序与查找数据四、应用程序设计1、程序设计的一般步骤2、简单程序设计综合分析1、a,b,c三变量存放不同的数，值a最大，b

43、第二，比较好的算法是(A、定义一个max(x,y)B、如a < b 就a = bC、如a > b 就a = b函数(值为 x,y 中的大值) a = max(max(a,b),c)如 a < c 就 a = cl如 b <c 就 b = c如 a > c 就 a = cl如 b >c 就 b = cD、如a < b就两变量交换如a < c就两变量交换l如b <c 就两变量交换2、求 2! +3! +4! +5!+ 1的值。能完成此运算，并且比较好的算法是(A )。选项：A、定义求阶乘的函数用j c(n)主程序中用一个循环9次调用j c(n)

44、函数进行累加B、用一个程序完成：每一项阶乘用一个For/Next循环完成，整个程序包括9个循环C、用解析法：s=1*2+1*2*3+1*2*3*4+1*2*3*4*5*6*7*8*9*10D、不必定义函数，只要用一个单重循环就能完成3、要求打印100至200之间所有偶数的平方根( C )A、i = 100 Do While i < 200:Printi,Sqr(i):loopB、i = 100 Do While i < 200:Printi,Sqr(i):i= i + 1:loopC、For i = 100to 200 step 2:Print i,Sqr(i): Next iD、

45、For i = 100to 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 3Print Tab(Abs(i)+5)For j=1 To (4-Abs(i)-1Print "*"Next jPrint '换行Next iEnd Sub必修2_15、编写程序，使能打印下面所示的图案。*程序：Private Sub

46、 Form Click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = -3 To 3Print Tab(Abs(i)+5);For j=1 To 2*(3-Abs(i)-1Print "*"Next jPrint '换行Next iEnd Sub必修3_15、编写程序，使能打印下面所示的图案。程序：Private Sub Form_Click()Dim i As IntegerDim j As IntegerFori = 1 To 6Print Tab(10);Forj =

47、1 To iPrint " ；Next jPrintNext iEnd Sub必修4_15、完善显示按钮的 click程序，将代码段中变量1 变量2.变量3、处换成正确的变量名，使当单击该按钮时，Labell. Label2 分别显示30、10,完成所有操作后，诸按 “Ctrl+S ”保存。Private Sub Command_Click()x = 10y = 30If x < y Thent = xx = yy = tEnd IfLabel1.Caption = xLabel2.Caption = yEnd Sub必修5_15、完善"判断"按钮的clic

48、k程序，使当从Textl中输入一个数时，当该数大于或等于60时在Lebell中显示"及格"，该数小于60时在Labell中显示"不及格"。完成所有操作后，诸按 “Ctrl+S ”保存。Private Sub Command1_Click()Dim a As Singlea = Val(Textl.Text)If a>=60 ThenLabell.Caption = 及格”End IfIf a < 60 ThenLabel1.Caption =不及格”End IfEnd Sub必修1_16、编写程序，求函数 y的值(当x<=0 时,y=3

49、x+1;当x>0 时，y=4x+1)。程序：Private Sub Form Click()Dim x As Single ' 定义x为单精度型变量Dim y As Single ' 定义y为单精度型变量x = Val(InputBox("请输入变量 x")If x <=0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint "y="yEnd Sub必修2_16、编写程序，求 y=6x-5 的值。(x的值在程序中调用InputBox 函数，在弹出的标准输入对话框中输入)程序：Privat

50、e Sub Form_Click()x = Val(InputBox(请输入变量x”)y = 6*x- 5Print "y=” ； End Sub必修3_16、一只猴子摘了一堆桃子，它每天吃当天桃子数的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最 初共有多少个桃子。完成所有操作后，诸按“Ctrl+S ”保存。程序：Private Sub Form_Click()Dim i As IntegerDim s As Integer s = 1For i =1 To 9s = (s + 1)*2NextPrint " s= " ;sEnd

51、 Sub必修4_16、完善按钮 计算7!”的Click事件程序，当单击命令按钮时 Text1显示7!的值。 Private Sub Command1_Click()Dim a As IntegerDim i As Integer a = 1Fori = 1 To 7a = a * iNext iText1.Text = a必修5_16、请将按钮"计算1+2+100"的Click事件程序中的"常量"和"变量"换成正确的常量和变量，当单击命令按钮时Textl显示1+2+"""+100的值。完成所有操作后，诸按“Ctrl+S ”保存。Private Sub Command1_Click()Dim a As IntegerDim I As Integer a = 0For i = 1 To 100 a = a + iNext iText1.