vb 2003年(春)笔试部分

第二部分 VB程序设计一.填空题21.在VB中可以作为容器的是B 。A.Form、TextBox、PictureBox B.Form、PictureBox、FrameC.Form、TextBoX、Label D.PictureBox、TextBox、ListBox22.VB中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有C 。1.PictureBox 2.Image 3.TextBox4.CommandButton 5.OptionButton 6.Label A.1、2、3、4、 B.1、2、5、6、 C.1、2、4、5 D.1、2、4、6、23.针对语句If I=1 Then J=1，下列说法正确的是C 。A.I=1和J=1均为赋值语句B.I=1和J=1均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.I=1为赋值语句，J=1为关系表达式24.在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是C 。A.s=2*a+1 B.s=237&.11:a=s C.s=2*a3 D.a=2:s=16400*a25.下面所列四组数据中，全部是正确的VB常数是A 。A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3D.ABCDE,#02-02-2002#,E-226.下面有关数组处理的叙述中，不正确的是D 。1、在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。2、在过程中，可以使用Dim、Private和Static语句定义数组。3、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。4、可用Public语句在窗体模块的通用说明处定义一个全局数组。A.1、2、3、4、 B.1、3、4、 C.1、2、3、 D.2、4、27.第一次显示某窗体时，将引发一系列事件，正确的事件是B 。A.Load - Initialize - Activate B.Initialize - Load - ActivateC.Load - Activate- Initialize D.Initialize - Activate - Load28.定义两个过程Private Sub1(St() As String)和Private Sub2(Ch() As String*6)，在调用过程中用Dim S(3) As String*6,A(3) As String定义了两个字符串数组。下面调用语句中正确的有D 。1、Call Sub1(S) 2、Call Sub(A) 3、Call Sub2(A) 4、Call Sub2(S)A.1、2 B.1、3 C.2、3 D.2、429.运行下面程序，单击命令按钮Command1,则立即窗口上显示的结果是A 。Private Sub Command1_Click() Dim A As Integer,B As Boolean,C As Integer,D As Integer A=20/3 : B=True : C=B : D=A+C Debug. Print A, D, A=A + CEnd SubA. 7 6 False B. 6.6 5.6 False C. 7 6 A=6 D. 7 8 A=830.以下控件中，不能作为数据绑定控件的是 C 。A. Label(标签) B. TextBox(文本框)C. OptionButton(单选按钮) D.ListBox(列表框)二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1、正确表示命题“A是一个带小数的正数，且 B是一个带小数的负数”的逻辑表达式是 Csng(A)0 And Csng(B)O And AInt(A) And B0 And BInt(B)。2、运行下面的程序，当单击窗体时，文本框 Text1 中的内容是 AFT ，文本框 Text2 中的内容是 AatF 。 Private Sub Form_Click()Dim St As StringDim St1 As String, St2 As StringSt = ASFRSDCFRSKXCall Change_String(St, St1, St2)Text1.Text = St1Text2.Text = St2End SubPrivate Sub Change_String(S As String, St1 As String, St2 As String)Dim tem As String, i As IntegerFor i = 1 To Len(S) tem = Mid(S, i, 1) If tem = S Then St1 = St1 St2 = St2 & atElseIf tem = R Then St1 = St1 & T Exit ForElse St1 = St1 & tem St2 = St2 & temEnd IfNext iEnd Sub3、执行下面程序，单击命令按钮Command1 ，则在窗体上显示的第一行是 5 ，第二行是 45 ，第三行是 54 。Private Sub Command1_Click( )Dim s_data As Integer, d_data As String, k As Integer, p As Strings_data = 29Do Until s_data = 5 p = s_data Mod 5 d_data = d_data & p s_data = s_data 5Loopd_data = d_data & s_dataPrint s_dataPrint d_datap = For k = Len(d_data) To 1 Step -1 p = p & Mid(d_data, k, 1)Next kPrint pEnd Sub4、执行下面程序，从键盘输入3，程序运行结束后，A( 1, 1)的值是 17 ，A( 2, 2) 的值是 15 ；A( 2, 3)的值是 12 。 Private Sub Form_Click()Dim I As Integer, J As Integer, K As IntegerDim A() As Integer, N As IntegerN = InputBox(输入N)ReDim A(N, N)For I = 1 To N For J = 1 To N K = K + 1 A(I, J) = K + 10 Next JNext ICall Sub1(A, N)End SubPrivate Sub Sub1(A() As Integer, N As Integer)Dim I As Integer, J As IntegerDim T As Integer, K As IntegerK = N + 1For I = 1 To Int(N / 2) For J = I To N - I T = A(I, J) A(I, J) = A(K - J, I) A(K - J, I) = A(K - I, K - J) A(K I, N + 1 - J) = A(J, K - I) A(J, K - I) = T Next JNext IEnd Sub5、执行下面程序，单击命令按钮Command1 ，则在窗体上第一行显示是 0 1 2 3 4 ， 第二行显示是 4 5 6 7 8 ，第三行显示是 8 。 Private Sub Command1_Click()Output_Count 4Output_Count 8Output_Count 4End SubPrivate Sub Output_Count(UpperLimit As Integer) Static LowerLimit As Integer Do While LowerLimit 1 Then Display = Display(S, L - 1) S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Len(S) - L) Display = S Print DisplayEnd Function7、由键盘输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub Form_Click()Dim p As Integer , x As Integer, flag As Booleanflag = Falsex = InputBox(请输入一个正整数) Do While Not flag p = 2: flag= True Do While flag And (p = 0 And Mid(s, i, 1) = 0 And Mid(s, i + 1, 1) = 9 And i 1 Then If p Then ReDim Preserve c(k) c(k) = p k = k + 1 p = End If End IfNext iReDim Preserve c(k)c(k) = pFor i = 1 To k List1.AddItem c(i) Next iEnd Sub9、给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为1的两个正整数，图2是程序执行画面）。 Option ExplicitPrivate Function gcd( ByVal m As Integer, ByVal n As Integer ) As Integer Dim r As Integerr = m Mod n If r = 0 Then gcd = n Else m = n: n = r gcd = gcd(m, n) End IfEnd FunctionPrivate Sub Command1_Click() Dim n As Integer, p As Integer n = Val(Text1) For p = n - 1 To 2 Step -1 If gcd(n, p) = 1 Then List1.AddItem pNext pEnd Sub10.用（m)表示数m的所有因子（包括1和m在内）之和。如果mn，且（m)=（n)=m+n+1，则数对(m,n)是拟互满数。下列程序的功能是找出402000之间的所有拟互满数，并将运算结果按图3给出的格式 显示在文本框Text1中。Option ExplicitPrivate Sub Command1_Click() Dim N As Integer, I As Integer, j As Integer Dim Flg As Boolean, M As Integer For N = 40 To 2000 Flg = False Call Garcia(N, M, Flg) If Flg Then Text1.Text = Text1.Text & ( & M & , & N & ) & Chr(13) & Chr(10) End IfNext NEnd SubPrivate Sub Garcia(N As Integer, M As Integer, Bool As Boolean) Dim G1 As Integer, G2 As Integer, K As Integer G1 = Factor(N) For K