下载文档原格式
31、以下所列的过程首部的定义中，正确的定义是( C )。
（1分）A、V oid play(V ar a:Integer,V ar b:Integer)B、Sub play(Int a,b)C、V oid play(Int a,Int b)D、Sub play(a As Integer,b As Integer)31、下面有关过程定义的语句中，正确的语句是( C )。
（1分）A、Function f1(f1)B、Sub f1(ByV al a())C、Function f1(ByV al x)D、Sub f1(n) As Integer20、阅读如下程序， a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( B )。
（1分）A、Sub plus(sum, a , b ): sum = a + b: End SubB、Sub plus(ByV al sum , a , b ): sum = a + b: End SubC、Sub plus(sum , ByV al a, ByV al b ): sum = a + b: End SubD、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub34、下列Pro函数过程的定义语句，错误的定义语句是( B )。
（1分）A、Static Function Pro(a)B、Private Public Pro(a) As IntegerC、Private Function Pro(a As String)D、Function Pro(a As Integer) As Integer20、有如下两个过程S1和S2：Sub S1(ByV al x , ByV al y ) ：t = x: x = y: y = t：End Sub：Sub S2(x, y) ：t = x: x = y: y = t：End Sub, 下列关于S1和S2的说法，正确的是( A)。
vb6.0期末考试试题及答案一、选择题（每题2分，共20分）1. 在VB6.0中，以下哪个关键字用于声明变量？A. DimB. DeclareC. SubD. Function答案：A2. VB6.0中，哪个函数用于计算一个数的绝对值？A. AbsB. SgnC. RoundD. Int答案：A3. VB6.0中，以下哪个控件用于显示文本信息？A. TextBoxB. LabelC. ComboBoxD. ListBox答案：B4. 在VB6.0中，以下哪个事件用于响应窗体的关闭？A. Form_LoadB. Form_UnloadC. Form_ClickD. Form_Change答案：B5. VB6.0中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. MultiLineC. BackColorD. Enabled答案：A6. VB6.0中，以下哪个方法用于打开一个文件？A. OpenB. CloseC. PrintD. Write答案：A7. VB6.0中，以下哪个关键字用于创建一个子程序？A. FunctionB. SubC. PropertyD. Class答案：B8. VB6.0中，以下哪个控件用于创建一个下拉列表？A. ComboBoxB. ListBoxC. CheckBoxD. RadioButton答案：A9. 在VB6.0中，以下哪个属性用于设置窗体的标题？A. NameB. TextC. CaptionD. Title答案：C10. VB6.0中，以下哪个关键字用于退出当前的子程序？A. ExitB. EndC. ReturnD. Stop答案：A二、填空题（每空1分，共10分）1. 在VB6.0中，使用________关键字可以声明一个数组。
答案：Dim2. VB6.0中，使用________函数可以将字符串转换为大写。
答案：UCase3. 当用户点击按钮时，会触发________事件。
vb期末试题及答案一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. SetC. CallD. Sub答案：A2. 下列哪个选项不是VB中的控件？A. TextBoxB. LabelC. ButtonD. Excel答案：D3. VB中，用于执行循环操作的关键字是：A. ForB. IfC. ElseD. While答案：A4. VB中，用于打开文件的函数是：A. OpenB. CloseC. PrintD. Write答案：A5. VB中，用于定义过程的关键字是：A. FunctionB. SubC. DimD. Const答案：B6. VB中，用于定义函数的关键字是：A. FunctionB. SubC. DimD. Const答案：A7. VB中，用于定义常量的关键字是：A. DimB. ConstC. FunctionD. Sub答案：B8. VB中，用于定义数组的关键字是：A. DimB. FunctionC. ConstD. Sub答案：A9. VB中，用于判断条件的关键字是：A. IfB. ForC. WhileD. Dim答案：A10. VB中，用于退出循环的关键字是：A. ExitB. EndC. StopD. Loop答案：A二、填空题（每题2分，共20分）1. VB中，声明一个整型变量a，可以使用关键字________。
答案：Dim2. VB中，声明一个字符串变量str，可以使用关键字________。
答案：Dim3. VB中，声明一个布尔型变量flag，可以使用关键字________。
答案：Dim4. VB中，声明一个数组变量arr，可以使用关键字________。
答案：Dim5. VB中，声明一个常量PI，可以使用关键字________。
答案：Const6. VB中，声明一个函数sum，可以使用关键字________。
答案：Function7. VB中，声明一个过程printData，可以使用关键字________。
如果要将窗体中的某个命令按钮设置成运行时无法显示，应该设置它的属性。
类是对象的抽象，对象则是类的具体化。
在窗体上建立的一个控件称为。
能够获得一个文本框中被选取文本的内容的属性是。
以下属于Visual Basic合法的数组元素是。
设置命令按钮的属性时，只有将属性设置为1，Picture属性才有效，否则无效。
VB有三种工作模式，它们分别是___________模式。
下列函数中，________函数返回的值是数值型的。
类是对象的抽象，对象则是类的具体化。
在窗体上建立的一个控件称为。
以下控件中没有Print方法是( )以下叙述中错误的是 ( )A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）保存Visual Basic程序时，应分别保存窗体文件及工程文件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发下列数组声明语句中的数组a包含了_________个数组元素。
( )Dim a(4,-1 to 1,0 to 3)复选框的Value属性为0时，表示( ) 复选框的Value属性为2时，表示( )主过程通过参数传递将一个参数传递给子过程A，并能够通过参数传递返回一个结果，下列子过程的正确定义以下不属于Visual Basic系统的文件类型是。
A）.frm B）.bat C）.vbg D）.vbp按变量名的定义规则，是合法定义的变量名。
结构化程序由三种基本结构组成，下面属于三种基本结构之一的是_______执行以下程序段后，变量c$的值为________。
a$="Visual Basic Programming"b$="Quick"c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,12)在一行中要写多条语句时,每个语句之间用_____符号分隔以下关于数组的说法，不正确的是__________。
VB期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假设以下程序段，执行后k的值为：（a）forI=1到3k=I+2nextia、 5b.4c.3d.62。
以下控件可以用作容器控件（b）a．image图像框控件b．picturebox图片框控件c．textbox文本框控件d．listbox 列表框控件3.关于image控件和picturebox控件的说明，其中错误的是（b）a．image 控件和picturebox控件都有picture属性b．image控件和picturebox控件都支持print 方法c、图像控件和pieturebox控件都可以使用loadpicture函数将图形文件加载到控件中。
d.image控件和PictureBox控件都可以在属性窗口中加载图形文件，并且都可以在操作期间加载图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(timer事件)，则应将其interval 属性值设置为(d)a、 5b.500c.10d.50005。
显示表单的方式是（b）。
a．visibleb．showc．newd．open6.msgbox函数中有四个参数，其中必须指定的参数是（c）A.指定显示按钮的数量B.对话框的标题c.提示信息D.所有参数都是可选的7.如果在代码窗口中编写：msgbox （“AAAA”，vbokonly，“BBBBBB”）语句，生成的信息框的标题是（c）a．aaaab．空c．bbbbd．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（d）方法。
a．gotfocusb．lostfocusc．keypressd．setfocus9.为了把焦点移到某个指定的控件，所使用的方法是（a）a．setfoeusb．visiblec．refreshd．getfocus10.语句if3*4>=10thena=1elsea=2endif执行后，a的值为（d）。
一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是（C）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个Visual Basic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（A）。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、Visual Basic 6.0集成环境的主窗口中不包括（C）。
A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。
A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。
《vb程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型。
8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_________。
表达式c>a And Not b<c的值是___________。
vb程序设计期末考试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 如果变量x的值是5，那么表达式x + 3的值是多少？A. 2B. 8C. 3D. 5答案：B3. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. IfD. For答案：B4. 下列哪个选项是VB中的保留字？A. MyB. DimC. EndD. Print答案：C5. 在VB中，哪个函数用于计算一个数的平方根？A. SqrB. AbsC. RoundD. Int答案：A6. 在VB中，以下哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Dim Sub Button1_Click()D. Sub Button1_Click() As Integer答案：A7. 在VB中，以下哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B8. 在VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Case...SelectC. For...NextD. While...Do答案：A9. 在VB中，以下哪个选项是正确的循环结构？A. For Each...NextB. Do While...LoopC. Both A and BD. None of the above答案：C10. 在VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用关键字________。
VB期末考试试题B卷一、填空题1.ＶＢ中若要产生一消息框，可用__（1）__函数来实现。
2．常量是指在程序运行过程中，其值不能改变（2）的量。
3．整数类型数据分别包括整型和（3）数据。
４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_(单击“运行”菜单下的启动4)__；二是_(5) 单击工具栏上的启动按钮_；三是_(6) 按Ｆ5键。
５、在ＶＢ中若要让某对对象获取焦点，则可通过__ Setfocus (7)_方法来实现。
6．列表框（ListBox控件）显示项目列表(8) ，用户可从中选择一个或多个项目。
7．框架（Frame控件）可以用来(9) 对其它控件进行分组，以便于用户识别，主要用于为单选按钮分组。
８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_(10)_ 属性_。
９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_取(&C) _(11)___，并且设置其__(12)__属性值为__（13）__。
10、在过程内用_（14）__声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。
11、在模块文件中的声明部分用Global或__（15）__关键字声明的变量为全局变量。
12、在模块文件中的声明部分用__（16）__或__（17）__定义的变量为模块级变量。
13．计时器控件通过定期激活Timer事件，使得Timer控件（18）就执行一次Timer事件中的代码。
14．要获得滚动条的当前位置，可以访问通过（19）属性来实现。
15．关闭正在运行的VB窗口将自动触发的事件是（20）。
二、选择题1．工程文件的扩展名是（ B ）。
A．vbg B.vbp C.vbw D.vbl2.在以下窗体中没有采用的控件是（）。
VB 程序设计期末复习题一、填空题1.在VB 6.0中,变量名最长可达个字符.答案：255解析：规定2.男性(sex)，年龄(age)在18—20岁之间，身高(size)在 1.65米以上，列出逻辑表达式。
答案：sex and age>=18 and age<=20 and size>=1.65解析：规定3.要使一个按钮设为默认按钮,应把此按钮的属性的值设为True.答案：Default解析：规定4.一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示文件. 答案：工程解析：规定5.VB表达式9^2 MOD 45 \2 *3 的值 .答案：4解析：表达式的计算，优先级6.如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为 .答案：退出(&X)解析：规定7.拖动滚动条中的滚动块将会产生Scroll和事件.答案：Change解析：规定8.在利用Visual Basic设计应用程序时，一般会遇到三类错误：语法错误、执行错误和。
答案：逻辑错误解析：规定9.Option Base 1的作用是确定数组的下界为 .答案：1解析：规定10.在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的属性的值设置为True.答案：MultiLine解析：规定11.表达式81\7 MOD 2^2 的值是 .答案：3解析：规定12.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：规定13.把条件1<=X<12写成VB关系表达式为 .答案： x>=1 and x<12 或 x<12 and x>=1解析：规定15.如果要在单击按钮时执行一段代码,则应将这段代码写在事件过程中.答案：click解析：规定16.写出清除标签Label1的显示信息的语句为 .答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""解析：规定17.如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义 .答案： public mystring as string*15解析：规定18.将焦点定位于命令按钮Command1之上的语句为 .答案：Command1.SetFocus 或 SetFocus解析：规定19.滚动条控件有水平滚动条和滚动条.答案：1). 垂直解析：规定20.把整型数1赋给一个逻辑型变量,则逻辑变量的值为 .答案：True解析：规定21.写出清除标签Label1的显示信息的语句为 .答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""解析：规定22.设置计时器对象触发事件的时间间隔用属性.答案：interval解析：规定23.VB中,变量的声明可分为两种方法: 数组和动态数组.答案：静态解析：规定24.大于X 的最小整数的VB表示形式为 .答案：Int(x)+1 或 Int(x) + 1解析：规定25.文本框中所显示的内容是它的属性的值.答案：Text解析：规定26.设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为 . 答案：False解析：规定27.设置计时器控件只能触发事件.答案：timer解析：规定28.文件按照存取方式及其组成结构可以分为顺序文件和 .答案：随机文件解析：规定28.声明单精度常量g(重力加速度)代表9.8可写成 .答案：const g=9.8 或 const g as single =9.8解析：规定29.在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和 .答案：Integer解析：规定30.如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有个元素.答案：21解析：规定31.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：初值超过终值32.表达式 1 and 0的值 .答案：False解析：规定33.一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式 .答案：a<>0 and b^2-4*a*c>=0解析：逻辑表达式的书写34.变量min@表示类型的变量.答案：货币型解析：数据类型35.想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上 .答案：&解析：规定二、程序填空1.以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。
2、在VB中，最主要的两种对象是（3）和（4）3、工程是构成应用程序文件的4、方法是VB提供的一种（6）5、浮点类型数据包括单精度型和（5）。
，用来完成一定的操作。
（7）_数据。
(6)1、VB程序设计的主要特点是（1）6、事件是窗体或控件对象识别的—（8）________ 。
7、可用窗体的—（9）_ 方法在窗体中显示文字。
8、复选框控件Value属性指示复选框处于 ______ （ 10）_或禁止状态（暗淡的）中的某一种。
9、在VB中，修改窗体的（11 ）和（12）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。
12、设 x = 34.58，语句 Print Format（x, “000的输出结果是（15）。
13、在VB中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。
14、设置窗体的（19）属性，可在窗体上显示图片。
15、程序运行工程中，清除 MP图片框中的图片应使用语句（20）。
二、选择题1、菜单控件只包括一个事件，即（1 ），当用鼠标单击或键盘选中后按回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件（如图所示）的Max属性所设置的是（2）。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、S QL语句Select * Form student 中的*表示(3)A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是(4) 。
A、E nabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。
A、CaptionB、NameC、TextD、Label6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是A、CaptionB、NameC、TextD、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（ 7）。
A、在标题项中输入&，然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示(8) 。
Private Sub Command1_Click()Print "VB";Print "Hello!";Print "VB"End SubA、 VBHello!VBB、 VB Hello!VBVBD 、 VBHello! VBHello!The answer is 20/4-2 B 、The answer is 3 The answer is "20/4-2" D 、非法语句 10、下列哪个控件是容器控件(10)B 、 PictureA 、 Image11、若要将窗体从内存中卸载岀去, A.Show B.HideC 、ComboBoxD 、FileListBox其实现的方法是C.Load (11)D.UnLoad12、以下选项中，不是 Visual Basic 控件的是A.窗体B.定时器C.单选框（12） 。
D.命令按钮13、双击窗体中的对象后， Visual Basic 将显示的窗口是 （13） A.代码窗口B •工具箱C •项目（工程）窗口14、可决定窗体的左上角是否有控制菜单的属性是 D .属性窗口(14)A.ControlBoxB.MinButtonC. MaxButtonD. BorderStyl e15、设有如下语句:Strl = InputBox 从键盘上输人字符 （"输人"，""，"练习"） 示例"后，Strl 的值是 （15） A .输入”16、窗体Form1的Name 属性是Frm1,它的单击事件过程名是C .练习”D .示例”(16)A. Form1 ClickB.Form ClickC. Frm1 ClickD. Me Click17、窗体的hide 属性的含义是 A.隐藏B.展现(17) C.装入D.卸载 18、 若要设置定时器控件的定时时间, A . Enabled B . Value需设置的属性是Interval (18) Text19、 能够改变复选框中背景颜色的属性是(19) 20、 A . ValueB . FontColorC . BackColorD . Font窗体能响应的事件是(20) B . LoadC . Drive 乜错误的打X 。
A . ActiveForm三、判断题（判断下列正确与否，正确的打 三种方式的组合框都允许用户输入哪些不在列表框中的选项。
D . Change)VB语句 Print "The answer is:";20/4-2 的结果为 (9)图象框中的Stretch 属性为true 时，其作用是图形自动调整大小以适应图象控件。
在菜单编辑器中使用 索引”时，可有一组菜单项具有相同的名字”。
通过改变属性窗口中的 Name 属性，来改变窗体的标题。
创建VB 应用程序的三个主要步骤是：（1）创建应用程序界面（2）设置控件（3）编写代码。
变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
已知 P = MsgBox （ “ Howareyou?"，VbYesNo+VbQuestion ， “ Hello!，”变量 P 是 Integer 数据类型。
工程文件的扩展名是.vbg 。
VB 允许设计和使用用户自己设计的控件。
10、 OptionButton 控件没有 DblCliek 事件。
11、 同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)。
16、如果列表框的 ListConut的属性为10，则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$ (10 )，则数组D中各元素的值为空。
19、如果在一行中输入多条语句，各语句之间用使用；分隔。
20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
四、读程序题，写岀程序运行结果1、Private Sub Form_Click()Static SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub运行程序，第一次单击窗体：第二次单击窗体：2、Private Sub Form_Click()Print "*"; Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub程序运行结果：五、编程题(一)窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip ( 20分之一像素)。
请填空：Private Sub Form_load()(1) =loadPicture( “ c: ball.ico ”)(2) .Interval=200End SubPrivate Sub Timer1_Timer() Staticx , y As Integer x=x+100y=y+100Picturel.MoveEnd Sub（二）有一个单击按钮过程，其（3）乍用是产生50 个60 - -100的随机数，统计其中被6整除余2的个数，并将这些数输岀。
请填空：Private Sub Command1_Click()Dim x As Integer, N%Dim Counter As Integer(1) TimerFor N=1 To 50X=Rnd()* (2)If (3) =2 ThenPrint xCounter= (4)(5)Next NPrint CounterEnd Sub《VB程序设计与应用》参考答案一、填空题1 2 3 4 5答案可视化设计事件驱动编程窗体（form）控件集合题号 6 7 8 9 10答案特殊子程序双精度动作Print 选中题号11 12 13 14 15答案高度(Height) 宽度(Width) 中央工程1 34.6题号16 17 18 19 20答案0 空False Picture Cls二、选择题1 2 3 4 5答案 C A B C A题号 6 7 8 9 10答案 D D A B B题号11 12 13 14 15答案 D A A A D题号16 17 18 19 20答案 C A C C B三、判断题1 2 3 4 5 6 7 89 10答案X X X V X V V V V X11 12 13 14 15 16 17 1819 20答案V X V V X X V X X V四、程序阅读题: 一）(10 分)55 2、 110 2 五、编程题 一） (10 分)5 15 (20 分) 30 75 16 32 801、Picture1.Picture Timer1 x ,y（二）1、 Randomize 2、 Rnd()*41+60 3、 x Mod 64、 Counter + 1 一、单项选择题 5 (共 10 分) End If1 •在代码中引用一个控件时，应使用控件的（ B ）属性。
B. Name A . Caption2 .设变量 x = 4 , y = -1 , C • Text a = 7 , b = -8,下面表达式 D. Index （A ）的值为假” A . x+a <= b-y B. x > 0 AND y < 0 C . a = b OR x>y x+y >a+b AND NOT (y < b) 3. 表达式 Int(Rnd*71)+10 A. (10 , 80) B .4. 函数Sgn(3.1416)的返回值是(C 产生的随机整数范围是（ (10 , 81) ）。
