信息技术算法与程序设计VB选修知识点汇总(良心出品必属精品)

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

2、形化表示方法。且描 述算法形象、直观，更易理解。4伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描 述。是专业软件开发人员常用方法。相关题解:输入或输出单选题1、图形符号在算法流程图描述中表示（）.A处理或运算的功能B 输入输出操作C用来判断条件是否满足需求D 算法的开始或结束2、 图形符号口 在算法流程图描述中表示（）.A处理或运算的功能B输入输出操作C用来判断条件是否满足需求 D算法的开始或结束3、以下哪个是算法的描述方法?（）A流程图描述法B枚举法C顺序法 D 列表法4、以下哪个是算法的描述方法?（）A顺序法B列表法C集合法D自然语言描述法（二）程序设计基础（1）常用高级编程

3、语言：BASIC VB Pascal、C C+ Java1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包 括窗体等、控件等2控件：是指工具箱中的工具在窗体中画出的、 能实现一定功能的部件, 如文本框，命令按钮等。常用控件：控件对象的类型前缀名字举例窗体Formfrmfrmfi nd命令按钮Comma nd butt oncmdcmdok标签Labellbllbli nput文本框TextBoxtmrtmrClock若命令按钮（Command的Enabled属性设置为True时按钮有效，设置为 False时按钮无效3对象的属性、方法和事件1属性属性Name设置对象的名称Capti

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

5、控件可水平扩充， 以适应控件Caption属性。Visible决定控件是否可见En abled决定控件运行时是否有效对象.属性=属性值对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置，方法如下例：给文本框“ Txt123 ”的“ Text ”属性赋值为字符串“ 20”，代码如 下Txt123.text =” 20”变量=对象.属性如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下例：读取文本框“ txt123 ”的“ Text ”属性的代码如下a = txt123.text2方法对象.方法参数名表例：form.print”欢迎使用”该语句使用print方法

6、在forml窗体中显示字符串“欢迎使用”3事件及事件驱动事件是对象对外部操作的响应，如在程序执行时，单击命令按钮会产生 一个Click事件。如需要命令按钮响应Click事件，就把完成Click事 件功能的代码写到Click事件的事件过程中，与事件一一对应。事件过程的形式如下：Private Sub 对象_事件名( )(事件过程代码)End Sub一个简单的VB程序求圆的周长和面积Private Sub Command1_Click()Dim r As Single Dim c As Single Dim s As Single r = Val(Text1.Text) c = 2 * 3.141

7、59 * r s = 3.14159 * r * r Text2.Text = cText3.Text = s定义 r 为单精度型定义 c 为单精度型定义 s 为单精度型输入半径 r计算周长计算面积输出周长输出面积End SubPrivate Sub Command2_Click()End 退出End Sub 相关题解： 单选题1、下列关于程序设计说法正确的是 ( )。A、程序设计语言的发展经历了机器语言、汇编语言到高级语言的过程, 比较流行的高级语言是 PASCAL, FORTRAN, EXCEL, C等B、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机 可以执行的程序的过程C、

8、程序设计语言和计算机语言是同一个概念的两个方面D程序设计就是指示计算机如何去解决间题或完成一组可执行指令的 过程2、下列说法错误的是( ) .A、程序设计就是寻求解决问题的方法，并将其实现步骤编写成计算机 可以执行的程序的过程B、程序设计语言的发展经历了机器语言、汇编语言、高级语言的过程C、计算机程序就是指计算机如何去解决间题或完成一组可执行指令的 过程D程序设计语言和计算机语言是同一概念的两个方面一、常量：批在程序进行过程中不变的量在 VB中一般分数值常量与字 符常量两种数值常量：就是数学中说的常数，分整型常量和实型常量两种 整型常量：即整数，指不带小数点的数值如1、 0、 -10、 +35

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

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

11、 属于数值型 表示范围：（整型）In teger （-32768 （ 长整型 ）Long（-21 亿 32767 ，存储为 16 位 ， 2 个字节）21 亿，可以表示人口数量 ） （ 布尔型） Boolean（True 真、是 或 False 假、非 ）（字符串型） String（ 定长字符串： 065535个字符，不定长字符串： 0 20亿个字符 ）字符串型数据是指用 “ ”括起来的一串字符。如“欢迎 进入 VB世界！ ”、“ Visual Basic ”、“ 1234 ”都是字符串类型。（日期型） Date（100/1/1 9999/ 1 2/3 1 ）日期型数据专门用来处理日期和时间。

12、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

13、, b As Integer, c As IntegerDim str As StringLet a = 54Let b = 114c = a + bstr = Hello WorldPrint a=; a, b=; b, c=; cPrint strEnd Sub 数据的输出 程序中运算得到的结果，除可以使用文本框和标签显示外，对于大批量 的数据更适合用 Pint 方法输出，格式如下 对象 . Pint 表达式列表 例题：Private Sub Form_Click()Dim x As Single, y As SingleForm1.Print -61; -34 Form1.Print 9

14、 * 2; 12Form1.Print This is; a bookx = 3: y = 4Print x=; x, y=; yEnd Sub 注意： Print 方法 相关题解： 单选题1、下列变量名写法错误的是 ( )A、abc_123 B 、 123abc C 、 abc123 D 、abc 2、下列语句中定义了一个实型变量的是 ( ) A、Dim end as Integer B、 Dim sum As SingleC、Dim Name As String D 、其它三项都不对3、 在VB中，以下哪个是正确表示十六进制整型数常量?()A、 32F B 、 H32F C 、 h32F

15、D 、 &32F4、 在VB中，以下关于符号常量的声明，声明正确的是:()A、 Dim TAGas String B 、 Const TAGas String Visual + Basic C、 Const TAGas String =Visual Basic D 、 Const TAGas String5、下面 ( ) 不是字符串常量A、 True B 、 #False# C 、 D 、 你好 运算符1、 算术运算：+ 加 - 减 *乘八指数例：22 = 4/ (浮点)除例： 5 / 2 = 2.5 整除例： 5 2 = 2Mod 求余数例： 5 Mod 2 = 1相关题解单选题1、分析下列

16、程序 :Private Sub Form_Click() s=113 + 11 Mod 3Print sEnd Sub小于号 大于号 =小于等于号当单击窗体时 s 的值是 ( ). A、5 B 、 6 C 、4 D 、3 关系运算= 赋值 、 不等于=大于等于号 2 结果为 True( 真或是)相关题解单选题1、下面表达式的值是 false 的有 ( ).A、969 n97 B 、Int(4.99) len(basic) C、str(2000) 2逻辑运算Not (取反)And (与)Or (或)运算结果为布尔型( Boolean ) True 或 False 逻辑运算符的优先级为： No A

17、nd Or 日期运算符与日期表达式 日期表达式是用日期运算符“ +”或“- ”将算式表达式、日期型常量、 日期型变量、日期函数等连接起来的式子， 如表达式“ #2003/09/01# +30” 的运算结果是“ 2003-10-1 ”；表达式“ #2003/10/20# - #2003/10/10# ” 的运算结果为整数 10 相关题解 单选题1、设a=2, b=3,在VB中，表达式ab Or b3值是:()A、 False B 、 True C 、 -1 D 、 1 字符运算 字符串连接符为“ +”和“ &” “123” + “45” = “12345” “123” & “45” = “123

18、45” 123 + “45” = 168 “123” + 45 = 168 运算符的执行顺序在VB中，当一个表达式中同时出现多种运算符时，运算次序由运算符 的优先级决定， 优先级高的运算符先运算，优先级相同的从左向右进行 运算。不同性质的运算符优先级如下。算术运算符 字符串运算符 关系运算符 逻辑运算符 常用函数 数学函数Abs(x) 求 x 的绝对值，例： abs(-3.6) = 3.6 Sqr(x) 求 x 的平方根，例： sqr(100) = 10Int(x)求w x 的最大整数 例：int(3.6) = 3 int(-3.6) = -4Rnd(x) 产生0， 1)之间的随机数(不包括

19、1)Sin(x) Cos(x) Tan(x) Atn(x) Exp(x) Log(x) 使用三角函数时，参数应是弧度，如数学中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)String( 数值，字符 )生成指定长度与

20、指定字符的字符串，例：String(3, ”9”) = ”999”常用转换函数Val( 字符串 ) 将字符串转换为数值Str( 数值) 将数值转换为字符串Chr(字符代码)Asc(字符)Tab定位函数的使用 例题Private Sub Form_Click( )Dim a As IntegerDim b As Integera = 4: b = 9Print 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

21、 Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27);Sqr(b)End Sub用户交互函数VB提供InputBox()和MsgBox()函数用于人机交互InputBox( ) 其语法格式为：InputBox(提示，标题，默认值,X坐标，丫坐标)MsgBox( ) 其语法格式为：MsgBox提示信息，按钮，标题) 相关题解单选题1、A、2、A、3、 A、4、A、5、 A、Visual Basic 中，下列() 函数是求绝对值的 ABS(X) B、SQR(X C表达式-36 B下列(DateoINT (X)D、GN(X)Abs(-3.6)*

22、sqr(100)的值是(、360 C、36 D、-360 ) 数据类型不是数值型。B 、Single C 、下列函数中，返回值是字符串的是 (Mid下列()函数返回系统的当前时间time()、Instr、VaiDouble ).DIn teger、LenB 、date()1 t?代数表达式2 9表达式后错误的是(A、g*t*t/2B 、1/2*g*tA2 C2a+b6、day()、g*tA2/2、year()、gtA2/2( )、(2a+b)(4ab) D 、7、数学式子4ab在VB中的正确写法是：A、(2*a+b)/4*a B 、(2*a+b)/(4ab) C (2*a+b)/(4*a*b)

23、&判断x是否在区间a, b上，在VB中以哪个逻辑表达式是正确的?()A、ax and x=b B 、 ax=b C 、ax and x x and x=b综合分析1、向n变量存入1个2位整数，要使此2位数十位和个位上的值分别 存入x, y变量。正确的算法是()。选项：x、x=Left(n, 1)y=n-x*10 Print x:Print yB、 x=Left( n, 1) y=Right (n, 1) Print x:Pri nt yC、 x=n/10 y=n-x*10 Print x:Print yD x=Int(n/10)y=n-x*10 Print x:Print y2、 向x变量中输

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

25、 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)End SubPrivate Sub cmdEnd_Click()EndEnd Sub相关题解单选题1、以下是一段VB程序：a = 1b = a + 1c = a + b它的基本结构属于( )A、顺序结构B、选择结构C、循环结构 D、树型结构2、下列VB程序运行后，变量x的值为().x=2Print x+lPrint x+2A、

26、2 B 、3 程序设计的分支结构行 If 语句行 If 是指在一行中写完的 If 语句。其一般格式为：格式一： If 条件 Then 语句执行这种形式的 If 语句时，首先对条件进行判断。若条件成立，则执 行 Then 后面的语句；若条件不成立，则执行 If 语句后继程序行的语句 格式二： If 条件 Then 语句 1 Else 语句 2 例题：输入三个不相同的数，求出其中最小数。Private Sub Form_Click（）Dim a As Single, b As Single, c As SingleDim Min As Singlea = val（InputBox（ 输入 a, 输

27、入框 ）b = InputBox（输入 b, 输入框 ）c = InputBox（输入 c, 输入框 ）If a b Then Min = a Else Min = bIf c = 60 ThenLabel1.Caption = 及格 ElseLabel1.Caption = 不及格 End IfEnd Sub格式四： If 条件 Then语句块 1Else语句块 2End If例题：编写程序，求函数丫的值(当x 0时，y=4x+1)Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox( 请输入变量 x)I

28、f x = 10 ThenValue = 5 * xElseValue = 4 * xEnd IfA、 100 B 、 80 C 、 90 D 、 70综合分析1、如要完成 : 从键盘输入一个正整数，判断是否是奇数，如是就在屏幕 上显示。比较好的算法是 ( ) 。选项 :A、 输人的数存入n变量f=(n/2=lnt(n/2)如果f中的值为True 就显示 n 中值B、 输人的数存入n变量f=(n/2=lnt(n/2)如果f中的值为False 就显示 n 中值C、 输人的数存入n变量如果n/2=lnt(n/2)成立，就显示n中值 D输人的数存入n变量如果n/2=lnt(n/2)不成立，就显示n中

29、值 2、下面是判断变量 x 是不是能被 5 整除的偶数的程序，横线上的逻辑 表达式应为 ()Private Sub commandl_Click()Dim x As lntegerx=Val(Text1. Text)lf = 0 ThenLabell.Caption=这个数是能被 5整除的偶数ElseLabell.Caption=这个数不是能被 5 整除的偶数End lf选项：A、(x Mod 5) = 0 And (x Mod 2 ) = 0B、x Mod 10 = 0C、x Mod 5 = 0D、x Mod 2 = 03、如要完成 :从键盘输入一个正整数，判断是否是偶数，如是就在屏幕 上显

30、示。比较好的算法是 ( ) 。 选项 :A、 输入的数存人n变量f=(n/2=lnt(n/2)如果f中的值为True 就显示 n 中值B、 输入的数存人n变量f=(n/2=lnt(n/2)如果f中的值为False 就显示 n 中值C、 输入的数存人n变量如果n/2=lnt(n/2)成立，就显示n中值D输入的数存人n变量如果n/2=lnt(n/2)不成立，就显示n中值4、下列程序段运行后 ,m 的值为 ( )A=2: b=1: c=5lf A b Then m = A Else m = b lf c m Then m = c选项：A、1B、2C、5D提示错误，无答案 程序设计的循环结构 一、 F

31、or-Next 循环For 循环变量一般形式是：For 循环变量 =初值 To 终值 Step 循环变量增量 循环体Next 循环变量例题 1 求 s= 1+2+3+4.+100Private Sub Form_Click()Dim i As In tegerDim sum As In tegersum = 0For i = 1 To 100sum = sum + i 循环体Next iPrin t sum=; sumEnd Sub例题2: Step循环变量增量Private Sub Form_Click()For j = 3 To 15 Step 2Print jNext jEnd Sub循

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

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

34、 Sub Comma nd2_Click()EndEnd Sub当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条 件为真，执行循环体，条件为假时退出循环。格式二：Do循环体Loop Un til 条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A,然后再检查条件P是否成立。如果不成立，就重复执行循环体 A,直到 条件P成立退出循环体。例题：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口 达到或超过15亿？设现在人口为12.3亿。Private Sub Form_Click()Dim p As Si ngleDim r As Si ngleD

35、im n As In tegerp= 1230000000#r = 0.015n = 0Dop = p * (1 + r)n = n + 1Loop Until p = 1500000000#Print n; 年后 , 人口 =; pEnd Sub1、下列流程图表示的是程序的 ( ) 基本结构的算法。A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构2、在VB中，以下程序段：x=0Do While x50x=(x+2)*(x+3)Loop 执行后， x 的值为 ：( ).A、168 B 、 50 C 、 72 D 、 03、 阅读下面程序，当单击窗体之后，窗体上输出的是()Priva

36、te Sub Form_Click()Dim i As Integer：Dim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s,iEnd Sub 选项 ：A、15 6 B 、 s=15i=6 C 、 65 D 、 s=6i=54、要求计算机打印出 100至 200之问所有偶数的平方根值。正确的算 法是 ( ) 。， Sqr(i):Loop， Sqr(i):i=i+1:Loop ， Sqr(i):Next i选项：A、i=100 Do While i200:Print iB、i=100 Do While i200:Print iC、Fo

37、r i=100 To 200 Step 2:Print iD、For i=100 To 200:Print i，Sqr(i):Next i5、下列程序段中，循环体执行的次数是 ( ) y = 2Do While y = 8y = y+yLoop选项:A、2 B 、 3 C 、 4 D 、 56、 阅读下面程序，当单击窗体之后，m的值是().Private Sub Form_Click()Dim m As Integer:Dim i As Integerm = 0For i = 1 To 3m = m + 2Next iPrint mEnd Sub 选项：A、0 B 、 4 C 、 6 D 、

38、87、在VB中，假定有以下程序段：For i=1 To 3 Step 2Print VBNext i则语句 Print VB 的执行次数是： ()。A、 1 B 、 2 C 、 3 D 、 48、 下列程序段中，循环体执行的次数是( )x=0For y=1 To 10 step -1x=x+1Next yA、 1 B 、 0 C 、 10 D 、 49、在VB中，假定有以下程序段： For i=3 To 1Print VBNext i则语句Print“VB的执行次数是:()A、出错 B、2 C、1 D 、010、下列程序段中，循环体执行的次数是()x=0For y = 1 To 10 step

39、 -1x = x+1Next yA、 1 B 、 10 C 、 0 D 、 411 、单击窗体后，文本框 Text1 、 Text2 中显示的内容是( ) Private Sub Form_Click( )Dim x as Integer, n as Integerx = 1n = 0Do While x 20n = n + 1x = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA、 27 3 B 、 327 C 、 20 3 D 、 32112、单击窗体后，文本框 Text1 、 Text2 中显示的内容是( ) Private

40、 Sub Form_Click( )Dim x as Integer, y as Integerx = 1:y = 0Do While x 1时返回函数值为age (n-1)当 n=1 返回函数值为 38B、定义age (n)函数 函数中当n1时返回函数值为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 第二，比较好的算法是

41、()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 = cD如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*

42、4+ + 1*2*3*4*5*6*7*8*9*10D不必定义函数，只要用一个单重循环就能完成3、要求打印 100 至 200 之间所有偶数的平方根( C )A、 i 二 100Do While i 200:Pri nt i,Sqr(i):loopB、 i 二 100Do While i 200:Pri nt i,Sqr(i):i = i + 1:loopC、 For i = 100 to 200 step 2:Pri nt i,Sqr(i) : Next iD For i = 100 to 200:Pri nt i,Sqr(i):Next i编程题必修 1_15、编写程序，使能打印下面所示的图

43、案。程序：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 Form Click()Dim i As Integer 定义 i 为整型变量Dim j As Integer 定义 j 为整型变量For i = -3 To 3Prin

44、t 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 IntegerFor i = 1 To 6Print Tab(10);For j = 1 To iPrint “”;Next jPrintNext iEnd Sub必修 4_15、完善显示按钮的 click 程序，将代码段中“变量 1“、“变 量 2. “变量3、处换成正确的变量名，使当单击该按钮

45、时， Labell. Label2 分别 显示 30、 10,完成所有操作后，诸按“ Ctrl+S ”保存。Private Sub Command_Click( )x = 10y = 30If x =60 ThenLabel1.Caption =End IfIf a 60 Then Label1.Caption =End IfEnd Sub必修1_16、编写程序，求函数y的值(当x0时， y=4x+1) 。程序：Private Sub Form Click()Dim x As Single 定义 x 为单精度型变量Dim y As Single 定义 y 为单精度型变量x = Val(Inpu

46、tBox( 请输入变量 x)If x =0 Theny = 3 * x + 1Elsey = 4 * x + 1End IfPrint y=;yEnd Sub必修2_16、编写程序，求y=6x-5的值。(x的值在程序中调用InputBox 函数，在弹出的标准输入对话框中输入 )程序：Private Sub Form_Click()Dim x As SingleDim y As Singlex = Val(InputBox( “请输入变量 x”)y = 6*x 5Print “y=”;End Sub必修 3_16、一只猴子摘了一堆桃子， 它每天吃当天桃子数的一半， 每次 忍不住多 吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最 初共有多少个桃子。完成所有操作后，诸按“ Ctrl+S ”保存。 程序：Private Sub Form_Click()Dim i As IntegerDim s As Integers = 1For i =1 To 9s = (s + 1)*2NextPrint “s=”;sEnd Sub必修 4_16、完善按钮“计算 7!”的 Click 事件程序，当单击命令按钮 时 Text1 显示 7! 的值。Private Sub Command1_Cl