高三计算机第五次模拟试题(VB、网络)
一.选择题.(每小题2分,共50分)
1. Integer类型的数据由______字节组成。
    A.1    B.2    C.3    D.4
2. 下面四项中，______是VB中的数值变量。
    A.ABC    B.E+2    C."True"    D.1.35E-2
3. MsgBox函数的返回值的类型为______。
    A.整数    B.字符串    C.逻辑值    D.日期值
4. 以下程序的循环次数是______。
  Private Sub Command1_Click()
    For j=8 To 35 Step 3
          Print j;
      Next j
  End Sub
    A.10  ‘int(35-8)/3+1    B.9    C.27    D.28
5. 下面（  ）是合法的变量名。
（A）X_YZ  （B）123ABC  （C）integer  （D）X-Y
6. \、/、MOD、*四个算术运算符中，优先级别最低的是（    ）。
（A） \    （B）  /    （C）请输入长度介于05之间的字符串    MOD    （D） 、
7. 下面正确的赋值语句是（    ）。
（A）X+Y=30  （B）Y=π*R*R  （C） Y=X+30（D）3*Y=X
8. 赋值语句：A＝123 & MID("1234356",3,2) 执行后，A变量的值为（    ）。
（A）"12334"（B）123    （C） 12334    （D）157
9. 以下循环能正常结束的是（          ）。
（A） i=5            （B） i=1
      Do                    Do
      i=i+1                i=i+2
      Loop  Until i<0        Loop Until i=10
（C） i=10              （D）i=6
      Do                    Do
    i=i+1                  i=i-2
    Loop Until i>0              Loop Until i=1
10. 用 If 语句表示分段函数
               
下列不正确的程序段是        。
A．If  X>=0  Then  f = X+1              B．If X<0  Then  f =5*X+3 Else  f = X+1
f =5*X+3
                                        D．If  X>=0  Then
C．f =5*X+3                                    f = x+1
  If  X>=0  then  f=X+1                    Else 
                                                f =5*X+3
                                          End If 
11. 要存放如下方阵的数据，可使用数组声明语句        来实现（不能浪费空间）。
           
A．Dim a(9) As Integer                B．Dim a(-1 To 1, -5 To -3) As Integer
C．Dim a(3, 3) As Integer              D．Dim a(-3 To -1, 5 To 3) As Integer
12. 下面程序段求两个数中的大数，      不正确。
A．Max=IIf (x>y，x，y)      B．If  x>y  Then  Max=x Else Max=y
C． Max=x                  D． If  y>=x  Then  Max=y
    y>x Then Max=y            Max=x
13. 假设a和b是整型变量，则表示条件”1≤a<8和1<b≤8中只要有一个成立即可”的逻辑表达式是________ 。
A) 1<=A AND A<8 AND 1<B AND B<=8
B) (1<=A AND A<8) AND NOT (1<B AND B<=8)
C) 1<=A AND A<8 OR 1<B AND B<=8
D) NOT (1<=A AND A<8) OR (1<B AND B<=8)
14. 15除以2余数的-3次方的VB表达式为________。
A) MOD(15,2)^(-3)    B) (15MOD2)^(-3)
C) 15.0MOD2^-3.0    D) MOD(15.0,3)^-3.0
15. 执行List1.List(List1.ListCount)= “80” 语句后，＿＿。
[A]会产生出错信息               
[B] List1列表框最后一个表项被改为 “80”
[C] List1列表框会增加一个 “80” 表项
[D] 指定List1列表框的表项个数为80个
16. 在下列关于Select Case的叙述中，错误的是        。
A、Case 10 To 100        表示判断Is是否介于10和100之间
B、Case“abc”，“ABC” 表示判断Is是否和“abc”、“ABC”两个字符串中的一个相同
C、Case“X”          表示判断Is是否为大写字母X
D、Case –7，0，100    表示判断Is是否等于字符串“-7，0，100”
17. 以下语句中，与语句“If A>”X” And B<>”Y” Then C=q Else C=p”等价的是        。
A、If A<=”X” Or B=”Y” Then C=q Else C=p
B、If A<=”X” And B=”Y” Then C=q Else C=p
C、If Not (A<=”X” Or B=”Y”) Then C=q Else C=p
D、If A <”X” And B=”Y” Then C=q Else C=p
18. Option Base 1
        Dim arr() As Integer
        Private Sub Form_Click()
        Dim i As Integer, j As Integer
        ReDim arr(3, 2)
        For i = 1 To 3
        For j = 1 To 2
        arr(i, j) = i * 2 + j
        Next j
        Next i
        ReDim Preserve arr(3, 4)
        For j = 3 To 4
        arr(3, j) = j + 9
        Next j
        Print arr(3, 2) + arr(3, 4)
        End Sub
        程序运行后,单击窗体,输出结果为:
        A)21            B)13        C)8        D)25
19. 下面是求最大公约数的函数的首部
  Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer
  若要输出8、12、16这3个数的最大公约数，下面正确的语句是
  A)Print gcd(8,12)，gcd(12,16)，gcd(16,8)
  B)Print gcd(8,12,16)
  C)Print gcd(8)，gcd(12)，gcd(16)
  D)Print gcd(8,gcd(12,16))
20. 计算二的近似值的一个公式是。
  某人编写下面的程序用此公式计算并输出π的近似值：
  Private Sub Comand1_Click()
  PI=1
  Sign=1
  n=20000
  For k=3 To n
  Sign=-Sign/k
  PI=PI+Sign/k
  Next k
  Print PI*4
  End Sub
  运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是
  A)把For k=3 To n 改为 For k=1 To n
  B)把n=20000改为n=20000000
  C)把For k=3 To n改为For k=3 To n Step 2
  D)把PI=1改为PI=0
21. 防火墙是设置在可信任网络和不可信任网络的外界之间的一道屏障,其目的是(  )
A.保护一个网络不受病毒的攻击
B.使一个网络与另一个网络不发生任何关系
C.保护网络不受另一个网络的攻击
D.以上都不正确
22. 以下不属于网络协议故障的表现的是：（  ）
  A．计算机无法登录到服务器
  B．计算机在网上邻居中看不到自己，也无法在网络中访问其他计算机
  C．网线、跳线或信息插座故障
  D．计算机无法通过局域网接入Internet
23. 专线接入Internet有许多种,其中利用光纤、铜线、数字微波或卫星等数字通信信道，提供永久或半永久连接电路，用来传输数字信号的传输网络的方式为:(  )
A.DDN方式    B. ISDN方式      C.xDSL方式    D.Modem方式
24. 在整个网络的设计,功能,可靠性和费用方面有着重要影响的因素是(  )
  A.误码率    B.拓仆结构  C.网络距离    D.网络传输速率
25. Windows提供了一个测试网络连通的命令是（  ）
A  Ping        B  Ipcogfig      C  IP        D  Scan
二.填空题.(每空2分,共22分)
1. VB表达式Cos(0)+Abs(-1)+Int(Rnd(1))的值是______________.
2. 以下程序的输出结果是__________________.
  Private Sub Command1_Click()
      Dim sum As Integer
      sum%=19 
      sum=2.32
      Print sum%,sum
  End Sub
3. 下面程序运行后，输出的结果为________。
  Private Sub Command1_Click( )
    A$=”Beijing”
    B$=”dalian”
    C$=”shanghai”
    C$=Instr(Left(A$,2)+Right$(B$,2),C$)
    Print C$
  End Sub
4. 在窗体上已建立了多个控件如Text1 Label1 Command1。若要使程序已运行焦点就定位在Command1控件上，应对Command1控件设置        属性的值为        。
5. 下面程序段显示               个“*”。   
For i=1 To 5                   
      For j=2 To i
    Print  “*”
    Next j
Next i
6. ________型是VB的默认数据类型，它可以存储各种类型的数据。
7. 已知K=2,J=3,A=True，则VB表达式(K-J<=K)AND(NOT A)OR(K+J>=J)的值为________。
8. 表达式Right(string(65,asc(“abc”)),3)的值是________
9. 编写显示这个图形的程序:
        1
      222
    33333
  4444444
555555555
    a$ = "12345"
    For i = 1 To 5
            Print Tab(6 - i);
            Print ________________________
    Next i
10. CSMA/CD的含义是______________________________.
三.判断题(每题1分,共10分)
1.通用过程可以放在标准模块中，也可以放在窗体模块中。
2. 数组作为过程参数时，使用的是地址传送方式。
3. 可以在窗体的通用部分声明静态变量。
4. 表达式 -5^2 > Rnd*10 的值为False.
5. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值。
6. 赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。
7. 在循环体内，循环变量的值不能被改变。
8. rs-232c 定义了DTE与dce之间的接口，而rs-449定义的不是这二者的接口
9. 在脱机状态下是不能撰写邮件的，因为发不出去。
10. 电子商务是指在网上进行贸易的商业活动.
四.改错题(每处错误3分,共9分)
用自定义函数的方法求sum（x），求当-1≤x≤1时，
'      sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，
'      当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数
'      据错误。X、N都是由用户输入。
Option Explicit
Private Sub Command1_Click()
    Dim s As Single
    Dim n As Integer, x As Single, k As Integer
    n = Val(InputBox("Please input a integer value:"))
    x = Val(InputBox("Please input a single value:"))
    If n <= 0 Then
    k = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")
              Exit Sub
    End If
    s = Sum(x, n)
    Print s
End Sub
Function Sum(x As Single, n As Integer)
    Dim i As Integer, ss As Long
    ss = 1
    Sum = 0
    If x > 1 Or x < -1 Then
      Exit Do
    Else
        For i = 2 To n
        ss = ss * i
        Sum = x ^ (i - 1) / ss
        Next i
    End If
End Function
五.写运行结果.(每题3分,共9分)
1. 从键盘输入一个实数mm，利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“END“，程序的输出结果是______。
  Private Sub Command1_Click()
  　mm=Val(InputBox("请输入一个实数"))
    n$=Str$(mm) 
    p=InStr(n, ".")  ‘InStr()函数：指定一字符串在另一字符串中最先出现的位置
      If p>0 Then
      Print Mid(n,p)  ‘Mid 语句来得到某个字符串中的几个字符
      Else
    Print "END"
    End If
  End Sub
2. 写出单击窗体的运行结果
Private Sub Form_Click()
Dim a(4, 4) As Integer
Dim c As Integer, r As Integer
Dim i As Integer, j As Integer, k As Integer
c = 4: r = 1: i = 1: j = 1
For k = 1 To 16
a(i, j) = k
If i < c And j = r Then
i = i + 1
ElseIf i = c And j < c Then
j = j + 1
ElseIf i > r And j = c Then
i = i - 1
ElseIf i = r And j > r + 1 Then
j = j - 1
End If
If i = r And j = r + 1 Then
c = c - 1
r = r + 1
End If
Next
For i = 1 To 4
For j = 1 To 4
Print Tab(j * 4); a(i, j);
If j = 4 Then Print
Next
Next
End Sub
3. Function fun(m As Integer) As Integer
  Dim k As Integer, sum As Integer
  sum = 0
  For k = m To 1 Step -2
  sum = sum + k
  Next k
  fun = sum
  End Function
  若在程序中用语句 s = fun(10) 调用此函数，则s的值为 ___________
六.程序填空题.(每空2.5分,共20分)
1. 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程
  Private Sub Command1_C1ick()
  Dim  a  As String
  a=  “123456789”
  For I ＝1 To 5
      Print Spc(6-I)；Mid$(__________________)
  Next  I
  End Sub
    程序运行后，单击命令按钮，要求窗体上显示的输出结果为
      5
      456
    34567
    2345678
  123456789
2. 请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。
  Private Sub Form_Click()
      a$="ABCDEHGABCDEFABCDEABCDABCABA"
      b$="AB"
    c=InStr(a$, b$)
    x=0
    While c<>0
        x=x+1
        _____________
        c=InStr(a$,b$)
    Wend
    Print x
  End Sub
3. 输入字符，统计有多少个元音字母，有多少其他字母，直到按了回车键结束并显示结果。大小写不区分。
Dim County%, Countc%
      Private Sub Text1_KeyPress (KeyAscii As Integer)
      Dim  c$
C=               .               
    If  "A"<=C  AND C<="Z" Then
            Select  Case               .       
            Case                .           
                    County=County+1
            Case                .           
                    Countc=Countc+1
        End Select
End If
If                .Then               
            Print "元音字母有";County: "个"
            Print "其他字母有";Countc; "个"
End If
End Sub
4. 猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有
几个桃子？
Private Sub Command1_Click( )
      Dim  n, i
      x = 1
      For  i = 6  To 1 Step –1
                  .           
      Next i
      Print "原来共有"; x; "个桃子"
    End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。