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

试题九

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

VisualBasic6.0用于开发【1】环境下的应用程序. 答案： 1). WINDOWS

第2题 （1.0分） 题号:316

循环语句FOR K=1 TO 10 STEP –1控制的循环次数为【1】. 答案： 1). 0

第3题 （1.0分） 题号:54

在VB中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句.

答案： 1). Option Explicit 第4题 （1.0分） 题号:240

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

第5题 （1.0分） 题号:279

设置计时器对象触发事件的时间间隔用【1】属性. 答案： 1). interval

第6题 （1.0分） 题号:57

在控件之中,【1】不能从工具箱中被删除. 答案： 1). 内部控件 或 标准控件 第7题 （1.0分） 题号:318

由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】. 答案： 1). 0

第8题 （1.0分） 题号:50

在VB 6.0中,设 Single型变量 XYZ 的值为123.45,若要将其转换成字符串,应使用的类型转换函数是【1】.

答案： 1). STR 或 CSTR 第9题 （1.0分） 题号:251

Print \ 的结果为【1】. 答案： 1). x=False

第10题 （1.0分） 题号:239

设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】. 答案： 1). False

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

单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务. 答案：N

第2题 （1.0分） 题号:234

1

如果某子程序add用public static sub add()定义,则该子程序的变量都是局部变量. 答案：N 第3题 （1.0分） 题号:327

由Visual Basic语言编写的应用程序有解释和编译两种执行方式. 答案：Y 第4题 （1.0分） 题号:237

在VB中,运算 \的结果是True. 答案：Y 第5题 （1.0分） 题号:253

Listl.clear是清除Listl的全部列表项,所以Clear是对象的方法. 答案：Y 第6题 （1.0分） 题号:276

对象的可见性用enabled属性设置,可用性用visible属性设置. 答案：N 第7题 （1.0分） 题号:245

\菜单编辑器\中至少要填\名称\和\标题\这两个框,才能真确完成菜单栏的设计. 答案：Y 第8题 （1.0分） 题号:336

在VB5 中,文件菜单的\删除工程\的作用是将当前VB工程在硬盘中删除掉. 答案：N 第9题 （1.0分） 题号:360

直线控件可以在窗体上拖动,因此它具有MOVE方法. 答案：N 第10题 （1.0分） 题号:362

属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置. 答案：N ━━━━━━━━━━━━━━━━━ 三、单项选择 共10题 （共计10分） ━━━━━━━━━━━━━━━━━ 第1题 （1.0分） 题号:856 执行下面的程序段后,x的值为(). x=5

For i=1 To 20 Step 2 x=x+i\\5 Next i

A:21 B:22 C:23 D:24 答案：A

第2题 （1.0分） 题号:223 ()对象不能作为控件的容器.

A:Form B:PictureBox C:Shape D:Frame 答案：C

第3题 （1.0分） 题号:336

设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(). A:True B:False

C:1 D:出错信息 答案：B

第4题 （1.0分） 题号:369

下列各种窗体事件中,不能由用户触发的事件是().

A:Load事件和Unload事件 B:Click事件和Unload事件 C:Click事件和Dbclick事件 D:Load事件和Initialize事件 答案：D

2

第5题 （1.0分） 题号:808

要使文本框获得输入焦点,则应采用文本框控件的哪个方法(). A:GodFocus B:LostFocus C:KeyPress D:SetFocus 答案：D

第6题 （1.0分） 题号:298 激活主菜单的按键是().

A:F1或Ctrl键 B:Ctrl键或Atl键 C:F10或Ctrl键 D:F10或Atl键 答案：B

第7题 （1.0分） 题号:361

下列不能打开属性窗口的操作是().

A:执行\视图\菜单中的\属性窗口\命令 B:按F4键

C:按Ctrl+T D:单击工具栏上的\属性窗口\按钮 答案：C

第8题 （1.0分） 题号:357 下列()是窗体的扩展名.

A:frm B:bas C:cls D:dll 答案：A

第9题 （1.0分） 题号:841

运行下面的程序: CLS LINE (100,100)-(200,50) LINE - (150,150) LINE -(100,100) 屏幕上显示的是().

A:三条放射形直线 B:四条放射形直线 C:矩形 D:三角形 答案：D

第10题 （1.0分） 题号:860

组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由 ()属性决定.

A:Style B:BoderStyle C:FillStyle D:DrawStyle 答案：A

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

在VB中，需要用数据访问对象对数据库进行访问，下列哪些属于VB的数据访问对象（）。 A:DAO B:ADO C:OAD D:RDO 答案：ABD

第2题 （2.0分） 题号:283

3

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

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

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

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

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

第4题 （2.0分） 题号:280 请把下面说法中正确的选出来（）。

A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串 B:在调用Sub过程中使用Call语句时，参数必须在括号内 C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参” D:DIM语句声明的数组把数值数组中的全部数组元素都初始化为0，把字符串数组中的全部元素都初始化为空字符串 答案：BCD

第5题 （2.0分） 题号:278

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

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

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

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

'功能：下面的程序段用于建立文件并输出文件，文件内容如下： '***** ' ***** ' ***** ' ***** ' *****

'------------------------------------------------------- Private Sub Form_Click()

'**********SPACE********** Open \【?】 As #1 For i = 1 To 5

Print #1, Spc(i); \Next i

4

'**********SPACE********** 【?】

'**********SPACE********** Open \【?】 As #1 For i = 1 To 5

Line Input #1, x Print x Next i Close #1 End Sub 答案：

1). Output

2). Close #1 或 Close 3). Input

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

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

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

'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆， ' 然后将此图以Test.BMP作文件名存入磁盘。 '------------------------------------------------ Option Explicit

Private Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As Integer

Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2

'**********FOUND********** For I = 1 To 9

rad(I) = 500 * Rnd Next I I = 9

'**********FOUND********** Do Until I < 1

Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) '**********FOUND********** I = I + 1 Loop

SavePicture Pic1.Image, \

5

End Sub 答案：

1). for i=0 to 9 或 for i=0 to 9 step 1 2). Do Until I < 0 或 do until 0>i 3). I = I - 1 或 i=-1+i 第2题 （10.0分） 题号:489

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

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

'题目:给定三角形的三条边，计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。 '------------------------------------------------ Option Explicit

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single Dim s As Single, t As Single start:

a = InputBox(\输入1边长：\ b = InputBox(\输入2边长：\ c = InputBox(\输入3边长：\ '**********FOUND********** If a + b < c Or b + c < a Then

MsgBox (\不能构成三角形，请重新输入个边\ GoTo start End If

'**********FOUND********** t = (a + b) / 2

'**********FOUND********** s = Sqr((t - a) * (t - b) * (t - c)) Print \该三角形的面积：\End Sub 答案：

1). If a + b < c Or b + c < a Or a + c < b Then 2). t = (a + b + c) / 2 或 t = (a + b + c ) / 2

3). s = Sqr(t * (t - a) * (t - b) * (t - c)) 或 s = Sqr( t * (t - a) * ━━━━━━━━━━━━━━━━ 七、程序设计 共1题 （共计10分） ━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:146

'------------------------------------------------- '【程序设计】

'------------------------------------------------- '题目：(事件)单击窗体。

' (响应)求50以内所有偶数的和，并在窗体上输出出来。

6

(t - b) * (t - c) ) ' 将结果存入变量S中。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 2 To 50

If (i Mod 2) = 0 Then s = s + i End If Next

Print (CStr(s)) ----------------------

━━━━━━━━━━━━━━━━━━ 八、VB窗体设计 共2题 （共计20分） ━━━━━━━━━━━━━━━━━━ 第1题 （10.0分） 题号:46

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成） 建立如图001所示界面：

注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 --------------------------------------------------------------------- 1、窗体设置

1）名称设置为“考试系统” 2）AutoRedraw设置为True 3）边框风格设置为1 4）标题设置为“窗体”

5）前景色设置为红色，值为H000000FF 2、在窗体左上角添加一个标签控件 1）名称设置为“提示信息” 2）设置为可以自动调整大小

3）内容设置为“考试系统正在运行” 3、在窗体上添加一个时钟控件 1）时间间隔设置为1.5秒

4、在窗体中间位置添加一个框架控件 1）边框风格设置为0 2）标题为“选择题”

5、在框架中添加上下两个单选按钮

1）第一个单选按钮在上方，标题设置为“单选”，并设为选中 2）第二个单选按钮在下方，标题设置为“多选” 6、在窗体右下角添加一个命令按钮 1）标题为“确定”

2）字体名称设置为“黑体”、字体大小12、带下划线 3）设置高度为511

7

4）在单击事件里添加代码，使得窗体左上角的标签的内容为“考试系统结束运行” ----------此为题目要求的最后一行，以下空白--------------------------------------- 第2题 （10.0分） 题号:50

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。（本题有6个项目要完成） 建立如图005所示界面：

注意：保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 --------------------------------------------------------------------- 1、窗体设置

1）名称为“个人介绍” 2）标题为“我的个人信息” 2、在窗体上方添加一个文本框控件 1）文本内容为“个人简历” 2）设置文本被锁定 3）文本允许多行

4）该文本框设置为不可见 3、在文本框下添加一个标签控件 1）内容右对齐

2）标题内容为“所获奖励” 3）该标签不可见

4、在标签下添加一个组合框控件 1）名称为“组合框”

2）列表项目依次为“小学”、“初中”、“高中”、“大学” 3）列表项目排序属性设置为True 5、添加两个一级菜单，均无子菜单

1）第一个一级菜单，名称为Menu1，标题为“个人简历” 2）第二个一级菜单，名称为Menu2，标题为“所获奖励” 3）在Menu1的单击事件里添加代码，使文本框可见 4）在Menu2的单击事件里添加代码，使标签可见 6、在窗体右下角添加一个命令按钮 1）标题为“清除”

2）在单击事件里添加代码，清除组合框里的所有项目

----------此为题目要求的最后一行，以下空白---------------------------------------

8

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