第七届计算机技能大赛首届程序设计竞赛预赛试题.docVIP

第七届计算机技能大赛——首届程序设计竞赛预赛试题 （ VB语言组 考试时间：90分钟） 考生姓名 队名 得分 （全部试题答案写在答题纸上，答在试卷上一律无效） 1. 使一个名为Form1的窗体启动后，显示系统时间，完成下列程序。 Private Sub Me.AutoRedraw=True Print Time() End Sub 2． 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer, y As Integer) As Integer M=IIf(xy, x, y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,b) End Sub 程序运行后，单击命令按钮，输出结果为 。 3.　执行下面程序，当单击窗体时，显示在窗体上第一行的内容是 ，第二行的内容是 Private Sub Form_Click()???Dim I As Integer,Sum As Integer?? ?For I=0.5 To 8.5 Step 2.5?? ?Sum=Sum+I*10??? Next I??? Print Sum??? print IEnd Sub 4.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是_____，第二行的内容是_____，最后一行的内容是 ____。 Option ExplicitDim N As IntegerPrivate Sub Command1_Click()????Dim I As Integer, J As Integer????For I=3 To 1 Step -2????????N=Fun(I,N)????????Print N????Next IEnd SubPrivate Function Fun (A As Integer,B as Integer) As Integer????Static X As Integer????Dim Sum As Integer,I As Integer?? ??X = X + N???? For I = 1 To A???????? B = B + X + I???????? N = N – I\2???????? Sum = Sum + B???? Next I???? A = A + 1???? Fun = Sum + AEnd Function 5. 在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()  Dim a(1 To 10)  Dim p(1 To 3)  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 程序运行后，单击命令按钮，输出结果是（ ） 。 6. 已知菲波纳契数列具有如下递推关系： f1=f2=1 fn=fn-1+fn-2 n=3 下面是计算此数列的函数，请填空。 ?Private Sub Command1_Click() A% = Inputbox(“Input a number ;”) x=Fib(a) print x End Sub Private Function Fib(n%) Select Case n% Case 1 Fib=1 Case Else Fib= End Select End Function 7. 下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请填空将程序补充完整。 Option Base 1 Private Sub Command1_Click()  Dim a  a=Array(678,45,324,528,439,387,87,875,273