VB程序设计的常用算法填空题

第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。

VB程序设计教程课后参考答案习题一一、填空题1．对象、事件驱动2．窗体、控件3．属性4．属性窗口、编程设置5．事件过程6．对象名、下划线、事件名7．Form_click8．Print form1.print “我的VB”9．主窗口、属性、工具箱、代码、窗体、工程资源管理10．菜单、快捷键二、选择题1．C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题（略）习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1．Controlbox、Maxbutton、Minbutton2．Multiline TRUE3．******4．单文档界面（SDI）多文档界面（MDI）5．窗体显示6．Passwordchar7．_change()三、编程题（略）习题三一、基础知识题（略）二、填空题1．整型、长整型、单精度、双精度2．(x mod 10)*10+x\103．Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4．(a+b)/(1/(c+5)-c*d/2)5．X mod 5=0 or x mod 9=06．False7．-4、3、－3、3、－4、48．CDEF10．TRUE11．变量、属性12．‘_ :13．(略)14．“”＃15．Public、通用/模块、Dim、static、private16．+ 、&、+17．Now() 、time()、日期18．Inputbox()、字符串、val()19．Msgbox()三、选择题1．B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是：" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是：", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉，不能构成合法的方程！"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是：" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是："Print "第一个根是：", x1Print "第二个根是：", x2Else2Print "该方程有两个虚根："Print "第一个虚根是：" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是：" & -b / (2 * a) & "－" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是：" & sElsePrint "很抱歉，不能构成合法的△三角形！"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是：" & jiPrint "兔的个数是：" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是：" & aveEnd Sub9. ‘同学们，这道题方法很多，主要考察你对选择结构的理解，我给出其中一种方法。

程序填空〖第1题〗『程序填空』(1分)(题号:59) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------' 功能：输入一个数,若大于0,则显示"+"；若小于0，' 则显示 "-"；若等于"0",则显示"零"。

'-------------------------------------------------------Private Sub Command1_Click( )x = Val(Text1.Text)Select Case x'**********SPACE**********Case is > 0Label1.Caption = "+"Case Is < 0'**********SPACE**********Label1.Caption = "-"'**********SPACE**********Case is =Label1.Caption = "零"End SelectEnd Sub答案：1). Case Is > 02). Label1.Caption = "-"3). Case 0 或 Case Else 或 Case Is = 0〖第2题〗『程序填空』(1分)(题号:60) '-------------------------------------------------------'【程序填空】'-------------------------------------------------------'功能：输入任何一个英文字母x,' 若x的值为"a","c","d-f" ,则显示x的大写字母；' 若x的值为"m","o","p-z",则显示x的小写字母；' 若x的值为其它的值,则显示xa（如输入的X的值是g，则显示ga）。

二、填空题：（每空1分，共20分） 程序代码基础部分：1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。

全局变量、模块变量（或窗体级变量）、局部变量（过程级变量）2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。

Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。

Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。

x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。

x>=1 and x<126．数学表达式（2 π r+e -5）lnx 对应的Visual Basic 表达式是：__ 。

（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式c)-b)(s -a)(s -s(s 对应的VisualBasic 表达式是： __ 。

sqr （s*（s-a ）*（s-b ）*（s-c ）） 8．数学表达式ba x e r++-ln )2(8π对应的Visual Basic 表达式是： 。

（2*3.14*r+exp(-8)）*log(x)/(a+b)9．数学表达式5+(a+b)2对应的Visual Basic 表达式是 。

5+(a+b)^210．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。

2*a*（7+b ）11．数学表达式C ×A B对应的Visual Basic 表达式是 。

C*A^B12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。

│ab-c 3│313．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。

(1) 算法的复杂度主要包括时间复杂度和空间复杂度。

(2) 数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构#物理结构(3) 若按功能划分，软件测试的方法通常分为白盒测试方法和黑盒测试方法。

(4) 如果一个工人可管理多个设施，而一个设施只被一个工人管理，则实体"工人"与实体"设备"之间存在一对多或1：N或1:n联系。

(5) 关系数据库管理系统能实现的专门关系运算包括选择、连接和投影。

(6) 在先左后右的原则下，根据访问根结点的次序，二叉树的遍历可以分为三种：前序遍历、中序遍历和后序遍历。

(7) 结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、模块化和限制使用goto语句。

(8) 软件的调试方法主要有：强行排错法、回溯法和原因排除法。

(9) 数据库系统的三级模式分别为概念#概念级模式、内部级模式与外部级模式。

(10) 数据字典是各类数据描述的集合，它通常包括5个部分，即数据项、数据结构、数据流、数据存储和处理过程。

(11) 设一棵完全二叉树共有500个结点，则在该二叉树中有250个叶子结点。

(12) 在最坏情况下，冒泡排序的时间复杂度为n(n-1)/2。

(13) 面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个实体。

(14) 软件的需求分析阶段的工作，可以概括为四个方面：需求获取、需求分析、编写需求规格说明书和需求评审。

(15) 数据库设计是数据库应用的核心。

(16) 数据结构包括数据的逻辑结构和数据的存储结构。

(17) 软件工程研究的内容主要包括：软件开发技术和软件工程管理。

(18) 与结构化需求分析方法相对应的是结构化设计方法。

(19) 关系模型的完整性规则是对关系的某种约束条件，包括实体完整性、参照完整性和自定义完整性。

(20) 数据模型按不同的应用层次分为三种类型，它们是概念数据模型、逻辑数据模型和物理数据模型。

+++第一套+++1、有如下Visual Basic程序段：a="Good"b="Bye"c=a+b该程序段运行后，变量c的值是____(1)____。

2、有如下Visual Basic程序段：x=3If x>5 Theny=x*xElsey=4*xEnd If该程序段运行后，变量y的值是____(1)____。

3、下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。

则程序中划线处的语句应更正为______(1)______。

Private Sub Command1_Click()Dim sum As Long,i As Integer,n As Integersum = 0n = Val(Text1.Text)For i = 1 To 2 * n - 1 Step 2sum = sum + 2Next iText2.Text=Str(sum)End Sub4、依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。

设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。

解决此问题的流程图如VB-1所示。

根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If (1) ThenLabel1.Caption = "你属于醉酒驾车!"ElseIf x >= 0.3 ThenLabel1.Caption = "你属于酒后驾车!"(2)Label1.Caption = "恭喜你没有违法!"End IfEnd IfEnd Sub程序中划线处(1)应填入程序中划线处(2)应填入图VB－11、有如下Visual Basic程序段：a=2b=3c=4c=b-a该程序段运行后,变量c的值为___(1)____。

《VB语言程序设计》习题2一、单项选择题1.在Visual Bsaic代码中，将多个语句合并写在一行上的并行符是（）。

A、撇号(')B、冒号(:)C、感叹号(!)D、星号（*）2.通过（）可以在设计时直观地调整窗体在屏幕上的位置。

A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口3.通过改变选项按钮(OptionButton)控件的（）属性值，可以改变按钮的选取状态。

A、ValueB、StyleC、AppearanceD、Caption4.为了清除列表框中的所有内容，应使用的方法是（）。

A、ClsB、ClearC、RemoveD、RemoveItem5.文本框能输入（）。

A、控制字符B、ASCII字符C、回车D、文本和数字6.下列控件中，没有Caption属性的是（）。

A、框架B、列表框C、复选框D、单选按钮7.文本框控件最多能处理（）字节。

A、32KB、64KC、128KD、16K8.以下能够触发文本框Change事件的操作是（）。

A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容9.要将一个组合框设置为简单组合框(Simple Combo)，则应将其Style属性设置为（）。

A、0B、1C、2D、310.要使标签所在处透明显示背景，应把BackStyle属性设置为（）。

A、0B、1C、TureD、False11.用（）属性可唯一标志控件阵列中的某一个控件。

A、NameB、IndexC、CaptionuD、TabIndex12.组合框控件是将（）组合成一个控件。

A、列表框控件和文本框控件B、标签控件和列表框控件C、标签控件和文本框控件D、复选框控件和选项按钮控件13.（）使图象(Image)控件中的图象自动适宜控件的大小。

A、将控件的AutoSize属性设为TrueB、将控件的AutoSize属性设为FalseC、将控件的Stretch属性设为TrueD、将控件的Stretch属性设为false14.如果要在命令按钮上显示图形文件，应设置命令按钮的（）。

第一套1.有如下程序段：x=5y=6p=Not(x+y=11)该程序段运行后，P的值是 (1) 。

2.有如下程序段：x=5y=10z=12if x+y<=z Or y+z<=x Or x+z<=y then a=" False" else a=" True"该程序段运行后，a 的值为(1) 。

3.有如下程序段：s=0for i=1 to 5s=s+i*inext i该程序段运行后，s的值为(1) 。

4.程序填空随机产生10个1～100之间的正整数，按从小到大的次序排序并输出。

为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计（流程图参见图12-3）。

图12-3sub command1_click()const n=10dim i,j,t as integerdim a(1 to 10) as integerfor i=1 to 10______(1)__________next iFor i = 1 To n - 1For j = i+1 To nIf ______(2)______ Thenk = a(i): a(i) = a(j): a(j) = kEnd IfNext jNext iFor i = 1 To nList1.AddItem Str(a(i))Next iEnd sub答案：1.False2.”True”3.554.a(i)=int(rnd()*100)+1 a(i)>a(j)第二套1．有如下程序段：x=5y=6t=xx=yy=t该程序段运行后，y的值为 (1) 。

2．有如下程序段：x=5y=-20if not x>0 then x=y-3 else y=x+3该程序段运行后，x 的值为 (1) 。

3．有如下程序段：e=0:f=1for i=1 to 3e=e+ff=f+enext i该程序段运行后，f的值为 (1) 。

一、填空题1、Visual Basic 对象可以分为两类，分别为 和 。

2、为了选择多个控件，可以按住 键，然后单击每个控件。

4、 浮点数由3部分组成，即符号、 和尾数。

5、下述语句段在运行时的显示结果是 。

Clsx=10.34 + 8 Print Len(x ）6、将代数式b a y x 22++转换成程序设计中的表达式为 . 7、 关系式x ≤—5或x ≥5所对应的布尔表达式是 。

9、下列程序的功能是：当x 〈50时，y=0.8×x ；当50≤x ≤100时，y=0.7×x ；当x 〉100时，没有意义。

请填空。

Private Sub Command1_Click （） Dim x As Singlex=InputBox("请输入x 的值！"） Case Is < 50 y=0。

8 * x Case 50 To 100 y=0。

7 * xPrint "输入的数据出界！” End Select Print x, y End Sub11、 以下程序段的作用是将26个小写字母逆序打印出来，请补充完整。

For i=122 To Print ； Next i12、在窗体上画一个名称为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 + x Loop Print a End Sub程序运行后，单击命令按钮，在对话框中分别输入5,4，8，5,8,-1,输出结果为 。

13、执行下面的程序段，x 的值为 。

二、填空题1.假设一个文本框的Name属性为Text1，为了在该文本框中显示“Hello”，所使用的语句为text1.text=”Hello”。

2.一个工程文件包括多种类型的文件，其中，扩展名为_.VBP__文件表示工程文件。

3.扩展名为_.frm_____的文件表示窗体文件；4.扩展名为.Bas的文件表示标准模块文件；5．VB提供了三种控件，即___标准___、ActiveX控件和可插入对象。

6．VB应用程序主要由窗体模块、__标准___模块和类模块组成。

7．假设某一过程如下：Private Sub D_Click()Form1.caption=”abc”End Sub则响应该过程的对象名是___D___。

8．代数式ab2÷(5c+d)的Visual Basic表达式是：A*b*b/(5*c+d)。

9. 单击命令按钮Command1时，要将焦点定位到文本框T1上，需要使用代码text1.setfocus 。

10．假设某一过程如下：Private Sub cmd1_Click()Form1.Caption=”VB示例”End Sub则响应该过程的对象名是_CMD1____事件名是__CLICK____。

11.VB是一种面向__对象_的可视化编程语言，它采用_事件驱动_的编程机制。

12．VB的对象主要分为__窗体____和__控件__两大类。

13．VB中，用来描述一个对象的状态或特征的量称之为对象的_属性。

14.要运行VisualBasic应用程序，可按__F5___快捷键。

15、文本框常用的获得焦点的方法是___ SetFocus方法___。

16、在窗体上打印"大家都来学用Visual Basic"，代码是__print "大家都来学用Visual Basic"____。

17、清除窗体或控件对象上的信息用__Cls__方法。

18、下面程序运行后，输出的结果是__24_。

程序填空课堂练习题在×××××××××SP ACE ××××××语句的下一行完成程序填空，首先将【？】删除。

然后填入正确答案。

答题结束后，必须在程序环境中做好保存、然后填入正确答案。

答题结束后，必须在程序环境中做好保存、1.由输入对话框输入n （n 必须为大于零且小于30的自然数），计算下列表达式的值，并在标签框lable1上显示。

Sum=1/2+1/6+Sum=1/2+1/6+……+1/(k*(k+1)) (k<=n) 请在【】处填入正确的内容请在【】处填入正确的内容Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer al(InputBox(N= V al(InputBox(““n=n=””,”请重新输入”)) Loop Sum=0 K=0 Do …*************SPACE********** K=【?】Sum= sum+1/(k*(k+1)) …***********SPACE********* Loop Until 【？】【？】【？】 Labell.Caption= “sum= + Str(sum) End Sub 2.由12个文本框代表12个位置。

程序为A-J 10 个字母分配十个位置，并显示座位分配。

在【】处填入正确内容在【】处填入正确内容Private Sub Form_Load() Dim k, h, p As Integer Dim t(12) As Sring Randomize …*******SPACE******* For k = 1 To 【？】【？】t(k) =”Emty Emty”” Next k …*******SPACE******* For 【？】= 65 To 74 Do While True P = Int(1+12*Rnd) …*******SPCA*********** If t(p)=【？】【？】 Then T(p)= Chr(h) Exit Do 3.'以下程序用于判断一个正整数（≥3）是否为素数。

第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中，优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用，要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件，共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 Form1窗体的标题栏显示“欢送使用 VB〞，以下语句正确的选项是 ( D )A〕 Form1.Caption= “欢送使用 VB〞〔B〕Form1.Caption= ˊ欢送使用 VBˊ〔 C〕 Form1.Caption= 欢送使用 VB〔D〕Form1.Caption=〞欢送使用VB〞7.VB 提供了结构化程序设计的 3 种根本结构，这 3 种根本结构是 ( D )〔 A〕递归结构，选择结构，循环结构〔B〕选择结构，过程结构，顺序结构（C〕过程结构，输入、输出结构，转向结构〔D〕选择结构，循环结构，顺序结构8. 给变量赋值 a=123+MID(“123456〞 ,3,2) ，a 变量中的值是 ( D )〔 A〕“ 12334〞〔B〕123〔C〕12334〔D〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 If sex= “男〞 And age＜40 And (duty= “教授〞 Or duty= “副教授〞 ) Then n=n+1〔 C〕 If sex= “男〞 And age＜40 And Right(duty,2)=“教授〞Then n=n+1〔 D〕 If sex=“男〞 And age＜ 40 And duty= “教授〞 And duty= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容，可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句，正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(" 输入： " ， " 输入整数 ")MsgBox"输入的数据是：〞，，〞输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10，那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞（C〕信息框的标题是“输入数据： 10〞〔 D〕信息框中显示的是“输入的数据是：〞二、填空题〔每题 2 分，共 20 分〕1、当进入 VB集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。

V B填空题(共11页) -本页仅作为预览文档封面，使用时请删除本页-填空题一（题数：2道，共：10分，得分：分）1、(选修)下面程序代码结构包含了循环结构和_______结构，程序最终结果是s等于_______，t等于______。

PrivateSubCommand1_Click()Dim t,s As Integert=0s=0Do Until t>10If t Mod 3=0Thens=s+tEnd Ift=t+2LoopPrint s,tEnd Sub系统答案：选择，6，12//三种程序结构：顺序结构、选择结构、循环结构2、(选修)数学表达式转换为VB表达式为“_____(a*b)/(6*_____+_____(a-b))”。

系统答案：sqr，a*a$%$a^2，abs填空题二（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序：Private Sub form_load()n=InputBox("请输入一个正整数：","输入")s=1For i=1To ns=s*iNext iMsgBox n+"!"+"="+Str(s),0,"阶乘计算"End Sub当n=4时，程序运行后输出的结果是___________________。

系统答案：24$%$4!=24//str()函数将数值型转换为字符串型，+号此处表示字符串的连接，所以需要数据类型转换。

2、(选修)下图是计算“0到100之间偶数之和”的算法流程图，SUM用于累加求和，请将其补充完整：注：表达式中多余的空格不要保留，例如a加b等于c应写成“a+b=c”，而不要写成“a+b=c”的形式，但形如“a or b”表达式中的空格要保留。

系统答案：SUM=SUM+i$%$SUM=i+SUM，i=i+2$%$i=2+i填空题三（题数：2道，共：10分，得分：分）1、(选修)有如下VB程序，功能是用递归法求斐波那契数列1，1，2，3，5，8，13，…第10项的值。

《VB》经典填空题1、可以通过菜单中的命令退出Visual Basic,也可用快捷键。

2、快捷键CTRL+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的按钮。

3、工程文件的扩展名为，窗体文件的扩展名为。

4、属性窗口分为4个部分，这4个部分分别是、、、。

5、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。

6、为了选择多个控件，可以按住键，然后单击每个控件。

7、在用Visual Basic 开发应用程序时，一般需要、、 3步。

8、在Visual Basic 中，字符串常量要用括起来，日期/时间型常量要用括起来。

9、为了使文本框同时具有水平和垂直滚动条，应先把属性设置为True,然后再把属性设置为3。

10、为了使标签覆盖背景，应把属性设置为1。

11、为了使标签中的内容居中显示,应把属性设置为2。

12、若要把C盘根目录下的图形文件ab.jpg装入图片框Picture1中，应使用的语句是：13、属性决定了标签内显示的内容。

14、假定在图片框Picture1中装入了一个图形文件，为了清除该图形（注意：清除图形，而不是删除图片框），应使用的语句是：15、当拖动滚动条中的滚动块时，将触发滚动条的事件。

16、为了使标签能自动调整大小以显示全部文本内容，应把标签的属性设置为True17、为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的属性设置为18、窗体、图片框或图像框中的图形通过对象的属性设置。

19、计时器事件之间的间隔通过属性设置。

20、有时候需要暂时关闭计时器，可以通过设置属性来实现。

21、可以同时删除字符串前导和尾随空格的函数是。

22、当某一按钮的属性设置为False 时，该按钮不可见。

23、属性用于设置或返回文本框中的文本。

24、要使文本框中的文本以多行显示，应将其属性设置为true.25、若要使文本框具有水平滚动条，应将其属性的值设为1。

26、要使标签透明，可将其backstyle属性的值设为27、滚动条的属性表示滚动框在滚动条中的当前位置。

VB 程序设计的常用算法例:用随机函数产生 100个 [0, 99]范围内的随机整数,统计个位上的数字分别为1, 2, 3, 4, 5, 6, 7, 8, 9, 0的数的个数并打印出来。

将程序编写在一个 GetTJput 过程中,代码如下:Public Sub GetTJput(Dim a(1 To 100 As IntegerDim x(1 To 10 As IntegerDim i As Integer, p As Integer' 产生 100个 [0, 99]范围内的随机整数,每行 10个打印出来If a(i < 10 ThenForm1.Print Space(2; a(i;ElseForm1.Print Space(1; a(i;End IfThenNext i' 统计个位上的数字分别为 1, 2, 3, 4, 5, 6, 7, 8, 9, 0的数的个数,并将统计结果保存在数组 x(1,x(2,...,x(10中,将统计结果打印出来For i = 1 To 100p = a(i Mod 10 ' 求个位上的数字If p = 0 Then p = 10Next iForm1.Print "统计结果 "For i = 1 To 10p = iIf i = 10 Then p = 0Form1.Print "个位数为 " + Str(p + "共 " + Str(x(i + "个 " Next iEnd Sub二、求两个整数的最大公约数、最小公倍数m=inputBox("m="n=inputBox("n="nm=n*mr=m mod nDo Whilem=nn=rLoopPrint "最大公约数Print "最小公倍数三、判断素数m =val( InputBox("请输入一个数 "For i=2 To int(sqr(mIf m Mod i = 0 Then Exit ForNext iThenPrint "该数是素数 "ElsePrint "该数不是素数 "End If将其写成一函数 , 若为素数返回 True ,不是则返回 False Private Function Prime( m as Integer As BooleanDim i%Prime=TrueFor i=2 ToIf m Mod i = 0 Then : Exit For Next iEnd Function四、排序问题1.选择法排序(升序程序代码如下:For i = 1 To n - 1If a(i > a(j Thentemp = a(ia(i = a(ja(j = tempNext jNext I2.冒泡法排序(升序程序段如下If Thentemp=a(j:a(j=a(j+1:a(j+1=tempEnd ifNext jNext i3.合并法排序(将两个有序数组 A 、 B 合并成另一个有序的数组 C ,升序基本思想:1先在 A 、 B 数组中各取第一个元素进行比较,将小的元素放入 C 数组;2 取小的元素所在数组的下一个元素与另一数组中上次比较后较大的元素比较, 重复上述比较过程,直到某个数组被先排完;3将另一个数组剩余元素抄入 C 数组,合并排序完成。