上海市计算机vb二级题目a卷

《上海市计算机vb二级题目a卷》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、。设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2))+9的值是_123454___________。2。设变量x=1，y=-1，a=5，b=-5，则以下表达式的值为“真”的是_x>0andy<0_。x+a<=b+yx>0andy<0a=borxa+bnot(y7andis<33________c

2、ase1to9caseis>9caseis>7andis<33case3,5,is>74.如果要使某句代码不起作用，可以在该代码前加上____________。Echo冒号双撇号单撇号5。在自定义函数中，可以通过____________返回值。SubFunction函数名ByVal参数6。能够获得一个文本框中被选取文本的内容的属性是____________。Textlengthseltextselstart7.在程序运行期间可以用__loadpicture__函数把图形装入窗体、图片框或图像框。autosizeo

3、penpictureloadpicture8.在直角坐标系中，（x，y）是坐标系中的点坐标，写出逻辑表达式__x<0andy<0___，判断坐标系中的点坐标在第三象限。9.要在程序中调用Word应用程序，可使用__shell_____函数。10.函数Val("2457")的返回值是___2457_________。11.设a=1,b=2,c=3,表达式Nota<=cOr4*a*c=b^2Andb<>a+c的值是False_______。12.若有一名为Menua的菜单项，为了在运行时使该菜单项失效（变灰），应使用

4、语句：__Menua.Enabled=False__________。13.要使标签的大小自动与所显示的文本相适应，可以通过设置__autosize__属性为True来实现。14.若窗体上已建多个命令按钮，要使程序启动完毕时焦点就定位在某一按钮上，应将该按钮的TabIndex属性设为____0________。15.以下程序的功能是：从半径5.6开始，按精度0.01递增，求圆面积不超过100的最大半径m，并最后输出该半径，同时要求显示计算过程中的每个圆面积。ConstPI=3.1415926PrivateSubF

5、orm_Click()r=5.6s=0s1=""DoWhile___(1)_S<100__r=___(2)_r_+0.01s=PI*r*rs1=s1&s&VbCrLf'存放计算结果,VbCrLf回车换行Loopm=r-__(3)0.01__MsgBoxs1&VbCrLf&mEndSub16.以下程序的功能是：在文本框Text1内输入一串任意字符(长度不超过50个字符)，分离出单个数字分别存放于数组x中，分离出单个字母分别存放于数组y中，其他字符则丢弃。最后求出这些数字的平均值，以及这些字母中的最小字母,并分别在文

6、本框Text2、Text3显示。程序的思想是：对于每一单个字符c，调用函数过程IsMyChar(c)用来判别c是数字，还是字母，或者是其他字符，并返回相应标志值0、1、-1。PrivateSubForm_Click()DimspAsString,x(1To50)AsInteger,y(1To50)AsStringDimi%,m%,n%,s%,t%,s1AsStringm=0:n=0:s=0s1=Chr(255)'设置最大字符Fori=1ToLen(____(1)_text1.text___)sp=Mid(Text

7、1.Text,i,1)t=___(2)_IsMyChar(sp)____SelectCasetCase0m=m+1x(m)=Val(sp)s=s+x(m)Case1n=n+1y(n)=spIfy(n)0ThenText2.text=s/mText3.Text=s1EndSubFunctionIsMyChar(cAsString)AsIntegerIfc>="0"____(4)and____c<="9"ThenIsMyChar=0

8、ElseIfUCase(c)>="A"AndUCase(c)<="Z"ThenIsMyChar=1ElseIsMyChar=__-1__(5)____EndIfEndFunction17.本程序消除10到100内2，3，5，7的倍数，最后在Label1中显示所余下的整数（每行5个数）。程序的思想是：先将2到100的整数放到数组中，然后将2，3，5，7的倍数的数组元素值设为