vb控制结构综合练习
VB实验指导书_理论综合练习题_答案(完结版).doc
第二部分综合练习理论练习一一单选1-5 CDCCB 640ABDCD 11-15 CCBBD 16-20 DBCBA二多选1 ABCE 2CE 3 BCE 4 ADE 5 ABCD6ABCDE 7ACD8ABCDE 9 ABC 10ABCDE三判断1-5 X V X V V6-10 V X V V V四填空1 x=int(Rnd*101)End If avg=s/82 i=l to 10Right(str(i),l)或Right(str(i mod 10))3 m*n/GCD(m,n)GCD(b, a mod b)4 Exit For i & “是素数”Next i五阅读程序1-4 DDCB六程序设计1Option Base 1Private Sub Form_click()Dim a( 10)Ciscreatedata a()sort a()Fori= ITo 10Print a(i);Next iEnd SubSub createdata(a())Fori = ITo 10a(i) = Int(Rnd * 101)Next iEnd SubSub sort(a())For i = 1 To 9Forj = 1 To 10-iIf a(j) > a(j + l)Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd Sub2Private Type ksno As String * 8Bscj As IntegerSjcj As IntegerEnd TypeDim student As ksPrivate Sub Form_Load()Open "c:\ksxx.dat" For Random As#l Len = Len(student)End SubPrivate Sub cmdadd_Click()student.no = Text 1.Textstudent.Bscj = Val(Text2.Text)student.Sjcj = Vai (Tex t3.Text)lastrecord = LOF( 1) / Len(student) + 1Put # 1, lastrecord, studentTextl.Text =Text2.Text = ””Text3.Text ="End SubPrivate Sub cmdquit_Click()Close #1EndEnd Sub1-5 CABCD理论练习二6-10 ABCCD 11-15 BBBAB1 CD2 AD3CE4BC6BCDE7CDE8ABCDE9 ABD三判断二多选1-5 X X X X V 6-10 V V V X X 16-20 DBAAC5 AD10ACDE1n-l 或者Sqr (n)02X y3 1 to 102*i-14Button=2start=True 五阅读程序1-5DBDAB六程序设计1Private Sub Form_click()四填空japan = 47528china = 22257n = 0 True — (x, y)Do While china <= japanchina = china * 1.098japan = japan * 1.028 n= n + 1LoopPrint n & ”年之后，中国GDP将超过日本”End Sub•VB6中的Split函数，其功能足将一字符巾用分界符分割为一字符串数组。
Visual Basic 程序控制结构练习及答案
1.对于语句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，此题考察IF语句的基本理解，等号有关系运算符以及赋值两种作用。
2.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（）。
A、If sex="男"And age＜40 And (duty="教授"Or duty="副教授") Then n=n+1B、If sex="男"And age＜40 And InStr(duty,"教授")＞0 Then n=n+1C、If sex="男"And age＜40 And Right(duty,2)= "教授" Then n=n+1D、If sex="男"And age＜40 And duty="教授"And duty="副教授" Then n=n+1答案：D ，选项中的InStr(duty,"教授")＞0表示duty字符串中含有“教授”两个字，Right(duty,2)= "教授"表示duty字符串右边两个字是“教授”。
3.下面程序段求两个数中的大数，不正确的是（）。
A、Max=IIf(x＞y,x,y)B、If x＞y Then Max=x Else Max=yC、Max=x：If y＞=x Then Max=yD、If y＞x Then Max=y ：Max=x答案：D，在D项中，冒号将两个语句相连，由于Max=x无论如何都会被执行，所以输出的永远是x的值。
vb试题及答案(共10篇)
vb试题及答案（共10篇）篇1：计算机vb试题及答案计算机vb试题及答案(1)下面叙述正确的是(C)A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止D.以上三种描述都不对(2)以下数据结构中不属于线性数据结构的是(C)A.队列B.线性表C.二叉树D.栈(3)在一棵二叉树上第5层的结点数最多是(B)注：由公式2k-1得A.8B.16C.32D.15(4)下面描述中，符合结构化程序设计风格的是(A)A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用goto语句(5)下面概念中，不属于面向对象方法的是(D)A.对象B.继承C.类D.过程调用(6)在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B)A.可行性分析B.需求分析C.详细设计D.程序编码(7)在软件开发中，下面任务不属于设计阶段的是(D)A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型(8)数据库系统的核心是(B)A.数据模型B.数据库管理系统C.软件工具D.数据库(9)下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10)下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A.内模式B.外模式C.概念模式D.逻辑模式(11)算法的时间复杂度是指(C)A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数(12)算法的空间复杂度是指(D)A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间(13)设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A.349B.350C.255D.351(14)结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15)在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)注：即第一个阶段A.概要设计B.详细设计C.可行性分析D.需求分析(16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。
vb控制结构综合练习
A) 0 B) 1 C) ””D) False 控制结构4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值一、选择题为________。
种基本结构1.VB的3种结构化程序设计的3A) 5 B) 6 C) 0 D) –1是________。
5．下面程序段的运行结果是________。
A) 选择结构、过程结构、顺序结构cj=85递归结构、选择结构、顺序结构B)晉挠??吠敨?橤尽屁过程结构、转向结构、递归结构C)晉挠??吠敨?橤尽层D) 选择结构、顺序结构、循环结构晉挠??吠敨?橤尽屃2.段函数表用If语句示分晉挠??吠敨?橤尽屄3?1x?x?1?x)(f表________ ，以下?311x?x?晉挠??吠敨?橤尽居?示方法不正确。
Print dj=;djA) f=x^3+1A) dj=B B) dj=C C) dj=D D) dj=E1 If x>=1 Then f=s^3--B) If x>=1 Then f=x^31If x<1 Then f=x^3+1-1C) If x>=1 Then f=x^3f=x^3+16．下列语句正确的是________。
D) If x<1 Then f=x^3+1 Else A) If K<3*N And k>N Then N=k^3F=x^31-B) If K<3*N And k>N Then N=k3。
执行下面的程序段后显示结果是3.________ C) If K<3*N : k>N Then N=k^3 Private SubForm_Click() D) If K<3*N And k>N Then N=k**3 Dim m ，则下列L=True，z=6.0，，7．设X=2.0y=8.0是的值为True中达BasicVisual 表式If m Then Print m Else Print m+1 。
【太原理工大学现代科技学院】vb练习
属性。
A、Top
B、Left
C、Width
D、Right
7．窗体模块的扩展名为
。
A、.exe
B、.bas
C、.frx
D、.frm
8．窗体的 FontName 属性的缺省值是
。
A、宋体
B、仿宋体
C、楷体
D、黑体
9．FontSize 属性用以设置字体大小，窗体的 FontSize 属性缺省值为
。
A、5
B、9
。
10．对象的 Visible 属性取值是 True 或
。
第 4 部分． 3 种基本控制结构的程序设计
一、判断题
1．For/Next 语句中，“Step 1”可以缺省。
2．For/Next 循环正常（未执行 Exit For）结束后，控制变量的当前值等于终值。
3．在循环体内，循环变量的值不能被改变。
2．表达式 2 * 4^3 + 4 * 6 / 3 + 3^2 的值是
。
3．表达式 16 / 2 - 2 ^ 3 * 7 Mod 9 的值是
。
4．表达式 81 \ 7 Mod 2 ^ 2 的值是
。
5．已知字符串变量 x 存放"1234"，表达式 Val("&H"+Left$(x, Len(x)/2))的值是
4．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
5．所谓保存工程，是指保存正在编辑的工程的窗体。
二、选择题
1．工程文件的扩展名为
。
A、.frx
B、.bas
C、.vbp
D、.frm
2．以下 4 个选项中，属性窗口未包含的是
全国计算机二级VB试题及答案
下面的138道题目，在二级考试中命中率极高。
一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列B. 线性表C. 二叉树D. 栈(3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得A. 8B. 16C. 32D. 15(4) 下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句(5) 下面概念中，不属于面向对象方法的是 (D) 注：P55-58A. 对象B. 继承C. 类D. 过程调用(6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B)A. 可行性分析B. 需求分析C. 详细设计D. 程序编码(7) 在软件开发中，下面任务不属于设计阶段的是(D)A. 数据结构设计B. 给出系统模块结构C. 定义模块算法D. 定义需求并建立系统模型(8) 数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间(13) 设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B) 注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A. 349B. 350C. 255D. 351(14) 结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15) 在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D) 注：即第一个阶段A. 概要设计B. 详细设计C. 可行性分析D. 需求分析(16) 数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。
国家二级VB机试(综合应用题)模拟试卷2(题后含答案及解析)
国家二级VB机试（综合应用题）模拟试卷2(题后含答案及解析) 题型有：1.1．在考生文件夹下有一个工程文件sjt5．vbp，在其窗体中有一个实心圆。
程序运行时，当用鼠标左键单击窗体任何空白位置时，实心网则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。
窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控仲属性。
最后将修改后的文件按原文件名存盘。
正确答案：【操作步骤】步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案Dim stepy As Integer ‘纵向移动增量Dim Stepx As Integer ‘横向移动增量Const LEFT BUTTON＝1 Private Sub Form_MouseDown(Button As Integer，Shift As Integer，x As Single，y As Single) Dim x0 As Integer，y0 As Integer，a As Single，radius As_Integer radius＝Shapel．Width／2 ‘圆的半径If Button＝LEFT BUTTON Then ‘单击鼠标左键移动x0＝Shapel．Left＋radius’圆心的x坐标y0＝Shapel．Top＋radius’圆心的y坐标If x＝x0 Then’垂直移动stepy＝Sgn(y－y0)*50 stepx＝0 Else’倾斜移动a＝(y－y0)／(x－x0)’斜率stepx＝Sgn(x－x0)*50 stepy＝a*stepx ‘通过stepx确定stepy的值If Abs(stepy)＞Abs(stepx)Then stepy＝Sgn(y－y0)*50 stepx＝stepy／a End If End If Timer1．Enabled＝True’单击鼠标左键则触发Timer事件E1se Timer1．Enabled＝False’单击鼠标右键则停止Timer事件End If End Sub Private Sub Timer1_Timer( ) Shape1．Move Shape1．Left＋stepx，Shapel．Top＋stepy’移动shapel End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
VB顺序结构与选择结构练习题
VB顺序结构与选择结构练习题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的命令按扭，然后编写如下事件过程。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
控制结构一、选择题1.VB 的3种结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构2.用If 语句表示分段函数3311()11x x f x x x ⎧-≥=⎨+<⎩ ，以下________表示方法不正确。
A) f=x^3+1If x>=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1D) If x<1 Then f=x^3+1 Else F=x^3-13.执行下面的程序段后显示结果是________。
Private Sub Form_Click() Dim mIf m Then Print m Else Print m+1 End SubA) 0 B) 1 C) ”” D) False4．设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为________。
A) 5 B) 6 C) 0 D) –15．下面程序段的运行结果是________。
cj=85If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";djA) dj=B B) dj=C C) dj=D D) dj=E6．下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**37．设X=2.0，y=8.0，z=6.0，L=True ，则下列Visual Basic 表达式中值为True 的是________。
A) X+Z>Y AND L B) NOT(Y<Z+X)<>NOT L C) NOT L OR (L=Y+X=Z)D) Y+X>=Z+X AND (L AND FALSE)8．要判断”月收入在2000元以上（含2000元）且5000元以下（不含5000元）”的职工，应使用的逻辑表达式是________。
A) M>=2000 AND M<=5000 B) M>=2000 OR M<=5000 C) M>=2000 AND M<5000 D) M>=2000 OR M<50009．下列程序段的执行结果为________。
x=Int((69-60)*Rnd+60) Select Case x Case Is>90Print "优秀" Case 80 To 89 Print "良好" Case 60 To 79 Print "合格" Case ElsePrint "不合格" End SelectA) 优秀 B) 良好 C) 合格 D) 不合格 10．在窗体上画一个命令按钮，名称为Command1。
然后编写如下程序：运行结果________。
Private Sub Command1_Click() For I=1 To 4 For J=0 To IPrint Chr(65+I); Next J Print Next I End Sub单击命令按钮后，运行结果________。
A) BB B) ACCC BBDDDD CCCEEEEE DDDDC) B D) AACC BBBDDD CCCCEEEE DDDDD11．在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是________。
A) 2 B) 3 C) 4 D) 512．在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是________。
A) 7 B) 15 C) 157 D) 538 13．阅读下面的程序段：For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后，a的值为________。
A) 3 B) 9 C) 14 D) 2114．在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load()Text1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是________ 。
A)在文本框Text1中输出55B)在文本框Text1中输出0C) 出错D) 在文本框Text1中输出不定值15．有如下程序：a=10b=4For j=1 To 20 Step -2a=a+5b=b+4Next jPrint a;b运行后，输出的结果是________。
A) 10 4 B) 60 24 C) 110 44 D) 554016．有如下程序：d$=""a$="abcde"For i=Len(a) To 1 Step -1d=d+Mid(a,i,1)Next iPrint d$运行后，输出的结果是________。
A) abcde B) edcba C) acebd D) ecadb17．在Command1_Click事件程序的功能是：按顺序读入10名学生4门课程的成绩。
计算出每位学生的平均分并输出，程序如下：Dim n As Integer,k As IntegerDim score As Single,sun As Single,ave As Singlesum=0#For n=1 To 10For k=1 To 4score=InputBox("请输入一门课的成绩")sum=sum+scoreNext kave=sum/4print"第";n;"个人的平均成绩为：";aveNext n上述程序运行后结果不正确，调试中发现有一条语句出现在程序中的位置不正确。
这条语句是________。
A) sum=0# B) sum=sum+scoreC) ave=sum/4 D) print"第";n;"人的均分：";ave18．下列程序的输出结果是________。
Dim y As Integery=10While y<>0y=y-1WendPrint "y=" ; yA) y=0 B) y=1 C) y=随机值 D) y=-1 19．以下程序的输出结果是________。
Dim m As Integerm=1While m<=3m=m+1Print m;WendA) 2 B) 2 3 C) 2 3 4 D) 2 3 4 5 20．下面的程序运行结果是________。
Private Sub Form_Click()m=0Do Until 0m=m+1If m>10 Then Exit DoLoopPrint mEnd SubA) 0 B) 10 C) 11 D) 出错21．下面程序运行语句Print m执行的次数是________。
Private Sub Form_Click()Dim m As Integer,n As Integerm=0Dom=m+1For n=10 To 1 Step -3m=m+nPrint mNext nLoop While m<50End SubA) 4 B) 8 C) 12 D) 1622．在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是________。
A) 15和1 B) 27和3 C) 195和3 D) 600和423．在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。
A) 1和0 B) 2和72 C) 3和50 D) 4和16824．在窗体上画一个命令按钮，然后编写如下事件过程：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程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为________。