大学计算机基础VB模拟题

本卷共有4道大题:

一、单项选择题（25道小题，共25分） 1、VB中工程软件的扩展名为( C )（1分） A、ds B、frm C、vbp D、bas

2、把字符串\ \右边的空格去掉应使用(B )函数（1分） A、trim B、rtrim C、right D、mid

3、文本框text1的text属性的数据类型是(B)（1分） A、整数型 B、字符串 C、单精度 D、双精度

4、下列( B)属性决定窗体标题栏显示内容（1分） A、Name B、Caption C、Text D、BackStyle

5、命令按钮command1不具有下列哪个事件(C )（1分） A、Click B、KeyPress C、GotFocus D、DblClick

6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True,然后再把ScrollBars 属性设置为( )（1分） A、0 B、1 C、2 D、3

7、Dim D(3,1 To 10,1 To 15)语句中，数组的元素个数为( )（1分） A、3*10*16 B、3*11*16 C、4*10*15 D、4*11*15

8、如果整型变量c、d、x的值分别为8、6、0，则下列语句For I=c to d : x=x+i : Next I 执行结束时，I的值为( A)（1分） A、8 B、7 C、6 D、5

9、假定有以下循环结构 Do Until 条件 循环体 Loop 则正确的描述是( C)（1分） A、如果\条件\是一个为0的常数，则一次循环体也不执行 B、如果\条件\是一个为0的常数，则至少执行一次循环体

C、如果\条件\是一个不为0的常数，则至少执行一次循环体 D、不论\条件\是否为\真\，至少要执行一次循环体

10、\是小于100的非负数\，用VB表达式表示正确的是(D )（1分） A、0 <= x 0r x < 100 B、0 <= x < 100 C、0 <= x And x < 100 D、0 <=x , x < 100

11、下列语句错误的是(D )（1分） A、exit for B、exit do C、end sub D、exit select

12、Inputbox函数返回的数据类型为( B)（1分） A、整型 B、逻辑型 C、单精度 D、字符串

13、假定有以下程序段: For I= 1 To 3: For j = 1 To 5 Step -1: Print I*j: Next j: Next I 则语句Print I*j 的执行次数是(A )（1分） A、15 B、18 C、10 D、0

14、如果要清除在窗体中打印输出的文字，可以利用(C )语句（1分） A、Input B、Load C、Cls D、Paint

15、case <表达式表列>,其中的表达式表列不正确的为(D )（1分） A、Case 100*a B、Case 1000 To 2000 C、Case Is<3000 D、Case 2000

16、下列说法错误的是 ( C)（1分）

A、VB声明数组时既可指定上界也可指定下界 B、数组元素类型可以是任意的VB数据类型

C、数组元素的下标可以是数值，也可以是结果在上下界之间的数值表达式 D、VB声明数组时必须指定下界

17、下面的四个数组说明语句语法正确的是(A )（1分） A、DIM X[10] B、DIM EN fn(10) C、DIM X(20) D、DIM ENSION a[10]

18、以下程序段: x = 1: y = 4: Do Until y>4: x = x * y: y = y +1: Loop 执行后x的结果为(B ) （1分） A、1 B、4 C、8 D、20

19、以下声明和命名标识符错误的是( B)（1分）

A、必须以字母开头 B、变量名的最后一个字符可以是类型声明字符 C、长度不能超过8个字符 D、不能与关键字同名

20、下列说明错误的是(C )（1分）

A、Const MyVar#=123 B、Dim myname as string

C、dim a as integer,dim b as single D、dim MyString=\

21、VB中允许出现的数据形式为(D )（1分） A、1.89E1.1 B、.368 C、D32 D、2.5E

22、设a=2,b=3,c=4,d=5,下列表达式a>b AND c<=d OR 2*a>c的值是(B )（1分） A、True B、False C、-1 D、1

23、语句6 * 6\\6/6的输出结果是(C )（1分） A、6 B、12 C、36 D、216

24、给窗体form1加载背景图片，应使用(D )函数（1分） A、picture B、ucase C、loadpicture D、image

25、字符串\河南农业大学现教部\的长度是( A)（1分） A、18 B、10 C、9 D、16

二、填空题（12道小题，共35分）

1、设定系统当前日期是2004年5月12日，Month(date)=（ 5 ）。 2、设A$=\函数返回值是（-----）。

3、在窗体的声明部分，语句Private x% 语句，是将变量定义为（ 1 ）级变量。

4、逻辑型数据只有（ ）两个值。

5、顺序文件读操作用（case ）语句。

6、一个工程可以包括多种类型的文件,其中扩展名为.frx的文件表示( )文件。

7、Command1.Visible=False,是将命令按钮1设为 ( 隐藏 )。

8、当鼠标在控件上暂停时，显示提示信息，要用（ ）属性。

9、Texte1.SetFocus语句功能是把焦点移到（ ）上。

10、Dim X As Currency 是将变量X定义为（ 货币 ）型。

11、某次大奖赛，有6个评委打分，如下代码对一名参赛者，输入6个评委的打分分数，去掉一个

最高分和一个最低分后，求出平均分，即为该参赛者的得分。代码中aver变量存放平均分， max1变量存放最高分，min1变量存放最低分。请在空线处补充使之完整。 Private Sub Command7_Click() Dim mark!, aver!, i%, max1!, min1! aver = 0

For i = 1 To 6

mark = InputBox(\输入第\位评委的打分\ If i = 1 Then

max1 = mark: min1 = mark Else

If mark < min1 Then

（ ） ElseIf mark > max1 Then （ ） End If End If

aver=aver+mark Next

aver = （ ） Print aver End Sub

（9分）

12、这是一个用户名校验程序。用户名为“user”，密码为“1234”,单击按钮：（1）如果用户名和密码

均正确，即输出\欢迎user来到欢乐世界！\字样（2）若用户名错误，则要求重新输入用户名（3）如

果用户名正确，密码错误，则弹出“密码错误！”警告窗口，并直接退出程序。 Option Explicit

Dim UserName As String,userpassword as string Dim inputName As String,inputpassword as string Private Sub form_load()

UserName=\end sub

private sub command1_click()

gt:inputName=InputBox(\请输入用户：\用户名确认\if（ ） Then

msgbox \用户名错误，请重新输入??\