《2022年二级计算机VB练习 .pdf》由会员分享，可在线阅读，更多相关《2022年二级计算机VB练习 .pdf（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、单选题（30 分，每小题 1 分）1、（）字节称为一个MB。（A）1024（B）1000K（C）1024*1024（D）10000K 2、计算机硬件系统的五大部件是（）。（A）CPU、内存储器、输入设备、输出设备、外存储器（B）运算器、控制器、存储器、输出设备、输入设备（C）CPU、总线、存储器、外设、主板（D）主机箱、显示器、音箱、鼠标、键盘3、常用的输入设备有（）。（A）键盘、鼠标、扫描仪（B）显示器、键盘、鼠标（C）打印机、扫描仪、键盘（D）触摸屏、打印机、鼠标4、计算机网络的主要作用是()。(A)数据处理(B)信息传输与数据处理(C)文献查询(D)资源共享与信息传输5、二进制数 1
2、010 等于十六进制数()。(A)10(B)11(C)A(D)B 6、在 VB 中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句()。(A)Option Base 0(B)Option Explicit(C)Option Base 1(D)Option Compare 7、下列程序段的执行结果为()。J1=10 J2=30 If J1 10 And Is10(D)Case 3,5,Is10 24、关于文件操作控件，下列叙述不正确的是（）。(A)驱动器列表框（DriveListBox）能显示系统中所有有效磁盘驱动器(B)从驱动器列表框中选择驱动器能变更系统当前的工作驱动器(C)使用
3、通用对话框(CommonDialog)中的“打开文件”对话框选择文件名，无需编程即可自动地打开所选文件(D)通过编写适当的程序代码可以使文件列表框（FileListBox）中显示当前目录列表框(DirLIstBox)中选中的文件列表25、从磁盘上读入一个名为“c:filel.txt”的顺序文件，下面程 序段正确的是（）。(A)Open c:filel.txt For Output As#2(B)Open c:filel.txt For Input As#1(C)F=c:filel.txt Open F For Input As#2(D)F=c:filel.txt Open F For Inpu
4、t As#126、改变下列（）属性可设置控件的位置，。(A)Height 与 Width(B)Height 与 Top(C)Left 与 Top(D)Left 与 Width 27、在 Visual Basic 中，()关键字用于注释语句。(A)Rem(B)End(C)Else(D)Loop 28、X 是一个数值型变量，表达式Int（X/2）=X/2 的作用是（）。(A)用于测试 X 是否偶数(B)返回一个整数(C)返回一个奇数(D)用于测试 X 是否整数29、执行了下面程序后，组合框中显示的数据项是（）。Private Sub Form_Load()For i=1 to 6 Combo1.A
5、ddItem i Next i For i=1 to 3 Combo1.RemoveItem i Next i End Sub 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 8 页 -(A)1 5 6(B)1 3 5(C)4 5 6(D)2 4 6 30、打开顺序文件语句中，关键字Append表示把新数据添加到()。(A)文件首(B)文件尾(C)文件中间(D)随机位置二、填空（50 分，每空 2 分）1、设有如下程序段：a$=ShanghaiBeijing：b$=Mid(a$,InStr(a$,i)+1)执行上面的程序段后，变量b$的值为 _ Beijing_。2、设 a=4，
6、执行 x=IIf(a6,-2,0)后，x 的值为 0_。3、窗体上有一个名为List1 的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption 属性为“Sum”的标签，一个名称为 Command1、标题为“计算”的命令按钮。程序运行后，将把1100 之间能够被 7整除的数添加到列表框中。如果单击“计算”按钮，则对 List1 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load()For i=1 To 100 If i Mod 7=0 Then List1.additem i End If
7、Next i End Sub Private Sub Command1_Click()Sum=0 For i=1 To list1.listcount Sum=Sum+list1.list(i-1)Next i Text1.text=sum End Sub 4、用 Array 函数建立一个含有8 个元素的数组，然后查找并输出该数组中元素的最大值。请填空：Option Base 1 Private Sub Command1_Click()Dim arr1%,Max%名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 8 页 -arr1=Array(12,435,76,24,78,54,
8、866,43)Max=arr1(1)For i=1 To 8 If arr1(i)Max Then Max=arr1(i)Next i Print 最大值是:;Max End Sub 5、设在窗体上有一个文本框Text1，一个标签数组Label1,共有 10 个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。Private Sub Labell_Click(Index As Integer)Text1.Text=label1(index).captionEnd Sub 6、下列程序的功能是：当x100 时，没有意义。请填空。Private Sub Command1
9、_Click()Dim x As Single x=InputBox(请输入 x 的值！)select case x Case Is a(j1)Then t=a(j)a(j)=a(j+1)a(j1)=t End If Next j Next i For i=1 to ubound(a)Print a(i);Next i End Sub 11、下列程序运行时，当单击窗体后，从键盘分别在文本框Text1、Text2输入整数 m、n，求解 m、n 的最大公约数，并将结果显示在窗体上。请将程序补充完整Private Sub Form_click()m=val(text1.text)n=Val(Text
10、2.text)Print m;和;n;的最大公约数是：;gys(m,n)End Sub Private Function gys(n,m)p=n Mod m If p=0 Then gys=m Else Gys=Gys(m,p)End If End Function 12、在窗体模块中编写以下Sub过程和窗体 Click 事件过程：Private Sub suba(x As Integer,y As Integer)Dim t As Integer t=x:x=y:y=t End Sub Private Sub Form_Click()Dim a As Integer,b As Integer
11、 a=10:b=20 Call suba(a,b)名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 8 页 -Print a;b;Call suba(b,a)Print a;b End Sub 当程序运行时，在窗体中单击鼠标左键，则程序的输出结果是20 10 10 20。13、以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框 Text1中显示出来。请填空。Private Sub Command1_Click()Dim Data As String Text1.Text=Open.smtext1.txt for input As#1 Do While not eof(1)Data=Input(1，#1)Text1.Text=Text1.Text&Data Loop Close#1 End Sub 三、编程题（20 分，每小题 10 分）1、编写程序，分别统计出文本框Text1中输入的字符串中所包含的字母、数字和其它字符的个数，并将结果显示在窗体上。2、编写一个函数，求任意正整数k 的阶乘 k!=1*2*k。再编写一段事件过程，用户输入两个整数 n和 m（nm），求组合数。)!(!mnmnCmn名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 8 页 -