山东交通学院计算机VB考试上机操作题10

试题十

━━━━━━━━━━━━━━━ 一、填空 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:51

在VB中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互. 答案： 1). 方法

第2题 （1.0分） 题号:44

一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件. 答案： 1). 工程

第3题 （1.0分） 题号:277

如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素. 答案： 1). 18

第4题 （1.0分） 题号:335

按照数据文件的存储方法的不同,文件可以分为三种不同的类型:顺序文件、【1】和二进制文件.

答案： 1). 随机文件

第5题 （1.0分） 题号:240

设X$ =\则\的值是【1】. 答案： 1). a3456

第6题 （1.0分） 题号:241

设x=2,y=4,a=4,b=6,表达式 (a>x Xor b

第7题 （1.0分） 题号:37

VisualBasic6.0用于开发【1】环境下的应用程序. 答案： 1). WINDOWS 第8题 （1.0分） 题号:58

在控件之中,【1】单独保存在.OCX文件中,在必要时可以加入到工具箱中. 答案： 1). ACTIVEX控件 第9题 （1.0分） 题号:232

表达式93\\7 MOD 2^3的值是【1】. 答案： 1). 5

第10题 （1.0分） 题号:319

Option Base 1的作用是确定数组的下界为【1】. 答案： 1). 1

━━━━━━━━━━━━━━━ 二、判断 共10题 （共计10分） ━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:271

当定时器控件的interval属性值设置为0时,会连续不断地激发Timer事件. 答案：N 第2题 （1.0分） 题号:361

只要用拖拽的方法,将工具箱中所需的控件拖到窗体上即可完成. 答案：N

1

第3题 （1.0分） 题号:281

滚动条控件不可作为用户输入数据的方法. 答案：Y 第4题 （1.0分） 题号:332

在MsgBox 函数中 prompt 参数是必须的. 答案：Y 第5题 （1.0分） 题号:256

TextBox与Label有许多共同特点,它们都能显示和输入文本. 答案：N 第6题 （1.0分） 题号:333

在Sub过程中,可以用Return语句退出Sub过程. 答案：Y 第7题 （1.0分） 题号:365

过程中的静态变量是局部变量,当过程再次被执行时,静态变量的初值是上一次过程调用后的值. 答案：Y 第8题 （1.0分） 题号:346

在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer,c as integer相同.

答案：Y

第9题 （1.0分） 题号:249

Function函数有参数传递,并且一定有返回值. 答案：N 第10题 （1.0分） 题号:351

在多文档应用中,每次只能有一个活动的子窗体可以进行输入/编辑. 答案：Y ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:301

假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE' B:BOOLVAR=.TRUE. C:BOOLVAR=#TRUE# D:BOOLVAR=3<4 答案：D

第2题 （1.0分） 题号:221

以下关于vb 语言的说法中,正确的是().

A:vb 是一种面向过程的语言 B:vb 是一种面向对象语言 C:vb是一种低级语言 D:vb 是一种机器语言 答案：B

第3题 （1.0分） 题号:274

语句PRINT\的输出结果为(). A:INT(-13.2)=-13.2 B:INT(-13.2)=13.2 C:INT(-13.2)=-13 D:INT(-13.2)=-14 答案：D

第4题 （1.0分） 题号:304

将CommonDialog通用对话框的类型设置为字体对话框,可设置该控 件的()属性.

A:Font B:Filter C:flags D:Action 答案：D

第5题 （1.0分） 题号:284 常用控件的Style属性值是().

2

A:字符常量 B:逻辑常量 C:数值常量 D:日期常量 答案：C

第6题 （1.0分） 题号:343

双击窗体的任何地方,可以打开的窗口是(). A:代码窗口 B:属性窗口

C:工程管理窗口 D:以上3个选项都不对 答案：A

第7题 （1.0分） 题号:828 以下声明语句中错误的是().

A:Constvar1=123 B:Dimvar2=ABC C:DefInt a-z D:Staticvar3AsInteger 答案：B

第8题 （1.0分） 题号:242 窗体设计器是用来设计().

A:应用程序的代码段 B:应用程序的界面 C:对象的属性 D:对象的事件 答案：B

第9题 （1.0分） 题号:280

Cls方法可以清除窗体或图片框中的()内容.

A:在设计阶段使用Picture设置的背景位图 B:在设计阶段放置的控件 C:在运行阶段产生的图形和文字 D:以上全部内容 答案：C

第10题 （1.0分） 题号:289

当事件能被触发时,()就会对该事件作出响应. A:对象 B:程序 C:控件 D:窗体 答案：A

━━━━━━━━━━━━━━━━ 四、多项选择 共5题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （2.0分） 题号:279

下面有关数组的说法那些是错误的（）？ A:数组存放的是具有相同数据类型的多个数据 B:数组的下标允许是常数、表达式或变量

C:DIM语句声明的数组把数组中的全部数组都初始化为逻辑型

D:多维数组中每一维的大小为上界-下界；数组的大小为每一维大小的乘积

E:动态数组是指在声明时没有给出数组的大小，当要使用数组时，再决定数组的大小 答案：BCD

第2题 （2.0分） 题号:284

设A=\，下列（）的函数值为\。 A:Mid(A,10,4) B:Left(A,4) C:Right(A,4) D:Mid(A,10,14) 答案：ACD

3

第3题 （2.0分） 题号:283

要选择列表框List1的第6项，可以使用语句（）。

A:List1.Selected(6)=True B:List1.Selected(5)=True C:List1.ListIndex=5 D:List1.Selected=5 答案：BC

第4题 （2.0分） 题号:277 下列说法哪些是正确的（）？ A:不能对符号常量重新赋值

B:Label控件用来在窗体中显示文本，其中的文本用户不能直接修改 C:TAB()函数用于在输出表达式前将输出点定位在第N-1个字符位置

D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出 答案：ABD

第5题 （2.0分） 题号:278

下列哪些标识符不符合变量的命名规则（）？ A:hyu B:$abc C:4w D:y.u E:ty% F:_n8 答案：BCDEF

━━━━━━━━━━━━━━━━ 五、程序填空 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:41

'------------------------------------------------------- '【程序填空】

'-------------------------------------------------------

'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。 '------------------------------------------------------- Private Sub Form_Click()

Print \个数34、124、68、73、352的最大值是：\max1 = max(34, 124, 68)

'**********SPACE********** max1 =【?】 Print max1 End Sub

Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m = a Else

m = b End If

'**********SPACE********** If 【?】 Then max = m Else

4

max = c End If

End Function 答案：

1). max(max1, 73, 352) 2). a>b 或 b c 或 c < m

━━━━━━━━━━━━━━━━ 六、程序改错 共2题 （共计20分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:130

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：以下程序段用于计算5的N次方。 '------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim n As Integer, k As Integer, s As Long n = InputBox(\'**********FOUND********** k = 0

'**********FOUND********** s = 0

Do While k <= n s = s * 5 k = k + 1

'**********FOUND********** Next

Print \的\次方是\End Sub 答案： 1). k=1 2). s=1 3). Loop

第2题 （10.0分） 题号:459

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0）， ' 求出其中的偶数之和，并在标签框Label1上显示。

'------------------------------------------------

5

本文来源：https://www.bwwdw.com/article/4a9g.html