【测试】分支循环测试作业(VB第五章测试题)

vb分章测试题和答案VB二级测试题(第一章)一、选择题1、激活主菜单的按键是（）A．F1或Ctrl键B．Ctrl键或Atl键C．F10或Ctrl键D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的"添加选项卡"命令B．执行"文件"菜单中的"添加工程"命令C．执行"工程"菜单中的"添加窗体"命令D．执行"工程"菜单中的"部件"命令5．窗体设计器是用来设计（）A．应用程序的代码段B．应用程序的界面C．对象的属性D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化B．面向对象C．面向图形D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑B．视图C．格式D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口B．属性窗口C．工程管理窗口D．以上3个选项都不对13．工具栏中的"启动"按钮的作用是（）A．运行一个应用程序B．运行一个窗体C．工程管理窗口D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A．Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计B．对象链接C．对象嵌入D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_LoadC．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件B．窗体文件C．程序模块文件D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式B．非过程式C．机器D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．CaptionC．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdbC．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．4. 如果要使用命令按钮表面显示文字"退出（X）"（在字符X之下加下划线），则其Caption 属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．5. 打开"工程窗口"的方法之一是按下______________组合键．6. Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．选择题答案:bacab acdbc caa(bd)b dbbcb(ad)c填空题答案：1、click2、工程、窗体、标准模块、OCX3、WINDOWS4、退出（&X）、ALT+X5、CTRL+R6、内部控件、ACTIVEX控件、可插入对象、内部控件、ACTIVEX控件VB二级测试题(第二章)一、选择题1. 为了在按下回车键时执行某个按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）A．Value B．Cancle C．Enable D．Default2．要把一个命令按钮设置成无效，应设置其哪一属性值（）A．Visible B．Enabled C．Default D．Cancel3．下列叙述正确的是（）A．对象是包含数据又包含对象数据进行操作的方法的物理实体B．对象的属性只能在属性窗口中设置C．不同的对象能识别不同的事件D．事件过程都要由用户点击对象来触发4．事件的名称（）A．都要由用户定义B．有的由用户定义，有的由系统定义C．都是由系统预先定义D．是不固定的5．窗体的Caption属性的作用是（）A．确定窗体的名称B．确定窗体的标题C．确定窗体的边界类型D．确定窗体的字体6．Cls方法可以清除窗体或图片框中的（）内容．A．设计阶段使用Picture设置的背景位图B．设计阶段放置的控件C．在运行阶段产生的图形和文字D．以上全部内容7．能够改变窗体边框线类型的属性是（）A．FontStyle B．BorderStyle C．BackStyle D．Border8．要使一个文本框具有水平和垂直滚动条，则应先将其MultiLine属性设置为True，然后再将ScrollBar属性设置为（）A．0 B．1 C．2 D．39．要使文本框获得输入焦点，则应采用文本框控件的哪个方法（）A．GodFocus B．LostFocus C．KeyPress D．SetFocus10．能够获得一个文本框中被选取文本的内容的属性是（）A．T ext B．Length C．SelText D．SelStart11．要使标签能够显示所需要的广西，则在程序中应设置其哪一属性的值（）A．Caption B．Text C．Name D．AutoSize12．要使标签中显示的文本靠右显示，则应将其Alignment属性设置为（）A．0 B．1 C．2 D．313．要使标签所在处透明显示背景，应把其Backstyle属性设置为（）A．0 B．1 C．2 D．314．"对象"是计算机系统运行的（）A．程序单位B．逻辑单位C．物理实体D．基本实体15．窗体的Enable属性的属性值是（）类型的数据．A．整型B．字符型C．逻辑型D．实型16．下列各种窗体事件中，不能由用户触发的事件是（）A．Load事件和Unload事件B．Click事件和Unload事件C．Click事件和Dbclick事件D．Load事件和Initialize事件17．控件是（）A．建立对象的工具B．设置对象属性的工具C．编写程序的编辑器D．建立图形界面的编辑窗口18．当事件能被触发时，（）就会对该事件作出响应．A．对象B．程序C．控件D．窗体19．当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发（）事件来完成图形的重画工作．A．Paint B．Load C．Click D．Active20．标准工具箱中的控件（）A．数目是固定不变的B．数目可以增加或减少C．包含了Visual Basic所有控件D．在窗体建立对象时不一定被使用二、填空题1．对象具有属性和______________．2．对象的属性是用_____________来描述的3．对象是既包含_______________又包含对________________的方法，并将其封装起来的一个逻辑实体．选择题答案：dbccb cbddc abadc daaab填空题答案：1.方*2.属性值（数据）3.数据、数据进行操作VB二级测试题(第三章)一、选择题：1、下列关于属性设置的叙述错误的是：（）A、一个控件具有什么属性是VB预先设计好的，用户不能改变B、一个控件具有什么属性是VB预先设计好的，用户可以改变C、一个控件的属性即可以在属性窗口中设置，也可以用程序代码设置D、一个控件的属性在属性窗口中设置，还可以利用程序代码为其设置新值2、下列说法正确的是（）A、对象属性只能在"属性窗口"中设置B、一个新的工程可以在"工程窗口"中建立C、必须先建立一个工程，才能开始设计应用程序D、只能在"代码窗口"中编写程序代码3、列关于窗体上控件的基本操作错误的是：（）A、下一次DEL键只能删除一个控件B、按下一次DEL键可以同时删除多个控件C、按住SHIFT键，然后单击每个要选择的控件，可以同时选中多个控件D、按住ALT键，然后单击每个要选择的控件，可以同时选中多个控件4、下列关于设置控件属性的叙述正确的是A、用户必须设置属性值B、所有的属性值都可以由用户随意设定C、属性值不必一一重新设置D、不同控件的属性项都完全一样5、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为A、0B、-1D、FALSE6、下列关于控件画法的叙述错误的是A、单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B、按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C、双击工具箱中的控件图标，所画控件的大小和位置是固定的D、不合用工具箱中的控件工具，不可以在窗估上画出图形对象，但可以写入文字字符7、.应用程序设计完成后，应将程序保存，保存的过程是（）A.只保存窗体文件即可B.只保存工程文件即可C.先保存工程文件，之后保存窗体文件D先保存窗体文件（或标准模块文件），之后还要保存工程文件8、VB应用程序的运行模式是A 解释运行模式B、编译运行模式C、两者都有D、汇编模式9、可视化编程的最大优点是A、具有标准工具箱B、一个工程文件由若干个窗体文件组成C、不需要编写大量代码来描述图形对象D、所见即所得10、任何控件都具有的属性是( )A、TEXTB、CAPTIONC、NAMED、FORECOLOR11、决定控件上文字的字体、字形、大小及效果的属性是（）A、TEXTB、CAPTIOND、FONT12、下列叙述不正确的是A、注释语句是非执行语句，仅对程序的内容起注释作用，它不被解释和编译B、注释语句可以放在代码中的任何位置C、注释语句不能放在续行符的后面D、代码中加入注释语句的目的是提高程序的可读性13、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0；A、INDEXB、TABINDEXC、TABSTOPD、ENABLED14、语句PRINT "INT（-13.2）"；INT（-13.2）的输出结果为：A、INT（-13.2）= -13.2B、INT（-13.2）= 13.2C、INT（-13.2）= -13D、INT（-13.2）= -1415、如果TAB函数的参数小于1，则打印位置在第（）列A、0B、1C、2D、316、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A、CLICKB、DBLCLICKC、GOTFOCUSD、CHANGE17、变量未赋值时，数值型变量的值为（）A、0B、空C、1D、无任何值18、下列语句中正确的是A、txt1.text+txt2.text=txt3.textB、/doc/118055360.html,=cmdokC、12label.caption=1234D、a=inputbox(hello)19、可以通过下列（）操作将焦点赋给对象。

教科版九年级物理上册第五章测试题（含答案）(时间：60分钟满分：100分姓名：________)一、选择题(每小题3分，共30分)1．德国有位物理学家经过十年不懈的努力，在大量实验的基础之上，归纳出一段导体中电流跟电压和电阻的定量关系，概括为公式：I＝UR，为了纪念他的杰出贡献，人们将他的名字命名为________的单位。

( D)A．力B．电流C．压强D．电阻2．如图是四位同学设计的用伏安法测电阻R的电路图，其中正确的是( C)3．★如图所示，电源电压恒定，R1为定值电阻，R2为滑动变阻器。

S闭合，滑动变阻器滑片P由a向b滑动，下列说法正确的是( D)A．电压表V1示数与电压表V2示数之和变大B．电压表V1示数与电流表A示数的乘积变大C．电压表V1示数与电流表A示数的比值变大D．电压表V2示数与电流表A示数的比值变大第3题图第4题图4．如图所示是小灯泡的电流与其两端电压的关系图像，下列说法正确的是( D) A．小灯泡的电阻不变，阻值为7.2 ΩB．小灯泡的电流随其两端电压的增大而增加得越来越快C．小灯泡的电阻与其两端电压有关，随电压的增大而减小D．小灯泡的电阻与其两端电压有关，随电压的增大而增大5．如图所示电路，闭合开关，甲、乙两灯均发光，两电表均有示数，过一会儿，其中一个灯泡突然熄灭，一只电表示数增大，另一只电表示数减小到几乎为零，造成此现象的原因可能是( B)A．甲灯短路B．乙灯短路C．甲灯开路D．乙灯开路第5题图第6题图6．如图所示的电路中，电阻R2的阻值为15 Ω。

当开关S1、S2闭合时，电流表A1的示数为0.5 A，电流表A2的示数为0.2 A。

下列说法正确的是( A )A．电阻R1的阻值为10 ΩB．S1、S2闭合时，通过电阻R1的电流为0.5 AC．S1、S2闭合时，电流表A1测量的是R1的电流D．开关S2断开时，电流表A2示数为0.5 A7．标有“2 V0.5 A”字样的小灯泡和标有“20 Ω 1 A”字样的滑动变阻器，连接在如图所示的电路中，已知电源电压为6 V，电流表的量程为“0～0.6 A”，电压表的量程为“0～3 V”，闭合开关，移动滑动变阻器滑片，电流表、电压表示数的变化范围是( A ) A．0.25～0.5 A1～2 V B．0.25～0.6 A1～2 VC．0.3～0.5 A1～1.5 V D．0.25～0.5 A 1.5～2 V第7题图第8题图8．为了能自动记录跳绳的次数，某科技小组设计了一种自动计数器，其简化电路如图甲所示。

VB 条件语和循环语句 测试习题(满分100分)一、根据程序写运行结果1．写出下列程序的运行结果。

(5分) Private sub command1_click X=VAL(Inputbox("X=" )) IF X<0 THEN LET Y=ABS(X) ELSELET Y= -X END IFPRINT "Y=";Y End sub运行结果：(1)99 (2)-232. 写出下列程序的运行结果。

(5分) Private sub command1_clickN=1FOR X=3 TO 10 STEP3N=N*2 NEXTXPRINT"N=";N End sub运行结果：3．写出下列程序的运行结果。

(5分) Private sub command1_click S=0A=VAL(InputBox("A ") ) FOR X=10 TO 1 STEP 4 S=S+X NEXT XPRINT " S=" End sub (5分)运行结果：4.写出下列程序运行结果。

(5分) Private sub command1_click FOR I= 1 TO 5step 2 PRINT I ，NEXT I End sub运行结果：____,_____,_____5. 写出下列程序的运行结果。

(5分) Private sub command1_click X=VAL(Inputbox("X=" )) IF X/2=Int(X/2) THEN S=X+1 ELSES=X-1 END IFPRINT "S=";S End sub运行结果：(1)99 (2)98二、根据题意，完善下列程序。

(每空5分)1.请设计一个程序，将从键盘上任意输入的两个数中最大的那个选出来。

Private sub command1_click A=VAL(Inputbox("A=" )) B=VAL(Inputbox("B=" ))IF A>B THENMAX=________ELSEMAX=BENDIFPRINT "MAX="；MAX End sub2.求和S=1+3+5+7+…+99 Private sub command1_clickS=0FOR I=1 TO 99 STEP 2S=________NEXT IPRINT “S=”；S End sub3.完善下列程序，使其能求出2+4+6+……+100之和。

第一章测试1.与传统的结构化程序设计语言相比，Visual Basic 最突出的特点是（）。

A:程序设计技术B:结构化程序设计C:程序开发环境D:事件驱动机制答案:D2.下列叙述正确的是（）。

A:程序就是软件B:软件是程序、数据和相关文档的集合C:软件既是逻辑实体，又是物理实体D:软件开发不受计算机系统的限制答案:B3.在 VB 中，下列（）操作不能打开代码编辑窗口。

A:双击窗体B:选定对象后，按快捷键 F7C:单击窗体或控件D:双击窗体上的某个控件答案:C4.由于VB只能以解释方式运行,所以运行速度慢A:对B:错答案:B5.在 VB 中，表示窗体宽、高的是（）。

A:对象B:事件C:方法D:属性答案:B6.VB中打开工程文件时，在资源管理器窗口可以看到工程中所有的文件，所以可以认为工程文件包括了工程中所有的文件，只要保留工程文件即可，其他文件可以不必保留。

A:错B:对答案:A7.在 Visual Basic 中，扩展名.frm 表示的是窗体文件。

A:对B:错答案:A8.在 Visual Basic 中，扩展名.vbp 表示的是工程文件。

A:错B:对答案:B9.要在命令按钮 Cmd1 上显示“计算”，可以使用（）语句。

A:Command1.Caption=“计算”B:=“计算”C:Cmd1.Caption=“计算”D:Cmd1.Value=“计算”答案:C10.在代码编辑窗口中，当从对象框中选定了某个对象后，在（）中会列出适用于该对象的事件。

A:工具箱B:属性窗口C:工具栏D:过程框答案:D第二章测试1.多窗体是指一个应用程序中有多个并列的普通窗体，每个窗体可以有自己的界面和程序，完成不同的功能。

A:对B:错答案:A2.Load 语句不会把一个窗体装入内存。

A:错B:对答案:A3.UnLoad Me，表示关闭当前窗体，这里的关键字 Me 代表 UnLoad Me 语句所在的窗体。

A:错B:对答案:B4.决定窗体标题栏内容的属性是（）。

【测试】分⽀循环测试作业（VB第五章测试题）我的试卷测试得分： 88.0 分1. 单选题：（4.0分）有如下程序：Private Sub Command1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub假设运⾏时从键盘上输⼊-5，输出结果是_______。

A. -5 -2B. -5 -4C. -5 -3D. -5 -5解答：A参考答案： A2. 单选题：（4.0分）下列程序段的执⾏结果是_______。

X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A. TrueB. FalseC. -1D. 1解答：B参考答案： B3. 单选题：（2.0分）关于语句If x=1 Then y=1，下列说法正确的是_______。

A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式，y=1为赋值语句D. x=1为赋值语句，y=1为关系表达式解答：C参考答案： C4. 单选题：（2.0分）Select Case 语句结构中，测试项可以有三种形式，以下使⽤正确的是_______。

A. Case 20>IsB. Case x<=8 ，10 to 25C. Case Is>9 And Is<25D. Case Is>x解答：D参考答案： D5. 单选题：（4.0分）在窗体上画⼀个名称为Command1的命令按钮和两个名称分别为Text1、Text2的⽂本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is < 10X = 30Case 10X = 40End SelectText2.Text = XEnd Sub程序运⾏后，如果在⽂本框Text1中输⼊10，然后单击命令按钮，则在Text2中显⽰的内容是____A. 10B. 20C. 30D. 40参考答案： A6. 单选题：（4.0分）运⾏下⾯程序，如果输⼊85，则输出结果是_____。

vb实验5~6及答案考试用5-1 随机产生30～100（包括30、100）的10个正整数，存放于数组中，显示该数组的值，并求出最大值、最小值和平均值，如图5-1所示。

要求：窗体显示字体默认、大小为小三，通过单击窗体触发程序运行。

图5-1Private Sub Form_Click()Dim a(9) As Integer, max%, min%, ave!Randomizemax = 30: min = 100: ave = 0For i = 0 To 9a(i) = Int(Rnd * 71 + 30)Print a(i);ave = ave + a(i)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iave = ave / 10PrintPrint "Max="; max, "Min="; min, "Ave="; Format(ave, "0.0")End Sub5-2 已知6个学生的成绩，通过Array函数对数组赋初值，利用String函数，以每5分用一个“◆”符号显示，随后显示学生的成绩。

要求：窗体中所有控件字体默认、大小为小四，计算结果在程序启动时立即在窗体中显示。

效果如图5-2所示。

图5-2Private Sub Form_Load()Dim Mark As Variant, i%Form1.ShowMark = Array(56, 78, 98, 88, 76, 78)For i = LBound(Mark) To UBound(Mark)Print String(Mark(i) \ 5, "◆"); Mark(i)PrintNext iEnd Sub5-3 随机产生20个学生的成绩（整数），统计各分数段人数。

VB课后作业第三次作业习题四09信管李莎2009181040152012/4/11书95页习题四9.计算下列循环语句的次数：（1）循环次数为：6（2）循环次数为：19（3）循环次数为：0（4）循环次数为：死循环直至溢出12.利用循环结构，实现如下功能：（1）Dim i As Integer, s As IntegerFor i = 1 To 10s = s + (i + 1) * (2 * i + 1)Next iPrint "s="; s（2）Dim i As Integer, n3 As Integer, n7 As IntegerFor i = 1 To 100If i Mod 3 = 0 Then n3 = n3 + 1If Int(i / 7) = i / 7 Then n7 = n7 + 1Next iPrint "1-100中3的倍数有"; n3; "个"Print "1-100中7的倍数有"; n7; "个"（3）Dim s1 As String, s2 As String, i As Integers1 = InputBox("Input String")s2 = ""For i = 1 To Len(s1)s2 = Mid(s1, i, 1) + s2Next iPrint "原序："; s1Print "反序："; s213.下面程序的运行结果是什么？该程序的功能是什么？Private Sub Command1_Click()Dim x$, n%n = 20Do While n <> 0a = n Mod 2n = n \ 2x = Chr(48 + a) & xLoopPrint xEnd Sub答：输出字符串“10100”。

【最新整理，下载后即可编辑】VB循环程序例题附答案1.素数1. [100，999]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数; 求有多少个这样的数？15n = 0For i = 100 To 999a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then n = n + 1End IfNext iPrint n2. [300，800]范围内同时满足以下两个条件的十进制数. ⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。

761 For i = 300 To 800a = i \ 100b = i \ 10 Mod 10c = i Mod 10If (c + b) Mod 10 = a Thenx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Then s = iEnd IfNext iPrint s3. 除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。

若两素数之差为2 ，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。

22n = 0For i = 31 To 601 - 2x = 0For j = 2 To Sqr(i)If i Mod j = 0 Then x = 1: Exit ForNext jIf x = 0 Theny = 0For j = 2 To Sqr(i + 2)If (i + 2) Mod j = 0 Then y = 1: Exit ForNext jIf y = 0 Then n = n + 1End IfNext iPrint n4. 数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。

VB作业5（提交时间截止12月23日）2、填空题3、编程题VB作业65（自测练习，提供参考答案及解答）单击窗体时，下列程序代码的执行结果为（）。

Private Sub Form_Click( )Text 2End SubPrivate Sub Text( x As Integer )x = x * 2 + 1If x < 6 ThenCall Text( x )End Ifx = x * 2 + 1Print x;End SubA 23 47B 11 35C 22 45D 24 516（自测练习，提供参考答案及解答）编写如下通用过程：Sub Proc(x As Single, y As Single)t=xx=t/yy=t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command I_Click()Dim a As SingleDim b As Singlea=5b=4Proc a, bPrint a, bEnd Sub程序运行后，如果单击命令按钮，则输出结果为A. 5 4B. 1.25 1C.4 5D.1.25 57（自测练习，提供参考答案及解答）阅读程序：Function func(n As Integer) As IntegerSum=0For i=1 To nSum=Sum＋(i＋1)*iNext ifunc=SumEnd FunctionPrivate Sub Command I_Click()Dim a As Integera=5s=func(a)Print s2、填空题3、编程题。

vb实验作业参考答案VB实验作业参考答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。

在学习VB编程过程中，实验作业是非常重要的一部分，通过实践来巩固所学知识。

本文将提供一些VB实验作业的参考答案，帮助读者更好地理解和掌握VB编程。

一、VB基础知识实验作业参考答案1. 实验题目：编写一个VB程序，实现两个整数的加法运算，并将结果显示在文本框中。

参考答案：```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目：编写一个VB程序，实现输入一个数字，判断该数字是奇数还是偶数，并在消息框中显示结果。

参考答案：```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目：编写一个VB程序，实现一个简单的计算器功能，包括加法、减法、乘法和除法操作。

参考答案：```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目：编写一个VB程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。

VB程序设计考试题库（5）一、单选题（每题1分，共50题）1.以下关于Visual Basic特点的叙述中，正确的是（未填）。

错误正确答案：DA.构成Visual Basic程序的多个过程有其固定的执行顺序B.Visual Basic程序只可以编译运行，不可以解释运行C.Visual Basic采用面向对象的程序设计方法D.Visual Basic程序是结构化程序，具备结构化程序的三种基本结构2.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（未填）错误正确答案：CA.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口3.在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的（未填）事件过程模板。

错误正确答案：CA.ClickB.DblclickC.ChangeD.GotFocus4.文本框的（未填）属性用于设置或返回文本框中的文本内容。

错误正确答案：AA.TextC.Caption5.程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（未填）属性值为True来实现。

错误正确答案：CA.valueB.EnabledC.DefaultD.Cancel6.下列函数中，返回值的类型与其它3个不同的是（未填）。

错误正确答案：AA.NOW()B.HOUR()C.YEAR()D.DAY()7.表达式"Turbo"+"c">"Ture"+"Basic"的值是（未填）。

错误正确答案：BA.TRUEB.FALSEC.NullD.出错信息8.下列不能作为VB中的变量名的符号是（未填）。

错误正确答案：CA.A45C.89TaD.xy9.函数Len(str(val("-135.6")))的值是（未填）错误正确答案：BA. 11B. 6C. 5D. 810.为了给x，y，z三个变量赋初值1，下面正确的赋值语句是（未填）。

V B循环结构测试题及答案内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）循环结构测试题(四)一：选择题1：以下（）是正确的for….next结构。

（A）for x=1 to step 10 (B) for x=3 to –3 step -3….. …..next x next x(C ) for x=1 to 10 (D) for x=3 to step 3re: …. ……Next x next yIf I=10 then goto re2:下列循环语句能正常结束循环的是（）（A）I=5 (B) I=1do doI=I+1 I=I+2Loop until I<0 loop until I=10(C) I=10 (D) I=6do doI=I-1 I=I-2Loop until I<0 loop until I=13:下面程序段的运行结果为（）for I=3 to 1 step –1print spc(5-I);for j=1 to 2*I-1 print “*”; next j print next I4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub(A) ABCD (B) ( C ) AABABCABCD5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*”。

For I=1 to 5For j=2 to IPrint “*”; Next j Next I* * * * (B) * * * * * * * * (C) * * * * * * * *(D) * * * * ** * *A BCD(D) AAB ABCABCD（A ）for I=1 to 4n=1 for j=1 to （B ） for I=1 to 4for j=1 toI(C) N=1for j=1 to 4 (D)N=1 J=1 Do whilej<=430for j=1 to 12 step 340for k=6 to 2 step –241print j,k42next k43next j4: 以下程序运行后，si,sj,I,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨），（⑽）private sub command1_click( )for I=1 to 2for j=1 to Isk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next Iprint si,sj,sk,I,j,kend sub5:下面程序运行后输出的结果是（⑾）private sub command1_click()print tab(5*I+1);”2”+I;”2”&I;next Iend sub6:下面程序运行后输出的结果是（⑿） private sub command1_click()a$=”*”;b$=”$”for I=2 to 4if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7: 执行下面程序，打印结果是（⒀）option explicitprivate sub form_click( )dim I as integer,j as integerj=10for I=1 to j step 2I=I+1Next IPrint I,jEnd sub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入“ABCDEFG”变换成“GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox(“输入字符串”)n=( ⒁ )for I =1 to ( ⒂)c=mid(a,I,1)mid(a,I,1)=( ⒃ )( ⒄ )=cnext Iprint aend sub9：找出被3，5，7除，余数为1的最小的5个正整数。

绪论单元测试1【判断题】(20分)VB6.0包括三种版本，分别为学习版、专业版和企业版。

A.对B.错2【判断题】(20分)学习版是VB的基础版本，该版本包含了所有VB的标准控件及网格控件、数据绑定控件和Tab对象。

A.错B.对3【判断题】(20分)专业版是为专业编程者提供了一整套功能完备的开发工具。

A.错B.对4【判断题】(20分)企业版包含了专业版的全部功能，增加了自动化管理器、部件管理器、数据库管理工具、MicrosoftVisualSourceSafe面向工程版的控制系统等。

A.错B.对第一章测试1【单选题】(20分)下面选项中不能运行VisualBasic程序的操作是（）A.双击窗体B.从菜单栏运行菜单中选“全编译执行”菜单命令C.单击“启动”按钮图标D.按F5键2【单选题】(20分)VisualBasic窗体设计器的主要功能是（）A.显示文字B.画图C.编写源程序代码D.建立用户界面3【单选题】(20分)可视化编程的最大优点是（）A.一个工程文件由若干个窗体文件组成B.具有标准工具箱C.不需要编写大量代码来描述图形对象D.所见即所得4【单选题】(20分)一个工程文件可包含多种类型的文件，（）文件不包含其中。

A.窗体文件B.工程文件C.可执行文件D.资源文件5【单选题】(20分)MicrosoftVisualBasic6.0包括三种版本，其中不包括（）A.专业版B.通用版C.企业版D.学习版第二章测试1【单选题】(20分)在VisualBasic中，常量12#的数据类型是（）A.双精度浮点型B.长整型C.整型D.字符串2【单选题】(20分)x是小于100的非负数，用正确的VisualBasic表达式是（）A.B.0<=x<100x>=0ANDx<100D.0<=xORx<1003【单选题】(20分)不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是（）A.A=0ANDB<>0ORA<>0ANDB=0B.A*B=0AND(A=0ORB=0)C.A*B=0ANDA<>BD.(A=0ORB=0)ANDA<>B4【单选题】(20分)Boolean类型的数据由（）字节组成A.3B.41D.25【单选题】(20分)20.表达式X+1>X是（）A.字符串表达式B.关系表达式C.非法表达式D.算术表达式第三章测试1【单选题】(20分)Inputbox()函数的返回值类型为（）A.变体型数值型C.逻辑型D.字符型2【单选题】(20分)要使循环体至少执行一次，应使用（）循环A.For-nextB.do[while|until]-loopC.While-wendD.Do--Loopwhile|until3【单选题】(20分)程序的基本控制结构是（）A.For…Next结构、Do…loop结构顺序结构、选择结构和循环结构C.单行结构和多行结构D.顺序结构、多分支结构和单分支结构4【单选题】(20分)以下Case语句中，能正确描述Y的绝对值大于7的是（）A.Case-6To6B.CaseNot(-6To6)C.CaseAbs(Y)>6D.CaseIs<-6,Is>65【单选题】(20分)以下Case语句含有的是（）A.CaseIs>10Case0To10C.CaseIs>10AndIs<50D.Case3,5,Is>10第四章测试1【单选题】(20分)如下数组声明语句，正确的是（）A.DimA(N,N)AsSingleB.DimA(3,4)AsStringC.DimA(34)AsIntegerD.DimA[3,4]AsIntiger2【单选题】(20分)如果有声明Optionbase1，Dimarr(3,3)，则该数组共有（）个元素16B.4C.9D.63【单选题】(20分)以下说法不正确的是（）A.使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化B.使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界C.使用不带关键字Preserve的ReDim语句可以重新定义数组的维数D.使用不带关键字Preserve的ReDim语句可以改变数组的数据类型4【单选题】(20分)下列有关控件数组的说法中，的是（）A.控件数组中每个元素的下标由控件的Index属性指定B.控件数组中的所有控件共享同一个事件过程C.控件数组中的所有控件不得具有各自不同的属性设置值D.控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组5【单选题】(20分)已知有数组声明：Dima(-1to3,2to5)asinteger，引用数组元素，正确的是（）A.a(1)B.a(0,6)C.a[-1，2]D.a(-1,5)第五章测试1【单选题】(20分)假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。

习题五（参考答案）一、单项选择题1 B2 C3 D4 A5 D6 D7 A8 C9 C 10 D二、程序填空题1. 下面程序用“冒泡法”对数组a中的10个数按升序进行排序，请将程序补充完整。

Private Sub Command1_Click()a = Array(5, 16, 7, 8, 90, 65, 50, 68, 25, 55)For i = 1 To 【①】' ①UBound(a) - 1For j = 【②】' ②1 To UBound(a) - i 'If 【③】Then ' ③a(j) > a(j + 1)t = a(j + 1)a(j + 1) = a(j)a(j) = tEnd IfNext jNext iFor i = 1 To UBound(a)Print a(i);Next iPrintEnd Sub2. 下面程序用“折半查询法”，对数组a中数值进行查询，请将程序补充完整。

Option Base 1Private Sub Form_Click()Dim a As Varianta = Array(-10, 5, 8, 26, 30, 56, 69, 76, 90, 123)k = Val(InputBox("输入要查询的关键值"))low = 1【④】' ④hig = UBound(a)Do While low <= hig【⑤】' ⑤m = (low + hig) \ 2If k = a(m) ThenPrint k; "has be found,on"; m; "th position."Exit DoElseIf k < a(m) Thenhig = m - 1Else【⑥】' ⑥low = m + 1End IfLoopEnd Sub三、程序设计（参见习题五源代码）习题六（参考答案）一、单项选择题1 B2 D3 C4 D5 B6 C7 B8 A9 D 10 C二、程序填空题1. 下列程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

5-4Dim n, i, s As IntegerDim str1 As Stringstr1 = ""For n = 2 To 10000s = 0For i = 1 To n - 1If n Mod i = 0 Thens = s + iEnd IfNextIf s = n Thenstr1 = str1 + Str(n) + vbCrLfEnd IfNextMsgBox("结果为：" + str1, , "2到10000之间完数") 5-5' 方法一：'Dim a, n, s, i, j As Integer, t As String = ""'a = Val(InputBox("input a "))'n = Val(InputBox("input n"))'s = 0'For i = 1 To n' t = ""' For j = 1 To i' t = t & a' Next' s = s + Val(t)'Next'MsgBox(s)'方法二：Dim a, n, s, i, j, t As Integera = Val(InputBox("input a "))n = Val(InputBox("input n"))s = 0For i = 1 To nt = (10 ^ i - 1) / 9 * as = s + tNextMsgBox(s)5-6Dim fac, n As Integerfac = 1n = 0Don = n + 1fac = fac * nLoop Until fac >= 9999MsgBox("阶乘小于9999的那个自然数是" & n - 1)'退出循环的是大于9999的那一项，题目要求求小于9999的阶乘，所以输出时要n-1 5-8Dim str1 As StringDim n, n1, n2, n3, n4, i As Integern1 = 0 : n2 = 0 : n3 = 0 : n4 = 0str1 = InputBox("input a string")n = Len(str1)For i = 1 To nSelect Case Mid(str1, i, 1)Case"A"To"Z", "a"To"z"n1 = n1 + 1Case"0"To"9"n2 = n2 + 1Case" "n3 = n3 + 1Case Elsen4 = n4 + 1End SelectNextMsgBox("字母：" & n1 & "数字：" & n2 & "空格：" & n3 & "其他：" & n4)5-9Dim i, a, b, c, d, n As IntegerDim str1 As Stringstr1 = ""n = 0For i = 10000 To 50000a = Mid(Format(i), 1, 1)b = Mid(Format(i), 2, 1)c = Mid(Format(i), 4, 1)d = Mid(Format(i), 5, 1)If a = d And b = c Thenstr1 = str1 & Str(i)n = n + 1If n Mod 10 = 0 Then str1 = str1 + vbCrLf '每行显示10个End IfNextMsgBox(str1)5-10第10题的公式更正为：)!12(*)1(!7!5!31sin 121753--++-+-≈--n x x x x x x n n Dim i As IntegerDim t, s, x As Doublex = Val(InputBox("shuru x"))i = 1t = xs = xDoi = i + 2t = t * (-1) * x ^ 2 / ((i - 1) * i)s = s + tLoop While Math.Abs(t) >= 0.0000000001MsgBox(s)5-11Dim a, b, gbs As Integera = Val(InputBox("input a"))b = Val(InputBox("input b"))If a >= b Thengbs = aElsegbs = bEnd IfWhile gbs Mod a <> 0 Or gbs Mod b <> 0gbs = gbs + 1End WhileMsgBox(a & "和" & b & "的最小公倍数是" & gbs) 5-12Dim str1 As StringDim i, j As Integerstr1 = "* "For i = 1 To 9str1 = str1 & i & " "Nextstr1 = str1 & vbCrLfFor i = 1 To 9str1 = str1 & iFor j = 1 To 9 '输出图5-21，此处改为For j = 1 To i If i * j > 9 Thenstr1 = str1 & " " & i * jElsestr1 = str1 & " " & i * jNextstr1 = str1 & vbCrLfNextMsgBox(str1)5-13方法一：Dim i, j As Integer, str1 As Stringstr1 = ""For i = -3 To 3str1 = str1 + Space(10 + 2 * (Math.Abs(i)))For j = 1 To 7 - Math.Abs(2 * i)str1 = str1 + "*" + " "Nextstr1 = str1 + vbCrLfNextMsgBox(str1)方法二：Dim i, j As IntegerDim str1 As Stringstr1 = ""For i = 1 To 4str1 = str1 + Space(11 - 2 * i)For j = 1 To 2 * i - 1str1 = str1 + "*" + " "Nextstr1 = str1 + vbCrLfNextFor i = 1 To 3str1 = str1 + Space(3 + 2 * i)For j = 1 To 7 - 2 * istr1 = str1 + "*" + " "Nextstr1 = str1 + vbCrLfNextMsgBox(str1)5-14Dim i, n, a, b, c As Integer, str1 As String = ""n = 0For i = 100 To 999a = Mid(Format(i), 1, 1)b = Mid(Format(i), 2, 1)c = Mid(Format(i), 3, 1)If i Mod 3 = 0 And i Mod 7 = 0 And a + b + c = 18 Then str1 = str1 & Str(i)If n Mod 5 = 0 Then str1 = str1 & vbCrLf End IfNextMsgBox("个数" & n & vbCrLf & str1)5-15Dim i, j, sum, t As Integersum = 0For i = 1 To 100t = 0For j = 1 To it = t + jNextsum = sum + tNextMsgBox(sum)5-16Dim n, s As Integern = 0s = 0Don = n + 1s = s + nLoop Until s >= 80000MsgBox("n=" & n & "s=" & s)5-17Dim n, sum As Integersum = 0n = 0Don = n + 2sum = sum + (-1) ^ (n - 1) * n * (n + 1) Loop While Math.Abs(sum) <= 1000MsgBox("sum=" & sum)。

第五章测试题一、选择题1.计算下面的表达式，其值是________。

CInt(4.5) * Fix(-3.81) + Int(4.1) * (5 Mod 3)A ．-7B ．-4C ．-8D ．62.若a 为长整型变量，则执行a=12:PrintLen(a);Len(Str(a));Len(CStr(a))后，在窗体上看到的是 。

A ．4 2 3B ．2 3 2C ．4 3 2D ．2 2 33．函数CInt(-3.5),Int(-3.5),Fix(-3.5)的值分别是________ 。

A ．-3,-4 , -3　B ．-4, -4, -3C ．-3,-4 , -4D ．-4, -3, -34．语句Print Sgn(-6^ 2)+Abs(-6^2)+Int(-6^ 2)的输出结果是________。

A ．-36B ．1C ．-1D ．-725．下面表达式中，__________的值是整型(Integer 或Long)。

①36+4/2 ②123 +Fix(6.61) ③57+5.5\2.5④356 & 21 ⑤"374"+258 ⑥4.5 Mod 1.5A ．①②④⑥B ．③④⑤⑥C ．②④⑤⑥D ．③⑥6．数学表达式的VB 算术表达式为________。

y x e x Sin +++327A ．Sin(27)+Sqr(x+Exp3)/(x+y)B ．Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y)C ．Sin(27*pi/180)+Sqr(x+e^3)/Abs(x+y)D ．Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)7．以下表达式中，可以表示“A 和B 之一大于0”的是_______。

①A*B<=0②A>0 Xor B>0③A>0 Or B>0④A>0 And B<=0 Or B>0 And A<=0A ．①③B ．③④C ．②④D ．①②④8．函数Cint 、Int 、Fix 都返回整数值，以下能正确地描述他们返回值的大小关系的是________。

VB循环结构测试题及答案循环结构测试题（四）一：选择题1以下（）是正确的for….nex结构(A)for x=1 to step 10(B)for x=3 to -3 step-3next x(C ) for x=1 to 10 re: … .Next xIf I=10 then goto re2:下列循环语句能正常结束循环的是( ( A)I=5 doI=I+1Loop until I<0(C)I=10doI=I-1Loop until I<03:下面程序段的运行结果为()for I=3 to 1 step -1print spc(5-I);next x(D) for x=3 to step3next y)(B) I=1doI=I+2loop until I=10(D) I=6doI=I-2loop untilfor j=1 to 2*1-1 print “ *' next j print n ext I___________________ ll _________________________________________________4下列程序在文本框输入B)“* * ABCD ”四个字符时，窗体上显示的是**(* *)* * ** *_* * ** * * * * *private sub text1_cha nge()* *print text1.text; end sub2:下面程序段显示=i(②)个“ * ”。

for j=1 to 4 For I=1 to n 5n* pri nt nFor n =2j to I Print Next j Next I3:下列第40句共执行了（③）次，第41句共执行（④ ）次(A) ABCD (B)(D) A(C )AABABCABCDAB 5哪个程序段不能分别正确显示 1!,2!,3!,4!的CABC(A)二：填空题1:要使下列 for I=1 to 4 n=1for j=1 to I n=n*jFO F X语句循环执行pri nt n20次，循环变量for k=(next i① )to -5 step —for I=1 to 4for j=1 to I n=1 n=n*j的初值应当是:print nn ext i(B)ABCD(D)N=1 J=1Do while j<=4n=n*j pri nt n j=j+1loop30 for j=1 to 12 step 340for k=6 to 2 step —41 print j,k42 next k43 next j4:以下程序运行后，si,sj,l,j,k的结果分别是（⑤），（⑥），（⑦），（⑧），（⑨ ），（⑽）private sub command1_click（）for l=1 to 2for j=1 to lsk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next lprint si,sj,sk,l,j,kend sub5:下面程序运行后输出的结果是（（11））private sub command1_click（）for l=0 to 3print tab(5*I+1); ”2” +I; ”2”&Inext I end sub6:下面程序运行后输出的结果是( (12))private sub command1_click() a$=”*”;b$= ”$”for I=2 to 4 if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end if print x$;next Iend sub7：执行下面程序，打印结果是((13)) option explicit private sub form_click( ) dim I as integer,j as integerj=10for I=1 to j step 2I=I+1J=j-INext IPrint I,jEnd sub8:输入任意长度的字符串，要求将字符顺序倒置，例如：将输入ABCDEFG ”变换成“ GFEDCBA”private sub command1_click()dim a$,I%,c$a=inputbox( 输“入字符串”)n=( (14) )for I =1 to ( (15))c=mid(a,I,1)mid(a,l,1)=( (16))((17) )=cnext Iprint aend sub9：找出被3，5，7 除，余数为 1 的最小的5个正整数。

VB循环结构练习题一、分析程序的运行结果（每题2分，共60分）1、以下循环的执行次数是_____。

K=0Do While k<=10k=k+1Loop2、下列程序段的执行后输出的结果为_____。

I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print "A=";A3、下列程序的执行结果是____。

T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum4、下列程序段的执行时，共循环____次。

For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next c Next bnext a5、下列程序段的运行结果是：Sub sele()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_____。

6、执行下面的程序段后，s的值为____。

S=5For I=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为_______。

K = 1For I = 1 To 3A = I ^ I ^ KNext IPrint A8、下列程序的执行结果是_____。

M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m19、下列程序的执行结果是_____。

Private Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和，请补充完该程序。