2022年2022年计算机专业试卷 2.pdf

《2022年2022年计算机专业试卷 2.pdf》由会员分享，可在线阅读，更多相关《2022年2022年计算机专业试卷 2.pdf（16页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1计算机专业试卷2015姓名学号一、选择题(1) 标签控件提供了在窗体相对固定的位置显示文件的区域，和它具有同样功能的控件是（）A.文本框B.命令按钮C.图片框D.以上各控件都不对(2) 文本框不具有的属性是（）A.MultilineB.CaptionC.FontD.Height(3) 命令按钮不具有的属性是（）A.FontB.MultilineC.EnabledD.Visable(4) 单选按钮不具有的属性是（）A.ValueB.CaptionC.TextD.Font(5) 复选框不具有的属性是（）A.ValueB.CaptionC.BackColorD.Default(6) 列表框图标的英

2、文名称是：（）A.ListBoxB.ComboBoxC.FrameD.CommonDialog(7) PictureBox 图标的中文名称是（）A.图片框图标B.图片框图标C.计时器图标D.以上都不是(8) 图像框和图片框的区别是（）A. 图像框使用的系统资源比图片框多B.图像框重新绘图速度快C. 图片框重新绘图速度快D.以上都不对(9) 图片框没有的属性是（）A.PictureB.captionC.AutosizeD.以上属性都没有(10) 计时器没有的属性是（）A.IntervalB.EnableC.SizeD.Index(11) 下关于 Visual Basic 特点叙述中，错误的是_

3、_。A）Visual Basic 是采用事件驱动编程机制的语言B）Visual Basic 程序既可以编译运行，也可以解释运行C）构成 Visual Basic 程序的多个过程没有固定的执行顺序D）Visual Basic 程序不是结构化程序，不具备结构化程序的三种基本结构(12) 面可以正确定义两个整型变量和一个字符串变量的语句是_ _。A）Dim n,m As Integer,s As StringB）Dim a%,b$,c As StringC）Dim aAs Integer,b,c As StringD）Dim x%,y As Integer,z As String（13）现有语句：

4、y=IIf(x0,x Mod 3, 0)设 x=10，则 y 的值是 _。A）0B）1C）3D）语句错误（14）窗体上有一个名称为Command1 的命令按钮，其事件过程如下：Private Sub Command1_Click()x=VisualBasicProgramming名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 16 页 - - - - - - - - - 2a=Right(x,11)b=Mid(x, 7, 5)c=MsgBox(a, ,b)End Sub运

5、行程序后单击命令按钮。以下叙述中错误的是_。A）信息框的标题是BasicB）信息框中的提示信息是ProgrammingC）c 的值是函数的返回值D）MsgBox 的使用格式有错（15）窗体上有一个名称为Frame1 的框架（如图），若要把框架上显示的“Frame1”改为汉字“框架”，下面正确的语句是_。A）Frame1.Name = 框架 B）Frame1.Caption = 框架C）Frame1.Text = 框架D）Frame1.Value= 框架（16）为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把 ScrollBars 属性设置为 _。A）0

6、B）1C）2D）3（17）在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox( 请输入一个整数)Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为_。A) 123B) 456C) 479D) 123456（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1 ，在属性窗口中把计时器的 Interval属性设置为 1000，Enabled属性设置为 False。程序运行后，如果单击命令按钮

7、， 则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在下划线处应填入的内容是_。A) Enabled = TrueB) Enabled = FalseC) Visible = TrueD) Visible = False（19）若已把一个命令按钮的Default 属性设置为True，则下面可导致按钮的Click 事件过程被调用的操作是_。名师资料总结 - - -精品资料欢迎下载 - - -

8、- - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 16 页 - - - - - - - - - 3A）用鼠标右键单击此按钮B）按键盘上的 Esc键C）按键盘上的回车键D）用鼠标右键双击此按钮（20）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。 当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_。A)Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd SubB)Priv

9、ate Sub List1_Click()Label1.Name=List1.ListIndexEnd SubC) Private Sub List1_Click()Label1.Name=List1.TextEnd SubD) Private Sub List1_Click()Label1.Caption =List1.TextEnd Sub（21）在窗体上画 1个命令按钮（名称为Command1）和1个文本框（名称为Text1） ，然后编写如下事件过程：Private Sub Command1_Click()x=Val(Text1.Text)Select CasexCase1,3y=x*x

10、CaseIs=10,Is=0 Or a=0 And a=100 ThenText1.SetFocusElseText2.SetFocus:MsgBox( 分数错 )End IfEnd IfEnd SubC） Private Sub Text1_KeyPress(KeyAsciiAs Integer)If KeyAscii=13 Then 回车符的ASCII 码是 13a=Val(Text1)If a100 ThenText2.SetFocusElseText1.SetFocus:MsgBox( 分数错 )End IfEnd IfEnd SubD） Private Sub Text1_KeyPr

11、ess(KeyAsciiAs Integer)If KeyAscii=13 Then 回车符的ASCII 码是 13a=Val(Text1)If a=0 And ax ThenMsgBox 请重新输入！ End IfEnd SubA）TextB）SelTextC）ControlD）Form（27）窗体上有一个名称为CD1 的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。命令按钮的事件过程如下：Private Sub Command1_Click(IndexAs Integer)Select CaseIndexCase0CD1

12、.Action=1名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 16 页 - - - - - - - - - 6Case1CD1.ShowSaveCase2CD1.Action=5Case3EndEnd SelectEnd Sub对上述程序，下列叙述中错误的是_。A）单击“打开”按钮，显示打开文件的对话框B）单击“保存”按钮，显示保存文件的对话框C）单击“打印”按钮，能够设置打印选项，并执行打印操作D）单击“退出”按钮，结束程序的运行（28）窗体上有两个水平滚动条HV

13、、HT ，还有一个文本框Text1 和一个标题为“计算”的命令按钮 Command1，并编写了以下程序：Private Sub Command1_Click()Call calc(HV.Value, HT.Value)End SubPublic Sub calc(x As Integer, y As Integer)Text1.Text=x*yEnd Sub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是_。A）过程调用语句不对，应为calc(HV, HT)B）过程定义语句的形式参数不对，应为Sub calc(x As Control, y

14、 As Control)C）计算结果在文本框中显示出来D）程序不能正确运行（29）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是_b _。A) 选择图片框，然后按Del键B) 执行语句 Picture1.Picture = LoadPicture ()C) 执行语句 Picture1.Picture =D) 选择图片框，在属性窗口中选择Picture属性条，然后按回车键（30）以下说法中正确的是_。A）任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器B）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C）任何时候都可以通

15、过单击标准工具栏上的“菜单编辑器”按钮打开菜单编辑器D）只有当代码窗口为当前活动窗口时，才能打开菜单编辑器（31）阅读程序：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 16 页 - - - - - - - - - 7Option Base1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To

16、2arr(i, j) = i * 2 + jNext jNext iReDim Preservearr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2) + arr(3, 4)End Sub程序运行后，单击窗体，输出结果为_。A)21B)13C)8D)25（32）某人为计算n!(0n=b And b10B) (ab)Or(b0)C) (a0)D) (-3+5a)And (b0)D）可以根据需要，设定某一个窗体作为启动窗体(48) 下列说法正确的是A）一个应用程序中只能创建一个窗体B）一个应用程序中只能创建一个模块C）一个应用程序

17、中只能创建一个启动窗体D）一个应用程序中只能创建一个过程(49) 以下能够触发文本框Change事件的操作是A) 文本框失去焦点B) 文本框获得焦点C) 设置文本框的焦点D) 改变文本框的内容(50)在窗体上画一个名称为List1的列表框， 一个名称为Label1 的标签。 列表框中显示若干城市的名称。 当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A）PrivateSub List1_Click()B) PrivateSub List1_Click()Label1.Caption=List1.ListIndexLabel1.Name=List1.Li

18、stIndexEnd SubEnd SubC) PrivateSub List1_Click()D) PrivateSub List1_Click()Label1.Name=List1.TextLabel1.Caption=List1.Text名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 16 页 - - - - - - - - - 10End SubEnd Sub二、填空题（1）语句 x=InputBox( 输入数值， 0，示例)程序运行后，如果从键盘上输入数值10

19、并按回车键，则变量X的值是_。（2）cos(0)+abs(1)+int(rnd(1)的值是_ 。（3）定义数组ary 的大小为 15，但不清除其中的元素，合法的数组定义_ 。（4）在 vb 中，系统的基本运行实体是_ 。（5）设 A$=Visual Basic,len(a$) 函数返回值是（6）下列语句的输出结果是。Print Format(Int(12345.6789 * 100 + 0.5) / 100, 0000,0.00)（7）窗体上命令按钮Command1 的事件过程如下：Private Sub Command1_Click()Dim total As Integertotal=s(

20、1)+s(2)Print totalEnd SubPrivate Function s(m As Integer) As IntegerStatic x As IntegerFor i=1 To mx=x+1Next is=xEnd Function运行程序，第3 次单击命令按钮Command1 时，输出结果为。（8）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图 2 的结果。下面是可实现此功能的程序，请填空。图 1图 2Private Sub Combo1_Click()Dim temp

21、temp = Combo1.TextCombo1.List(Combo1.ListIndex)= Combo1.List(0)Combo1.List(0) = tempEnd Sub（9）阅读下面的程序：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 16 页 - - - - - - - - - 11Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter =

22、5DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint CounterEnd Sub程序运行后，单击窗体，输出结果为。（10）某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回FalseFunction prime(a As Integer) As BooleanDim k As Integer,isprime As BooleanIf a2 Thenisprime=FalseElsei

23、sprime=Truek=2Do While ka/2 And isprimeIfa Mod k=0 Thenisprime=FalseElsek=k+1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有一个非素数也被判断为素数，这个错判的数是。（11）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1 和 Text1，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1.Text = Left(UCase(SaveAll), 4)End SubPrivate

24、Sub Text1_KeyPress(KeyAscii As Integer)SaveAll = SaveAll + Chr(KeyAscii)End Sub名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 16 页 - - - - - - - - - 12程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是。（12）设有如下程序：Option Base1Private Sub Command1_Click()Dim arr1Dim Min As

25、 Integer, i As Integerarr1 = Array(12, 435, 76, - 24, 78, 54, 866, 43)Min =For i = 2 To 8If arr1(i) = 90n1 = n1 + 1Case Is= 80n2 = n2 + 1Case Is= 70n3 = n3 + 1Case Is= 60n4 = n4 + 1Case Elsen5 = n5 + 1score= Val(InputBox(msg,msgtitle)WendPrintn1,n2,n3,n4,n5,total名师资料总结 - - -精品资料欢迎下载 - - - - - - - -

26、- - - - - - - - - - 名师精心整理 - - - - - - - 第 14 页，共 16 页 - - - - - - - - - 15End Sub2.某次大奖赛，有6 个评委打分，如下代码对一名参赛者，输入6 个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分，即为该参赛者的得分。代码中aver 变量存放平均分，max1变量存放最高分， min1变量存放最低分。请在空线处补充使之完整。PrivateSub Command7_Click()Dim mark!,aver!,i%,max1!,min1!aver= 0For i= 1 To 6mark = InputBox(

27、 输入第& i& 位评委的打分 )Ifi= 1 Thenmax1 = mark:min1 = markElseIfmark max1 ThenEnd IfEnd Ifaver=aver+markNextaver=PrintaverEnd Sub3.这是一个用户名校验程序。用户名为“user” ，密码为“ 1234”, 单击按钮：（1）如果用户名和密码均正确，即输出欢迎user 来到欢乐世界！ 字样（2）若用户名错误，则要求重新输入用户名（3）如果用户名正确，密码错误，则弹出“密码错误！”警告窗口，并直接退出程序。OptionExplicitDim UserName As String,user

28、passwordas stringDim inputNameAs String,inputpasswordas stringPrivateSub form_load()UserName=user:userpassword=1234end subprivatesub command1_click()gt:inputName=InputBox(请输入用户： ,用户名确认 , )ifThenmsgbox 用户名错误，请重新输入gotogtelseinputpassword=InputBox( 请输入密码： ,密码验证 , )ifinputpassworduserpasswordthenmsgbox 密码错误！:名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 15 页，共 16 页 - - - - - - - - - 16elseMsgBox 欢迎 & UserName & 来到欢乐世界！End Ifend ifEnd Sub名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 16 页，共 16 页 - - - - - - - - -