【测试】分支循环测试作业(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解答：A参考答案： A6. 单选题：（4.0分）运行下面程序，如果输入85，则输出结果是_____。
Dim a As Integer, i As Integera = InputBox("input a:")If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i="; iA. i=1B. i = 2C. i = 3D. i = 4解答：C参考答案： C7. 单选题：（4.0分）下面程序段的运行结果为。
Dim s As Integer, i As Integeri = 1: s = 1Doi = i + sLoop Until s > 10Print i, sA. 11 1B. 10 1C. 溢出D. 11 10解答：C参考答案： C8. 单选题：（4.0分）执行以下语句后，a的值为_____。
Dim a As Integera = 1a = a + 2Loop Until a = 100A. 99B. 100C. 溢出D. 101解答：C参考答案： C9. 单选题：（4.0分）执行以下语句后，a的值为_____。
Dim a As Integera = 1Doa = a + 2Loop While a = 100A. 1B. 3C. 溢出D. 101解答：B参考答案： B10. 单选题：（4.0分）在下面的程序段中，循环体将执行______次。
For v=20 To 10 Step -2print vA. 5B. 6C. 10D. 0解答：B参考答案： B11. 单选题：（4.0分）下面程序运行后，单击command1后屏幕显示是_________。
Private Sub command1_click()For i = 1 To 4If i > 3 Then Exit ForNext iFor j = 1 To 6i = i + jNext jPrint i, jEnd SubA. 26 ７B. 257C. 25６D. 26 6解答：B参考答案： B12. 填空题：（6.0分）下面程序的功能是：输入X的值，按以下公式求Y的值。
y=100-X -100≤X<10y=100+X 10≤X≤100y=400100<X≤200Private Sub command1_click()x = Val(text1.Text)Select Case xCase （1）Print "x<-100 or x>200"Case （2）y = 100 - xCase （3）y = 100 + xCase Elsey = 400End Selecttext2.Text = yEnd Sub空1解答：Is<-100空1参考答案：Is<-100,Is>200、Is>200,Is<-100空2解答：Is<10空2参考答案：Is<10空3解答：Is<=100空3参考答案：Is<=100、10 to 10013. 填空题：（4.0分）任意输入两个数a和b，要求a中存放较大的数,完善以下程序。
Private Sub Form_Click()Dim a As Integer, b As Integera = InputBox("输入第一个数")b = InputBox("输入第二个数")If a <b Thena =b（2）End IfPrint a; bEnd Sub空1解答：temp = a空1参考答案：temp = a空2解答：b = temp空2参考答案：b = temp14. 填空题：（4.0分）阅读下列程序，如果运行时从键盘上输入5，则输出的结果为_______。
Private Sub Command1_Click( )Dim n As Integern = InputBox("输入n的值")Do While n > 0n = n - 1Print n;LoopPrint nEnd Sub空1解答：4 3 2 1 0 0空1参考答案：4 3 2 1 0 015. 填空题：（4.0分）以下程序是求1到1000之间所有能被3整除的数的和，按要求完善程序。
Private Sub Command1_Click()Dim n As Integer, s As Longn = 1Do While n <= 1000If n Mod 3 = 0 Then (1)（2）LoopPrint sEnd Sub空1解答：s=s+n空1参考答案：s=s+n、s=n+s空2解答：n=n+1空2参考答案：n=n+1、n=1+n16. 填空题：（6.0分）以下程序用于验证一个自然数N的立方等于N个连续的奇数之和，其中最大的奇数P=N*（N+1）-1。
例如：43=19+17+15+13，最大奇数等于19。
要求用户任意输入一个自然数，比如4，如满足定理，则在窗体上按如下格式输出：4的立方64=19+17+15+13，否则提示“定理不成立！”。
Private Sub Form_Click( )Dim n As Integer, num As Long, p As IntegerDim s As Long, i As Integer, j As Integern = InputBox("请输入任一自然数")num = （1）p = n * (n + 1) - 1For i = 1 To ns = s + p（2）Next ip = n * (n + 1) - 1If s = num ThenPrint n; "的立方"; num; "=";For j = 1 To （3）Print p; "+";p = p - 2Next jPrint pElseMsgBox "定理不成立！"End IfEnd Sub空1解答：n^3空1参考答案：n*n*n、n^3空2解答：p=p-2空2参考答案：p=p-2空3解答：n-1空3参考答案：n-117. 填空题：（6.0分）以下程序的功能是随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。
Private Sub Form_Click()Dim s As Integer, i As IntegerDim k As Integer, max As Integer, min As IntegerRandomizek = Int(Rnd * 100) + 1max = k: min = k（1）For i = 1 To 19k = Int(Rnd * 100) + 1s = s + kIf （2） Then max = kIf k < min Then min = kNext is = （3）Print "average="; s / 18End Sub空1解答：s=k空1参考答案：s=k空2解答：k>max空2参考答案：k>max、max<>空3解答：s-max-min空3参考答案：s-max-min、s-min-max18. 填空题：（6.0分）完善下列程序，要求实现按每行5个输出1到100之间所有的素数。
Private Sub Form_Click()Dim n As Integer, i As IntegerDim k As Integer, flag As BooleanFor n = 2 To 100(1)For i = 2 To Sqr(n)If n Mod i = 0 Thenflag = False(2)End IfNext iIf flag ThenPrint n;(3)If k Mod 5 = 0 Then PrintEnd IfNext nEnd Sub空1解答：flag=true空1参考答案：flag=true空2解答：exit for空2参考答案：exit for空3解答：k=k+1空3参考答案：k=k+1、k=1+k19. 填空题：（6.0分）下面的程序是找出两个正整数a和b，使a<b、a+b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。
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 条件语句 循环语句练习题
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之和。
Visual Basic程序设计(安徽中医药大学)智慧树知到答案章节测试2023年
第一章测试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第五章测试题）
【测试】分⽀循环测试作业（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，则输出结果是_____。
VB5~6章实验题
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程序设计教程第四章、第五章、第六章课后习题(部分)
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循环程序例题100道附答案(精编文档).doc
【最新整理，下载后即可编辑】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,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实验作业参考答案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程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。