可视化程序设计(VB)第一次作业

第一篇：可视化程序设计(VB)第一次作业

可视化程序设计（VB）第一次作业

一、单项选择题

1.Visual Basic程序中分隔各语句的字符是(:)

2.工程文件的扩展名是（vbp）

3.下列运算符中，运算级别最高的是（*）

4.下列可作为Visual Basic的变量名的是(Filename)

5.下面的程序的输出结果是(21 21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

6.下列赋值语句合法的是（A=A+B）

7.下列属性中，目录列表框和文件列表框都有的属性为（Path）。

8.执行下面的程序段后，x的值为(21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

9.向一个顺序文件中写数据时，（Append）是从文件末尾添加的方式打开顺序文件。

10.Seek方法用于在（表）类型的记录集中查找满足条件的记录。

11.当函数EOF()的返回值为真时，表示文件的指针指向（尾部）

12.如果要退出Do„Loop循环，可使用语句（Exit Do）。

13.在VB中，称对象的数据为（属性）。

14.不论何对象，都具有（Name）属性。

15.使用Public Const语句声明一个全局的符号常量时，该语句应放在（标准模块的通用声明段）。

16.下面关于变量的作用域，正确的描述是（同一模块中不同级的变量不能同名）。

17.设a=2，b=3，c=4，d=5，下列表达式的值是（False）a＞b AND c＜=d OR 2*a＞c

18.把数值型转换为字符（串）型需要使用下列哪一个函数？（Str）

19.以下叙述错误的是（KeyPress事件中可以识别键盘上某个键的按下与释放）

20.用于设置或返回文件类型的属性是（Pattern）。

21.要删除列表框中的某一个项目，需要使用（ReMoveItem）方法。

22.以下语句的输出结果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞为回车)b=65 ＜CR＞ Print a;b ＜CR＞

23.语句Print 5*55/5的输出结果是(25)

24.编写如下事件过程：

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

if shift=6 and button=2 then

print “BBBB”

end if

end sub

程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（同时按下ctrl、alt键和鼠标右键）

25.如果X是一个正实数，对X的第三位小数四舍五入的表达式是（0.01 * Int(100 *(X +0.005))）

第二篇：2012年9月份考试可视化程序设计(VB)第一次作业.doc

2012年9月份考试可视化程序设计（VB）第一次作业

一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）

1.下面的数写成普通的形式是1.2***69E+019()

A.12***6900

B.12***69000

C.12***690000

D.12***6900000

2.下列赋值语句合法的是（）

A.A=A+B

B.A+B=A

C.–A=A

D.A=2B

3.下列选择项中（）不能获得焦点。

A.使用Tab键

B.用鼠标选择对象

C.设置GetFocus的值为True

D.使用SetFocus方法

4.设a=2，b=3，c=4，d=5，下列表达式的值是（）。not a<=c or 4*c=b^2 and b<>a+c

A.－1

B.1

C.true

D.false

5.若将命令按钮设置为默认命令按钮，可以通过（）属性来实现。

A.Value

B.Cancel

C.Default

D.Enabled

6.通用过程可以通过执行“工具”菜单中的（）命令来建立。

A.添加过程

B.通用过程

C.添加窗体

D.添加模块

7.假设A=3，B=7，C=2，则表达式 NOT(B>A)的值是()

A.True

B.False

C.表达式错误

D.不确定

8.以下说法正确的是（）

A.通用过程可以出现在窗体模块和标准模块中

B.不同模块中的通用过程可以重名

C.同一标准模块中的通过过程可以同名

D.不同标准模块中的通用过程不能同名

9.在表达式 y = InputBox(a, b, c)中，b 为输入函数对话框的（）。

A.标题

B.提示

C.预设值

D.帮助文件名

10.如果要退出Do„Loop循环，可使用语句（）。

A.Exit

B.Exit Do

C.Exit For

D.Exit For

11.为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为()

A.1

B.2

C.3

D.4

12.若有数组说明语句：Dim t(1 To 10)As Variant，则t被定义为（）。

A.数值数组

B.可调数组

C.字符串数组

D.可变类型数组

13.Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（）类型。

A.Integer

B.Variant

C.Long

D.Siring

14.不论何对象，都具有（）属性。

A.Text

B.Name

C.ForeColor

D.Caption

15.下列语句正确的是（）。

A.For i=1 To m

For j=1 To n

Next i

Next j

B.For i=1 To m

For j=1 To n

Next i,j

C.For i=1 To m

For j=1 To n

Next j,i

D.For i=1 To m

While x>0

Next i

end

16.下列过程调用合法的是（）

A.Call Prog a,b

B.Prog(a,b)

C.Call Prog(a,b)

D.以上都不对

17.以下语句的输出结果是（）。print format$（32548.5，“000，000.00”）

A.2548.5

B.32，548.5

C.032，548.50

D.32548.50

18.数学式子Sin25°写成VB表达式是（）。

A.Sin25

B.Sin（25°）

C.Sin（25）

D.Sin（25*3.14/180）

19.以下程序段中循环语句（）。

x%=0

While Not x

x=x+1

Print x

Wend

A.有语法错误

B.溢出

C.循环体执行一次

D.循环体一次也不执行

20.下列过程说明合法的是（）

A.Sub S1(ByVal n!())

B.Sub S1(n!)as Integer

C.Function S1%(S1%)

D.Function S1(ByVal n!)

21.用下面的语句所定义的数组的元素个数是()Dim arr(3 To 6,-2 To 2)

A.12

B.16

C.18

D.20

22.下面语句书写正确的是（）。

A.If a>max Then

max=a

Else

max=b

End If

B.If a>max Then

max=a

Else

max=b

End If

C.If a>max Then

max=a

Else

max=6

D.If a>max Then

max=a

Else

max=b

End If

23.下列一维数组说明语句错误的是（）。

A.Dim b(100)AS Double

B.Dim b(-5 To 0)AS Byte

C.Dim b(-10To –20)AS Integer

D.Dim b(5 To 5)AS String

24.设已定义函数过程f，它有三个整型数值参数，再设a,b和c为实型变量，则调用该函数过程使用的语句为（）。

A.f

B.f(a+b, b+c)

C.f(a+b, b+c ,c+a)

D.f a+b, b+c, c+a

25.执行下面程序段时，内循环的循环次数是（）。

For m=1 To 3

n=0

While n<=m-1

Print m,n

n=n+1

Wend

Next m

A.3

B.4

C.5

D.6

答案：

一、单项选择题（100分，共 25 题，每小题 4 分）

1.D 2.A 3.C 4.D 5.C 6.A 7.B 8.D 9.A 10.B 11.B 12.D 13.B

14.B 15.C 16.C 17.C 18.D 19.B 20.D 21.D 22.D 23.C 24.D 25.D

第三篇：2013年9月份考试可视化程序设计(VB)第一次作业

2013年9月份考试可视化程序设计（VB）第一次作业

一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）

1.确定一个控件在窗体上的位置的属性是()

A.Width或Height

B.Width和Left

C.Top或Height

D.Top和Left

2.标准模块中的内容存放在以（）为扩展名的文件中。

A.frm

B.bas

C.cls

D.xt

3.下面的程序的输出结果是()

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

A.21 20

B.21 21

C.22 20

D.22 21

4.要使某控件在运行时不可显示，应对（）属性进行设置。

A.Enabled

B.Visible

C.BackColor

D.Caphon

5.假设A=3，B=7，C=2，则表达式 A>B OR B > C 的值是()

A.True

B.False

C.表达式错误

D.不确定

6.下列选择项中（）不能获得焦点。

A.使用Tab键

B.用鼠标选择对象

C.设置GetFocus的值为True

D.使用SetFocus方法

7.求COS35°可以使用的函数是（）。

A.Cos 35

B.Cos（35）

C.Cos（35º）

D.Cos（35*3.14159/180）

8.下列赋值语句中（）是错误的。

A.x＝x＋１

B.x＝x＋y

C.x＋y＝x

D.x＝４＞６

9.执行下面的程序段后，x的值为()

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

A.21

B.22

C.23

D.24

10.若要取消窗体的最小化按钮，可以设置（）属性来实现。

A.Top

B.Enabled

C.MaxButton

D.MinButton

11.“X是小于100的正实数”写成VB表达式正确的是：

A.X > 0 AND X<100

B.X >0 OR X < 100

C.X >= 0 AND X < 100

D.X >= 0 OR X < 100

12.以下说法正确的是（）

A.通用过程可以出现在窗体模块和标准模块中

B.不同模块中的通用过程可以重名

C.同一标准模块中的通过过程可以同名

D.不同标准模块中的通用过程不能同名

13.在VB中不能表示逻辑真的是()。

A.True

B.–1

C.1

D.T

14.下列哪组语句可以将变量A、B的值互换（）。

A.A=B：B=A

B.A=C：C=B：B=A

C.A=A+B：B=A－B：A=A－B

D.A=（A+B）/2：B=（A=B）/2

15.语句Print 6 * 6 6 / 6的输出结果是（）

A.0

B.1

C.6

D.36

16.如果要退出Do„Loop循环，可使用语句（）。

A.Exit

B.Exit Do

C.Exit For

D.Exit For

17.下列可作为Visual Basic中所允许的形式的数是()

A.±25.74

B.3.457E-100

C.368

D.1.87E+50

18.在VB中，称对象的数据为（）。

A.属性

B.方法

C.事件

D.封装

19.若有数组说明语句：Dim t(1 To 10)As Variant，则t被定义为（）。

A.数值数组

B.可调数组

C.字符串数组

D.可变类型数组

20.Function过程要由函数名返回一个值。如果不使用As数据类型选项来指定函数的类型，函数类型默认为（）类型。

A.Integer

B.Variant

C.Long

D.Siring

21.设有数组说明语句：Dim b（－１To２，－２To２），则数组b中元素的个数是（）。

A.12

B.15

C.16

D.20

22.设a=2，b=3，c=4，d=5，下列表达式的值是（）a＞b AND c＜=d OR 2*a＞c

A.True

B.False

C.-1

D.1

23.以下语句的输出结果是（）。print format$（32548.5，“000，000.00”）

A.2548.5

B.32，548.5

C.032，548.50

D.32548.50

24.把数值型转换为字符（串）型需要使用下列哪一个函数？（）

A.Val

B.Str

C.Asc

D.Chr

25.下面语句书写正确的是（）。

A.If a>max Then max=a Else

if max=b

End If

B.If b>max Then max=a

Else

max=b

End If

C.If a>max Then

max=a

Else

max=6

D.If a>max Then

max=a

Else

max=b

End If

答案：

一、单项选择题（100分，共 25 题，每小题 4 分）

1.D 2.B 3.B 4.B 5.A 6.C 7.D 8.C 9.A 10.D 11.A 12.D 13.D

14.C 15.D 16.B 17.C 18.A 19.D 20.B 21.D 22.B 23.C 24.B 25.D

第四篇：可视化程序设计(VB)模拟试题

可视化程序设计（VB）

一、填空题（32分，共 8 题，每小题 4 分）

1.要使用通用对话框控件，必须首先在“部件”对话框中选择 ______，将其添加到工具箱中。

2.运行时，要使工具栏Toolbarl中索引值为4的按钮无效（变成灰色），应使用语句： ______。

3.运行时，要使工具栏控件Toolbarl中的第二个按钮的按钮菜单中的第三项无效（变成灰色），应使用语句： ______。

4.在用手工方式设计工具栏时，可以设置工具按钮的 ______ 属性为其添加功能提示。

5.用户自定义类型中的元素类型可以是字符串，但该字符串必须是 ______。

6.设a=sqr（2）*sqr（3），下列语句的输出结果分别是。print format$（a，“000.00”）

print format$（a，“###.#00”）

print format$（a，“00.00E+00”）

print format$（a，“－#.####”）

7.如果需要将窗体载入内存却不显示，需要将该窗体的 ______ 属性设置为False，再用 ______ 语句装载。

8.随机产生一个范围是(100，300）的整数，表达式为 ______。

二、程序阅读题（24分，共 3 题，每小题 8 分）

1.写出下列事件过程的执行结果。

Private Sub Command1_Click()

s3(1)s3(1)

End Sub

Private Sub s3(ByVal a As Integer)

Dim x As Integer Static y As Integer

x=x+a

y=y+a

Print “x=”;x, “y=”;y

End Sub

2.下列标准模块和窗体模块的功能是给通信录文件“d:txrf1.dat”添加新记录，在横线上填上适当内容。

标准模块：

Type txr num As Integer name As String * 10 tel As String * 8 addr As String * 20

End Type

窗体模块：

Private Sub Command1_Click()

Dim n%, zgr As txr Open “d:txrf1.dat”

For Random As #1

Len = Len(zgr)

zgr.num = InputBox(“输入新职工编号：”)

zgr.name = InputBox(“输入新职工姓名：”)

zgr.tel = InputBox(“输入新职工电话号码：”)

zgr.addr = InputBox(“输入新职工住址：”)

n =(1)(2)

Close #1

End Sub

3.本程序有一个标准模块和一个窗体模块。Sub main过程是本程序的启动过程，其他过程是窗体模块的事件过程。执行本程序，写出依次单击命令按钮commandl和command2，在窗体上分别输出的3行结果。

标准模块：

Public X As Integer Sub main（）

X＝5

Form1.Show

Form1.Print X

End Sub

窗体模块

Dim y As Integer

Private Sub command1_click（）

y＝X*2

Print y

End Sub

Private Sub command2_click（）

y＝X／2 Print y

End Sub

三、问答题（24分，共 3 题，每小题 8 分）

1.VB坐标系中旋转什么方向是正向

2.什么是“内外循环交叉”？

3.Now函数和Date函数有何区别？

四、程序设计题（20分，共 1 题，每小题 20 分）

利用随机函数，模拟投币结果。设共投币100次，求“两个正面”、“两个反面”、“一正一反”3种情况各出现多少次？

答案：

一、填空题（32分，共 8 题，每小题 4 分）

1.参考答案：

Microsoft Common Dialog Controls 6.0

解题方案：

评分标准：

2.参考答案：

Toolbarl．Buttons（4）．Enabled＝False

解题方案：

评分标准：

3.参考答案：

Toolbarl．Buttons（2）．ButtonMenus（3）．Enabled＝False

解题方案：

评分标准：

4.参考答案：

ToolTipText

解题方案：

评分标准：

5.参考答案：

定长字符串

解题方案：

评分标准：

6.参考答案：

002.45、2.449、24.49E-01、－2.4495

解题方案：

评分标准：

7.参考答案：

Visable；Load

解题方案：

评分标准：

8.参考答案：

+ Rnd * 200

解题方案：

评分标准：

二、程序阅读题（24分，共 3 题，每小题 8 分）

1.参考答案：

执行结果为： x=1 y=1 x=1 y=2

解题方案：

过程调用

评分标准：

2.参考答案：

(1)LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr

解题方案：

标准模块和窗体模块应用

评分标准：

3.参考答案：

执行结果为： 5 10 2

解题方案：

区别标准模块与窗体模块

评分标准：

6三、问答题（24分，共 3 题，每小题 8 分）

1.参考答案：

在VB坐标系中，逆时针方向为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。

解题方案：

评分标准：

2.参考答案：

循环嵌套时，内外循环交叉。

For i＝1 ito 4

For j= 1 to 5 „

Next i

Next j

上述循环的交叉，运行时显示“无效的Next控制变量引用”。外循环必须完全包含内循环，不得交叉。

解题方案：

评分标准：

3.参考答案：

Now函数和Date函数都是求当前机器内日期，不同之处是Now函数除日期外还带回时间。

解题方案：

时间函数

评分标准：

四、程序设计题（20分，共 1 题，每小题 20 分）

0.参考答案：

Private Sub Form_Click()

Randomize Timer

Dim a(1, 1)

For i=1 To 100

n1=Int(Rnd*2)

n1=Int(Rnd*2)

a(n1, n2)=a(n1, n2)+1

Next i

Print “投币结果如下：”

Print “ ～～～～～～～～～～～～～”

Print “ 两个正面的次数为：”;a(0, 0)

Print “两个反面的次数为:”;a(1, l)

Print “一正一反的次数为:”;a(0, 1)+ a(1, 0)

End Sub

解题方案：

使用循环控制设计算法 评分标准：

循环5分，算法5分

第五篇：2014年4月份考试可视化程序设计(VB)第二次作业

2014年4月份考试可视化程序设计（VB）第二次作业

一、单项选择题（本大题共100分，共 25 小题，每小题 4 分）

1.下列过程不能包含在标准模块中定义的是（）。

A.事件过程

B.子过程

C.函数过程

D.公共过程

2.下列关于数据库说法错误的是（）

A.一个表可以构成一个数据库

B.多个表可以构成数据库

C.一个表的每一条记录中的各数据项具有相同的类型

D.同一个字段的数据具有相同的类型

3.下列属性中，目录列表框和文件列表框都有的属性为（）。

A.List

B.value

C.Path

D.Pattern

4.下列关于菜单访问键和快捷键的说法正确的是（）

A.若一菜单项的Caption属性为“打开(&O)”，则其快捷键是Ctrl+O

B.快捷键指用于执行一个命令的功能键或组合键，可以在菜单编辑器中将快捷键设为Alt+F

C.可以为任意的菜单项都添加快捷键或访问键

D.通过访问键打开某个子菜单时，必须先使焦点位于其上一级菜单

5.要设置列表框的选择方式，应使用（）属性。

A.Columns

B.MultiSelect

C.Style

D.List

6.下面关于随机文件的描述，不正确的是：（）

A.每条记录的长度必须相同

B.一个文件中记录号不必惟一

C.可通过编程对文件中的某条记录方便地修改

D.文件的组织结构比顺序文件复杂

7.下列说法正确的是（）

A.如果框架的Enable设为False，则框架内的所有控件都不可用。

B.时钟控件的Visable属性设为True时，该控件在程序运行时可见，设为False时，则不可见。

C.在列表框中能够将项目按字母顺序从大到小排列。

D.移动框架时，框架内的控件不随之移动。

8.下列控件中，（）不是用于文件操作的控件。

A.List Box

B.DriveListBox

C.DirListBox

D.FileListBox

9.可以在窗体模块的通用声明段中声明（）。

A.全局变量

B.全局常量

C.全局数组

D.全局用户自定义类型

10.通过设置Line控件的（）属性可以绘制虚线、点划线等多种样式的直线。

A.Shape

B.Style

C.Fillstyle

D.Borderstyle

11.当函数EOF()的返回值为真时，表示文件的指针指向（）

A.开头

B.尾部

C.最后一个字节

D.最后一个记录

12.下面的哪一项不能用来在模块之间传递数据（）。

A.全局变量

B.对象属性

C.全局数组

D.模块级变量

13.数据控件用于设置指定数据控件所访问的记录来源的属性是（）

A.RecordSource

B.DataSource

C.DatabaseName

D.RecordSetType

14.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（）方法。

A.ShowOpen

B.ShowColor

C.ShowSave

D.ShowFont

15.在下列关于对话框的叙述中，错误的是（）：

A.作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和 False。

B.语句frmAbout．Show vbModeless，frmMain将 fmAbout窗体显示为 fmMain的无模式子窗体。

C.可以将对话框分成两种类型：模式的和无模式。

D.语句frmAbout．Show将frmAbout作为无模式对话框显示。

16.AVI动画类似电影，由若干帧组成，Animation控件可以显示（）的音频视频动画（AVI文件）。

A.无声

B.有声

C.无声和有声都可以

D.单声道

17.在用菜单编辑器设计菜单时，必须输入的项有（）。

A.快捷键

B.标题

C.索引

D.名称

18.通过文本框的（）事件过程可以获取文本框中键入字符的ASCII码值。

A.Change

B.GotFocus

C.LostFocus

D.KeyPress

19.以下说法正确的是（）。

A.使用Data控件可以直接显示数据库中的数据

B.使用数据绑定控件可以直接访问数据库中的数据

C.使用Data控件可以对数据库中的数据进行操作，却不能显示数据库中的数据

D.Data 控件只有通过数据绑定控件才可以访问数据库中的数据

20.以下关于索引的说法，错误的是（）。

A.一个表可以建立一个到多个索引

B.每个表至少要建立一个索引

C.索引字段可以是多个字段的组合D.利用索引可以加快查找速度

21.以下叙述错误的是（）

A.在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的B.在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字

C.KeyPress事件中不能识别键盘上某个键的按下与释放

D.KeyPress事件中可以识别键盘上某个键的按下与释放

22.下面关于多重窗体的叙述中，正确的是（）。

A.作为启动对象的 main于过程只能放在窗体模块内

B.如果启动对象是 main子过程，则程序启动时可不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体

C.没有启动窗体，程序不能执行

D.以上都不对

23.改变驱动器列表框的Drive属性将引发（）事件。

A.Load

B.Click

C.Pattern change

D.Change

24.以下的属性和方法中（）可重定义坐标系。

A.DrawStyle属性

B.DrawWidth属性

C.Scale方法

D.ScaleMode属性

25.下面关于过程作用域，错误的描述是（）。

A.全局级过程的作用域为整个工程

B.在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称

C.在不同模块中定义的模块级过程可以同名

D.在不同模块中定义的工程级过程不能同名

答案：

一、单项选择题（100分，共 25 题，每小题 4 分）

1.A 2.C 3.C 4.D 5.B 6.B 7.A 8.A 9.A 10.D

11.B 12.D 13.A 14.C 15.A 16.A 17.D 18.D 19.D 20.B

21.D 22.B 23.D 24.C 25.D