vb试卷重修班长沙理工考试

1、长沙理工大学试卷试卷B拟题教研室（或教师）签名教研室签名课程名称（含档次）VB 语言课程代号000011专业 非计算机专业 层次（本、专）本科方式（开、闭卷） 闭卷注意：请将写在最后一页的答题卡上！一、单项选择题（本题总分 55 分，其中 1-25 题每小题 2 分，26-30 题每小题 1 分）1、在 Visual Basic 中，窗体文件的扩展名为（）A）EXEB）BASC）FRMD）VBP2、表达式 2*42-2*6/3+32 的结果为（）A）34B）29C）30D）283、从键盘上输入两个字符串，分别保存到变量 Str1 和 Str2 中，确定第二个字符串在第一个字符串中起始位置的函数

2、是（）C）StringA）LeftB）MidD）Instr4、.通过改变单选按钮（Option Button）控件的（状态。）属性值，可以改变按钮的选取A)valueB)StyleC)AppearanceD)Caption5、对一个窗体对象，其最先发生的事件是（）D）UnLoadA）ClickB）DbClickC）Load6、以下能触本框 Change 事件的操作是（）A）文本框失去焦点 C）设置文本框的焦点B）文本框获得焦点 D）改变文本框的内容7、用（）属性可惟一标志控件阵列中的某一个控件。A) NameB) IndexC) CaptionD) TabIndex8、以下描述正确的是（）A)

3、B)C)D)过程的定义可以嵌套，但过程的调用不能嵌套过程的定义不可以嵌套，但过程的调用可以嵌套过程的定义和过程的调用均可以嵌套过程的定义和过程的调用均不能嵌套9、用 Dim AABB(-2 to 10, 4 to 8,1)的是一个（）维数组。A) 1B) 2C) 3D) 410、以下叙述中正确的是()A) 窗体的 Name 属性指定窗体的名称，用来标识一个窗体第 1 页（共 7 页）长沙理工大学试卷试卷B拟题教研室（或教师）签名教研室签名课程名称（含档次）VB 语言课程代号000011专业 非计算机专业层次（本、专）本科方式（开、闭卷）闭卷注意：请将写在最后一页的答题卡上！B)C)D)窗体的

4、Name 属性的值是显示在窗体标题栏中的文本可以在运行期间改变对象的 Name 属性的值对象的 Name 属性可以为空11、设 a= 8,则执行 x=IIF(a 10 ,-1,0)后，x 的值为（ ）A) 5B) 6C) 0D) -112、如何使图像（Image）控件中的图像自动适宜控件的大小?()A)B)C)D)将控件的 AutoSize 属性设为 True将控件的 AutoSize 属性设为 False将控件的 Stretch 属性设为 True 将控件的 Stretch 属性设为 False13、如果要在程序代码中为框动态加载和清除图像，可以利用（）函数。A) InputBoxB) In

5、pu tC) LoictureD) PaPicture14、函数过程（用 Function 定义）与子过程（用 Sub 定义）的最大区别是（）A)C)函数过程有返回值函数过程可以带参数B) 子过程有返回值D) 子过程可以带参数15、无法响应 Click 事件的控件是（）A）LabelB）TimerC）TextBoxD）DriveListBox16、描述、中有一个小于的逻辑表达式是（）。A）XZ And YZ C）XZ Xor YZB）XZ Or YZ D） XY3D）a=2:s=16400*a18、函数（Rnd*11）10 的值的范围是（）A） (0,10)B.）(10,10)C .）(10,

6、20)D.）(0,20)19、以下有关对象属性的说法中错误的是（） 。A）所有的对象都具有 Name（名称）属性第 2 页（共 7 页）长沙理工大学试卷试卷B拟题教研室（或教师）签名教研室签名课程名称（含档次）VB 语言课程代号000011专业 非计算机专业 层次（本、专）本科方式（开、闭卷）闭卷注意：请将写在最后一页的答题卡上！B）只能在执行时设置或改变的属性为执行时属性 C）对象的某些属性只能在设计时设定，不能使用代码改变 D）Enabled 属性值设为 False 的控件对象在窗体上将不可见20、控件上设置文字内容的属性是（）D）CaptionA）NameB）ValueC）Text21、

7、下面（）方法，可以将列表框 List1 中的所有项删除掉。A）List1.Text=B）AddItemC）RemoveItemD）Clear22、 以下语句中,不能正确执行的是（）A）If Option1.Value Then C）Check1.Value=0B）If Option1.Value=True Then D）Check1.Value=True23、在 VB 中，下列哪种控件可以包含其他控件（）A）GridB）TextBoxC）FrameD）CheckBox24、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是()A) AutosizeB) StretchC)

8、 AutoRedrawD) Appearance25、下列叙述中正确的是()A)B)C)在窗体的 Form_Load 事件过程中定义的变量是全局变量局部变量的作用域可以超出所定义的过程在某个 Sub 过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D) 在调用过程时，所有局部变量被系统初始化为 0 或空符串26、关于 MDI 窗体下列说法正确的是（ A）一个应用程序可以有多个 MDI 窗体 B）子窗体可以移动 MDI 窗体以外C）不可以在 MDI 窗体上放置按钮控件D）MDI 窗体的子窗体不可以拥有菜单）第 3 页（共 7 页）长沙理工大学试卷试卷B拟题教研室

9、（或教师）签名教研室签名课程名称（含档次）VB 语言课程代号000011专业 非计算机专业层次（本、专）本科方式（开、闭卷） 闭卷注意：请将写在最后一页的答题卡上！27、对正实数 X 的第四位小数四舍五入的 VB 表达式是（）。A）0.001* C）0.001*(x+0.005) (1000*x+5)B）0.001*(1000*x+0.5)D）0.001*(1000*(x+0.0005)28、在窗体上画一个命令按钮，名称为程：dl。单击命令按钮时，执行如下事件过Private Subd 1_C1ick()a$=software and hardware b$Right(a$,8) c$=Mid

10、(a$,1，8)Msgbox a$,b$,c$,1 End Sub则在弹出的信息框的标题栏中显示的信息是 ()A)software and hardwareB)softwareC)hardD)1、在窗体上画一个名称为mand1令按钮，然后编写如下事件过程：Private Sub x=0 n=InputBox( For i=1 to nFor j=1 to x=x+1Next j Next id1_Click()iPrxEnd Sub程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是 ()A) 3B) 4C) 5D) 630、以下有关过程的说法中错误的是（）。A）在 Sub 或 Fu

11、nction 过程中不能再定义其他 Sub 或 Function 过程 B）在调用过程时，与使用 ByRef 说明的形参对应的实参只能按地址传递方式结合 C）递归过程既可以是递归 Function 过程，也可以是递归 Sub 过程 D）在调用过程时，形参为数组的参数对应的实参只能是数组第 4 页（共 7 页）长沙理工大学试卷试卷B拟题教研室（或教师）签名教研室签名课程名称（含档次） VB 语言课程代号000011专业 非计算机专业层次（本、专）本科方式（开、闭卷） 闭卷注意：请将写在最后一页的答题卡上！二填空题(本题总分 30 分，每空 2 分)1. VB 中的对象分为 2 类，他们是 1和2

12、。2. format（2002-11-20，”dd-mm-yy”）的返回值是3。3. 组合框有 3 种不同的类型，这 3 种类型是下拉式列表框、简单组合框和4,分别通过把5属性设置为 2、1、0 来实现。4. 为了在按下 ENTER 键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是6。5.在执行 KeyPress 事件过程时，KeyASCII 是所按键的 7值。6.为了把焦点移到到某个指定的控件，所使用的方法是8。7.在 VB 中，设置或修改一个对象的属性的方法有两种，分别是 9 和10。8.假定有以下函数过程：Function Fun(S As Stri

13、ng) As String Dim s1 As StringFor i=1 To Len(S) s1UCase(Mid(S，i，1)+s1Next iFuns1 End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Subd1_Click()Dim Str1 As String，Str2 As String StrlInputbox(请输入一个字符串) Str2=Fun(Strl)PrStr2 End Sub程序运行后，单击命令按钮，如果在输入框中输入字符串abcdefg，则单击确定按钮后在窗体上的输出结果为11。9. 以下程序的功能是：生成 20 个 200

14、到 300 之间的随机整数，输出其中能被 5 整除第 5 页（共 7 页）长沙理工大学试卷试卷B拟题教研室（或教师）签名教研室签名课程名称（含档次） VB 语言课程代号000011专业 非计算机专业层次（本、专）本科方式（开、闭卷） 闭卷注意：请将写在最后一页的答题卡上！的数并求出它们的和。请填空。Private SubFor i1 To 20dl_C1ick()x(12)If 13 ThenPrx 14End If Next iPrSum;S End Sub12. 用随机函数产生一个两位的随机正整数的公式是15。三程序分析题（本题总分 5 分，其中第 1 小题 3 分，第 2 小题 2 分）

15、1. Private Sub Form_Click()Dim R%,d%,Str$ d=67DoR=d Mod 2d=d2Str =R & Str Loop Until d=0 Labell.Caption =StrEnd Sub程序运行时，单击一次窗体后，在名为 Labell 的框内将显示：2. 在窗体中添加一个命令按钮（其 Name 属性为d1），然后编写如下代码：Private Sub Dim a(10) As Dim p(3) As k = 1For I = 1 To 10 a(I) = INext Id1_Click() egereger第 6 页（共 7 页）长沙理工大学试卷试卷B

16、拟题教研室（或教师）签名教研室签名课程名称（含档次）VB 语言课程代号000011专业非计算机专业层次（本、专）本科方式（开、闭卷）闭卷注意：请将写在最后一页的答题卡上！For I = 1 To 3 p(I) = a(I * 1)Next IFor I = 1 To 3k = k + p(I) * 2 Next IPrkEnd Sub程序运行后，单击命令按钮，输出结果是。四编程题（本题总分 10 分，每小题 5 分）1输出 100-1000 之间能被 3 整除，但不能被 8 整除的数的个数及它们的和。2随机产生 10 个 10-100 之间的整数，输出其中的最小值。第 7 页（共 7 页）VB 语言（000011）答题卡专业：教学班号：学号：一、选择题（总分 55 分，1-25 每小题 2 分，26-30 每小题