级上 饶 师 范 学 院 试 卷 A 卷.docx

级上 饶 师 范 学 院 试 卷 A 卷.docx

《级上 饶 师 范 学 院 试 卷 A 卷.docx》由会员分享，可在线阅读，更多相关《级上 饶 师 范 学 院 试 卷 A 卷.docx（12页珍藏版）》请在冰豆网上搜索。

级上饶师范学院试卷A卷

上饶师范学院试卷（A卷）

课程名称：

计算机基础与应用适用学期：

第3学期

适用专业：

理工类适用层次：

本、专科

班级：

学号：

姓名

命题人：

曾建华教研室审核人：

陈博政系（部）审定人:

谭国律

一、选择题（每题1分，共50分）

下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项填写在答题卡上，答在试卷上不得分。

1、以下叙述中正确的是

A）对象的Name属性值不可以为空

B）窗体的Name属性的值是显示在窗体标题栏中的文本

C）可以在运行期间改变对象的Name属性的值

D）窗体的Name属性指定窗体的名称，但不能用来标识一个窗体

2、将数学表达式Cos2（a+B）+5e2写成VisualBasic的表达式，其正确的形式是

A）Cos（a+B）∧2+5*ln

（2）B）Cos（a+B）∧2+5*exp

（2）

C）Cos∧2（a+B）+5*exp

（2）D）Cos∧2（a+B）+5*ln

（2）

3、表示滚动条控件取值范围最大值的属性是

A）MinB）LargeChangeC）ValueD）Max

4、如果要文本框的显示内容，应选择以下那种属性

A）Name  B）TipsC）Caption  D）Text

5、要使得窗体在出现之前就完成相关的程序设置可在以下哪个事件中进行编程

A）load B）linkopen    C）KeyPress D）click 

6、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是

A）单选按钮     B）图片框     C）通用对话框        D）文本框

7、设有如下变量声明

DimTestDateAsDate

为变量TestDate正确赋值的表达方式是

A）TextDate=#1/1/2002#B）TestDate=#“1/1/2002”#

C）TextDate=date（“1/1/2002”）    D）TestDate=Format（“m/d/yy”,“1/1/2002”）

8、设a = 5，b = 10，则执行

 c = Int（（b - a） * Rnd + a） + 1

 后，c值的范围为

 A）5～10 B）6～9 C）6～10 D）5～9

9、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

Private Sub Command1_Click（）

 a$ = "software and hardware":

b$ = Right（a$, 8）

c$ = Mid（a$, 1, 8）

 MsgBox a$, , b$, c$, 1

End Sub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

A）software and hardware B）software C）hardware D）1

10、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click（）

 a = InputBox（"Enter an integer"）：

b = InputBox（"Enter an integer"）

 Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是

 A）108 B）18 C）810 D）出错

11、有如下程序：

Option Base 1

Private Sub Form_Click（）

 Dim arr, Sum

 Sum = 0

 arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）

 For i = 1 To 10

 If arr（i） / 3 = arr（i） \ 3 Then Sum = Sum + arr（i）

 Next i

 Print Sum

End Sub

 程序运行后，单击窗体，输出结果为

 A）25B）26 C）27 D）28

12、在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（）

 Dim a（5） As String

 For i = 1 To 5

 a（i） = Chr（Asc（"A"） + （i - 1））

 Next i

 For Each b In a

 Print b;

 Next

End Sub

 程序运行后，单击命令按钮，输出结果是

 A）ABCDE B）1 2 3 4 5 C）abcde D）出错信息

13、以下关于函数过程的叙述中，正确的是

A）如果不指明函数过程参数的类型，则该参数没有数据类型

B）函数过程的返回值可以有多个

C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

D）函数过程形参的类型与函数返回值的类型没有关系

14、以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串

C）KeyAscii参数可以省略D）KeyAscii参数是所按键上标注的字符

15、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：

　　A）选择图片框，然后按Del键　　B）执行语句Picture1.Picture=LoadPicture（“”）

　　C）执行语句Picture1.Picture=””

　　D）选择图片框，在属性窗口中选择Picture属性，然后按回车键

16、执行以下程序段

　　DimxAsInteger,iAsInteger

　　x=0

　　Fori=20To1Step-2

　　x=x+i\5

　　NextI

　　后，x的值为

　　A）16　　　B）17　　C）18　　D）19

17、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

　　DimSWAsBoolean

　　Functionfunc（XAsInteger）AsInteger

　　IfX<20Then

　　Y=X

　　Else

　　Y=20+X

　　EndIf

　　func=Y

　　EndFunction

　　PrivateSubCommand1_Click（）

　　DimintNumAsInteger

　　intNum=InputBox（""）

　　IfSWThenPrintfunc（intNum）

　　EndSub

　　PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

　　SW=False

　　EndSub

　　PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

　　SW=True

　　EndSub

　　程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:

　　A）输出0　　B）输出25　　C）输出45　　D）无任何输出

18、设有语句

x=InputBox（“输入数值”，“0”，“示例”）

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是

A）变量X的值是数值10    B）变量X的值是字符串“10”

C）在InputBox对话框标题栏中显示的是“示例”D）0是默认值

19、以下能够触发文本框Change事件的操作是

A）  设置文本框的焦点        B）文本框获得焦点

C）改变文本框的内容      D）文本框失去焦点

20、在窗体上有一个文本框控件，名称为TxtTime：

一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。

程序为：

PrivateSubTimer1_（）

TxtTime.text=Time

EndSub

在下划线后面应填入的内容是

A）Timer         B）Visible         C）EnabledD）Interval         

21、设有如下语句：

Dima，bAsInteger

c="VisualBasic"

d=#7/20/2005#

以下关于这段代码的叙述中，错误的是。

A）a被定义为Integer类型变量B）b被定义为Integer类型变量

C）c中的数据是字符串D）d中的数据是日期类型

22、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是

A）Value       B）Cancel         C） Default      D）Enabled

23、在窗体上画一个命令按钮，名称为Command1。

然后编写如下程序：

PrivateSubCommand1_Click（）

ForI=1To4

ForJ=1ToI

PrintChr$（65+I）;

NextJ

Print

NextI

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A）BBB）A          C）B          D）AA

CCBB  CCBBB

  DDCCC          DDD       CCCC

  EEDDDD      EEEE     DDDDD

24、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

DimiAsInteger,nAsInteger

ForI=0To50

i=i+5:

n=n+1

Ifi>10Thenexitfor

Next

Text1.Text=Str（n）

EndSub

程序运行后，单击命令按钮，在文本框中显示的值是

A）3          B）4            C）1          D）2

25、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger

Dima（10,10）AsInteger

Fori=1To3

Forj=1To3

a（i,j）=（i-1）*3+j：

Printa（i,j）;

Nextj

Print

Nexti

EndSub

程序运行后，单击命令按钮，窗体上显示的是

A）123          B）234          C）147           D）123

   456            345            258              246

789             456369              369

26、设有如下程序：

OptionBase0

PrivateSubForm_Click（）

Dima

DimiAsInteger

a=Array（1,2,3,4,5,6,7,8,9）

Fori=0To3

Printa（5-i）;

Next

EndSub

程序运行后，单击窗体，则在窗体上显示的是

A）4321      B）5432     C）6543      D）7654

27、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。

列表框中显示若干城市的名称。

当单击列表框中的某个城市名时，在标签中显示选中城市的名称。

下列能正确实现上述功能的程序是

A）PrivateSubList1_Click（）

Label1.Caption=List1.ListIndex

EndSub

B）PrivateSubList1_Click（）

Label1.Name=List1.ListIndex

EndSub

C）PrivateSubList1_Click（）

Label1.Name=List1.Text

EndSub

D）PrivateSubList1_Click（）

Label1.Caption=List1.Text

EndSub

28、在窗体上画一个命令按钮，名称为Command1,然后编写如下事件过程：

OptionBase0

PrivateSubCommand1_Click（）

DimcityAsVariant

city=Array（"北京"，"上海"，"天津"，"重庆"）

Printcity

（2）

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A）天津B）错误提示C）北京D）上海

29、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

PrivateSubCommand1_Click（）

StaticXAsInteger

DimYAsInteger

Cls

Y=Y+5:

X=5+X

PrintX,Y

EndSub

程序运行时，三次单击命令按钮Commandl后，窗体上最后显示的结果为

A）155         B）1515          C）105          D）55

30、设有命令按钮Command1的单击事件过程，代码如下：

PrivateSubCommand1_Click（）

Dima（30）AsInteger

Fori=1To30

a（i）=Int（Rnd*100）

Next

ForEacharrItemIna

IfarrItemMod7=0ThenPrintarrItem；

IfarrItem>90ThenExitFor

Next

EndSub

对于该事件过程，以下叙述中错误的是。

A）a数组中的数据是30个100以内的整数

B）语句ForEacharrItemIna有语法错误

C）IfarrItemMod7=0……语句的功能是输出数组中能够被7整除的数

D）IfarrItem>90……语句的作用是当数组元素的值大于90时退出For循环

31、下列VisualBasic程序段运行后，变量s的值为______。

a=2:

b=1:

s=0

Fori=10To6Step-1

s=s+a:

c=a+b:

a=b:

b=c

Nexti

A）10B）17C）6D）28

32、在VisualBasic中程序段是计算______公式的。

s=0:

t=1

Fori=1To10

t=t*i：

s=s+t

Nexti

A）s=1+2+3+4+5+6+7+8+9+10

B）s=1*2*3*4*5*6*7*8*9*10

C）s=1!

+2!

+3!

+4!

+5!

+6!

+7!

+8!

+9!

+10!

D）s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*10

33、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2是______。

A.用于测试X是否偶数B.返回一个整数

C.返回一个奇数D.用于测试X是否整数

34、下列VisualBasic中，下列______程序是对的。

A）X+Y=5B）A+B=C^3C）Y=1:

Y=Y+1D）I=X10"

35、下列VisualBasic中，下列______的表达式的值不等于4。

A）int（4.1）B）Fix（4.9）C）Abs（int（-3.9））D）Abs（int（-4.5））

36、下列______不是VB程序的基本结构。

A）层次结构B）分支结构C）循环结构D）顺序结构

37、要改变新建对象的缺省名称，应使用属性____。

A）FontB）ForeColorC）NameD）Height

38、下列属于字符常量的是____。

A）Abs（x）B）"100"C）val（"100"）D）10000/100

39、要使一个控件在运行时无效，正确的设置是____。

A）把属性Enabled设置为TrueB）把属性Enabled设置为False

C）把属性Visibled设置为TrueD）把属性Visibled设置为False

40、RGB函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB（红.绿.蓝），括号中红、绿、蓝三基色的成分使用0～255之间的整数。

若使用三个滚动条分别输入三种基色，为保证输入数值有效,则应设置___属性.

A）Max和Min    　　　　　　B）Smallchange和LargeChange

C）Scroll和Change   　　　　D）Value

41、不能通过 ___来删除列表框中的选项.

A）List属性   B）Removeltem方法    C）Clear方法 D）Test属性

42、组合框的三种不同风格:

下拉组合框.简单组合框和下拉列表框由 ___属性决定.

A）Style     B）BoderStyle      C）FillStyle    D）DrawStyle

43、设计动画通常使用时钟控件 ___来控制动画速度.

A）Enabled   B）Interval   C）Timer  D）Move

44、在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中___窗口是用来显示代码中正在调试的语句所产生的信息，或显示直接在该窗口中键入的命令所请求的信息.

A）立即       B）监视          C）本地        D）中断

45、在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a=0

Fori=1To3

Forj=1To4

IfjMod2<>0Then

a=a-1

EndIf

a=a+1

Nextj

Nexti

Printa

EndSub

程序运行后，单击命令按钮，输出结果是。

A）8B）6C）4D）0

46、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：

PrivateSubTxtA_KeyPress（keyasciiasinteger）

……

EndSub

若焦点位于文本框中，则能够触发KeyPress事件的操作是

A）单击鼠标B）双击文本框

C）鼠标滑过文本框D）按下键盘上的某个键

47、以下叙述中错误的是

A）程序运行过程中，可以重新设置菜单的Visible属性

B）在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键

C）在同一窗体的菜单项中，不允许出现标题相同的菜单项

D）弹出式菜单也在菜单编辑器中定义

48、以下叙述中错误的是

A）一个工程中可以包含多个窗体文件

B）在一个窗体文件中用Private定义的通用过程能被其他窗体调用

C）在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件

D）全局变量必须在标准模块中定义

49、以下叙述中正确的是

A）Open命令的作用是打开一个已经存在的文件

B）随机文件中每个记录的长度是固定的

C）使用Input#语句可以从随机文件中读取数据

D）一个记录中所包含的各个元素的数据类型必须相同

50、设在菜单编辑器中定义了一个菜单项，名为menu1。

为了在运行时隐藏该菜单项，应使用的语句是

A）Menu1.Visible=False          B）Munu1.Enabled=False

C） Menu1.Enabled=True       D）Menu1.Visible=True

二、填空题（每空2分，共30分）

请将每空的正确答案写在答题卡上，答在试卷上不得分。

51、整型变量M中存放了一个三位数，要将三位数倒置，如123变成321，实现的表达式为【51】。

52、InputBox函数的第2个参数是用来设置对话框的【52】。

53-55、在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。

程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。

请在[53]、[54]和[55]处填入适当的内容，将程序补充完整。

PrivateSubCommand1_Click（）

Fori=0To3

If【53】=Truethen

opt=Option1（i）.Caption

EndIf

Next

SelectCase【54】

Case”+”

Result=Val（Text1.Text）+Val（Text2.Text）

Case”-”

Result=Val（Text1.Text）-Val（Text2.Text）

Case”*”

Result=Val（Text.Text）*Val（Text2.Text）

Case”/”

Result=Val（Text1.Text）/Val（Text2.Text）

EndSelect

【55】=Result

EndSub

56、如下程序：

PrivateSubCommand1_Click（）

x=0:

n=I