VB顺序结构练习

vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。

输入小明买电池的数量，输出小明应付的钱数。

（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。

（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。

2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。

编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。

3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。

编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。

当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。

4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。

VB顺序结构编程练习题(2)1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。

把这个数连续除以7，11，13，最后的商就是你输入的三位数。

请编程加以验证。

2、某学校开运动会，要在正六边形的操场的周围插上彩旗。

如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?3、计算图形的周长和面积．4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。

4+5+6+7+8+9+10+11+12+13+14+15{提示：等差数列的和=(首项+末项)×项数／2)、项数=末项-首项+1}5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩、英语成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。

6、输入三条边的整数值a、b、c，输出该三边构成的三角形的面积。

7、输入一个三位整数，输出该三位数的各位数字之和，以及它的反序数。

8、三个小朋友做游戏，第一个人把自己的糖果等分为三份，多余的吃掉，一份留给自己，另两份分别给其他两位；接下来，第二个人也仿照第一做法做了一遍，最后第三个人也如前面的人一样做了一遍。

请输出三人做完游戏后各自的糖果数。

(三人刚开始时各自的糖果数用键盘输入)。

9、输入一元二次方程的三个系数(b2>4ac)，输出该方程的二个实数根。

10、输入两个整数给A,B两个变量，编程交换A,B两个变量的值，并输出。

(用两种以上方法)。

VB6—顺序结构操作题一、操作题，每题10分，6题共60分【第1题】打开“Z:\12\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。

如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

Private Sub Command1_Click()Dim h As IntegerDim m As IntegerDim s As IntegerDim ss As Integerss = Val(①)h = ②m = (ss - h * 3600) \ 60s = (ss - h * 3600) Mod ③Label1.Caption = Str(h)Label2.Caption = Str(m)Label3.Caption = Str(s)End Sub【第2题】打开文件“考生文件夹\26\工程1.vbp”，完善Command1_Click及Command2_Click事件代码并保存。

在窗体上有一个“标签”控件Label1和两个“命令按钮”控件，命令按钮command1上显示“上移”，另一个命令按钮command2上显示“下移”。

实现功能：（1）设置标签控件Label1属性，显示文字为“欢迎进入算法与程序设计”；（2）单击“command1”时，Label1上移100个单位；单击“command2”，Label1下移100个单位。

【第3题】打开文件“考生文件夹\32\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：从键盘上输入一个三位数，然后将它逆序输出到对应文本框中。

例如输入为“123”时，输出结果为“321”。

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim bai As IntegerDim shi As IntegerDim ge As Integera = Val(①)bai = a \ 100shi = (a - bai * 100) \ 10ge = a Mod 10② = ge * 100 + shi * 10 + bai③ = Str(b)End Sub【第4题】打开“Z:\36\工程1.vbp”，完善Command1_Click事件代码并保存。

计算机二级VB训练题及答案2017年计算机二级VB训练题及答案计算机等级考试要取得好成绩平时一定要多加练习，提高做题技巧和速度。

下面是店铺为大家整理的2017年计算机二级VB训练题及答案，希望对大家有帮助!练习一1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的.元组个数将(A)A)等于原来关系中的元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数> C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键[ 结束 ]练习二1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时，产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表11.与传统的程序设计语言相比，Visual Basic 最突出的特点是(C)A)结构化程序设计B)程序开发环境C)事件驱动编程机制D)程序调试技术12.在Visual Basic 中，下列优先级最高的运算符是(A)A)*B)\C)<D)Not13.下列语句用来设置疤錐orm1的属性，其中在运行时不能正确操作的语句是(B)A)Form1.Caption="Form Test"B)="Form Test"C)Form1.MaxButton=FalseD)Form1.MinButton=False14.表达式Left("how are you",3)的值是(A)A)howB)areC)youD)how are you15.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口16.下列正确的Visual Basic注释语句是(B)A)Dim a(10)As Integer Rem 这是一个VB程序B)这是一个VB程序P Private Sub Command1_Click() …C)a=1:b=2:_Rem 这是一个VB程序：c=3D)If Shift=6 And Button=2 ThenPrint"BBBB"Rem这是一个VB程序End If17.代数式ab+cd对应的Visual Basic6.0表达式是(A)A)a/(b+c/D)B)(a/b+c)/dC)a/(b+c)/dD)a/b+c/d18.使程序立即从一个Function过程中退出的语句是(A)A)Exit FunctionB)ExitC)ReturnD)Resume19.要使一个标签透明且具有边框，则应(B)A)将其BackStyle属性设置为0，BorderStyle属性设置为0B)将其BackStyle属性设置为0，BorderStyle属性设置为1C)将其BackStyle属性设置为1，BorderStyle属性设置为0D)将其BackStyle属性设置为1，BorderStyle属性设置为120.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()a&=InputBox("请输入第一个数")b&=InputBox("请输入第二个数")Print b&+a&End Sub程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是(A)A)66666B)5432112345C)1234554321D)出错[ 结束 ]【2017年计算机二级VB训练题及答案】。

4.2习题一、选择题1. 以下不正确的单行结构条件语句是（ D）。

（A）If x>y Then Print ＂x>y＂（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If x<0 Then y=2*x-1: Print x End If2. 给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print ＂#####＂ Else Print ＂*****＂以上程序（ C ）。

（A）没有输出（B）有语法错（C）输出#####（D）输出***** 3. 运行下面程序后，在弹出的消息窗口中显示的是（ D）。

Private Sub Form_Click()score=Int(Rnd)+5Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3a$="Pass"Case Elsea$="Bad"End SelectMsgBox a$End SubA、BadB、PassC、OkD、Good4. 下面语句书写正确的是（D）。

(A) If a>max Then max=a Else max=b End If(B) If a>max Then max=aElse max=bEnd If(C) If a>max Thenmax=aElsemax=6( D) If a>max Thenmax=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。

a=3IF a>0 ThenPrint ＂###＂ElsePrint ＂$$$＂End IfA) ###$$$B) $$$###C) ###D) $$$6. 下面程序段运行后,显示的结果是( B )dim xif x then print x else print x+1(A) 1 (B) 0 (C) -1 (D) 显示出错信息7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式8. 用IF 语句表示分段函数，⎩⎨⎧<+≥+=1311)(2x x x x x f 下列程序段不正确的是( A )(A) If x>=1 then f=sqr(x+1) (B) If x>=1 then f=sqr(x+1)F=x*x+3 if x<1 then f=x*x+3(C) F=x*x+3 (D) f=sqr(x+1)If x>=1 then f=sqr(x+1) If x<1 then f=x*x+39. 下面IF 语句统计满足性别（sex ）为男，职称（duty ）为副教授以上，年龄（age ）小于40岁条件的人数，不正确的语句是( D )(A) If sex=”男” and age<40 and instr(duty,”教授”)>0 then n=n+1(B) If sex=“男” and age<40 and (duty=“教授” or duty=“副教授”) then n=n+1(C) If sex=“男” and age<40 and right(duty,2)=“教授” then n=n+1(D) If sex=“男” and age<40 and duty=“教授” and duty=“副教授” then n=n+110. 下面程序段求两个数中的大数，( D )不正确。

VB选择排序专题班级姓名知识点回顾：1、数组的作用：一组意义相同，类型相同的数据的保存，通常借助于数组。

如：高二年级所有同学的学籍号可定义为大小为700（只能多不能少）的long类型的数组xjh1 to 700) 或xjh(699)；2、数组名称可自取: 符合※以字母开头、※除了“_”外不能有其他字符、※不能用VB已用的关键字即可；3、数组下标的定义可以从任何数开始，但通常为0或1，如：a(19)，表示下标从0开始到19；a(1 to 19)表示下标从1开始。

下标即位置，能代表数组值。

4、数组赋初值方法多样，通常用循环语句。

没有赋值默认数组中每个数初值为0或FALSE或“”。

5、排序概念和意义：把一组类型相同的数据按照升序或者降序的规律排列起来。

6、排序的算法要点：※将N个数据保存在数组中；※理清是升序或是降序排序——升序为从小到大，降序为从大到小；※算法很多——冒泡排序、选择排序、插入排序、希尔排序、快速排序等……7、选择排序的特征：以降序为例——第一遍排序，找出最大值的位置，与数组中第一个数交换，第二遍排序，找出次大值的位置，与数组中第二个数交换。

8、关于选择排序需理解：※N个数最多进行N-1遍排序；两数比较的次数最多为N*(N-1)/2；两数交换次数最多为：N-1次；※选择排序的变式即改进算法非常多，比如N个数据排序时，发现某一遍排序两两比较过程中已没有数据交换则可以停止继续排序，比如比较过程中直接交换等，在练习中要加强理解和记录；9、选择排序的经典代码：( 以降序为例，所有for语句都要熟练转化为do while语句)巩固练习：1、在VB中，如果变量p用来存储某张试卷上的缺考填涂标记，则p应采用的最适合的数据类型是（）A．Integer B．Boolean C．Single D．String2、VB语句“Dim a(50) As String”定义的数组元素个数以及第8个数组元素分别为（）；VB语句“Dim a(1 to 50) As long”定义的数组元素个数以及第8个数组元素分别为（）A. 51，a(7)B.50，a(7)C. 51，a(8)D.50，a(8)3、有如下Visual Basic程序段：m = a(2)For j = 3 To 50If a(j) > m Then m = a(j)Next jMsgbox(str(m))该程序段执行后，变量m中存储的是（）A、a(1)至a(50)中的最小值B、a(2)至a(50)中的最大值C、a(2)至a(50)中的最小值的位置D、a(1)至a(50)中的最大值的位置4、以下程序执行后，i的值是（）Dim a(1 To 5) As IntegerDim f As Booleana(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10i = 1: f = TrueDo While i <= 5 And f = TrueIf a(i) = 56 Then f = Falsei = i + 1LoopLabel1.Caption = iA．6 B．3 C．4 D．55、在2017年秋季学校运动会上，男生第一组6位选手的百米成绩（单位：秒）分别是“13.4、12.3、11.2、13.8、13.1、11.0”，若使用选择排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一遍排序后的顺序是（）；两遍排序后的顺序是（）;A. 11.0 11.2 12.3 13.8 13.1 13.4B.11.0 12.3 11.2 13.8 13.1 13.4C. 11.0 11.2 13.4 12.3 13.1 13.8D.11.0 13.4 12.3 11.2 13.8 13.16、有一组10个数据的无序序列，利用选择排序算法进行从小到大的排序，需要比较的次数和最多需要进行加工的遍数，以及最多交换数组数据的次数分别为（）A. 9，9，9B.15，9，8C.45，9，9D.45，8，87、在NBA某赛季中，快船队5场比赛得分依次为97，89，111，70，90，若采用选择排序算法对其进行从小到大排序，在整个排序过程中，数据97被交换的次数是( )A．1 B．2 C．3 D．48、用选择排序算法对一组学生的身高数据进行升序排序，已知第一遍排序结束后的数据序列为165，168，178，175，171，则下列选项中可能是原始数据序列的是（）A、175，178，168，165，171B、178，168，165，175，171C、165，178，168，175，171D、165，168，171，175，1789、对存储在stu ( 0 to n )中的n+1个元素用选择排序算法进行排序，元素交换次数的范围和元素比较次数的值分别为（）A、[0，n]，（n-1）*n/2B、[1，n-1]，（n-1）*n/2C、[0，n]，（n+1）*n/2D、[1，n-1]，（n+1）*n/210、以下是选择排序主要部分，其中线框内代码用于寻找d(a)到d(n)的最小值的下标(即通常所说的位置)。

VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值B）字符串C）变体D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。

Private Sub Command1_Click()a = InputBox(“Enter the First integer”)b = InputBox(“Enter the Second integer”)Print b + aEnd Sub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579 B）123 C）456123 D）1234564.执行下面的语句后，所产生的信息框的标题是（A）a = MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBB B）空C）AAAA D）出错，不能产生信息框5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程Privete Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B）A）123 + 321 B）字符串”444”C）数值444 D）空白6.MsgBox函数的反回值的类型为（A）A）整型(Integer) B）字符串C）变体D）整数或字符串（视选择的按扭而定）1.假定有如下语句：st$=InputBox(“请输入一串字符”, “输入对话框”, “请输入字符串”)当用户输入完毕，按“确定”按扭后，st$变量的内容是（）A）请输入一串字符B）字符串对话框C）请输入字符串D）用户输入内容1. 假定有如下语句：Private Sub Form_Click()Dim a,b,x As Integera = InputBox (“a=?”)b = InputBox (“b=?”)x = a + bIf a > b Then x = a - bPrint xEnd Sub运行时从键盘输入3和4，输入x的值是（C）A）3 B）5 C）7 D）92. 假定有如下语句：Private Sub Form_Click()b = 1 : a = 2Print IIf (a >= b,a,b)End Sub运行后输出的结果是（C）A）0 B）1 C）2 D）33.假定有如下语句：Private Sub Form_Click()s = Val (InputBox ( “Input V alue of s:”))Select Case sCase Is < 6f = s + 1Case Is < 5f = s + 2Case Is < 4f = s + 3Case Elsef = s + 4End SelectPrint s;fEnd Sub运行时从键盘输入6，输出结果是（D）A）6 7 B）6 8 C）6 9 D）6 104. 假定有如下语句：Private Sub Form_Click()score = Int (Rnd * 10) + 80Select Case scoreCase Is < 60a$ = “F”Case 60 To 69a$ = “D”Case 70 To 79a$ = “C”Case 80 To 89a$ = “B”Case Elsea$ = “A”End SelectPrint a$End Sub运行时输出的结果是（B）A）A B）B C）C D）D5. 假定有如下语句Private Sub Form_Click()a = Val (InputBox (“请输入a”))b = Val (InputBox (“请输入b”))x = a*a + bIf b > a Then x = b*b + aPrint xEnd Sub运行时从键盘输入3和4，输出X的值是（C）A）12 B）13 C）19 D）206. 假定有如下语句Private Sub Form_Click()K = 2If K >= 1 Then A = 3If K >= 2 Then A = 2If K >= 3 Then A = 1Print AEnd Sub运行时，输出的结果是（B）A）1 B）2 C）3 D）出错7. 假定有如下语句Private Sub Form_Click()k = Val ( InputBox (“请输入一个数”))If k <= 0 Then Abc = 4 : GoTo aIf k <= 1 Then Abc = 3 : GoTo aIf k <= 2 Then Abc = 2 : GoTo aIf k <= 3 Then Abc = 1a:Print k ; AbcEnd Sub运行时输入3，输出的结果是（A）A）3 1B）3 4 3C）3 4 3 2D）3 4 3 2 18.设有函数r =1 x < 02 x >=0则下列能正确计算该函数值的语句是（D）A）If x < 0 Then r = 1ElseIf x >= 0 Thenr = 2End IfB）If x < 0 Then r = 1ElseIf x >= 0 Then r = 2 Else r = 1End IfC）Print ( IIf (x >0,1,2))D）r = IIf (x < 0,1,2)二、简答(填空)题1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）Private Sub Form_Click ()a = 32548.56Print Format (Int((a*10+0.5)) / 10,”000,000.00”)End Sub2.以下程序段的功能是（对变量X四舍五入后取整）x = 8.6y=Int(x+0.5)Print y3.假设有如下程序，程序运行后，单击窗体输出结果是（4）Private Sub Form_Click ()a = 25 Mod (1-2^3)Print aEnd Sub4.以下语句的输出结果是（Beijing）s$=”China”s$=”Beijing”Print s$5.以下语句的输出结果是(3)a%=3.14156Print a%6.设a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是Print Format $ (a,”000.00”) 输出结果：002.45Print Format $ (a,”###.#00”) 输出结果：2.449Print Format $ (a,”00.00E+00”) 输出结果：24.49E-01 Print Format $ (a,”-#.####”) 输出结果：-2.4495三、编程题1.编写打印下面三角形图案的源程序（书上55页4题）*************************程序代码：Private Sub Form_Click()Form1.Print Tab(15); "*"Form1.Print Tab(14); "***"Form1.Print Tab(13); "*****"Form1.Print Tab(12); "*******"Form1.Print Tab(11); "*********"End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "显示星号三角形,单击窗体开始" End Sub2.设a=5,b=2.5,c=7.8，编程序计算y=πab/a+b*c程序代码：Private Sub Form_Click()a =5 :b = 2.5 :c = 7.8y = (3.1416*a*b)/(a+b*c)Print “y=”;yEnd Sub1.编写求以10为底，求10000的对数值的源程序。