江苏二级VB模拟.doc

21.C22.A23.D24.A25.D26.C27.C28.D29.C30.C1.10 6 2.5 43.10 -64.115.-206.4 8 7.12 868.49.510.611.3 512.8 1613.Open data.txt For Input As #1014.w=A and w=a and wabcdeC. Int(134.69)=Cint(134.69)D. 78.9/32.77-4.9823. 以下有关对象属性的说法中正确的是_。A. 对象所有的属性都罗列在属性窗口列表中B. 不同对象不可能有同名属性C. 不同对象的同名属性取值一定相同D. 对象的某些属性既可以在实行窗口中设置，也可以通过程序代码设置或改变24在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有_个。 Public A(5) As Integer Public N As Integer Public St As String*10 Public b() As IntegerA. 2 B. 3 C. 4 D. 125. 单选按纽（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_中安排适当的单选按纽，即可实现。A. 框架控件（Frame）或图象控件（Image）B. 组合框（ComboBox）或 图象控件（Image）C. 组合框（ComboBox）或图片框（PictureBox）D. 框架控件（Frame）或图片框（PictureBox）26. 下面的语句或方法，错误的有_。（其中m和n都 为Integer型变量） Dim Array(m,n) As Integer n=32764+6 Print A=A+B;A+B ChDriver C:A. 1 B. 2 C. 3 D. 427. 执行下面的程序，单击窗体后在窗体上显示的结果是_。Private Sub Form_Click()Dim Str1 As String, Str2 As String,I As IntegerStr1=abFor I=Len(Str1) To 1 Step -1item=LCase(Mid(entry,I,1)&IStr1=Str1&Chr(Asc(Mid(Str1,I,1)+I)Next IPrint Str1End SubA. abce B. abcd C. abdb D. abfd28. 下面说法不正确的是_。A. VB允许将一个数字字符串赋值给一个数值型的变量B. VB允许使用未经说明的变量，其类型都是Variant类型C. Cls只清除运行时在窗体或图形框中显示的文本或图形D. 事件过程既可建在窗体模块中，也可建在标准模块中29. 下面能够正确打开文件的一组语句是_。A. Open data1 For Output As #5 , Open data1 For Input As #5B. Open data1 For Output As #5 , Open data1 For Input As #6C. Open data1 For Input As #5 , Open data1 For Input As #6D. Open data1 For Input As #5 , Open data1 For Random As #630. 应用程序窗体的名称属性为Frm1，窗体上有一个命令按纽，其名称属性为Cmd1，窗体和命令按纽的Click 事件过程名分别为_。A. Form_Click() Command1_Click() B. Frm1_Click() Command1_Click()C. Form_Click() Cmd1_Click() D: 二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）1.运行下面的程序，当单击窗体时，窗体上第一行内容是_(1)_，第三行内容是 _(2)_ ，第四行内容是_(3)_。 Dim x As Integer, y As IntegerPrivate Sub Form_Click()Dim A As Integer, B As IntegerA = 5: B = 3Call Sub1(A, B)Print A, BPrint x, yEnd SubPrivate Sub Sub1(ByVal M As Integer, N As Integer)Dim x As Integer, y As Integerx = M + N: y = M - NM = fun1(x, y)N = fun1(y, x)End SubPrivate Function fun1(A As Integer, B As Integer) As Integerx = A + B: y = A - BPrint x, yfun1 = x + yEnd Function2. 执行下面的程序，第一行输出结果是_(4)_，第二行输出结果是_（5）_。OPtion ExplicitPrivate Sub Form_Click()Dim I As Integer,J As IntegerJ=10For I=1 To J I=I+1J=J-INext IPrint IPrint JEnd Sub3. 执行下面的程序，第一行输出结果是_(6)_，第三行输出结果是_（7）_。Private Sub Form_Click()Dim A As Integer, I As IntegerA=2For I=1 To 9Call Sub1(I,A)Print I,ANext IEnd SubPrivate Sub Sub1(X As Integer,Y As Integer)Static N As IntegerDim I As IntegerFor I=3 To 1 Step -1N=N+XX=X+1NEXT IY=Y+NEnd Sub4. 执行下面程序后，A（1，3）的值是_(8)_，A（2，2）的值是_(9)_，A（3，1）的值是_(10)_。Option ExplicitPrivate Sub Form_Click()Dim A(3,3) As Integer, I As IntegerDim J As Integer, K As Inteher,N As IntegerFor K=1 To 5If K=3 ThenFor I=1 To KN=N+1A(I,K-I+1)=NNext IElseFor I=1 To 6-KN=N+1A(K-3+I,4-I)=NNext IEnd IfNext KFor K=1 To 3For I =1 To 3Print A(K,I);Next IPrintNext K End Sub5. 执行下面的程序，第一行输出结果是_(11)_，第二行输出结果是_（12）_。Option ExplicitPrivate Sub Form_Click()Dim I As Integer,J As IntegerI=1:j=2Call Test(I,J)Print I,JCall Test(I,J)Print I,JEnd Sub Private Sub Test(M As Integer,N As Integer)Static Sta As IntegerM=M+NN=N+M+StaSta=Sta+MEnd Sub6. 下面程序的功能是统计当前盘当前文件夹中的顺序文件data.txt中共有多少个英文单词，约定连续出现的英文字母定义为一个单词。Option ExplicitPrivate Sub Form_Click()Dim Char As String， St As String，Tem As StringDim Idx As Integer，Js As Long,Flen As longDim F As Boolean,W As String*1_(13)_Flen=Lof(10)St=Input(Flen,#10)Js=1Do While Js=Flen ThenW=Mid(St,Js,1)If _(14)_ThenTem=Tem+WF=TrueElse If F=True ThenIdx=Idx+1ReDim Preserve Char(Idx)Char(Idx)=TemTem=_(15)_F=FalseEnd If_(16)_LoopPrint 共有；Idx;个单词For Js=1 To IdxPrint Char(Js)Next JsClose #10End Sub7. 下面程序的功能是当循环次数一定时，统计生成互不相同的1100之间的随机整数的个数。Option ExplicitOption Base 1 Private Sub Form_Click()Dim Data() As Integer， I As Integer，Idx As IntegerDim N As Integer， Temp As Integer，Flg As BooleanN=InputBox(输入循环次数)ReDim Data(1)Idx=1Data(1)=Int(100*Rnd(1)+1For I=1 To NTemp=Int(100*Rnd(1)+1_(17)_Call COmpare(Data,Temp,Flg)If Flg=True ThenIdx=Idx+1_(18)_Data(Idx)=TempEnd IfNext IPrint 生成；Idx;个不相同的整数For I=1 To IdxPrint Data(I)If I Mod 10=0 Then PrintNext IEnd SubPrivate Sub Compare(Array() As Integer,K As Integer,Logic As Boolean)Dim Ub As Integer， I As Integer_(19)_For I=1 To UbIf Array(I)=K Then_(20)_End IfNext ILogic=TrueEnd Sub8. 下面程序的功能是验证回文数猜想。任取一自然数，将其倒过来，并将这两个数相加，然后把这个和数倒过来，与原来的和数相加重复这个过程有限次，必将得到一个回文数。所谓回文数指左右数字完全对称的自然数，例如，121，12321，898，111均是回文数。根据猜想，假如取一自然数6868+86=154154+451=605605+506=1111，经过三步运算就得到回文数1111。Option ExplicitPrivate Sub Form_Click()Dim S As Long,D As Long,Sum As LongDim Flg As BooleanS=InputBox(输入一个正整数)Do D=Fun(S)Sum =S+DPrint Sum;=;S;+;DCall Comp(Sum,Flg)S=_(21)_Loop Until FlgPrint Sum;是回文数End Sub Private Function Fun(N As Long)As LongDim Char As String,J As Long Dim I As Integer,Slen As IntegerChar=Ltrim(Str(N)_(22)_J=1For I=1 To SlenFun=Fun+Val(Mid(Char,I,1)*J_(23)_Next IEnd FunctionPrivate Sub Comp(N As Long,F As Boolean)Dim Ch As String,S As Integer,I As IntegerS=Len(Ltrim(Str(N)F=FalseCh=Ltrim(Str(N)For I=1 To_(24)_If Mid(Ch,I,1)Mid(CH,S+1-I,1)Then Exit SubNext I_(25)_End Sub9. 若一个等比数列的首项为2，公比为3，其第n项到第m 项之和为720。下面是求出符合上述要求的n 和m 的程序。Private Sub Command1_Click()Dim Num() As Integer, Q As Integer, A As IntegerDim i As Integer, N As Integer, M As IntegerConst k As Integer = 720ReDim Num(1)A = 2: Q = 3Num(1) = A _(26)_ DoA = A * Qi = i + 1 _(27)_ Num(i) = ALoop Until Num(i) = 720Call Sum1(Num, N, M, k)Label1 = 第 + Str(N) & 项第 & Str(M) & 项的和是720End S