VB二级考试习题及答案一.doc

练习 5一、单选题（30分，每小题1分）1、（ ）字节称为一个MB。（A） 1024 （B）1000K （C） 1024*1024 （D） 10000K2、计算机硬件系统的五大部件是（ ）。 （A）CPU、内存储器、输入设备、输出设备、外存储器 （B）运算器、控制器、存储器、输出设备、输入设备 （C）CPU、总线、存储器、外设、主板 （D）主机箱、显示器、音箱、鼠标、键盘 3、常用的输入设备有（ ）。 （A）键盘、鼠标、扫描仪 （B）显示器、键盘、鼠标 （C）打印机、扫描仪、键盘 （D）触摸屏、打印机、鼠标4、计算机网络的主要作用是( )。(A) 数据处理 (B) 信息传输与数据处理(C) 文献查询 (D) 资源共享与信息传输5、二进制数1010等于十六进制数( )。(A) 10 (B) 11 (C) A (D) B6、在VB中要强制显式声明变量，可在窗体模块或标准模块的声明段中加入语句( )。(A) Option Base 0 (B) Option Explicit (C) Option Base 1 (D) Option Compare7、下列程序段的执行结果为( )。 J1 = 10 J2 = 30 If J1 10 And Is10 (D) Case 3,5,Is1024、关于文件操作控件，下列叙述不正确的是（ ）。(A) 驱动器列表框（DriveListBox）能显示系统中所有有效磁盘驱动器(B) 从驱动器列表框中选择驱动器能变更系统当前的工作驱动器(C) 使用通用对话框(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.txtOpen F For Input As # 2(D) F=c:filel.txtOpen F For Input As # 126、改变下列（ ）属性可设置控件的位置，。(A) Height 与 Width (B) Height 与Top (C) Left 与 Top (D) Left 与 Width27、在Visual Basic 中，( ) 关键字用于注释语句。(A) Rem (B) End (C) Else (D) Loop28、X是一个数值型变量，表达式Int（X / 2）= X / 2 的作用是（ ）。(A) 用于测试X是否偶数 (B) 返回一个整数(C) 返回一个奇数 (D) 用于测试X是否整数29、执行了下面程序后，组合框中显示的数据项是（ ）。Private Sub Form_Load()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub (A)1 5 6 (B)1 3 5 (C)4 5 6 (D)2 4 630、打开顺序文件语句中，关键字Append表示把新数据添加到( )。(A) 文件首 (B) 文件尾 (C) 文件中间 (D) 随机位置二、填空（50分，每空2分）1、设有如下程序段： a$=ShanghaiBeijing：b$=Mid(a$,InStr(a$,i)+1)执行上面的程序段后，变量b$的值为_【1】”Beijing”_。2、设a=4，执行x = IIf(a6,-2,0)后，x的值为【2】0_。3、窗体上有一个名为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load()For i=1 To 100If i Mod 7 =0 Then【3】list1.additem iEnd If Next iEnd SubPrivate Sub Command1_Click()Sum = 0For i = 1 To 【4】list1.listcount-1Sum = Sum + 【5】iNext i【6】text1.text=sumEnd Sub4、用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空：Option Base 1Private Sub Command1_Click()Dim arr1%, Max%arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)【7】max = arr1(1)For i = 1 To 8If arr1(i) Max Then 【8】max=arr(i) 【9】next i Print 最大值是: ; MaxEnd Sub5、设在窗体上有一个文本框Text1，一个标签数组Label1,共有10个标签，以下程序代码实现在单击任一个标签时将标签的内容添加到文本框现有内容之后。 Private Sub Labell_Click(Index As Integer) Text1.Text= 【10】 End Sub 6、下列程序的功能是：当x100时，没有意义。请填空。Private Sub Command1_Click() Dim x As Singlex=InputBox(请输入x的值！) 【11】select case x Case Is a(j1) Then t=a(j) 【17】a(j)=a(_j+1) a(j1)=tEnd If Next j Next i For i= 【18】1 to 10Print a(i); Next i End Sub 11、下列程序运行时，当单击窗体后，从键盘分别在文本框Text1、Text2输入整数m、n，求解m、n的最大公约数，并将结果显示在窗体上。请将程序补充完整Private Sub Form_click() m = 【19】val(text1.text) n = Val(Text2.text) Print m ; 和; n; 的最大公约数是：;【20】gys(n,m)End SubPrivate Function gys(n, m) p = n Mod m If p=0 Then 【21】gys=p Else 【22】gys=gys(m,p)End If End Function12、在窗体模块中编写以下Sub过程和窗体Click事件过程：Private Sub suba(x As Integer,y As Integer)Dim t As Integert =x: x=y : y=tEnd SubPrivate Sub Form_Click()Dim a As Integer,b As Integera =10: b =20Call suba(a,b)Print a ;b;Call suba(b,a)Print a ;bEnd Sub当程序运行时，在窗体中单击鼠标左键，则程序的输出结果是 【23】20 10 10 20 。13、以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。Private Sub Command1_Click()Dim Data As StringText1.Text = Open .smtext1.txt 【24】input As #1Do While 【25】not eof(1) Data = Input(1，#1)Text1.Text = Text1.Text & DataLoopClose #1End Sub三、编程题（20分，每小题10分）1、 编写程序，分别统计出文本框Text1中输入的字符串中所包含的字母、数字和其它字符的个数，并将结果显示在窗体上。 Private Sub Command1_Click() Dim i%, a%, b%, c%, d$ For i =