vb循环结构选择题
vb的三种基本结构
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
vb程序的三种基本结构一顺序结构二选择结构三循环结构程序是由若干个基本结构组成的一个基本结构可以包含一条或若干条语句
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
4、以下程序，运行后 X的值为 （ ） X =2 For i＝1 To 5 If X＜i Then X= X＋i End If Next i A. l B. 3 C. 5 D. 7
例1、 ห้องสมุดไป่ตู้=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ ）
S2 S3
2、分支结构：（选择结构） 根据条件判断其是否成立，如果成立执行成立的分支；否则 执行另一分支。 其一般形式为： If 条件 Then 语句序列1 C Else 语句序列2 End If 分支结构的简单形式为： If 条件 Then 语句序列 End If S1 S2
C
例4、s=0 for I=1 to 100 s=s+I next 最后，变量s的值是（ ）
第6章 循环结构练习题
循环结构练习题一、选择题。
2、对于DO UNTIL ……LOOP循环，正确的是（）。
A 如果循环条上为常数0，则一次循环也不执行B 如果循环条件为常数0，则至少执行一次循环C 如果循环条件是不为0的常数，则至少执行一次循环D 无论循环条件是否为TRUE，都至少执行一次循环3、要在DO ……LOOP循环中退出循环，应使用（）语句。
A EXITB EXIT DOC CONTINUED STOP LOOP4、以下循环结构中，VB不支持的是（）。
A FOR……NEXTB FOR EACH……NEXTC DO…..LOOPD DO……ENDDO5、要在FOR……NEXT循环中退出循环，应使用（）语句。
A EXITB EXIT FORC CONTINUED STOP LOOP6、下列关于FOR循环的说法中，正确的是（）。
A 循环变量、初值、终值和步长都必须是数值型B STEP后面的值必须为正数C 初值必须小于终值D 初值必须大于终值7、下列关于DO……LOOP语句的叙述中，不正确的是（）。
A DO……LOOP语句采用逻辑表达式来控制循环体执行的次数。
B DO WHILE……LOOP语句与DO UNTIL……LOOP语句中WHILE与UNTIL后面的表达式值为TRUE或非0时，循环继续。
C DO……LOOP WHILE与DO……LOOP UNTIL 语句都至少执行一次循环D DO WHILE…..LOOOP语句与DO UNTIL……LOOP语句可能不执行循环8、下面的循环程序在执行时将（）。
FOR I=1 TO 10 STEP 0K=K+2NEXT IA 形成无限循环B 仅循环一次C 语法错误D 一次也不循环9、对于EXIT FOR，叙述正确的是（）。
A EXIT FOR语句可以退出任何类型的循环B 一个循环只能有一条EXIT FOR语句C EXIT FOR表示返回到FOR语句执行D 一个FOR循环可以有多条EXIT FOR语句10、对于FOR循环中的初值、终值、步长，下列说法中，正确的是（）。
高中信息技术 VB循环语句 浏览题阅览题 会考复习题
高中信息技术VB循环语句浏览题阅览题会考复习题学校:___________姓名：___________班级：___________考号：___________一、选择题1．下列程序运行后的运行结果为▁▁▁。
X=8：Y=X：Z=10IF X<=Y THENPRINT X；Y；ELSEIF Z>=X THENPRINT ZEND IFEND IFA．10 8B．8 8C．10 10D．8 10【答案】B【解析】2．数组排序。
点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序。
如图所示。
程序代码如下：Dim a(1 To 10) As IntegerDim i, j, k, kt As IntegerPrivate Sub Command1_Click()List1.Clear'清除列表框数据For i ＝1 To 10Randomize'随机数初始化a(i) ＝Int(Rnd() * 1000)List1.AddItem Str(i) ＋”＝” ＋Str(a(i))Next iCommand2.Enabled ＝True'激活排序按钮End SubPrivate Sub Command2_Click()For i ＝1 To 9k ＝iFor j ＝____①____To 10If a(j) > a(k) Then k ＝jNext jIf i <> k Then__②____End IfNext iList2.ClearFor i ＝1 To 10List2.AddItem Str(i) ＋” ＝” ＋Str(a(i))Next iEnd Sub请在①、②划线处填入合适的语句或表达式，把程序补充完整：程序中①划线处应填入__________________；程序中②划线处应填入__________________。
VB重点复习
VB重点一、选择题（30×1.5′=45′）1.在VB程序设计中，响应对象的外部动作称为事件，而对象可以执行的动作或对象本身的行为则称为方法。
2.在VB6.0集成开发环境中不能完成的工作是自动查找并改正程序中的错误。
3.VB6.0集成开发环境不包括DOS界面窗口。
4.当运行程序时，系统自动执行启动窗体的Load事件过程。
5.下面关于对象的描述中，对象就是自定义结构变量是错误的。
6.如果在窗体上已经创建了一个文本框对象Text1，可以通过事件KeyPress 获得输入键值的ASCII码。
7.VB是一种基于对象的可视化程序设计语言，采取了事件驱动的编程机制。
8.在VB中最基本的对象是窗体，它是一块“画布”，是其他控件的容器。
9.有程序代码如下：Text1.Text=”Text1text”则Text1、Text、Text1text分别代表对象、属性、值。
10.要使标签控件显示时不覆盖其背景内容，需对其BackStyle属性进行设置。
11.要使命令按钮不可操作，需对其Enabled属性进行设置。
12.文本框没有Caption属性。
13.不论何种控件，共同具有的是Name属性。
14.要使Form1窗体的标题栏显示“欢迎使用VB”，下列语句中Form1.Caption=”欢迎使用VB”是正确的。
15.要使窗体在进行时不可改变大小和没有最大化和最小化按钮，只要对其BorderStyle属性进行设置即可。
15.文本框的ScrollBars属性设置了非零值，却没有效果，原因是文本框的MultiLine属性为False。
15.要判断在文本框中是否按下了Enter键，应使用文本框的KeyPress事件。
16.保存新建的工程时，默认的路径是Windows。
17.将调试通过的工程经“文件”菜单中的“生成exe文件”命令编译成.exe文件后，该可执行文件到其他机器上不能进行的主要原因是运行的机器上无VB系统。
18.在安装了VB帮助系统后，当需要上下文帮助时，选择要帮助的“难题”，然后按F1键，就可出现MSDN窗口及显示所需“难题”的帮助信息。
VB选择题
1、Visual Basic最突出的特点是（事件驱动编程机制）。
2、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（If sex="男"And age＜40 And duty="教授"And duty="副教授" Then n=n+1）。
3、一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有（30 ）个元素。
4、下面哪个属性可以控制菜单项可见或不可见（Visible ）?5、INT（100*RND）产生的随机整数的闭区间是（[0，99] ）。
6、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（12334 ）。
7、赋给一个数组的数据类型一定要（相同）。
8、下面几个关键字均表示文件的打开方式，只能进行读不能写的是（Input ）。
9、运行下列程序段后，显示的结果为（9 ）J1=4: J2=9If J1<J2 Then Print J2 Else Print J110、假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（bool_x = False ）11、设S="中华人民共和国"，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（"中国人民"）12、以下属于Visual Basic合法的数组元素是（s(0) ）13、设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为（-1 ）14、引用列表框（List1）最后一个数据项应使用的表达式是（List1.List(List1.ListCount-1) ）15、下列语句正确的是（If A<>B Then Print "A不等于B" ）16、下面( X_yz )是合法的变量名。
VB部分课后习题答案
1. 选择题(1) 假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为（B）。
A. Form1="VB Test"B. Caption="VB Test"C. Form1.Text="VB Test"D. ="VB Test"(2) 下列不能打开代码窗口的操作是（D）。
A．双击窗体上的某个控件B．双击窗体C．按F7键D．单击窗体或控件(3) 为了保存一个Visual Basic应用程序，应当（D）。
A．只保存窗体文件（.frm）B．分别保存工程文件和标准模块文件（.bas）C．只保存工程文件（.vbp）D．分别保存工程文件、窗体文件和标准模块文件(4) 为了装入一个Visual Basic应用程序，应当（C）。
A．只装入窗体文件（.frm）B．分别装入工程文件和标准模块文件（.bas）C．只装入工程文件（.vbp）．D分别装入工程文件、窗体文件和标准模块文件(5) 不为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为（A）。
A．1 B．2 C．3 D．42. 填空题(1) 在用Visual Basic开发应用程序时，通常首先需要新建工程、其次还要经过、、、和5步。
(2) 控件和窗体的Name属性只能通过属性窗口设置，不能在运行期间设置。
(3) 代码窗口分为左右两栏，左边一栏称为对象，右边一栏称为事件。
(4) 为了在输入程序时能自动进行语法检查，必须执行菜单中的命令，打开对话框，然后选择“编辑器”选项卡中的选项。
(5) 在保存VB应用程序中，窗体文件和工程文件的扩展名分别为 .frm 和.vbp 。
(6) 为了把一个Visual Basic应用程序装入内存，只要装入工程文件即可。
(7) Visual Basic应用程序通常由3类模块组成，即、和。
(8) 在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click( )Text1.Text=“VB Programming”Text2.Text=Text1.TextText1.Text=“ABCD”End Sub程序运行后，单击命令按钮，两个文本框中显示的内容分别为ABCD 和VB Programming 。
VB选择题
1.以下叙述中错误的是 :Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性2.以下叙述中错误的是在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件3.以下叙述中错误的是答案：Visual Basic应用程序只能以解释方式执行4.如果要改变窗体的标题，则需要设置的属性是答案：Caption5.以下叙述中正确的是（）窗体的 Name 属性指定窗体的名称，用来标识一个窗体6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为答案：窗体移动到距屏幕左边界、上边界各500的位置7.在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是答案：TabIndex8.设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的信息，以下能实现该操作的语句是答案：Text1.Enabled=Flase9.以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是答案：Form1.Caption="VisualBasic窗体"10.以下叙述中错误的是答案：对象事件的名称可以由编程者指定1 . 在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是答案： Private Sub Text1_Change()Command1.Caption = "计算机等级考试"End Sub2 . 为了使命令按钮（名称为Command1）右移200，应使用的语句是答案： Command1.Left = Command1.Left + 2003 . 以下合法的Visual Basic 变量名是答案： ForLoop4 . 以下叙述中错误的是答案：窗体或控件的事件的名称可以由编程人员确定5 . 确定一个控件在窗体的位置的属性是答案： Top和Left6 . 下列可作为Visual Basic变量名的是答案： constA7 . 设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是答案： False8 . 在窗体上画一个文本框（其名称为 Textl)和一个标签（其名称为 Labell)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是（）。
VB笔试-试卷31_真题(含答案与解析)-交互
VB笔试-试卷31(总分94, 做题时间90分钟)1. 选择题选择题（）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1.三种基本结构中，能简化大量程序代码行的是（）。
SSS_SINGLE_SELA 顺序结构B 分支结构C 选择结构D 重复结构分值: 2答案:D解析：重复结构又称为循环结构，它根据给定的条件，判断是否需要重复执行某一相同或类似的程序段，利用重复结构可以简化大量的程序行。
2.下列关于栈的描述正确的是（）。
SSS_SINGLE_SELA 在栈中只能插入元素而不能删除元素B 在栈中只能删除元素而不能插入元素C 栈是特殊的线性表，只能在一端插入或删除元素D 栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素分值: 2答案:C解析：根据数据结构对栈的定义及其特点可知：栈是限定只在表尾进行插入或删除操作的线性表，因此栈是先进后出的线性表，对栈的插入与删除操作，不需要改变栈底元素。
栈是限定只在表尾进行插入或删除操作的线性表。
3.下列有关数据库的叙述，正确的是（）。
SSS_SINGLE_SELA 数据处理是将信息转化为数据的过程B 数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C 关系中的每一列称为元组，一个元组就是一个字段D 如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字。
分值: 2答案:D解析：数据处理是指将数据转换成信息的过程，故选项A叙述错误；数据的物理独立性是指数据的物理结构的改变不会影响数据库的逻辑结构，故选项B叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项C叙述错误。
4.概要设计中要完成的事情是（）。
SSS_SINGLE_SELA 系统结构和数据结构的设计B 系统结构和过程的设计C 过程和接口的设计D 数据结构和过程的设计分值: 2答案:A解析：软件概要设计的基本任务是：设计软件系统结构；数据结构及数据库设计；编写概要设计文档；概要设计文档评审。
vb考试复习5章-6章习题
计第5章选择结构程序设-、选择题1.下列语句正确的是【】。
(多选)(A)IfX≠YThenPrint"X不等于Y"(B)IfX<>YThenPrint"X不等于Y"(C)IfX><YThenPrint"X不等于Y"(D)IfX=YPrint"X不等于Y"2.下列语句正确的是【】。
(A)IfA≥BThenT=AA=BB=T(B)IfA≥BThenT=A;A=B;B=T(C)IfA>=BThenT=AA=BB=T(D)IfA>=BThenT=A:A=B:B=T3.下列语句正确的是【】。
(A)IfX<3*YAndX>YThenY=X^3(B)IfX<3*YAndX>YThenY=X3(C)IfX<3*Y:X>YThenY=X^3(D)IfX<3*YAndX>YThenY=X**34.关于语句Ifx=lTheny=1,下列说法正确的是【】。
(A)x=1和y=1均为赋值语句(B)x=1和y=1均为关系表达式(C)x=1为关系表达式,y=1为赋值语句(D)x=1为赋值语句,y=1为关系表达式5.执行以下语句后显示结果为【】。
DimxAsIntegerIfxThenPrintxElsePrintx-1(A)1(B)O(C)一1(D)不确定6.如果X的值小于或等于Y的平方,则打印"OK",表示这个条件的单行格式If语句是【】。
(A)Ifx<=y2ThenPrint"OK"(B)Ifx<=y^2Print"OK"(C)Ifx<=y^2Then"OK"(D)Ifx<=y^2ThenPrint"OK"7.如果A为整数且|A|=100,则打印"OK",否则打印"Error",表示这个条件的单行格式If语句是【】。
循环结构练习题
第13题图 循环结构练习题1、Visual Basic 程序段如下：该程序段运行后，变量s 的值是（ ） s=0 For k=1 To 5 s=s+5 Next k （A ） 0 （B ） 5 （C ） 10 （D ） 252、应用计算机程序解决数学问题“求一元二次方程实数解”的步骤，通常是（ ）。
A. 设计算法→编写程序B. 编写程序→调试程序→检测结果C. 分析问题→设计算法→编写程序→调试运行→检测结果D. 编写程序→调试运行3、“=”在Visual Basic 程序中既可以表示赋值操作，也可以表示关系运算。
右图程序段中“=”作用和⑤相同的是 A ．① B ．② C ．③ D ．④4、用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（ ）A ．分析问题B ．设计算法C ．编写程序D 、调试程序5、流程图中表示判断的是（ ）。
Ａ．矩形框 Ｂ．菱形框 Ｃ．圆形框 Ｄ．椭圆形框6、任何复杂的算法都可以用三种基本结构组成，下列不属于基本结构的是（ ）A ．顺序结构B ．选择结构C ．层次结构D ．循环结构 7、执行完循环语句For x=1 to 100 step 2 ……Next x 后，x 的值是（ ）A ．101B ．100C ．99D ．98 8、下列给出的赋值语句中正确的是（ ）。
A ．4 = MB ．-M =MC ．B=A －3D ．x + y = 0 9、以下程序中的循环体执行的次数是( )。
For A=1 To 100 Step 2 S=S+A Next A Print SA．48 B．49 C．50 D．5110、下列程序代码中，循环体执行的次数是( )。
y = 1Do While y <= 6y = y+yLoopA、2B、3C、4D、511、有如下VB程序，其结构为( )。
Dim i As Integer, sum As Doublesum=0For i = 1 To 100sum =sum+1/iNext iPrint "sum= " & sumA、顺序结构B、分支结构C、循环结构D、选择结构12、阅读如下VB程序段，运行程序后，当n的值为5时，a的值为______。
vb循环结构选择题共24页
一、选择题1、无条件转移GoTo语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<nPrint xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<nPrint xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（D ）A、do while …loop循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次，do…loop until循环可能不执行D、do while …loop循环可能不执行，do…loop until循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next i运行上面的程序，单击命令按钮，则在窗体上显示的内容是（B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = Sum上述程序运行后，单击窗体，则运行的结果（A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。
vb循环结构选择题
vb循环结构选择题vb循环结构选择题一、选择题1、无条件转移GoT o语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoT o语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、T oB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、T oB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<n< p="">Print xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<n< p="">Print xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4For j =0 to iPrint chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3For n = 0 To m - 1Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（ D ）A、do while …loop 循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次，do…loop until循环可能不执行D、do while …loop循环可能不执行，do…loopuntil循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则在窗体上显示的内容是（ B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（ B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序运行后，单击窗体，则运行的结果（ A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入12345-1，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（ A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。
VB课后习题答案---选择题
1、下面不是VB工作模式的是（C ）A．设计模式B．运行模式C．编模汇式D．中断模式2、可视化编程的最大优点是（C ）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D ）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（D ）A．可视化B．面向对象C．面向图形D．事件驱动1、以下能够触发文本框Change事件的操作是（D ）A．文本框失去焦点B．文本框获得焦点C．设置文本框的焦点D．改变文本框的内容2、应用程序设计完成后，应将程序保存，保存的过程是（D ）A．只保存窗体文件即可B．只保存工程文件即可C．先保存工程文件，之后保存窗体文件D．先保存窗体文件（或标准模块文件），之后还要保存工程文件3、VB应用程序的运行模式是（C）A．解释运行模式B．编译运行模式C．两者都有D．汇编模式4、任何控件都具有的属性是（C ）A．TEXT B．CAPTION C．NAME D．FORECOLOR5、决定控件上文字的字体、字形、大小及效果的属性是（D ）A．TEXT B．CAPTION C．NAME D．FONT6、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（B ）设置为0 A．INDEX B．TABINDEX C．TABSTOP D．ENABLED7、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（D）事件A．CLICK B．DBLCLICK C．GOTFOCUS D．CHANGE8、在运行时，按TAB键跳过了一个可以获得焦点的控件（如文本框），则可能是因为（D ）A．该控件的TABSTOP属性值为TRUE B．该控件的TABINDEX属性值为FALSE C．该控件的ENABLED属性值为TRUE D．该控件的ENABLED属性值为FALSE9、为了防止用户随意将光标置于控件上，应（D）A．将控件的TABINDEX属性设置为0B．将控件的TABSTOP属性设置为TRUEC．将控件的TABSTOP属性设置为FALSED．将控件的ENABLED属性设置为FALSE10、若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D ）属性A．BACKCOLOR B．BORDERSTYLEC．FORECOLOR D．BACKSTYLE11、如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（B ）A．文本框的MULTILINE属性值为TRUEB．文本框的LOCKED属性值为TRUEC．文本框的MULTILINE属性值为FALSED．文本框的LOCKED属性为FALSE12、在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（A）A．Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB．Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC．Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD．Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub13、Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（D）A．属性、事件、事件过程B．控件、窗体、事件C．属性、过程、方法D．属性、事件、方法14、决定标签（Label）显示的属性是（C ）A．Text B．Name C．Caption D．Alignment15、命令按钮的标题文字由（B ）属性来设置。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分，共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：aA．Form1.Caption=“正在复制文件…"B．Form1.Title=“正在复制文件…”C．Form1.Text=“正在复制文件…”D．Form1.名称=“正在复制文件…"如果要求设置定时器时间间隔为1秒钟,那么它的Interval属性值应该等于：aA．1000B．100C．10D．13、下列关于控件的基本操作中，错误的是A）当控件处于活动状态时，可以对控件进行缩放B）在设计阶段不能移动控件C）Visual Basic 6.0 允许对画好的控件进行复制和删除D) 可以通过属性窗口改变控件的位置和大小4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面,其中正确的顺序是:A）①②③B) ①③②C) ③②①D) ③①②5、为使文本框只能显示不能输入，即只读,应设置文本框的属性是：cA．MaxLength设置为0B．Cancel设置为TrueC．Locked设置为True D．Read设置为True6、InputBox函数返回值的类型为。
BA．数值B．字符串C．变体D．数值或字符串（视输入的数据而定）7、为了把焦点移到某个指定的控件,所使用的方法是：AA．SetFocus B．Visible C．ReFresh D．GetFocus8、函数String（3,”str”）的功能是：bA．把数值型数据转换成字符串B．返回有3个字符串组成的字符串C．从字符串中第3个字符D．从字符串中第3个字符的位置开始取字符串9、双击窗体中的对象后,Visual Basic将显示的窗口是：cA．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口10、用于获得字符串s最左边4个字符的函数是：aA．Left（s,4）B．Left(1,4）C．LeftStr(s）D．LeftStr(3,4）11、以下程序段的输出结果是: da=Sqr（3）b=Sqr（2）c=a〉bPrint cA．-1 B．0 C．False D．True12、用下面语句定义的数组的元素个数是:cDim A （-4 to 6) As IntegerA．6 B．7 C．11 D．913、若x=-5，执行If x Then x=0 Else x=1的结果为：dA．实时错误B．编译错误C．x=1 D．x=0列程序段的循环结构执行后,i的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA．25 B．10 C．11 D．因为y的初值不知道,所以不确定15、可以用作其他控件容器的控件有: cA．窗体、列表框、图像框B．窗体、文本框、框架C．窗体、框架、图片框D．窗体、标签、图片框16、以下不属于Visual Basic 支持的循环结构的是：dA．For …Next B．For Each …NextC．Do …Loop D．While …End17、下列可以打开立即窗口的操作是：DA．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G18、下列可作为Visual Basic变量名的是A)A_3 B)4A C）？xy D）Integer19、设a=8，b=5，执行语句Print a〉b后，窗体上显示的是A）True B)False C）1 D)出错信息20、以下能够触发文本框Change事件的操作是A) 文本框失去焦点B）文本框获得焦点C) 设置文本框的焦点D) 改变文本框的内容21、列表框图标的英文名称是A）ListBox B)ComboBoxC）Frame D)CommonDialog22、下列类型说明符中表示整型的是A）％B）! C) ＄D) &23、执行下列语句a＄= "abcdefg”：Print Len（a＄）后，在窗体上输出的结果是A） 1 B） 2 C）7 D) 1424、文本框不具有的属性是A）Caption B）text C) left D）font25、设a=6，则执行x=IIf(a>5,1,2）后，x 的值为：A)1 B)2 C）5 D）026、语句Print 5/4*6\5 Mod 2的输出结果是A) 0B）1C) 2 D）327、滚动条控件的largeChange属性所设置的是A）滚动条所能表示的最小值B）滚动条所能表示的最大值C)单击滚动条中滚动框前面或后面的部位时,Value属性增加或减小的增量值D)单击滚动条两端的箭头时，Value属性增加或减小的增量值28、按钮控件数组元素是：cA．共享一个事件过程的B．只共享一个Click事件过程的C．共享该控件的所有事件过程D．各自有自己的部分事件过程有如下的记录类型Type studentid As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是：BA．student。
VB第4章 复习资料
第4章补充资料习题解答1．计算下列循环语句的次数：（1）For I= -3 To 20 Step 4答：循环次数为6次。
循环体内I的值分别为：-3，1，5，9，13，17；出了循环体后I 的值为21。
（2）For I= -3.5 To 5.5 Step 0.5答：循环次数为19次。
（3）For I= -3.5 To 5.5 Step -0.5答：不循环，步长<0，循环初值<终值。
（4）For I= -3 To 20 Step 0答：无数次，步长=0。
2. 下列30～90为语句标号，分别标记该语句，第40号语句共执行了几次，第50号语句共执行了几次，执行第90号语句后显示的结果是多少？30 For j = 1 To 12 Step 340 For k =6 To 2 Step -250 mk = k60 Print j,k70 Next k80 Next j90 Print j , k , mk答：第40号语句共执行了4次，是外循环的循环体；第50号语句共执行了12次，是内循环的循环体，循环次数为两重循环次数的乘积；第90号语句显示的结果是13 0 2。
3．如果实现不知道循环次数，如何用For …Next 结构来实现？答：只要将循环的终值设置成一个非常大的值，然后再循环体内增加If语句，判断是否满足循环结束的条件。
形式如下：For 循环变量=1 To 非常大的数…If 满足循环结束条件Then Exit For…Next 循环变量4．利用循环结构，实现如下功能：（1）∑=+ +=101)12)(1(ii is答：s =0For i =1 To 10s = s +( i+1)*(2* i +1)Next i（2）分别统计1～100中，满足3的倍数、7的倍数的整数各有多少？答：s3=0s7=0For i =1 to 100If i mod 7=0 Then s7=s7 +1If i mod 3=0 Then s3=s3+1Next i（3）将输入的字符串以反序显示。
vb精选试题及答案
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
循环结构程序设计练习题
循环结构程序设计练习题1、运行以下语句后,A的值为______。
Dim A As IntegerA=1Do Until A=100 A) 99 B) 100A=A+2 C) 溢出D) 101Loop2、以下程序运行结果是（）。
S=0For H=1 T o 10 A)15 B)25If Int(H/2)<>H/2 Then C)35D)45S=S+HEnd IfNext HPrint S3、在窗体上画一个command1的命令按钮，然后编写如下事件过程：X = 0N = Inputbox("")For I = 1 T o NFor J = 1 T o IX = X + 1Next JNext IPrint X程序运行后单击命令按钮，如果输入3，则在窗体上显示的内容是( )A) 3 B) 4C) 5 D) 64、设有以下循环结构Do循环体Loop While <条件>则以下叙述中错误的是( )A)"条件"是一个为0的常数，则一次也不执行循环体B)"条件"可以是关系表达式、逻辑表达式或常数C)循环体中可以使用exit Do语句D)如果"条件"总是为true，则不停地执行循环体5、下面程序的循环次数是（）For J=8 T o 35 Step 3Print J A)7B)8Next J C)9D)106、对正实数x 的第四位小数四舍五入的vb表达式是（）。
A) 0.001*Int(X+0.005) B ) 0.001*(1000*X+0.5)C) 0.001*Int(1000*X+5) D) 0.001*Int(1000*(X+0.0005))7、下面程序运行后在文本框中的结果是（）For K=1 T o 3For M=1 T o K A)12B)14For N=M T o 3 C)18D)24X=X+1Next N，M，KT ext1.T ext=X8、下面程序运行后的输出结果是（）For H=1 T o 13 Step 2H=H+1 ：Print H；A)2 4 6 8 10 12B)1 3 5 7 9 11 13 Next H C)2 5 8 D)2 5 8 11 14 9、下面程序的作用是什么（）M=0：N=0For H=1 T o 10X=Val(Inputbox(“请输入数据”,””,0))If X<0 ThenM=M+XElseif X>0 ThenN=N+1End IfNext HPrint M，NA）计算从键盘上输入的数据之和，并统计输入数据的数目B) 分别计算从键盘上输入的正数之和与负数之和C) 分别统计从键盘上输入的正数和负数的数目D) 计算从键盘上输入的负数之和，并统计正数的数目10、下列关于for循环的叙述中，正确的是（）A) 循环体至少被执行一次B) 循环体有可能不被执行C) 步长不允许是小数D) 循环初值等于终值时循环体不被执行11、下列程序的输出结果是哪一个（）Do While X<20X=X+1：X=X*X A)36B)25Loop C)16 D)12Print X12、下面程序的运行结果是（）A=1：B=1DoA=A+1：B=B+1Loop Until B>5Print "K="；A；Spc(3)；"B="，B+AA)K=7 B=14B)K=5 B=10C)K=6 B=6 D)K=6 B=1213、下面语句组中，不能实现20次循环的有（）A) N=0 B) N=0Do DoN=N+1 N=N+1Loop Until N>=20Loop Until N<20C) N=0 D) N=0Do Do Whle N <20N=N+1 N=N+1Loop While N<20 Loop14、下面程序能计算1+（1+2）+（1+2+3）+…+（1+2+3…+9）的是（）A) S=0 B) S=0：T=0For H=1 T o 9 For H=1 T o 9S=S+1 S=S+TNext H Next HC) S=0 D) S=0For H=1 T o 9 For H=1 T o 9T=0 For J=1 T o HFor J=1 T o H T=T+HT=T+J Next JNext J S=S+TS=S+T Next HNext H15、下面程序的运行结果是（）Dim X（1 T o 10）As IntegerMax=1e-30For H=1 T o 10X（H）=HIf X（H）>=Max Then Max=X（H）1Next HErase XPrint “Max=”；Max；“X（10）=”；X（10）A) Max=10 X(10)=10B)Max=10 X（10）=0C) Max=0 X(10)=10 D)Max=0 X（10）=016、阅读以下程序，执行该程序后，数组a和数组b的值是（）Dim A（50），B（50）For N=1 T o 50：A（N）=N：Next NFor N=1 T o 50B（N）=A（N）+A（N-1）Print B（N）；Next NA) 数组a和数组b各存储1～50的自然数B) 数组a存储1～50的自然数，数组b存储1～99的自然数C) 数组a存储1～50的自然数，数组b存储1～99的奇数D) 数组a存储1～50的自然数，数组b存储2～100的偶数17、运行下面程序后的输出结果是（）For H=1 T o 4 A) 1 2 3 4Print H；B) 1 2 3 4 5Next H C) 1 2 3 4 4Print H D) 1；2；3；4；518、判断下面程序是计算哪一个数学式子的（）N=Val(Inputbox(“请输入n的值”)T=1：S=0For H=1 T o 2*N+1 Step 2T=T*H：S=S+TNext HPrint SA) 1+3+5+…+2n+1B) 1*3*5*…*(2n+1)C) 1！+3！+5！+…+(2n+1)! D) 1+1*3+1*3*5+…+1*3*..*(2n+1)19、运行以下程序后，显示的结果是（）Dim D（6，6）For H=1 T o 6For J=1 T o 6D（H，J）=6*H*H*JNext J，HFor H=1 T o 6Print D（H，H）；Next HA) 1 2 3 4 5 6 B) 1 4 9 16 25 36C) 6 48 162 384 750 1296D) 1 2 3 4 5 62 4 6 8 10 123 6 9 12 15 184 8 12 16 20 2420、运行以下程序后，显示的结果是（）Dim N(5) As IntegerN（0）=2For H=2 T o 5 A)1 2 3 4 5N（H）=N（H-2）*H*H B)1 2 6 24 120Print N（H）；C)8 0 128 0Next I D)2 4 12 48 24 21、当x的值分别为5，9，8，2，-999时，下面程序运行后的结果是（）B=0X= Val(Inputbox(“请输入一个数”))Do While X<>-999 And D<>2If X>B Then B=XX= Val(Inputbox(“请输入一个数”))LoopPrint B A)9 B)8 C)2 D)-99922、有如下事件过程，其运行结果是（）For I=1 T o 4Print T ab(2*I+1);11*I;Next IA) 11 22 33 44 B)11 C) 11 D) 1122 22 2233 33 3344 44 4423、有如下事件过程，其运行结果是（）Private Sub Form_Click()A=0For h=1 T o 10A=A+1B=0For J=1 T o 10 A) 10 20 B) 20 110A=A+1 C) 110 20 D) 200 110B=B+2Next J,hPrint A;BEnd Sub24、有如下事件过程，程序运行三次当N分别为2、4、6时，其第二次的结果是（）Private Sub Form_Click()N= Val(Inputbox(“请输入一个数”))For h=1 T o NJ=1J=J*hNext hPrint h,JEnd SubA) 5 24 B) 4 24 C) 5 4 D) 4 425、有如下事件过程，其运行结果是（）Private Sub Form _Click()For I=0 T o List1.Listcount-1If I Mod 2=0 ThenPrint List1.List(I)End IfNextEnd SubPrivate Sub Form _Load()List1.Additem “中国”List1.Additem “日本”A）中国韩国B) 日本新加坡List1.Additem “韩国”C) 中国韩国香港List1.Additem “新加坡”D) 中国日本韩国新加坡香港List1.Additem “香港”End Sub二、填空题1、下面语句循环的次数是（7 ）For X=-0.5 T o -3.5 Step -0.52、运行下面程序后，显示结果是（225 ）Dim A（15）For H=1 T o 15A（H）=H^2Next HPrint A（H-1）3、下面程序运行后的输出结果是（160 ）For J=1 T o 202If J Mod 5<>0 Then A=A+JNext JPrint A4、以下程序是找出50以内的所有能构成直角三角形的整数组，请补充完整该程序.For A=1 T o 50For B=A T o 50C=Sqr（A*A+B*B）If （）Then Print A；B；CNext BNext A5、下面程序运行后文本框中的输出结果是（）K=1For J=1 T o 6K=K*JNext JT ext1.T ext=K+J6、以下程序是计算（1+1/2）*（1+1/3）*…*(1+1/10),阅读该程序，请将程序补充完整S=1（）S=（）Next YPrint S7、以下程序是用随机数模拟掷，统计掷50次出现的个点数的次数。
VB 78-选择与循环结构
Dim scroe As Integer = 60 score = txtScore.Text If scroe > =60 Then MsgBox(“及格") Else MsgBox(“不及格") End If
If第三种结构的语法为
×
（6） IF … Then …… For I=…… …… End IF …… Next I
×
例如：打印九九乘法表.
Dim i, j As Integer Dim se As String Dim g As Graphics = Me.CreateGraphics Dim drawFont As New Font("Arial", 16) Dim drawBrush As New SolidBrush(Color.Black) For i = 1 To 9 For j = 1 To 9 se = i & "×" & j & "=" & i * j g.DrawString(se, drawFont, drawBrush, (j - 1) * 17 * 6, i * 17) Next j Next i
例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”， 80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分 以为“不合格”
使用IF语句实现的程序段如下： If x>=90 then MsgBox "优秀" ElseIf x>=80 Then MsgBox "良好" ElseIf x>=70 Then MsgBox "中等" ElseIf x>=60 Then MsgBox "及格" Else MsgBox "不及格" End If
VB基本知识及选择、循环结构习题
一、VB 基本知识及选择、循环结构习题一、基本概念题（1） 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。
100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#（2）下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.345（3） 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π（4）把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e ο（5）写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.4) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"（6）设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 5（7）写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")二、 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、选择题1、无条件转移GoTo语句后面是（A）A、标号或行号B、输出语句C、输入语句D、子过程2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A）A、冒号B、分号C、逗号D、空格3、无条件转移GoTo语句后面的行号或标号在同一过程中（A）A、必须唯一B、可以重复C、以数字开头D、以汉字开头4、while循环结构中的条件表达式取值为（A）A、TrueB、FalseC、True或FalseD、05、while循环结构中的条件表达式取值为（A）时执行语句组A、TrueB、FalseC、True或FalseD、06、while循环结构中与（A）匹配使用，不能单独出现A、WendB、endC、loopD、next7、Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、38、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A）A、0B、1C、2D、39、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B）A、0B、1C、2D、310、Do…loop循环结构中的Exit Do语句的功能是（B）A、退出整个程序B、退出当层循环C、退出最外层循环D、退出所在子程序11、Do…loop中使用while关键字时，条件为（B）执行循环体A、FalseB、TrueC、0D、假或真12、Do…loop中使用until关键字时，条件为（A）执行循环体A、FalseB、TrueC、0D、假或真13、Do…loop中使用while关键字时，条件为（A）终止循环A、FalseB、TrueC、0D、假或真14、Do…loop中使用until关键字时，条件为（B）终止循环A、FalseB、TrueC、0D、假或真15、For…Next循环结构中（C）用来控制循环变量A、forB、stepC、nextD、to16、For…Next循环结构中step用来控制（D）A、循环变量B、循环变量初值C、循环变量终值D、循环变量增量17、For…Next循环结构中循环变量初值大于终值时,步长为（A）A、负数B、非负数C、正整数D、正数18、For…Next循环结构中循环变量初值小于终值时,步长为（A）A、负数B、负整数C、正整数D、正数19、For…Next循环结构中next后的循环变量（A）A、可以省略B、不可以省略C、与for后的变量名可以不同D、与for后的变量不是同一变量20、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private21、For…Next中循环变量初值与终值间使用的关键字是（A）A、ToB、InC、gotoD、private22、执行下面的程序段后，s的值为（C）Private Sub Form_Click()Static s As Integers = 5For i = 1.4 To 2.1 Step 0.6s = s + 1Next iPrint sEnd SubA、5B、6C、7D、123、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ）Private Sub Command1_Click()For m = 1 To 10x = Int(Rnd * 101+100)If（）ThenPrint x;End IfNext mEnd SubA、x mod 5=0B、x mod 5==0C、x/5=0D、x\5=024、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A）A、33B、35C、37D、3825、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private Sub Command1__Click()X=0N=val(inputbox(“n=?”))For i=1 to nFor j=1 to iX=x+1Next jNext iPrint xEnd sub程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D)A、9B、44C、5D、626、以下能够正确计算n！的程序是（C）A、private sub command1__click()N=5 : x=1DoX=x*1I=i+1Loop while i<nPrint xEnd subB、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<nPrint xEnd subC、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i<=nPrint xEnd subD、private sub command1__click()N=5 : x=1 : i=1DoX=x*iI=i+1Loop while i > nPrint xEnd sub27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程：Private sub command1_click()For i=1 to 15X=2*i-1If x mod 3=0 then s=s+1Next iLabel1、caption =sEnd sub程序运行后,单击命令按钮,标签中显示的内容是( B )A、1B、5C、27D、4528、在窗体上画一个命令按纽Command1，然后编写如下事件过程：Private sub command1_click()For i=1 to 4Print chr$(65+i)Next iPrintEnd sub程序运行后,单击命令按钮,窗体中显示的内容是( A)A、BBCCCDDDDEEEEEB、ABBCCCDDDDC、BCCDDDEEEED、AABBBCCCCDDDDD28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程：Private sub command1_click()Dim x as integer，n as integerX=1 ：n=0Do while x < 20X=x*3N=n+1LoopText1、text=str(x)Text2、text=str(n)End sub程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B)A、15和1B、27和3C、195和3D、600和429、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(5),b(5)For j =1 to 4A(j)=3*jB(j)=a(j)*3Next jText1、text=b(j\2)End Sub程序运行后，单击命令按钮，在文本框中显示（ B ）A、25B、18C、36D、3530、下面程序运行时，内层循环的循环总次数是（A）For m = 1 To 3Next nNext mA、6B、3C、0D、931、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D）A、6B、3C、0D、732、执行下面的程序段后，X的值为（C）X=5For I=1 to 10 Step 2X=X+I\5Next IA、7B、10C、8D、533、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（D ）For I=a to bPrint INext IA、0B、1C、2D、334、下列关于do while …loop 和do…loop until循环执行循环体次数的描述正确的是（D ）A、do while …loop循环和do…loop until循环至少都执行一次B、do while …loop循环和do…loop until循环可能都不执行C、do while …loop循环至少执行一次，do…loop until循环可能不执行D、do while …loop循环可能不执行，do…loop until循环至少执行一次35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()For i = 1 To 4a = 1For j = 1 To 3a = 2For k = 1 To 2a = a + 6Next kNext jNext iPrint aEnd Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（A ）A、14B、15C、16D、1736、设有如下程序：Private Sub Form_Click()a = 1For i = 1 To 3Select Case iCase 1, 3a = a + 1Case 2, 4a = a + 2End SelectNext iPrint aEnd Sub程序运行后，单击窗体，则在窗体上显示的内容是（ B ）A、6B、5C、4D、337、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：sub ss (b() as Integer )For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6a(3) = 7: a(4) = 8ss a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，则在窗体上显示的内容是（B ）A、5 6 7 8B、2 4 6 8C、1 2 3 4D、5 7 6 838、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：Function fun(x As Integer)Static zy = y + 1: z = z + 1fun = x + y + zEnd FunctionPrivate Sub Command1_Click()Dim x As Integerx = 1For i = 1 To 2Print fun(x)Next iEnd Sub程序运行后，如果单击命令按钮，窗体中显示的内容是（B ）A、3 3B、3 4C、3 5D、3 639、若I、n均为整型变量，下列程序段的输出结果为（C）Private Sub Form_Click()n = 0For i = 1 To 10If i Mod 2 = 1 Then n = n + 1Next iPrint nEnd SubA、0B、4C、5D、340、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：Private Sub Form_click ()Text1、Text = ""Text1、SetFocusFor i = 1 To 10Sum = Sum + iNext iText1、Text = SumEnd Sub上述程序运行后，单击窗体，则运行的结果（A ）A、在文本框Text1中输出55B、在文本框Text1中输出0C、出错D、在文本框Text1中输出不定值41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Private Sub Command1_Click()x = 0Do Until x = -1a = InputBox("请输入A的值")a = Val(a)b = InputBox("请输入B的值")b = Val(b)x = InputBox("请输入X的值")x = Val(x)a = a +b + xLoopPrint aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入1<CR>2<CR>3<CR>4<CR>5<CR>-1<CR>，则输出结果为（A）A、8B、9C、14D、1542、设有如下程序：Option Base 1Private Sub Form_Click()Dim a(10), P(3) As Integerk = 5For i = 1 To 10a(i) = iNext iFor i = 1 To 3P(i) = a(i * i)Next iFor i = 1 To 3k = k + P(i) * 2Next iPrint kEnd Sub程序运行后，单击窗体，则在窗体上显示的是（A ）A、33B、35C、37D、3843、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码：Function F(a As Integer)b = 0Static cb = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = 2For i = 1 To 3b = F(a)Print bNext iEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（A ）A、4 5 6B、1 2 3C、0 1 2 3D、2 3 444、在窗体上画一个命令按钮，名称为Command1。