程序设计试卷及答案

1.当运行程序时，系统自动执行启动窗体的某个事件过程。

这个事件过程是（）A)LoadB)ClickC)UnloadD)GotFocus2.无论何控件，都具有一个共同属性。

这个属性是（）A)TextB)FontC)NameD)Caption3.在一行内写多条语句时，语句之间要用某个符号分隔。

这个符号是（）A)，B)；C)、D)：4.表达式3∧2*2+3 MOD 10\4的值是（）A)18B)1C)19D)05.下面的变量名合法的是（）A)k_nameB)k ameC)nameD)k-name6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（）A)time1 = #11:34:04 #B)time1 = Format(Time,"yy:mm:dd")C)time1 = #"11:34:04"#D)time1 = Format("hh:mm:ss",Time)7.表达式12000 + "129" & 200的值是（）A)12329B)"12129200"C)"12000129200"D)"12329"8.若设a = 4,b = 5,则下列表达式值为真的是（）A)(True+a)>0 And b>10B)a>b Or b>10-aC)(False-b< 0) Eqv (a>b)D)a>b Xor b+3>59.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是（）A)AppearanceB)VisibleC)EnableD)Autoredraw10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As Integera = a + bb = b + 4Print a,bEnd Sub程序运行后，单击该命令按钮三次，屏幕上显示的值是（）A)4 12B)0 4C)4 8D)8 1211.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）A)属性、控件和方法B)属性、事件和方法C)窗体、控件和过程D)控件、过程和模块12.下列程序段错误的是（）A)Dim a As Integera = array(1,2,3,4)B)Dim a(),b()a = array(1,2,3,4):b = aC)Dim a As Varianta = array(1,"asd",true)D)Dim a() As Varianta = array(1,2,3,4)13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是（）A)"I am happy!"B)"I am student I am s am harass studentam happy!"C)"I am student am harass!"D)"I am student am happy!"14.下列程序段中，能正常结束循环的是（）A)I = 1DoI = I + 2Loop Until I = 10B)I = 5DoI = I + 1Loop Until I < 0C)I = 10DoI = I + 1Loop Until I > 0D)I = 6DoI = I - 2Loop Until I = 115.引用列表框（List1）最后一个数据项应使用的表达式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)16.有如下程序：Option Base 1Private Sub Command1_Click()Dim x,y(3,3)x = Array(1,2,3,4,5,6,7,8,9)For i = 1 To 3For j = 1 To 3y(i,j) = x(i*j)If(j > = i) Then Print y(i,j);Next jPrintNext iEnd Sub运行时输入出的结果是（）A)1 2 32 4 64 6 8B)1 2 32 4 63 6 9C)12 43 6 9D)1 2 34 6917.在窗体上画一个名称为Command1的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As SingleIf n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（）A)2B)1C)0D)1618.以下属性和方法中，可重定义坐标系的是（）A)DrawStyle属性B)DrawWidth属性C)Scale方法D)ScaleMode属性19.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Load()Text1.Text = ""Text1.SetFocusFor i = 1 To 5Sum = Sum +iNext iText1.text = SumEnd Sub上述程序的运行结果是（）A)在文本框中输出15B)在文本框中输出0C)在文本框中输出不定值D)出错20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是（）A)If x > = 60 ThenPrint "及格"ElseIf x > = 70 ThenPrint "中"ElseIf x > = 80 ThenPrint "良"ElseIf x > = 90 ThenPrint "优"ElsePrint "不及格"End IfB)If x < 90 ThenPrint "良"ElseIf x < 80 ThenPrint "中"ElseIf x < 70 ThenPrint "及格"ElseIf x < 60 ThenPrint "不及格"ElsePrint "优"End IfC)If x > = 90 ThenPrint "优"ElseIf x > = 80 ThenPrint "良"ElseIf x > = 70 ThenPrint "中"ElseIf x > = 60 ThenPrint "及格"ElsePrint "不及格"End IfD)Select Case xCase x > = 90Print "优"Case x > = 80Print "良"Case x > = 70Print "中"Case x > = 60Print "及格"Case ElsePrint "不及格"End Select21.下面说法不正确的是( )A)滚动条的重要事件是Change和ScrollB)框架的主要作用是将控件进行分组，以完成各自相对独立的功能C)组合框是组合了文本框和列表框的特性而形成的一种控件D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）A)TrueB)2C)0D)123.在下列关于菜单的说法中，错误的是（）A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件B)除了Click事件之外，菜单项还能响应其他的如DblClick等事件过程C)菜单项的快捷键不可以任意设置D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择24.下面关于多重窗体的叙述中，正确的是（）A)作为启动对象的Main 子过程只能放在窗体模块内B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C)没有启动窗体，程序不能执行D)以上都不对25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是（）A)KeyDown、KeyPress、KeyUpB)KeyDown、KeyUp、KeyPressC)KeyPress、KeyDown、、KeyUpD)没有规律26.要从磁盘上读入一个文件名为“c:\filel.t xt”的顺序文件，下面程序段正确的是（）A)F="c:\filel.txt"Open F For Input As # 1B)F="c:\filel.txt"Open "F" For Input As # 2C)Open "c:\filel.txt" For Output As # 2D)Open c:\filel.txt For Input As # 127.下列关于过程叙述不正确的是（）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的28.执行了下面程序后，组合框中数据项的值是（）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd SubA)1 5 6B)1 3 5C)4 5 6D)2 4 629.若在Shape 控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由Back Color属性填充，则应（）A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1B)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为1C)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为0D)将Shape控件的FillSte属性设置为0或1，BackStyle属性设置为030.下列程序的执行结果是（）Private Sub Form_Activate()Dim score(3) As Integer, total As IntegerDim aa_score As Variantscore(1)=50: score(2) =14：score(3)=36tota=0: i=0For Each aa_score In scorei=i+1total=tota + aa+_scorePrint i,aa_score,totalNextEnd SubA)1 0 02 50 503 14 64B)1 50 502 14 643 36 100C)0 50 501 14 642 36 100D)0 0 01 50 502 14 643 36 10031.在Activate 事件过程中，写入下面的程序：Option Base 1Private Sub Form_Activate()Dim t As IntegerDim a( ) As Varianta=Array (2,4,6,8,10,1,3,5,7,9)For i=1 to 10\2t= a(i)a(i)=a(10 - i + 1)a(10 - i + 1)=tNext iFor j= 1 to 10Print a(j);Next jEnd Sub运行程序后，显示的结果是（）A)2 4 6 8 10 1 3 5 7 9B)1 3 5 7 9 2 4 6 8 10C)9 7 5 3 1 10 8 6 4 2D)10 8 6 4 2 9 7 5 3 132.在Activate 事件过程中，写入下面的程序：Private Sub Form _Activate()Dim S As String, a As String, b As Stringa= "*" : b =" $"For i= 1 to 4If i / 2= Int(i / 2) ThenS=String(Len (a)+i , b)ElseS=String(Len(a) + i, a)End IfPrint S;Next i运行程序后，显示结果是（）A)$$ ***$$$$*****B)*$$**$$***$$$****$$$$C)**$$$****$$$$$D)$*$$**$$$***$$$$****33.在窗体上设置相应的控件，并在代码窗口编写下列程序：Printe Sub Form_Click()Dim a As Long ,b As Longa=InputBox("请输入若干个整数")Call P(a,b)Print bEnd SubPrivate Sub P(x As Long, y As Long)Dim n As Integer, j As String*1, s As Stringk=Len(Trim(Str(x)))s=""For i= K To 1 Step -1j=Mid(x,i,1)s=s+jNext iy=Val(s)End Sub运行程序，在InputBox框中输入123456,然后单击"确定"按钮，则输出结果是（）A)123456B)654321C)135246D)24613534.设定文本框内的文字内容是否允许修改的属性是（）A)TextB)LockedC)PasswordCharD)Multiline35.要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、三门课程成绩（百分制）组成，下列程序段正确的是（）A)Type studlno As Integername AS Stringscore(1 to 3) As SingleEnd TypeB)Type studlno As Integername As String *10score() As SingleEnd TypeC)Type studlno As Integername As String *10score(1 to 3) As StngleEnd TypeD)Type studlno As Integername As Stringscore(1 to 3) As StringEnd Type1-10.ACDCA ABDDD 11-20 BAACB DDCDC 21-30 DDBBA ADDDA 31-35 CCBBC。