高中信息技术《算法与程序设计VB(选修)》简要教程

1、江苏省高中信息技术算法与程序设计VB（选修）知识要点相关知识点（一）算法1. 定义相关题解：1 算法： 就是解决问题的方法和步骤。算法是程序设计的“灵魂”，算法 +数据结构程序。单选题1、下列关于算法说法不正确的是(A)A 、算法独立于任何具体的语言，BASIC 算法只能用BASIC 语言来实现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 枚

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

4、mand) 的 Enabled 属性设置为 True 时按钮有效，设置为False 时按钮无效3对象的属性、方法和事件1属性NameCaptionTextHeightWidthTOPLeftFontBackColorForeColorBorderStyleAlignmentAutoSizeVisibleEnabled属性设置对象的名称决定控件中显示的内容（文字）决定窗体中文本框中显示的内容(初始为空白 )决定控件高度决定控件宽度决定控件的靠顶部位置决定控件的靠左边位置设置控件中字体格式设置控件背景色设置控件的前景色设置控件的边框风格即标签文字对齐属性 ：(0)Left Justify 时文本左

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

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

7、e 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 SubPrivate Sub Command2_Click()End'退出End Sub 相关

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

9、、程序设计语言和计算机语言是同一概念的两个方面一、常量 ：批在程序进行过程中不变的量在VB中一般分 数值常量 与字符常量 两种数值常量： 就是数学中说的常数，分整型常量 和实型常量 两种整型常量： 即整数，指不带小数点的数值如1、 0、 -10、 +35 等都是合法的整数实型常量： 即实数，指带小数点的数值。实型常量 又分为 定点数 和浮点数两种。例：定点数：3.14159 和 -6.8， 1.99浮点数： 2E6、 1E5、88E例： 1.2345× 103 可表示为 1.2345E3 ，字母 E 表示底数 10 浮点数就是数学上的科学计数法。字符串常量： 被一对双引号括起来的若干

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

11、类型： (整型 )Integer、（长整型） Long 、（单精度型） Single、（双精度型） Double 、（字符串型） String 、（布尔型） Boolean、（日期型） Date其中 (整型 )Integer 、（长整型） Long 、（单精度型） Single、（双精度型） Double 属于数值型表示范围：( 整型 )Integer (-32768 32767，存储为16 位 ， 2 个字节 )( 长整型 )Long(-21 亿 21 亿，可以表示人口数量)( 布尔型） Boolean(True 真、是或 False 假、非 )（字符串型）String( 定长字符串：0 6

12、5535 个字符，不定长字符串：0 20 亿个字符 )字符串型数据是指用“”括起来的一串字符。如“欢迎进入VB 世界！ ”、 “VisualBasic”、 “1234 ”都是字符串类型。（日期型） Date（ 100/1/1 9999/12/31）日期型数据专门用来处理日期和时间。VB 采用一对“ #”把日期和时间的值括起来，如 #2003/08/20# 表示 2003 年 8 月 20 日。（2）常量和变量的命名、声明及赋值符号常量的声明：Const 常量名As 常量类型 = 常量值如： ConstpiAsSingle = 3.14159常量名为 pi变量的声明 ：Dim < 变量名&

13、gt;As < 变量类型 >如： DimaAsInteger 定义一个整型变量，变量名为a变量的赋值VB 中使用 Let 语句给变量赋值，其形式如下：Let变量= 表达式其中，方括号表示这部分内容是可选的，通常可以省略该关键字。例题Private Sub Form_Click()Dim a As Integer, b As Integer, c As IntegerDim str As StringLet a = 54Let b = 114c = a + bstr = "HelloWorld"Print "a=" a, "b=&qu

14、ot; b, "c=" cPrint strEnd Sub数据的输出程序中运算得到的结果，除可以使用文本框和标签显示外，对于大批量的数据更适合用Pint方法输出，格式如下 对象 . Pint 表达式列表 例题：Private Sub Form_Click()Dim x As Single, y As SingleForm1.Print -61; -34Form1.Print 9 * 2; 12Form1.Print "This is" "a book"x = 3: y = 4Print "x=" x, "

15、y=" yEnd Sub注意： Print 方法相关题解：单选题1、下列变量名写法错误的是 ( B )A 、 abc_123B、 123abcC、 abc123D、 abc2、下列语句中定义了一个实型变量的是( B )A 、 Dim end as IntegerB 、 Dim sum As SingleC、 Dim Name As StringD、其它三项都不对3、在 VB 中，以下哪个是正确表示十六进制整型数常量?(D)A 、32FB、 H32FC、 h32FD 、 &32F4、在 VB 中，以下关于符号常量的声明，声明正确的是:(C)A 、 Dim TAG as Stri

16、ngB 、Const TAG as String "Visual" + "Basic"C、 Const TAG as String ="Visual Basic"D、 Const TAG as String5、下面 ( B)不是字符串常量A 、 "True"B 、 #False#C、" "D、 "你好 "运算符1、 算术运算：+ 加- 减* 乘指数例：22=4/（浮点）除例：5/2=2.5整除例： 52=2Mod求余数例： 5 Mod 2 = 1相关题解单选题1、分析下列程序

17、 :Private Sub Form_Click()s=113 + 11 Mod 3Print sEnd Subs 的值是 (A ).当单击窗体时A 、 5B 、6C、 4D 、 3关系运算=<>>=赋值、不等于大于等于号< 小于号> 大于号< =小于等于号注意：关系表达式的运算结果为布尔值True 或 False例： 3 > 2 结果为True(真或是 )相关题解单选题1、下面表达式的值是false 的有 (C).A 、 "969" < "n97"B、 Int(4.99) <> len(&qu

18、ot;basic")C、str(2000) < "1997"D 、3 > 2逻辑运算Not （取反） And（与）Or （或）运算结果为布尔型（Boolean ） True 或 False逻辑运算符的优先级为：No > And > Or日期运算符与日期表达式日期表达式是用日期运算符“+”或“ -”将算式表达式、日期型常量、日期型变量、日期函数等连接起来的式子，如表达式“#2003/09/01#+30 ”的运算结果是“2003-10-1 ”；表达式“ #2003/10/20# - #2003/10/10# ”的运算结果为整数10相关题解单选题

19、1、设 a=2, b=3, 在 VB 中，表达式 a>b Or b>3 值是 :( B )A 、 FalseB 、 TrueC、 -1D、 1字符运算字符串连接符为“ +”和“ & ”“ 123” +“45” =“ 12345 ”“ 123” &“45” =“ 12345 ”123+ “45” =168“ 123” + 45 = 168运算符的执行顺序在 VB 中，当一个表达式中同时出现多种运算符时，运算次序由运算符的优先级决定， 优先级高的运算符先运算，优先级相同的从左向右进行运算。不同性质的运算符优先级如下。算术运算符 > 字符串运算符 > 关系运算

20、符 > 逻辑运算符常用函数数学函数Abs(x)求 x 的绝对值，例：abs(-3.6) = 3.6Sqr(x)求 x 的平方根，例：sqr(100) = 10Int(x) 求 x 的最大整数例： int(3.6) = 3int(-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( 字符串，截取长度

21、) 截取字符串左边部分,例 :Left(“ helloMid( 字符串，起始位置，截取长度) ,例： Mid( “ hello” ,2,2) =”,2)= “ el“ he”其他：Right ( 字符串 ,长度 )截取字符串右边部分。例: Right (“ hello” ,2) =String( 数值，字符 )生成指定长度与指定字符的字符串，例：String(3,“ lo ”9”)=” 999”常用转换函数Val( 字符串 ) 将字符串转换为数值Str( 数值 ) 将数值转换为字符串Chr( 字符代码 )Asc( 字符 )Tab 定位函数的使用例题Private Sub Form_Click(

22、)Dim aAs IntegerDim bAs 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 Tab(1); b; Tab(9); b * b; Tab(18); b * b * b; Tab(27); Sqr(b)End Sub用户交互函数VB 提

23、供 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 、-36B、360C、 36D 、 -3603、下列 (A)数据类型不是数值型。A 、 DateB 、 SingleC、 Double

24、D、 Integer4、下列函数中，返回值是字符串的是(A).A 、 MidB、 InstrC、ValD 、 Len5、下列 (A)函数返回系统的当前时间。A 、 time()B 、date()C、 day()D、 year()1 gt 26、代数表达式2表达式后错误的是 (D)A 、 g*t*t/2B 、 1/2*g*t2C、 g*t2/2D、 gt2/22ab7、数学式子4ab在 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 中以哪

25、个逻辑表达式是正确的 ?( C )A 、 a<xandx<=bB 、 a<x<=bC、 a<x and x bD 、 a>x and x<=b综合分析1、向 n 变量存入 1 个 2 位整数， 要使此 2 位数十位和个位上的值分别存入 x, y 变量。 正确的算法是( D )。选项 :x、 x=Left(n,1) y=n-x*10 Print x:Print yB 、 x=Left(n,1) y=Right(n,1)Print x:Print yC、 x=n/10 y=n-x*10 Print x:Print yD 、 x=Int(n/10) y=n-

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

27、。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)End SubPrivate Sub cmdEnd_Click()EndEnd Sub相关题解单选题1、以下是一段 VB 程序：a = 1b = a + 1c = a + bA ）它的基本结构属于（A 、顺序结构B 、选择结构C、循环结构D 、树型结

28、构2、下列 VB程序运行后，变量x 的值为 ( A).x=2Print x+lPrint x+2A 、 2B、 3C、5D、 8程序设计的分支结构行 If 语句行 If 是指在一行中写完的 If 语句。其一般格式为：格式一： If 条件 Then 语句执行这种形式的If 语句时，首先对条件进行判断。若条件成立，则执行Then 后面的语句；若条件不成立，则执行If 语句后继程序行的语句格式二： If 条件 Then 语句 1Else 语句 2例题：输入三个不相同的数，求出其中最小数。Private Sub Form_Click()Dim aAs Single, b As Single, cAs

29、SingleDim MinAs Singlea = InputBox(" 输入 a", " 输入框 ")b = InputBox(" 输入 b", " 输入框 ")c = InputBox(" 输入 c", " 输入框 ")If a < b Then Min = a Else Min = bIf c < Min Then Min = cPrint " 最小数 " MinEnd Sub1；否则执行语句 2。执行这种形式的语句时，先进行判断。若条件

30、成立，则执行语句块 If 语句上述 If-then 语句只能根据条件的真假是否执行一条语句，当Then 部分和 Else 部分包含的内容较多时，则可选用“块If 语句”结构。格式三： If 条件 Then语句块End If60 时显示 "及格 " ，该数例题： 当从输入一个数时，当该数大于或等于小于 60 时显示 "不及格 "。Private Sub Command1_Click()Dim a As Singlea = Val(Text1.Text)If a >= 60 ThenLabel1.Caption = " 及格 "En

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

32、nt "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 、100B、 80C、 90D、 70综合分析1、如要完成 : 从键盘输入一个正整数，判断是否是奇数，如是就在屏幕上显示。比较好的算法是 (BD)。选项 :A 、输人的数存人

33、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 整除的偶数的程序，横线上的逻辑表达式应为Private Sub commandl_Click()Dim x As Integerx=Val(Text1. Text)If_ = 0 ThenLabell.Caption=

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

35、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=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：求 s1+2+3+4.+100P

36、rivate Sub Form_Click()Dim i As IntegerDim sumAs 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，则增量的缺省值为 1 1、 循环变量取初

37、值；2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句；3、 执行一次循环体4、 循环变量增加一个增量5、 重复步骤24。以上可以看出，For-Next 循环变量是一种当型循环。说明（ a） For 语句与 Next 语句必须成对出现， 而且它们当中的 “循环变量” 必须是同一个变量，如上例中均为 I。（ b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，则是指循环变量的值小于终值。入口PA出口二、 DoLoop 循环For-Next 循环的次数是确定的， 但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要 Do-

38、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 bDo While r <> 0a = bb = rr = a Mod bLoopText3.Text = Str(b)End SubPrivate Sub Command2_Click()EndEnd Sub当 VB 执行 Do While-Loop 循环时，

39、先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。格式二： Do循环体Loop Until 条件这种循环的执行过程如图所示。进入循环体后，先执行一次循环体 A，然后再检查条件 P 是否成立。如果不成立，就重复执行循环体 A，直到条件 P 成立退出循环体。ANP例题：如果我国人口每年以平均 1.5% 的速度增长，问多少年后我国人口达到或超过 15 亿？设现在人口为 12.3 亿。Private Sub Form_Click()Dim pAs SingleDim rAs SingleDim nAs Integerp = 1230000000#r = 0.015n = 0Dop

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

41、As Integer:Dim s As Integers = 0For i = 1 To 5s = s + iNext iPrint s,iEnd Sub选项 :A、156B、4、要求计算机打印出s=15100 至i=6C、 65D 、 s=6200 之问所有偶数的平方根值。正确的算法是i=5( C)。选项 :A 、 i=100 Do While i<200:Print i ， Sqr(i):LoopB 、 i=100 Do While i<200:Print i ，Sqr(i):i=i+1:LoopC、 For i=100 To 200 Step 2:Print i ， Sqr(

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

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

44、 -1x = x+1Next yA 、1B、10C、0D、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 、273B、327C、203D、32112、单击窗体后，文本框Text1、 Text2 中显示的内容是（Private Sub Form_Click()A）A）Dim x as Integer, y as Integerx = 1:y = 0Do While x < 3y = y + xx = x * 3LoopText1.text = Str(x)Text2.text = Str(n)End SubA 、273B、327C、203D、32113、读下面程序，单击窗体后，在文本框显示的内容是（Private Sub Form_Click()B）Dim a( 8 ),b( 8 ) as IntegerDim i,j As IntegerFor j = 1 To 4a( j )