2006年春季.docVIP

2006年春季 第二部分 Visual Basic程序设计 一、选择题 21、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3=Text1+Text2后，则在Text3中显示____。 A.434 B.45678 C.溢出 D.语法错误 22、如果窗体上有命令按钮“确定”，在代码编辑窗口有与之相对应的OK_Click()事件过程，则命令按钮控件的名称属性和Caption属性分别为____。 A.“OK”和“确定” B.“确定”和“OK” C.“Command1”和“确定” D.“Command1”和“OK” 23.下面Sub子过程的各个语句中，正确的是（ ） a Private Sub Sub1(A() As string) b Private Sub Sub1(A(1 to 10) As string*8) c Private Sub Sub1(S As string) d Private Sub Sub1(s As string*8) A abcd B abc C acd D ac 24.执行赋值语句_____后，会触发相应控件的Change事件（控件名均为缺省名）。 A. Dirl.ListIndex =-2 B. Drive1.ListIndex =2 C. List1.ListIndex =3 D. File1.ListIndex =3 25.假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是（　　）。 　 A. BOOL =TRUE B. BOOL =.TRUE. C. BOOL =#TRUE# D. BOOL = True 26.表达式6.5*5 Mod 28\8的值是（　　　）。　 A. 0 B. 1 C. 2 D. 3 27.以下所列项目不属于窗体事件的是（　　　）。　 　 A. Initialize B. SetFocus C. GotFocus D. LostFocus 28.函数CInt Int Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是（　　　）。 A. CInt(-4.51)=Int(-4.51) Fix(-4.51) B. Int(-4.51)C. CInt(-4.51) Fix(-4.51)D. Int(-4.51)29.下面有关数组的说法中，错误的是（　　　）　 A.数组必须先定义后使用 B.数组形参可以是定长字符串类型 C.Erase语句的作用是对已定义数组的值重新初始化 D.定义数组时，数组维界值可以不是整数 30.可以把变化长字符串S中的第一个ABC子串，替换成“1234的语句是（　　　） A. S=Left(s, InStr(S,ABC))1234 Right(S,Len(S)-InStr(S,ABC)-2) B. Mid(S,InStr(S,ABC),3)=1234 C. Mid(S,InStr(S,ABC),4)=1234 D. S=Left(s, InStr(S,ABC)-1)1234 Right(S,Len(S)-InStr(S,ABC)-2) 二　执行下面程序，当单击窗体时，显示在窗体上第一行的内容是200，第二行的内容是10 Private Sub Form_Click() Dim I As Integer,Sum As Intger For I=0.5 To 8.5 Step2.5 Sum=Sum+I*10 Next I Print Sum print I End Sub 2.运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是0:1，第三行是2：3，第五行是4：1。 Private Sub From_Click() Dim s As String, i As Integer,n(9) As Integer Dim s1 As String*1,j As Integer s=Trim(12345a307291b233) For i=1 To Len(s) s1=Mid(s,i,1) If s1=0 And s1=9Then j=Val(s1) n(j)=n(j)+1 End If Next i For j=0 To 9 Print j; : ;n(j) Next j End Sub 3.执行下面程序，单击命令按钮Command1后，显示在窗体上第