VisualBasic程序设计期终考试试卷(A).doc

考点学号系别班级姓名-装-订-线-考试证号Visual Basic期终考试试卷（A）题号一二三总分得分阅卷者复核一、选择题 (每小题2分，共40分)。下列各题、 、 、 四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。(1) 以下叙述中正确的是 。 窗体的Name属性指定窗体的名称，用来标识一个窗体 窗体的Name属性的值是显示在窗体标题栏中的文本 可以在运行期间改变对象的Name属性的值 对象的Name属性值可以为空 。(2) inputBox函数反回值的类型为 。 数值 字符串 变体 数值或字符串（视输入的数据而定）(3) 可以同时删除字符串前导和尾部空白的函数是 。 Ltrim Rtrim Trim Mid(4) 表达式4+5 6 * 7 / 8 Mod 9 的值是 4 5 6 7(5) 如果在立即窗口中执行以下操作： a=8 b=9 print ab 则输出结果是 。 -1 0 False True(6) 以下语句的输出结果是 。 Print Format $(32548.5,000,000.00) 32548.5 32,548.5 032,548.50 32,548.50(7) 执行以下程序段后，变量c$的值为 a$=Visual Basic Programing b$=Quick c$=b$ & UCase(Mid$(a$,7,6) & Right $ (a$,11) Visual BASIC Programing Quick Basic Programing QUICK Basic Programing Quick BASIC Programing(8) 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。 Value Default Cancel Enabled(9) 为了把焦点移到某个指定的控件，所使用的方法是 SetFocus Visible Refresh GetFocus(10) 设a=6，则执行 x=IIf(a5,-1,0)后，x 的值为 。 5 6 0 -1(11) 执行下面的程序段后，x 的值为 。 x=5 For i=1 To 20 Step 2 x=x+i5 Next i 21 22 23 24(12) 在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_Click() x=0 Do Until x=-1 a = InputBox(请输入A的值) a = Val(a) b = InputBox(请输入B的值) b = Val(b) x = InputBox(请输入x的值) x = Val(x) a = a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1则输出结果为： 2 3 14 15(13) 在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_Load() Text1 Text= Text2 Text= End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输 入123和 321，然后单击命令按钮，则输出结果为 。 444 321123 123321 132231(14) 阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j Next i 执行上面的三重循环后，a 的值为 。 3 9 14 21(15) 以下程序的输出结果是 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+p(i)*2 Next i Print k End sub 33 28 35 37(16) 在窗体上面画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Commandl_Click() Dim a a = Array(1,2,3,4) j = 1 For i = 4 To Step -1 s = s + a(i)*j j =j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是 。 4321 12 34 1234(17) 在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码： Option Base 1 Private Sub Commandl_Click( ) Dim a(4,4) For i =1 To 4 For j =1 To 4 a(i,j) = (i-1)*3+j Next j Next i For i =3 To 4 For j =3 To 4 Print a(j,i); Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为 。 6 9 7 10 8 11 9 12 7 10 8 11 9 12 10 13(18) 假定有如下的Sub过程： Sub S（x As Single,y As Single） t = x x =t/y y =t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click ( ) Dim a As Single Dim b As Single a =5 b =4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为 。 5 4 1 1 1.25 4 1.25 1(19) 阅读程序： Function F(a As Integer) b = 0 Static c b = b+1 c = c+1 f = a+b+c End Function Private Sub Commandl_Click () Dim a As Integer a =2 For i =1 To 3 Print F(a); Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 。 4 4 4 4 5 6 4 6 8 4 7 9(20) 以下叙述中错误的是如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 Sub过程中不能嵌套定义Sub过程Sub过程中可以嵌套调用Sub过程事件过程可以像通用过程一样由用户定义过程名二、填空题（每小题3分，共30分）请将每空的正确答案写在答题卡上，答在试卷上不得分。（1）Visual Basic中工程文件的扩展名是_，窗体文件的扩展名是_。（2）设有如下的Visual Basic表达式：5 * x2 - 3 * x - 2 * Sin(a)/3它相当于代数式_ 。（3）在执KeyPress事件过程时，KeyAscii是所按键的_值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode时_字符的_值。（4）要改变计时器控件的时间间隔，应该修改该控件的_属性。（5）执行下面的程序段后，s的值为 _ 。s = 5For i = 2.6 To 4.9 Step 0.6s = s+1Next I（6）为了在运行时把图形文件从图片框Picture1中卸载掉,所使用的语句为_ 。（7）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(请输入一个整数)b = InputBox(请输入一个整数)Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 _ 。（8）执行下面的程序段后，b的值为_ 。a=300b=20a=a-bb=a+ba=a-b（9）以下程序段的输出结果是_。num=0While num=2num=num+1Print numWend（10）如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为_ 。三、程序题（每小题15分，共30分）请将答案写在附加页上，答在试卷上不得分。(1) 一小球从某一高度自由落下，每次落地后反跳回原高度的一半；再落下。编写一个函数名为total的function函数，它可以接受两个参数M和N（M为它起始下落的高度，N为它落地的次数），使得当调用此函数时可以返回小球从高度M开始落地N次时总共经过的路程。(2) 写出完整的事件过程，使得程序运行时当在