2006年全国高等学校（安徽考区）计算机水平考试试卷（二级Visual Basic 语言）一、单项选择题（每题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）腾讯QQ 9. 下列有关计算机病毒的叙述中，正确的是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，80]14. 下列四个字符串进行比较，最大的是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）"ISTUDENTAM"17. 用八进制表示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(a<65,-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 < d Or b > 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.5C）-Abs(-4.5) D）Fix(-4.5)-0.525. 对于窗体Form1，执行了Form1.Left=Form1.Left+100语句后，则该窗体25 。

A）上移B）下移C）左移D）右移26. 在窗体上添加一命令按钮Command1，并将其Caption属性设置为OK、名称属性设置为cmd_OK，则关于该控件的下列26 语句是正确的。

A）Command1.Left=100 B）OK.Left=100C）cmd_OK.Left=100 D）以上语句都不对27. 以下程序段执行后，整型变量n的值为27 。

y =2008n = 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.AddItem"China"，3 B）List1.AddItem"China"，2C）List1.AddItem 3，"China" D）List1.AddItem 2，"China"31. 若要使标签框的大小自动与所显示的文本相适应，则可通过设置31 属性的值为True来实现。

A）AutoSize B）Alignment C）Appearance D）Visible 32. 若要获知当前列表项的数目，可通过访问32 属性来实现。

A）List B）ListIndex C）ListCount D）Text33. 将一文本框与数据控件相关联，需要设定文本框的33 属性。

A）DataMember B）Datafield C）DataSource D）DataFormat 34. 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）Is<10,Is>10 D）Abs(x)>1038. 以下程序段运行后，输出字符的排列顺序是38 。

For i = 1 To 6If i Mod 3 = 0 ThenPrint " * " ;ElsePrint " #";End IfNext iA）* # * # * # B）# * # * # * C）* * # * * # D）##*##*39. 下列程序段的循环结构执行后，i的输出值是39 。

Dim y As IntegerFor i=2 To 10 Step 2y=y+iNext iPrint iA）11 B）12C）13 D）因为y初值不知道，所以不确定40. 下面分别是求两个数中的大数的程序段，不正确的是40 。

A）Max=IIf(x>y,x,y) B）If x>y Then Max=x Else Max=y C）Max=x D）If y>=x Then Max=yIf 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个（1~100）之间的随机整数，打印其中能被5整除的数并求其和，如果其和不为零就输出，请用正确的内容填空。

Private Sub Form_Click( )Dim sum As Integer, x As IntegerFor i=1 To 10x=Int(Rnd*100+1)If (6) =0 Thensum=sum+xPrint "x="; xEnd IfNext iIf (7) 0 ThenPrint "sum="; sumEnd IfEnd Sub7、已知sum=1 k+2 k+…+n k，下面是实现计算该函数的程序，请填空。

Private Sub Command1_Click( )Dim k As Integer, i As Integer, s As LongDim Sum As Integer, n As Integern=5k=1For i=1 To ns=s+pow( (8) )Next iSum = sPrint SumEnd SubFunction pow(a As Integer, b As Integer) As LongDim i As Integer, t As Longt=1For i=1 To a(9)Next ipow = tEnd Function8、请用正确的内容填空，使得以下程序能够找出50以内所有能构成直角三角形的整数。