VB二级2007笔试1.doc

全国高等学校（安徽考区）计算机水平考试试卷（二级 Visual Basic 语言2007笔试）一、单项选择题（每题1分，共40分）1. 下列缩写表示中，与存储设备无关的是 1 。 A）GB B）MB C）KB D）MIPS2. 二进制数00111101转换成十进制数为 2 。 A）57 B）59 C）61 D）603. 能将高级语言源程序转换为目标程序的是 3 。 A）解释程序 B）编辑程序 C）编译程序 D）连接程序4. 计算机操作系统是 4 之间的接口。 A）主机和外设 B）用户和计算机C）系统软件和应用软件 D）高级语言和计算机5. 关于Windows系统中的窗口和对话框，说法正确的是 5 。 A）对话框能移动和改变大小 B）窗口能移动和改变大小C）对话框不能移动但能改变大小 D）窗口能移动但不能改变大小6. 多媒体技术中的“多媒体”的含义，主要是指如 6 等表示信息的形式。 A）磁盘、光盘 B）声音、图像 C）电缆、光纤 D）声卡、音箱7. 常见的邮件传输服务器使用 7 协议接收邮件。 A）HTTP B）IP C）TCP D）POP38. 以下不是即时通信软件的是 8 。 A）微软MSN B）新浪UC C）金山WPS D）腾讯QQ9. 下列有关计算机病毒的叙述中，正确的是 9 。 A）计算机病毒是一种人为编制的特殊程序B）严禁在计算机上玩游戏是预防病毒的唯一措施C）计算机病毒只破坏磁盘上的数据和程序D）计算机病毒只破坏内存中的数据和程序10. 下面关于算法的说法，错误的是 10 。 A）算法必须有输出，但不一定有输入B）算法必须在计算机上用某种语言实现C）算法必须在有限步执行后能结束D）算法的每一步骤必须有确切的定义11. 下列符号中，可以用作VB变量名的是 11 。A）a.b.c B）5abc C）main_1_a D）abs12. 可以删除字符串两端空格的函数是 12 。A）Trim B）Rtrim C）Ltrim D）Mid13. 函数Int(Rnd*80)+1是在 13 范围内产生随机整数。A）0，80 B）0，79 C）1，79 D）1，8014. 下列四个字符串进行比较，最大的是 14 。A）9977 B）CD45 C）Cinema D）text 15. 下面语句中有函数非法调用的是 15 。A）x=Int(-1.34) B）x=Fix(-1) C）x=Sqr(-100) D）x$=Chr$(65)16. 已知a= IAMASTUDENT ，则表达式Mid(a,4,1)+Right(a,7)+Left(a,3)的值是 16 。A）STUDENT B）ASTUDENTIAM C）IAMSTUDENT D）ISTUDENTAM17. 用八进制表示Visual Basic的整型常数时，前面要加上的符号是 17 。A) &H B）&O C）H D）O18. 下面正确的赋值语句是 18 。A）x+y=30-a*sqr(3) B）y=x+30-a*sqr(3)C）y=*r*r D）3y=x+119. 设a= ABC ，则执行x=IIF(a65,-1,0)后，x的值为 19 。A) 65 B）66 C）0 D）-120. 在Visual Basic中，表达式y1+z2=a*Sin(b*x+c)+k的类型是 20 。A）算术表达式 B）关系表达式 C）逻辑表达式 D）字符表达式21. 如果变量a=50、b=ABC 、c=abc 、d=10，则表达式a c And b c的值 是 21 。A）True B）False C）Yes D）No22. 用语句Dim A(-3 to 3,2) As Long定义的数组元素个数是 22 。A）8 B）9 C）14 D）2123. 下列各项不是 Visual Basic的基本数据类型的是 23 。A）Char B）String C）Integer D）Double24. 下列表达式中，表达式 24 的运算结果与其它3个不同。A）Int(-3.5)-1.5 B）Int(-4.5)+0.5 C）-Abs(-4.5) D）Fix(-4.5)-0.525. 对于窗体Form1，执行了Form1.Left=Form1.Left+100语句后，则该窗体 25 。A）上移 B）下移 C）左移 D）右移- 8 -26. 在窗体上添加一命令按钮Command1，并将其Caption属性设置为OK、名称属性设置为cmd_OK，则关于该控件的下列 26 语句是正确的。 A）Command1.Left=100 B）OK.Left=100C）cmd_OK.Left=100 D）以上语句都不对27. 以下程序段执行后，整型变量n的值为 27 。 y =2008 n = y 4 + y 400 y 100A）486 B）487 C）507 D）46728. 如果每0.1秒产生一个计时器事件，那么时钟控件的Interval属性应设为 28 。A）1 B）10 C）100 D）100029. 如果a=1，b=-1，则语句Print (a = 1) And (b = -1)的输出结果是 29 。A）False B）True C）1 D）-130. 将数据项China添加到列表框List1中成为第3项，应使用 30 语句。A）List1.AddItemChina，3 B）List1.AddItemChina，2C）List1.AddItem 3，China D）List1.AddItem 2，China31. 若要使标签框的大小自动与所显示的文本相适应，则可通过设置 31 属性的值为True来实现。 A）AutoSize B）Alignment C）Appearance D）Visible32. 若要获知当前列表项的数目，可通过访问 32 属性来实现。 A）List B）ListIndex C）ListCount D）Text33. 将一文本框与数据控件相关联，需要设定文本框的 33 属性。 A）DataMember B）Datafield C）DataSource D）DataFormat34. MsgBox（）函数的返回值的类型是 34 。 A）日期 B）字符串 C）逻辑值 D）整数35. 执行语句Open Text.dat for Input As #1，对文件Text. dat中的数据能够执行的操作是 35 。 A）只能写，不能读 B）即可以读，也可以写C）只能读，不能写 D）不能读，不能写36. 阅读下面的程序段： x=InputBox(请输入第一个数： ) y=InputBox(请输入第二个数： )Print x + y 当输入22和33时，程序输出为 36 。A）22 B）33 C）55 D）223337. 用Select Case语句选择|x|10情况的语句为：Case 37 .A）Not (-10 To 10) B）-10 To 10C）Is10 D）Abs(x)1038. 以下程序段运行后，输出字符的排列顺序是 38 。For i = 1 To 6 If i Mod 3 = 0 Then Print * ;Else Print #;End IfNext iA）* # * # * # B）# * # * # * C）* * # * * # D）#*#*39. 下列程序段的循环结构执行后，i的输出值是 39 。Dim y As IntegerFor i=2 To 10 Step 2 y=y+iNext iPrint iA）11 B）12 C）13 D）因为y初值不知道，所以不确定40. 下面分别是求两个数中的大数的程序段，不正确的是 40 。 A）Max=IIf(xy,x,y) B）If xy Then Max=x Else Max=yC）Max=x D）If y=x Then Max=y If y=x Then Max=y Max=x二、填空题（每题2分，共20分）1、Visual Basic的对象主要分为 （1） 和系统对象两大类。2、若用户单击命令按钮Command1，则此时将被执行的事件过程名为 （2） 。3、函数Len(Hello! +Space(2)+Mid(New Year,5,3)的值是 （3） 。4、若要求输入密码时文本框中只显示*号，则应当在文本框的属性窗口中设置（4）属性。5、在调用过程时参数的传递有两种：按地址传递和按值传递，其中默认方式是 （5）方式。6、下面程序的功能是利用随机函数产生10个（1100）之间的随机整数，打印其中能被5整除的数并求其和，如果其和不为零就输出，请用正确的内容填空。 Private Sub Form_Click( ) Dim sum As Integer, x As Integer For i=1 To 10 x=Int(Rnd*100+1) If (6) =0 Then sum=sum+x Print x=; x End If Next i If (7) 0 Then Print sum=; sum End If End Sub7、已知sum=1 k+2 k+n k，下面是实现计算该函数的程序，请填空。 Private Sub Command1_Click( ) Dim k As Integer, i As Integer, s As Long Dim Sum As Integer, n As Integer n=5k=1 For i=1 To n s=s+pow( (8) ) Next i Sum = s Print Sum End Sub Function pow(a As Integer, b As Integer) As Long Dim i As Integer, t As Long t=1 For i=1 To a (9) Next i pow = t End Function 8、请用正确的内容填空，使得以下程序能够找出50以内所有能构成直角三角形的整数。 Private Sub Form_Click( ) Dim a As Integer, b As Integer Dim c As Single For a=1 To 50 For b=a To 50 c=Sqr(a2+b2) If (10) Then Print a,b,c Next b Next a End Sub三、阅读理解题（每小题4分，共20分）1. 执行下面程序输入5后，程序输出的结果是 1 。 Private Sub Form_Click( ) x=InputBox(请输入x：) If x2 15 Then y=x2+1 Print y End Sub3. 执行下面程序后，输出的结果是 3 。 Private Sub Form_Click( ) Dim a( ) a=Array(1,2,3,4) j=1:s=0 For i=0 To 3 Step 1 s=s + a(i) * j j=j * 10 Next i Print s End Sub2. 执行下面程序后，输出的结果是 2 。 Private Sub Form_Click( ) Dim x As Integer For i=1 To 2 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x5. 执行下面程序后，输出的结果是 5 。 Private Sub Form_Click( ) Dim a(10，10 ) As Integer For i=1 To 5 For j=1 To 5 a(i,j)=i*j Next j Next i Print a(2,3)+a(3,4)+a(4,5) End Sub End Sub4. 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click( )Dim x As Integer Dim y As IntegerStatic z As Integer x= 10:y=20:z=30Call f1(x,y,z)Print x,y,zEnd SubPrivate Sub f1(x1 As Integer, _ ByVal y1 As Integer, z1 As Integer) x1=x1+2 y1=y1+2z1=z1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是 （4） 。四、编程题（共20分）1. 编写程序将自然数11000中能被5 和7同时整除的数打印出来，并统计其个数。（6分）2. 计算三角形面积的公式如下： 其中：(1) 试编程定义计算三角形面积的函数过程Tria(a,