计算机 试 卷 A 卷真题.docx

1、计算机 试 卷 A 卷真题上 饶 师 范 学 院 试 卷 （ A卷） 课程名称：计算机基础与应用 适用学期：第 3 学期适用专业： 理工类 适用层次： 本、专科 班级： 学号： 姓名 命题人：曾建华 教研室审核人：陈博政 系(部)审定人: 谭国律一、选择题(每题1分，共50分)下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项填写在答题卡上，答在试卷上不得分。1、以下叙述中正确的是 A A) 对象的Name属性值不可以为空 B) 窗体的Name属性的值是显示在窗体标题栏中的文本 C) 可以在运行期间改变对象的Name属性的值 D) 窗体的Name属性指定窗体的

2、名称，但不能用来标识一个窗体2、将数学表达式Cos2(a+B) +5e2写成Visual Basic的表达式，其正确的形式是 BA) Cos(a+B)2+5*ln(2) B) Cos(a+B)2+5*exp(2) C) Cos2(a+B) +5*exp(2) D) Cos2(a+B) +5*ln(2)3、表示滚动条控件取值范围最大值的属性是 DA) Min B) LargeChange C) Value D) Max4、如果要文本框的显示内容，应选择以下那种属性 DA) Name B) Tips C) Caption D)Text5、要使得窗体在出现之前就完成相关的程序设置可在以下哪个事件中进

3、行编程 A A) load B) linkopen C) KeyPress D) click6、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 C A) 单选按钮 B) 图片框 C) 通用对话框 D) 文本框7、设有如下变量声明 A Dim TestDate As Date 为变量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=In

4、t(b-a)*Rnd+a)+1 后，c值的范围为 C A）510 B）69 C）610 D）59 9、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： PrivateSubCommand1_Click() a$=softwareandhardware:b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,b$,c$,1 EndSub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 C A）softwareandhardwareB）softwareC）hardwareD）110、在窗体上画一个命令按钮和一个文本框，其名称分别为Comman

5、d1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： PrivateSubCommand1_Click() a=InputBox(Enteraninteger) ：b=InputBox(Enteraninteger) Text1.Text=b+a EndSub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 A A）108 B）18 C）810 D）出错11、有如下程序： OptionBase1 PrivateSubForm_Click() Dimarr,Sum Sum=0 arr=Array(1,3,5,7,9,11,13,15,1

6、7,19) Fori=1To10 Ifarr(i)/3=arr(i)3Then Sum=Sum+arr(i) Nexti PrintSum EndSub 程序运行后，单击窗体，输出结果为 C A）25 B）26 C）27 D）2812、在窗体上画一个命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click() Dima(5)AsString Fori=1To5 a(i)=Chr(Asc(A)+(i-1) Nexti ForEachbIna Printb; Next EndSub 程序运行后，单击命令按钮，输出结果是 A A）ABCDE B）12345 C）abcde

7、D）出错信息 13、以下关于函数过程的叙述中，正确的是 D A）如果不指明函数过程参数的类型，则该参数没有数据类型 B）函数过程的返回值可以有多个 C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递 D）函数过程形参的类型与函数返回值的类型没有关系14、以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是 A A）KeyAscii参数是所按键的ASCII码 B）KeyAscii参数的数据类型为字符串 C）KeyAscii参数可以省略 D）KeyAscii参数是所按键上标注的字符15、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框

8、），应采用的正确方法是： BA)选择图片框，然后按Del键B)执行语句Picture1.Picture=LoadPicture(“”)C)执行语句Picture1.Picture=”D)选择图片框，在属性窗口中选择Picture属性，然后按回车键16、执行以下程序段Dim x As Integer, i As Integerx=0For i = 20 To 1 Step -2 x = x + i 5Next I后，x的值为A)16B)17C)18D)1917、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim SW As BooleanFunction func(X As

9、 Integer) As Integer If X 10 Then exit for Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A) 3 B) 4C) 1 D) 225、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j：Print a(i,j); Next j P

10、rint Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是 A) 123 B) 234 C) 147 D) 123 456 345 258 246 789 456 369 36926、设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是 A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6

11、 5 427、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）Private Sub List1_Click() Label1.Caption=List1. ListIndex End Sub B) Private Sub List1_Click() Label1.Name=List1.ListIndex End SubC) Private Sub List1_Click() Label1.Name=List1.Text End SubD) Privat

12、e Sub List1_Click() Label1.Caption=List1. Text End Sub28、在窗体上画一个命令按钮，名称为Command1, 然后编写如下事件过程：Option Base 0Private Sub Command1_Click() Dim city As Variant city=Array(北京，上海，天津，重庆) Print city(2)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）天津 B) 错误提示 C) 北京 D) 上海29、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Co

13、mmand1_Click() Static X As Integer Dim Y As Integer Cls Y=Y+5:X=5+X Print X,Y End Sub 程序运行时，三次单击命令按钮Commandl后，窗体上最后显示的结果为 A) 15 5 B) 15 15 C) 10 5 D) 5 530、设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(30)As IntegerFor i=1 To 30 a(i)=Int(Rnd*100)NextFor Each arrItem In a If arrItem Mo

14、d 7=0 Then Print arrItem； If arrItem90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是。A) a数组中的数据是30个100以内的整数B) 语句For Each arrItem In a有语法错误C) If arrItem Mod 7=0语句的功能是输出数组中能够被7整除的数D) If arrItem90语句的作用是当数组元素的值大于90时退出For循环31、下列Visual Basic程序段运行后，变量s的值为_。a=2:b=1:s=0For i=10 To 6 Step-1 s=s+a:c=a+b:a=b:b=cNex

15、t iA）10 B）17 C）6 D）2832、在Visual Basic中程序段是计算_公式的。s=0:t=1For i=1 To 10 t=t*i：s=s+tNext iA）s=1+2+3+4+5+6+7+8+9+10B）s=1*2*3*4*5*6*7*8*9*10C）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*1033、假定X是一个数值型变量，那么由函数组成的表达式INT(X/2)=X/2是_。A.用于测试X是否偶数 B.返回一个整数C.返回一个奇数 D.用于测试X是否整数34、下列Visual

16、Basic中，下列_程序是对的。A）X+Y=5 B）A+B=C3 C）Y=1:Y=Y+1 D）I=X1035、下列Visual Basic中，下列_的表达式的值不等于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）Font B）ForeColor C）Name D）Height38、下列属于字符常量的是_。A）Abs(x) B）100 C）val(100) D）10000/10039、要使一个控

17、件在运行时无效，正确的设置是_。A）把属性Enabled设置为True B）把属性Enabled设置为FalseC）把属性Visibled设置为True D）把属性Visibled设置为False40、RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝)，括号中红、绿、蓝三基色的成分使用0255之间的整数。若使用三个滚动条分别输入三种基色，为保证输入数值有效, 则应设置_ 属性.A）Max和Min B）Smallchange和 LargeChangeC）Scroll和Change D）Value41、不能通过_来删除列表框中的选项.A）List属性 B）Removel

18、tem方法 C）Clear方法 D）Test属性42、组合框的三种不同风格:下拉组合框.简单组合框和下拉列表框由_ 属性决定.A）Style B）BoderStyle C）FillStyle D）DrawStyle43、设计动画通常使用时钟控件_ 来控制动画速度.A）Enabled B）Interval C）Timer D）Move44、在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中_窗口是用来显示代码中正在调试的语句所产生的信息，或显示直接在该窗口中键入的命令所请求的信息. A）立即 B）监视 C）本地 D）中断45、在窗体上画1个名称为Command1的命令按钮，然后编写如

19、下事件过程：Private Sub Command1_Click()a=0For i=1 To 3 For j=1 To 4 If j Mod 20 Then a=a-1 End If a=a+1 Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是。A) 8 B) 6 C) 4 D) 046、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer) End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A）单击鼠标 B) 双击文本框C) 鼠标

20、滑过文本框 D) 按下键盘上的某个键47、以下叙述中错误的是 A) 程序运行过程中，可以重新设置菜单的Visible属性 B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键 C) 在同一窗体的菜单项中，不允许出现标题相同的菜单项 D) 弹出式菜单也在菜单编辑器中定义48、以下叙述中错误的是 A) 一个工程中可以包含多个窗体文件 B) 在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C) 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D) 全局变量必须在标准模块中定义49、以下叙述中正确的是 A) Open命令的作用是打开一个已经存

21、在的文件 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，实现的表达式为

22、【51】。52、InputBox函数的第2个参数是用来设置对话框的【52】。53-55、在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在 53 、 5

23、4 和 55 处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() For i=0 To 3 If【53】 =True then opt=Option1(i).Caption End If Next Select Case【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) End Select 【55】 =Result End Sub56、如下程序：Private Sub C