2022年2022年计算机语言与程序设计试题库 .pdf

《2022年2022年计算机语言与程序设计试题库 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年计算机语言与程序设计试题库 .pdf（14页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 1 页 共 14 页试卷一一、选择题（每题 2 分，15 小题，共 30 分）1.以下关于 Visual Basic 特点的叙述中，错误的是（）A)Visual Basic是采用事件驱动编程机制的语言B)Visual Basic程序既可以编译运行，也可以解释运行C)构成 Visual Basic 的多个过程没有固定的执行顺序D)Visual Basic程序不是结构化程序，不具备结构化的三种基本结构2.Visual Basic工程文件的扩展名是()。A）.frm B）.vbw C）.vbp D）.bat 3.VB 是一种面向(B)的程序设计语言。A)机器B)对象C)过程D)应用4.以下关于对

2、象的叙述中，错误的是()A)在 Visual Basic 中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C)Visual Basic中允许不同对象使用相同对象名和方法D)Visual Basic中的对象具有自己的属性和方法5.当程序运行时，系统自动执行启动窗体的()事件过程。A)Unload B)Click C)Load D)GotFocus 6.要求在文本框中输入密码时文本框中只显示*号，则应用在此文本框的属性窗口中设置()。A)Text 属性值为*B)Caption 属性值为*C)Passwordchar属性值为*D)Passwordc

3、har属性值为真7.数学表达式 0a100在 VB 中的逻辑表达式为()。A)0=a=0 OR a100 C)0=a AND a100 D)0=a AND a(i)Then(2)Next i End Sub 2.用 InputBox 函数输入小于 40 的正整数。计算机下面表达式的值，并在标签Label1 上输出。得分得分名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 14 页 -第 3 页 共 14 页11111 22 33 4(1)SnnL【程序】Private Sub Command1_Click()Dim n%,s!,i%n=Val(InputBox(“输入 n(140)

4、”)Do While n=40(3)n=Val(InputBox(“n 超出范围，请重新输入”)Loop s=0 For i=1 to n s=s+(4)Next i Label1=”s=”&s End Sub 3.对已知存放在数组中的6 个数，用选择法按递增顺序排序。【程序】Private Sub Command1_Click()Dim a(),iMin%,n%,i%,j%,t%A=Arry(8,6,9,3,2,7)n=Ubound(a)For i=0 to n-1 iMin=i For j=i+1 to n If(5)Then iMin=j Next j t=a(i)(6)a(iMin)=

5、t Next i For i=Lbound(a)to Ubound(a)Print a(i)Next i End Sub 4.在窗体上输出金字塔型数字，如图所示。【程序】Private Sub Form_click()For i=（7）Print Spc(9-i);For j=1 To（8）Print Format(i,0);Next j Print 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 14 页 -第 4 页 共 14 页Next i End Sub 5.以下是一个使用列表框实现排序、查找、删除的应用程序。窗体上有一个列表框、一个文本框、两个按钮。文本框用来输入一个数

6、，两个按钮分别实现将该数插入列表框和从列表框中查找删除。界面如图所示。【部分程序】Private Sub Form_Load()Dim a,i%,k%,x%,n%a=Array(1,4,7,9,12,14,23,56)n=UBound(a)For i=0 To n 该循环用来在列表框显示a数组的值（9）Next i End Sub Private Sub Command1_Click()插入x=Val(Text1)For k=0 To List1.ListCount-1 查找欲插入数 x 在列表框中的位置If（10）Then Exit For Next k List1.AddItem x,k

7、End Sub 四、程序阅读（每小题5 分，4 小题，共 20 分）注：每行程序前面的数字是行号。1.请阅读以下程序，回答下面的问题：10 Private Sub Form_Click()20 Dim n%30 n=9 40 Do While n 6 41 n=n-1 42 Print n;43 Loop 50 End Sub 问题：（1）程序的输出结果是?（2）第 10 行语句的含义是?2.请阅读以下程序，回答下面的问题:10 Private Sub Text1_LostFocus()20 Dim str As String*4 30 str=LCase(Text1)40 If str wu

8、yi Then 得分名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 14 页 -第 5 页 共 14 页41 Text1=42 Text1.SetFocus 43 End If 50 End Sub 问题：（1）第 20 行语句的功能是?（2）第 40 至 43 行语句的功能是?3.请阅读以下程序，回答下面的问题:10 Function f%(x()11 Dim i%12 f=0 13 For i=0 To UBound(x)14 f=f+x(i)15 Next i 16 End Function 20 Private Sub form_Click()21 Dim a(),s%2

9、2 a=Array(5,3,15,17,9)23 s=f(a()24 Print s 25 End Sub 问题：（1）第 10 至 16 行语句的功能是？（2）第 20 至 25 行语句的功能及程序的输出结果是?4.请阅读以下程序，回答下面的问题:10 Private Sub Form_Click()20 For i=1 To 5 21 Print Tab(i);String(10-2*i),Chr(64+i)22 Next i 30 End Sub 问题：程序的输出结果是？第 21 行语句的功能是?五、程序设计（每小题5 分，2 小题，共 10分）编程实现两个矩阵相加，要求：(1)在 Fo

10、rm_Load()事件中，利用随机函数产生两个44 矩阵(数值在 1050 范围内)，并在Picture1和 Picture2框中按图中所示输出；(2)在 Picture3_Click()事件中，计算两个矩阵之和，并在Picture3框中按图中所示输出。得分名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 14 页 -第 6 页 共 14 页试题一参考答案一、选择题（每题 2 分，15 小题，共 30 分）1、D 2、C 3、B 4、C 5、C 6、C 7、C 8、A 9、B 10、A 11、C 12、B 13、B 14、B 15、D 二、填空题（每空 2 分，10 空，共 20分

11、）1、可视化2、Exit Do3、5 4、传值5、随机文件6、字符型7、运行模式8、属性9、窗体10、冒号三、程序填空（每空 2 分，每小题 2 空，5 小题，共 20分）1(1)UBound(a)(2)min=a(i)2(3)n40(4)1/(i*(i+1)3(5)a(j)a(iMin)(6)a(i)=a(iMin)4(7)1 To 9(8)2*i 1 5(9)List1.AddItem a(i)(10)x Val(List1.List(k)四、程序阅读（每小题5 分，4 小题，共 20 分）1.(1)8 7 6 得分得分得分名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 14

12、 页 -第 7 页 共 14 页(2)窗体的单击事件过程2.(1)定义 str 为定长的字符串变量(2)当 Text1 中输入的不是 wuyi 字符时将焦点移至Text1 并清空3.(1)输出 15 的奇数的乘积与和，输出结果为t=15,s=9(2)定义 i,t,s 均为整型变量4.(1)输出由 ABCD 字母组成的倒金字塔(第 1行 8 个 A,第 2行 6 个 B,第 3 行 4 个 C,第 4行 2 个 D)AAAAAAAA BBBBBB CCCC DD(2)将光标定位在由Tab(i)指定的列位置处,接着输出由 String 函数指出的 10-2*i 个相同的字母(2 分).五、程序设计

13、（每小题 5 分，2 小题，共 10分）参考程序如下：Option Base 1 Dim a(4,4),b(4,4)As Integer Private Sub Form_Load()For i=1 To 4 For j=1 To 4 a(i,j)=Int(Rnd*41+10)b(i,j)=Int(Rnd*41+10)Picture1.Print Tab(j-1)*5);a(i,j);Picture2.Print Tab(j-1)*5);b(i,j);Next j Next i End Sub Private Sub Picture3_Click()Dim c(4,4)As Integer P

14、icture3.Cls For i=1 To 4 For j=1 To 4 c(i,j)=a(i,j)+b(i,j)Picture3.Print Tab(j-1)*5);c(i,j);Next j 得分名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 14 页 -第 8 页 共 14 页试卷 二一、选择题（2 分/题，15小题，共 30 分）1.工程文件的扩展名是(B)。A)vbg B)vbp C)vbw D)vbl 2.如果要改变窗体的标题，则需要设置的属性是(A)。A）Caption B）Name C）BackColor D）BorderStyle 3.函数 Right(“欢迎

15、学习 Visual Basic”,5)执行的返回值是(D)A)“欢迎学习 Vi”B)“欢迎学”C)“Visual”D)“Basic”4.以下能判断是否到达文件尾的函数是(D)A）BOF B）LOC C）LOF D）EOF 5.若有数组说明语句为：Dim a(-2 to 5)，则数组 a包含元素的个数是(B)。A)7 B)8 C)9 D)10 6.VB 的过程有三种，它们是(D)。A)Sub过程、Function 过程和 Property过程B)事件过程、函数过程和属性过程C)Sub过程、函数过程和通用过程D)事件过程、子过程和函数过程7.设有以下循环结构Do 循环体Loop While 则以下

16、叙述中错误的是（A）A)若条件是一个为 0的常数，则一次也不执行循环体B)条件可以是关系表达式、逻辑表达式或常数C)循环体中可以使用Exit Do 语句D)如果条件总是为 True，则不停地执行循环体8.Function 过程有别于 Sub过程的最主要的特点是(D)。A)Function 过程一定要有形参，而Sub过程可以没有形参B)Function 过程的终端语句是End Function，而 Sub过程的终端语句是End Sub C)Function 过程用于计算函数值，而Sub过程用于改变属性值D)Function 过程要返回函数值，而Sub过程没有数值返回9.当程序运行时，系统自动执行

17、启动窗体的(C)事件过程。A)Unload B)Click C)Load D)GotFocus 10.逻辑运算符的优先级(B A)关系运算符的优先级。A)低于B)高于C)小于D)等于11.数学表达式 0a100在 VB 中的逻辑表达式为(C)。A)0=a=0 OR a100 C)0=a AND a100 D)0=a AND b,a,b)50 End Sub 问题：（1）程序的输出结果是?（2）第 10 行语句的含义是?（3）第 20 行语句的功能是?2.请阅读以下程序，回答下面的问题:10 Private Sub Text1_LostFocus()20 Dim stri As String 3

18、0 stri=Trim(Text1)40 If Not IsNumeric(stri)Then 41 Text1=42 Text1.SetFocus 43 End If 50 End Sub 得分Sub swap(b()As Integer)n=UBound(b)For i=1 To n/2 t=b(i):b(i)=b(n):b(n)=t（10）Next i End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 14 页 -页问题：（1）第 20 行语句的功能是?（2）第 40 至 43 行语句的功能是?3.请阅读以下程序，回答下面的问题:10 Function f%

19、(x()11 Dim i%12 f=0 13 For i=LBound(x)To UBound(x)14 f=f+x(i)15 Next i 16 End Function 20 Private Sub form_Click()21 Dim b(),s%22 b=Array(3,1,17,5,9)23 s=f(b()24 Print s 25 End Sub 问题：（1）第 10 至 16 行语句的功能是？（2）第 20 至 25 行语句的功能及程序的输出结果是?4.请阅读以下程序，回答下面的问题:10 Private Sub Form_Click()20 Dim a%(29)30 For i

20、=0 To 29 31 a(i)=Int(Rnd*101)32 If i Mod 5=0 Then Print 33 Print a(i);34 Next i 40 End Sub 问题：第 31 行语句的功能是?第 32 至 33 行语句的功能是?五、程序设计（每小题5 分，2 小题，共 10分）编程实现矩阵转置(即矩阵的行和列互换)，要求：(1)在 Form_Load()事件中，利用随机函数产生一个44 矩阵 A(数值在 10100范围内)，并在 Picture1框中按图中所示输出；(2)在 Picture2_Click()事件中，将矩阵 A 转置保存在矩阵 B 中，并在 Picture2

21、 框中按图中所示输出。得分名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 14 页 -第 13 页 共 14 页试卷二参考答案一、选择题（每题 2 分，15 小题，共 30 分）1、B 2、A 3、D 4、D 5、B 6、D 7、A 8、D 9、C 10、A 11、C 12、C 13、C 14、C 15、D 二、填空题（每空 2 分，10 空，共 20分）1、冒号2、93、cdef4、窗体5、传值6、随机文件7、字符型8、循环结构9、方法10、语法错误三、程序填空（每空 2 分，每小题 2 空，5 小题，共 20分）6(1)UBound(a)(2)sum=sum+a(i)7(3

22、)1 To 9(4)2*i 1 8(5)List1.AddItem Text1(6)List1.RemoveItem List1.ListIndex 9(7)a(j)a(j+1)(8)Next j 10(9)a(10)n=n-1 四、程序阅读（每小题5 分，4 小题，共 20 分）5.(1)8(2)窗体的单击事件过程(3)定义整型变量 a,b 6.(1)定义 stri 为不定长的字符串变量(2)当 Text1中输入的不是数字时将焦点移至Text1并清空得分得分得分名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 14 页 -第 14 页 共 14 页7.(1)当 Text1中输入

23、的不是数字时将焦点移至Text1并清空(2)调用定义的 f 函数求数组 b 的各元素和，s的值为 35 8.(1)随机产生 0 至 100 的整数存放于数组a 中(2)当 i 值为 5 的倍数时换行，输出a的各元素值五、程序设计（每小题 5 分，2 小题，共 10分）参考程序如下：Option Base 1 Dim a(4,4)As Integer Private Sub Form_Load()For i=1 To 4 For j=1 To 4 a(i,j)=Int(Rnd*41+10)Picture1.Print Tab(j-1)*5);a(i,j);Next j Next i End Sub Private Sub Picture2_Click()Dim b(4,4)As Integer Picture4.Cls For i=1 To 4 For j=1 To 4 b(i,j)=a(j,i)Picture2.Print Tab(j-1)*5);b(i,j);Next j Next i End Sub得分名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 14 页 -