Visual Basic程序设计#-0002（课程代码：3309019-浙江电大）

Visual Basic程序设计#-0002

试卷总分：100        测试时间:--  

单项选择题 |程序填空题 |程序阅读题

1.

在Visual Basic中，文件系统控件包括( )、目录列表框和文件列表框。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。

2.

有变量定义语句“DimStr1,Str2 As String *10”，其中Str1变量的类型应为 ( ) 。

3.

ADO数据模型中一般可通过Connection对象的（ ）方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。

Execute

Updata

Insert

Open

4.

Visual Basic程序开发有三种模式，即设计模式、运行模式和( )模式。

5.

如果要在程序中显示一个弹出菜单，需调用（ ）方法。

Print

Move

Refresh

PopupMenu

6.

要使标签能透出窗体的背景，应设置标签的（ ）属性。

BackStyle

BorderStyle

Appearance

BackColor

7.

将1<x<12写成Visual Basic逻辑表达式（ ） 。

x>1 or x<12

x>1 And x<12

1=< x<12

x>1 x<12

8.

按文件的存取方式，可将文件分为顺序文件、随机文件和（ ）文件。

9.

基本程序控制结构可以分为顺序结构、选择结构和( )结构3种。

10.

设List1为列表框控件，List1.Clear中的Clear是（ ）。

11.

下列可以用来存储图像可以供其它控件使用的控件是（ ）。

ToolBar

StatursBar

ImageList

TreeView

12.

文本框中选定的内容，由下列（ ）属性反映。

Text

Caption

Seltext

SelLenght

13.

在Visual Basic的转换函数中将数值转换为字符串的函数是( ) 。

Abs(x)

Val(x)

Str(x)

Asc(x)

14.

Visual Basic中文件的扩展名为( )的是类模块文件。

.frm

.bas

.cls

.vbp

15.

改变驱动器列表框的Drive属性值将激活其（ ）事件。

Change

Scroll

KeyDown

KeyUp

16.

填空如下程序，实现加法功能。其中第一操作数、第二操作数和计算结果文本框的名称分别定义为txtFirstNum、txtSecondNum和txtSum，“计算”命令按钮的名称定义为cmdSum。

Private Sub cmdSum_Click()

     （            )

End Sub

txtSum.Caption = Val(txtFirstNum.Caption) +Val(txtSecondNum.Caption)

txtSum.Value = txtFirstNum.Value+txtSecondNum.Value

txtSum.Value= txtFirstNum+ txtSecondNum

txtSum.Text = Val(txtFirstNum.Text) +Val(txtSecondNum.Text)

17.

有以下3个数据表：

学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。

课程表：course_info(course_ID,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。

成绩表：mark_info(student_ID,course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。

写出SQL语句：

(                           )

Select student_class from student_info

Select student_class ,count(*) fromstudent_info

Select count(*) from student_info

Select student_class ,count(*) fromstudent_info group by student_class

18.

有以下3个数据表：

学生表：student_info(student_id,student_name,student_sex,student_class)，分别表示学号、姓名、性别、班级，各字段数据类型都是文本。

课程表：course_info(course_ID,course_name ,course_credit)，分别表示课程号、课程名、学分，课程号、课程名为文本类型，学分为数字类型。

成绩表：mark_info(student_ID,course_ID,mark)，分别表示学号、课程号、成绩，其中学号、课程号为文本类型，mark为数字类型。

写出SQL语句：

查询出学号为“95020”所选修的课程名和成绩，以及姓名。

(                       )

Select 姓名,课程名,成绩from student_info, course_info,mark_info

Select student_name as 姓名, course_name as 课程名, mark as成绩from student_info, course_info,mark_info where student_info. student_id = mark_info. student_id andcourse_info. course_ID = mark_info. course_IDand student_info. student_id='95020'

Select student_name, course_name, mark fromstudent_info, course_info, mark_info where student_info

Select student_name, course_name, mark fromstudent_info, course_info, mark_info where student_info. student_id =mark_info. student_id and course_info. course_ID = mark_info. course_IDandstudent_info. student_id ='95020'

19.

Public Function Max_Mark(MarkArray() AsSingle) As Single

  Dim sngMax As Single , i As Integer , n As Integer

  sngMax = 0

   n= UBound(MarkArray)

  For i = 0 To n

     If MarkArray(i) > sngMax Then sngMax = MarkArray(i)

  Next i

  Max_Mark = sngMax

End Function