上海市计算机VB二级题目A卷.doc

。设A则表达式Val(Left(A,4)+Mid(A,4,2))+9的值是_123454___________。 2。设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是_x0 and y0_。 x+a=b+y x0 and y0 a=b or xy x+ya+b not (yb) 下列可作为Visual Basic 变量名的是____________。 3S Print Select my name Select_1 3.以下Case语句中错误的是_ case is 7 and is 33 ________ case 1 to 9 case is 9 case is 7 and is 33 case 3 ,5 ,is7 4.如果要使某句代码不起作用，可以在该代码前加上____________。 Echo 冒号 双撇号 单撇号 5。在自定义函数中，可以通过____________返回值。 Sub Function 函数名 ByVal参数 6。能够获得一个文本框中被选取文本的内容的属性是____________。 Text length seltext selstart 7.在程序运行期间可以用__loadpicture__函数把图形装入窗体、图片框或图像框。 autosize open picture loadpicture 8.在直角坐标系中，（x，y）是坐标系中的点坐标，写出逻辑表达式__x0 and y0___ ，判断坐标系中的点坐标在第三象限。 9.要在程序中调用Word应用程序，可使用__shell_____函数。 10.函数Val(24 57)的返回值是___2457_________。 11.设 a=1,b=2,c=3, 表达式Not a = c Or 4*a*c = b^2 And b a+c的值是 False _______。 12.若有一名为Menua的菜单项，为了在运行时使该菜单项失效（变灰），应使用语句：__ Menua.Enabled = False __________。 13.要使标签的大小自动与所显示的文本相适应，可以通过设置__autosize__属性为True来实现。 14.若窗体上已建多个命令按钮，要使程序启动完毕时焦点就定位在某一按钮上，应将该按钮的TabIndex属性设为____0________。 15.以下程序的功能是：从半径5.6开始，按精度0.01递增，求圆面积不超过100的最大半径m，并最后输出该半径，同时要求显示计算过程中的每个圆面积。 Const PI = 3.1415926 Private Sub Form_Click() r = 5.6 s = 0 s1 = Do While ___(1)_S100__ r =___(2)_r_+0.01 s= PI * r * r s1 = s1 s VbCrLf 存放计算结果,VbCrLf回车换行 Loop m = r - __(3)0.01__ MsgBox s1 VbCrLf m End Sub 16.以下程序的功能是：在文本框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 = 0: n = 0: s = 0 s1 = Chr(255) 设置最大字符 For i = 1 To Len(____(1)_text1.text___) sp = Mid(Text1.Text, i, 1) t = ___(2)_ IsMyChar(sp)____ Select Case t Case 0 m = m + 1 x(m) = Val(sp)