大学计算机基础知.docx

《大学计算机基础知.docx》由会员分享，可在线阅读，更多相关《大学计算机基础知.docx（25页珍藏版）》请在三一办公上搜索。

1、大学计算机基础知第一套 VB 窗体设计器的主要功能是_。 A.显示文字 B.建立用户界面 C.画图 D.编写源程序代码 错误 B D 以下叙述中错误的是_。 A.事件过程是响应特定事件的一段程序 B.对象的方法是执行指定操作的过程 C.对象事件的名称可以由编程者指定 D. 不同的对象可以具有相同名称的方法 错误 C B 在默认情况下，InputBox 函数返回值的类型为_。 A.逻辑类型 B.变体类型 C.数值型 D.字符串型 错误 D B 执行语句For i=1 to 3:i=i+1:Next i后变量i的值是_。 A.6 B.4 C.5 D.3 错误 C B 下列所列中，错误的一维数组说明

2、语句是_。 A.Dim b(5 To 5) AS String B.Dim b(-5 To 0) AS Byte C.Dim b(-10 To -20) AS Integer D.Dim b(100) AS Double 错误 C D 下列叙述中,错误的说法是_。 A.使用Redim语句可以改变数组每维数的大小 B.使用Redim语句可以对数组的元素初始化 C.使用Redim语句可以改变数组的维数 D.使用Redim语句可以改变数组的类型 错误 D C 若 x 为实型变量，要使其输出保留二位小数，应用_函数。 A.Mid B.Format C.Right D.InStr 正确 B B 下面叙述

3、中，错误的是_。 A.自定义类型只能在窗体模块的通用声明段进行声明 B.在窗体模块中定义自定义类型时必须使用Private关键字 C.自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型 D.自定义类型必须在窗体模块或标准模块的通用声明段进行声明 正确 A A 在过程中定义的变量，若离开该过程后，还能保存过程中的局部变量的值，则应使用_关键字在过程中定义。 A.Private B.Static C.Dim D.Public 错误 B D 为了装入一个 Visual Basic 应用程序，下列说法中，正确的是_。 A.分别装入工程文件和标准模块文件(.bas) B.只装入窗体文

4、件(.frm) C.只装入工程文件(.vbp) D.分别装入工程文件、窗体文件和标准模块文件 错误 C D 将数据项 China 添加到列表框 List1 中成为第一项应使用_语句。 A.List1.AddItem China, 1 B.List1.AddItem 1, China C.List1.AddItem China, 0 D.List1.AddItem 0, China 错误 C D 用户在组合框中输入或选择的数据可以通过_属性获得。 A.List B.Text C.ListIndex D.ListCount 错误 B C 在下列关于菜单的说法中，错误的是_。 A.每个菜单项都是一个

5、控件，与其它控件一样也有自己的属性和事件。 B.在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。 C.除了Click事件之外，菜单项还能响应其他的如DblClick等事件。 D.菜单项的快捷键不能任意设置。 错误 C D 下面所列中，鼠标单击事件名为_。 A.DblClick B.MouseUp C.MouseDown D.Click 错误 D C 图片框 Picture1 中装入了一个图形，运行时为了清除该图形，应采用的正确方法是_。 A.选择图片框，在属性窗口中选择Picture属性条，然后按回车键 B.Picture1.picture = C

6、.选择图片框，然后按Del键 D.Picture1.picture = LoadPicture() 错误 D B 下面关于随机文件的描述中，不正确的是_。 A.一个文件的记录号不必唯一 B.其组织结构比顺序文件复杂 C.每条记录的长度必须相同 D.数据只能对ASCII码形式存放在文件中，所以可通过编辑软件显示 错误 A C 程序题 在窗体上画一个名称为Command1的命令按钮，编写下列程序： Private Sub Command1_Click Dim a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub 程序运行后，单

7、击该命令按钮三次后，屏幕上显示的值是_。 A.8 12 B.4 8 C.0 4 D.4 12 错误 A C 判断题：语句If x 0 Then y=7x-1是正确的。 错误 错误 正确 一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句是_。 错误 无 Picture1.Picture=LoadPicture(pic2.gif) picture1.picture=loadpicture(pic2.gif) 为了使列表框中的项目分为多列显示，需要设置的属性是_。 错误 无 COLUMNS columns Columns 设a=北京，b=Shanghai，则表达式

8、LEFT(a，2)+STRING(3，-)+LEFT(b，8)构成的字符串是_。 错误 京-i 北京-Shanghai 在程序运行中，要想使用按钮变成看得见但不可操作，则应设置_的属性是False。 空 1】 错误 enable ENABLED Enabled enabled InputBox函数返回值的类型为_。 错误 变体型 字符型 关闭所有已经打开的文件，应使用语句_。 错误 end CLOSE close Close VB6.0识别对象靠的是对象的_属性。 正确 name NAME Name name 题目：编写函数fun，函数的功能是：计算n门课程 的平均值，计算结果作为函数值返回。

9、 例如，若有5门课程的成绩是：92，76，69， 58，88，则函数的值为76.6。 - Private Function fun(a As Integer, n As Integer) As Double * Begin * * End * End Function Private Sub Form_Load Show Dim a(5) As Integer, i As Integer a(1) = 92: a(2) = 76: a(3) = 69: a(4) = 58: a(5) = 88 Print fun(a, 5) TestFunc End Sub Private Sub TestF

10、unc Dim i As Integer Dim s As String Dim l As Long Dim d As Double Dim a(10) As String Dim b(5) As Integer Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & out.dat For Output As #fOut For i = 1 To 5 Line Input #fIn, a(i) b

11、(i) = Val(a(i) Next Print #fOut, fun(b, 5) Close #fIn Close #fOut End Sub Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n = Dim a(i) As String, s!, n%, ave! n = InputBox(请输入课程数) ReDim a(1 To n) As String s = 0 For i = 1 To n a(i) = InputBox(请输入课程的分数) s = s + a(i) Next i

12、 ave = s / n Print ave 第二套 设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为_。 错误 dim A(1 to 5,-2 to 6) as string dim A(1 To 5，-2 To 6) As String Dim A(1 To 5，-2 To 6) As String 日期表达式 #2/24/02# - #2/12/02# 的值为_。 错误 #0/12/0# 12 已知a=3，b=4，c=5，表达式ab and Not ca Or cb And ca And Not b n T

13、hen t = m: m = n: n = t * Begin * * End * End Function Private Sub Form_Load Show Print fun(5, 2) NJIT_VB End Sub Private Sub NJIT_VB Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & ou

14、t.dat For Output As #fOut For i = 1 To 10 Step 2 Line Input #fIn, a(i) Line Input #fIn, a(i + 1) Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOut End Sub Product = 1 For i = m To n If i Mod 2 0 Then Product = Product * i Next i fun = Product = Dim i As Integer product = 1

15、 For i = m To n If i Mod 2 0 Then product = product = product * i End If Next i Print product=; product 第二套 组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_。 错误 混合组合框 下拉式组合框 print format(32548.5,#,#.#)的输出结果是_。 错误 无 32,548.5 为了使列表框中的项目分为多列显示，需要设置的属性是_。 错误 无 COLUMNS columns Columns 标签控件的默认属性是_。 错误 label CAPTION Capti

16、on caption 如果要将变量a在过程中定义为静态的整型变量，应使用的语句是_。 错误 dim a as string static a% static a as integer Static a% Static a As Integer 判断题：语句：If a=c-b Then Print # Else Print *是正确的。 错误 正确 错误 如果文本框的 Enabled 属性设为 False，则_。 A.文本框的文本将变成灰色，用户仍然能改变文本框中的内容。 B.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上 C.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但

17、是不能改变文本框中的内容。 D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。 错误 B C 执行语句For i=1 to 3:i=i+1:Next i后变量i的值是_。 A.6 B.4 C.5 D.3 错误 C B 若有数组说明语句：Dim t(1 To 10)，则 t 被定义为_。 A.字符串型数组 B.变体类型数组 C.动态数组 D.整型数组 错误 B C 通用过程可以通过执行工具菜单中的_命令来建立。 A.通用过程 B.添加过程 C.添加窗体 D.添加模块 正确 B B 有如下的程序： Private Sub Command1_Click a=1:b=2:

18、c=3 Call test(a,b+3,(c) Print main:;a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 PrintSub:;p;m;n End Function 当运行程序后，单击命令按钮 Command1 ，显示的结果是_。 A.sub:2 6 4 main:1 6 4 B.sub:2 6 4 main:2 6 4 C.sub:2 6 4 main:1 2 3 D.sub:2 4 6 main:2 2 3 错误 D B 在过程中定义的变量，若离开该过程后，还能保存过程中的局部变量的值，则应使用_关键字在

19、过程中定义。 A.Private B.Static C.Dim D.Public 错误 B D 事件内编程，要停止触发 Timer 事件，可通过以下_属性。 A.Enabled = False且Interval = 0 B.Enabled = False或Visible = False C.Enabled = False或Interval = 0 D.Visible= False或Interval = 0 错误 C A 下面关于列表框正确的是_。 A.列表框中的内容可以直接修改 B.列表框控件实质是一维字符数组 C.列表框的AddItem方法是把项目从列表框中删除 D.列表框的Clear方法是

20、删除列表框中由索引值指定的项目 正确 B B 在下列关于菜单的说法中，错误的是_。 A.每个菜单项都是一个控件，与其它控件一样也有自己的属性和事件。 B.在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择。 C.除了Click事件之外，菜单项还能响应其他的如DblClick等事件。 D.菜单项的快捷键不能任意设置。 错误 C D 在 VB 中用来画弧、圆和椭圆的属性或者方法是_。 A.Pset B.Line C.Circle D.三者都不是 错误 C D 数组 题目：(事件)单击窗体。 (响应)利用控件数组产生如图所示的1-9的9个按钮。 要求： 用F

21、or语句来实现 - 注意： 请在指定的事件内编写代码,代码只能写在 * Begin * * End * 的内部，不得修改已有代码保存时不得修改 窗体和工程文件的名称及路径，否则后果自负。 - Private Sub Form_click Dim i As Integer * Begin * * End * End Sub For i = 1 To 9 Load Command1(i) Command1(i).Visible = True Command1(i).Left = Command1(0).Left + Command1(0).Width * i Command1(i).Caption

22、 = i Next i - 题目：(事件)单击命令按钮。 (响应)利用随机函数产生10-99的10个整数存入数组x中，然后在窗体上输出这10个数， 再用冒泡排序法对这10整数由小到大排序，并将排序后的结果输出在窗体上 要求： 用For语句来实现 - 注意： 请在指定的事件内编写代码,代码只能写在 * Begin * * End * 的内部，不得修改已有代码保存时不得修改 窗体和工程文件的名称及路径，否则后果自负。 - Option Base 1 Private Sub Command1_Click Randomize Cls Dim x(10) As Integer, t As Integer

23、 Dim i As Integer, j As Integer * Begin * * End * End Sub For i = 1 To 10 x(i) = Int(Rnd * 90) + 10 Print x(i); Next i Print For i = 1 To 10 For j = 1 To 10 - i If x(j) x(j + 1) Then t = x(j) x(j) = x(j + 1) x(j + 1) = t End If Next Next For i = 1 To 10 Print x(i); Next i - 题目：(事件)单击命令按钮。 (响应)利用随机函数

24、生成0,9的数字组成的5行5列的矩阵， 并在窗体上按5行5列显示该矩阵,然后求它的两条对角线上 的元素之和s ,最后在窗体上显示出s的值。 要求： 用For语句来实现 - 注意： 请在指定的事件内编写代码,代码只能写在 * Begin * * End * 的内部，不得修改已有代码保存时不得修改 窗体和工程文件的名称及路径，否则后果自负。 - Option Base 1 Private Sub Command1_Click Dim a(5, 5), s As Integer Dim i%, j% Randomize * Begin * * End * End Sub For i = 1 To 5

25、 For j = 1 To 5 a(i, j) = Int(Rnd * 10) Print a(i, j); Next j Print Next i s = 0 For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then s = s + a(i, j) Next j Next i Print s - - 题目：(事件)单击命令按钮。 (响应)求已知数组A的所有元素的平均值存入变量Aver,并在窗体上输出结果。 要求： 用For语句来实现 - 注意： 请在指定的事件内编写代码,代码只能写在 * Begin * * End * 的内部，不得修改

26、已有代码保存时不得修改 窗体和工程文件的名称及路径，否则后果自负。 - Option Base 1 Private Sub Command1_Click Dim A, Aver As Single A = Array(10, 20, 34, 54, 26, 89, 12, 34) * Begin * Dim i As Integer Aver = 0 For i = 1 To 8 Aver = Aver + A(i) Next i Aver = Aver / 8 Print Aver = - 题目：(事件)单击命令按钮。 (响应)求数列1，1，2，3，5，8，,的前40项，并以每行5个数的形式

27、在窗体上输出结果。 要求： 用For语句来实现 - 注意： 请在指定的事件内编写代码,代码只能写在 * Begin * * End * 的内部，不得修改已有代码保存时不得修改 窗体和工程文件的名称及路径，否则后果自负。 - Option Base 1 Private Sub Command1_Click Dim f(1 To 40) As Long, i As Integer f(1) = 1: f(2) = 1 * Begin * * End * End Sub For i = 3 To 40 f(i) = f(i - 1) + f(i - 2) Next i For i = 1 To 40

28、 Print f(i), If i Mod 5 = 0 Then Print Next i 第三套 英文缩写“OOP”的含义是_。 A.事件驱动的编程机制 B.结构化程序设计语言 C.面向对象程序设计 D.可视化程序设计 错误 C 未答此题 以下叙述中错误的是_。 A.事件过程是响应特定事件的一段程序 B.对象的方法是执行指定操作的过程 C.对象事件的名称可以由编程者指定 D. 不同的对象可以具有相同名称的方法 错误 C B 执行语句 receive = MsgBox(AAAA, , BBBB, , 5) 所产生的信息框的标题是_。 A.AAAA B.BBBB C.空 D.出错，不能产生信息框

29、 错误 B A 下面所列中，正确的数组声明语句是_。 A.Dim a(n,n) AS Integer B.Dim a(0 To 8,5 To -1) AS Single C.Dim a(10,-10) AS Double 后，D.Dim a(-1 To 5,8) AS String 错误 D A 下列叙述中，正确的是_。 A.在调用过程时，所有局部变量被系统初始化为0或空字符串 B.在窗体的Form_Load事件过程中定义的变量是全局变量 C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D.局部变量的作用域可以超出所定义的过程 正确 C C

30、当要用字符串 VB考试 修改列表框 List1 所选中的数据项时，正确的表示方法是_。 A.List(List1.ListIndex) = VB考试 B.List1.List(ListIndex) = VB考试 C.List1.AddItem VB考试 D.List1.List(List1.ListIndex)=VB考试 正确 D D 滚动条的默认属性是_。 A.Name B.Min C.Value D.Max 错误 C A 在设计弹出式菜单时，必须把菜单名的 Visible 属性设置为_。 A.True B.Enabled C.Visible D.False 错误 D A 判断题：若对话框是

31、模式型，则打开后无法将鼠标移到其它窗口。 错误 正确 错误 判断题：表达式Len(Left(abcd, 2) + Right(欢迎使用VB, 2)的值是4。 错误 正确 错误 关闭所有已经打开的文件，应使用语句_。 如果要将变量a在过程中定义为静态的整型变量，应使用的语句是_。 错误 dim a as integer static a% static a as integer Static a% Static a As Integer - 题目：编写函数fun其功能是：根据整型形参m， 计算如下公式的值: y=11/31/51/7.1/(2m+1) 例如：若m=9，则应输出：2.133255

32、- Private Function fun(m As Integer) As Single * Begin * * End * End Function Private Sub Form_Load Show Print fun(9) TestFunc End Sub Private Sub TestFunc Dim i As Integer Dim s As String Dim l As Integer Dim d As Double Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile