2010年海市计算机等级考试_二级_VB_真题.docVIP

2010年上海市高等学校计算机等级考试 二级 VB A卷 单选题： 1.设A则表达式Val(Left(A,4)+Mid(A,4,2))+9的值是_________c___。_ a.123456 b.123465 c.123454 d.1234459 2. 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是_________b___。__ a.x+a=b+y b.x0 And y0 c.a=b Or xy d.x+y a+b And Not (yb) 3. 下列可作为Visual Basic 变量名的是______d______。_ a.3S b.Print c.Select My Name d.Select_1 4.以下Case语句中错误的是________c___。____ a.Case 1 To 9 b.Case Is 9 c.Case Is 7 And Is 33 d.Case 3 , 5 , Is 7 5. 如果要使某句代码不起作用，可以在该代码前加上______d______。______ a.Echo b.冒号 c.双撇号 d.单撇号 6. 假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是______d______。___ a.单击鼠标 b.双击文本框 c.鼠标滑过文本框 d.按下键盘上的某个键 7. 在自定义函数中，可以通过______c______返回值。____ a.Sub b.Function c.函数名 d.ByVal参数 8. 若要删除列表框中指定索引位置的项目，可使用______b______方法来实现。______ a.Del b.RemoveItem c.Clear d.Delete 9.能够获得一个文本框中被选取文本的内容的属性是_____c_______。______ a.Text b.Length c.SelText d.SelStart 10. 在程序运行期间可以用______d______函数把图形装入窗体、图片框或图像框。____ a.AutoSize b.Open c.Picture d.LoadPicture 填空题 1.在直角坐标系中，（x，y）是坐标系中的点坐标，写出逻辑表达式 _，判断坐标系中的点坐标在第三象限。 2. 要在程序中调用Word应用程序，可使用 shell 函数。 3. 函数Val(24 57)的返回值是 “2457” 。 4. 设 a=1,b=2,c=3, 表达式Not a = c Or 4*a*c = b^2 And b a+c的值是 。 5. 若有一名为Menua的菜单项，为了在运行时使该菜单项失效（变灰），应使用语句 。 6. 要使标签的大小自动与所显示的文本相适应，可以通过设置 属性为True来实现。 7. 若窗体上已建多个命令按钮，要使程序启动完毕时焦点就定位在某一按钮上，应将该按钮的TabIndex属性设为 。 程序填空题 1. 以下程序的功能是：从半径5.6开始，按精度0.01递增，求圆面积不超过100的最大半径m，并最后输出该半径，同时要求显示计算过程中的每个圆面积。 Const PI = 3.1415926 Private Sub Form_Click() r = 5.6 s = 0 s1 = Do While ___(1)_ r =___(2)_+0.01 s= PI * r * r s1 = s1 s VbCrLf 存放计算结果,VbCrLf回车换行 Loop m = r - __(3)_ MsgBox s1 VbCrLf m End Sub 2. 以下程序的功能是：在文本框Text1内输入一串任意字符(长度不超过50个字符)，分离出单个数字分别存放于数组x中，分离出单个字母分别存放于数组y中，其他字符则丢弃。最后求出这些数字的平均值，以及这些字母中的最小字母,并分别在文本框Text2、Text3显示。 程序的思想是：对于每一单个字符c，调用函数过程IsMyChar(c)用来判别c是数字，还是字母，或者是其他字符，并返回相应标志值0、1、-1。 Private Sub Form_Click() Dim sp As String, x(1 To 50) As Integer, y(1 To 50) As String Dim i%, m%, n%, s%, t%, s1 As String m =