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

。设A=12345678，则表达式Val(Left(A,4)+Mid(A,4,2)+9的值是_123454_。2。设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是_x0 and y0_。x+a0 and y0a=b or xa+b not (y7 and is 9case is 7 and is 74.如果要使某句代码不起作用，可以在该代码前加上_。Echo冒号双撇号单撇号5。在自定义函数中，可以通过_返回值。SubFunction函数名ByVal参数6。能够获得一个文本框中被选取文本的内容的属性是_。Textlengthseltextselstart7.在程序运行期间可以用_loadpicture_函数把图形装入窗体、图片框或图像框。autosizeopenpictureloadpicture8.在直角坐标系中，（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 = b2 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 Sub16.以下程序的功能是：在文本框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) s = s + x(m) Case 1 n = n + 1 y(n) = sp If y(n) 0 Then Text2.text = s / m Text3 .Text =s1End SubFunction IsMyChar(c As String) As Integer If c = 0_(4)and_c = A And UCase(c) 0 Then Label1.Caption = Label1.Caption & & i count = _(4)_ If count Mod 5 = 0 Then Label1.Caption = Label1.Caption & vbCrLf End If Next iEnd Sub18.四、程序调试改错题(两小题，共10分，每处2分)启动工程文件C:ksexm1.vbp，程序存在5个错误，请调试改正，并按原文件名和位置保存。正确结果见样例exm1.exe。改错方法：不能修改或重新定义变量，不可以改变语句次序，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。1.改错题1 10位学生参加2门课程的考试，在图形框内显示每个学生的2门课程的平均成绩 利用Rnd产生0100分数，程序中有3个错误，请调试改正。Private Sub Command1_Click() Dim aver!,i%,j%,m% Picture1.Cls Picture1.Print 成绩1 成绩2 平均 For i = 1 To 10 aver = 1 For j = 1 To 2 m = Int(Rnd * 100) 产生0100分数 Picture1.Print m & String(7 - Len(str(m), ); 显示成绩,控制距离 aver = aver & m 成绩累加 Next j aver = aver / 2 Picture1.Print Format(aver, 00.00) 显示平均成绩 Next iEnd Sub2.改错题2 本程序段用数字19绘制一个倒三角形（17个9,15个8），结果显示在Label1。 程序中有2个错误，请调试改正Private Sub Command1_Click() Dim i%, j% lable1.Caption = vbCrLf vbCrLf回车换行 For i = 9 To 1 Step -1 Label1.Caption = Label1.Caption & Space(20 - 2 * i) Space控制距离 For j = 1 To i - 1 产生一行上的数字 Label1.Caption = Label1.Caption & Str(i) Next Label1.Caption = Label1.Caption & vbCrLf Next iEnd Sub五、编程题（36分）1在Form1窗体上放置文本框Text1、Text2、时钟控件和命令按钮。设置按钮Caption为暂停，Enabled为False；设置Text2为多行；其他说明性标签如样例。按下表建立菜单。菜单标题菜单名称备注应用Menu1一级菜单开始计时Menu11二级菜单-bar分隔线退出Menu13二级菜单窗体2Menu2一级菜单在Form2窗体上放置列表框List1和List2（初始值为空），放置读数据和返回两个命令按钮。2单击 开始计时菜单项，使时钟控件开始工作，在文本框Text1模拟计时秒表，按分：秒显示，精确到0.1秒，同时使按钮的Enabled改变为True；单击暂停按钮，暂停计时，改变按钮Caption为继续，同时将秒表上的时间添加到Text2（回车换行用vbCrLf）；单击继续按钮，时钟继续工作，再将按钮Caption改为暂停。3单击窗体2菜单项时，先隐藏Form1窗体，再打开Form2窗体；单击退出菜单项时，结束程序的运行。4在Form