算法会考模拟单选题.docx

上传人:b****7 文档编号:8803973 上传时间:2023-02-01 格式:DOCX 页数:34 大小:34.78KB
下载 相关 举报
算法会考模拟单选题.docx_第1页
第1页 / 共34页
算法会考模拟单选题.docx_第2页
第2页 / 共34页
算法会考模拟单选题.docx_第3页
第3页 / 共34页
算法会考模拟单选题.docx_第4页
第4页 / 共34页
算法会考模拟单选题.docx_第5页
第5页 / 共34页
点击查看更多>>
下载资源
资源描述

算法会考模拟单选题.docx

《算法会考模拟单选题.docx》由会员分享,可在线阅读,更多相关《算法会考模拟单选题.docx(34页珍藏版)》请在冰豆网上搜索。

算法会考模拟单选题.docx

算法会考模拟单选题

在Visual Basic中,同一行上可以书写多个语句,语句间用(     )符号分隔。

∙A)  撇号(’)B)  冒号(:

)C)  感叹号(!

)D)  大于号(>)

答案:

B

Print "20+5=";20+5输出的结果是(     )

∙A)  20+5=20+5B)  25=20+5C)  "20+5"=25D)  20+5=25

答案:

D

语句Print "5*20" 输出结果是 (    )

∙A)  "5*20"B)  出错C)  5*20D)  100

答案:

C

下面四个选项中,不是窗体事件的是(    )

∙A)  LoadB)  UnloadC)  DblClickD)  Enable

答案:

D

若要设置文本框中所显示的文本颜色,使用的属性是(    )

∙A)  FillColorB)  BackColorC)  ForeColorD)  BackStyle

答案:

C

设置命令按钮标题文字的字体、字号要使用(    )属性。

∙A)  TextB)  CaptionC)  NameD)  Font

答案:

D

只能用来显示字符信息的控件是(    )

∙A)  标签B)  图像框C)  图片框D)  文本框

答案:

A

下面四个控件中,属于文本框控件的是(   )

∙A)  

B)  

C)  

D)  

答案:

B

下述选项中,属于VB程序设计方法的是(    )

A)  面向对象,事件驱动B)  面向对象,顺序驱动

C)  面向过程,问题驱动D)  面向过程,对象驱动

答案:

A

执行以下语句后,a的值是(   )

     Dim a As Integer

      a = 1

      Do While a <> 100

         a = a + 2

      Loop

∙A)  99B)  100C)  溢出D)  101

答案:

C

在VB中,以下程序段:

t=1:

x=0

Do While t<10

   x=x+t

t=t+1

Loop

运行后的x的值为(    )

∙A)  9B)  45C)  10D)  55

答案:

B

当VB执行下面语句后,A的值为(    )

 A=1

 IF A>0 THEN A=A+1

 IF A>1 THEN A=0

∙A)  2B)  1C)  0D)  3

答案:

C

下列程序段输出的结果为(    )

 x = 5:

 y = 10:

 z = 20

 If x + y > z Then Print 3 * z Else Print 4 * z

∙A)  60B)  80C)  15D)  20

答案:

B

有如下Visual Basic程序段,该程序段运行后,变量y的值是(    )。

     x=8

      if  x>l then

      y=x-4

      else

      y=x+3

      end if

∙A)  4B)  8C)  11D)  15

答案:

A

定义a,b,c为整型变量,执行语句   a = 9:

 b = 8:

 c = 10:

 c = a:

 a = b:

 b = c后,其a,b的值是(   )

∙A)  8,9B)  8,10C)  10,8D.9,8D)  9,8

答案:

A

模块:

算法与程序设计

表达式Abs(-32.6)*Sqr(100)的值是(   )

∙A)  -320B)  -326C)  326D)  320

答案:

C

执行下列语句后,S的值是(    )

   B$="456789"

   S=Val(Mid$(B$,3,2))

∙A)  67B)  78C)  45D)  567

答案:

A

在VB中执行“A=80\9 MOD 6”语句后,A的值为(   )

∙A)  3B)  2C)  1D)  7

答案:

B

针对语句 If I=1 then J=1,下列说法正确的是 (   )

∙A)  I=1和J=1均为赋值语句B)  均为关系表达式

∙C)  I=1为关系表达式,J=1为赋值语句D)  I=1为赋值语句,J=1为关系表达式

答案:

C

下列能正确表示a≥7或a≤-5的关系表达式是(   )

∙A)  a>=7Ora<=-5B)  a>=7Anda<=-5

∙C)  a>=7Xora<=-5D)  a>=7Eqva<=-5

答案:

A

表示“X>Y>Z”,正确的VB逻辑表达式是 (   )

∙A)  X>YAndY>ZB)  X>Y>ZC)  X>YorY>ZD)  X>YAnd>Z

答案:

A

VB程序设计问题。

在窗体上画一个文本框,然后编写如下事件过程:

Private Sub Form_Click()

x = InputBox("请输入一个整数")

Print x + Text1.Text

End Sub

程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容是(  )。

∙A)  123B)  456C)  579D)  123456

答案:

D

在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有(    )可使文本框Text3中显示46。

∙A)  Text3.Text=Text1.Text&Text2.Text

∙B)  Text3.Text=val(Text1.Text)+val(Text2.Text)

∙C)  Text3.Text=Text1.Text+Text2.Text

∙D)  Text3.Text=val(Text1.Text)&val(Text2.Text)

答案:

B

模块:

算法与程序设计

窗体上有一个文本框控件Text1,假设已存在三整型变量a,b和c,且变量a值为5,变量b的值为7,变量c的值为12,则以下的(    )语句可以使文本框内显示的内容为:

5+7=12

∙A)  Text1.Text=a+b=cB)  Text1.Text="a+b=c"

∙C)  Text1.text=a&"+"&b&"="&cD)  Text1.text="a"&"+"&"b"&"="&"c"

答案:

C

表达式 5<8 and  7>4 or 3=2的结果是 (  )

∙A)  FalseB)  TrueC)  1D)  0

答案:

B

在VB6.0中,下面四个数中,作为常量有语法错误的是(    )

∙A)  123.456B)  1.23E2.1C)  1.23E-2D)  123.4E4

答案:

B

下面所列四组数据中,全部是VB常量的是 (    )

∙A)  2768&,1.34#,“ABCDE”,TrueB)  276,123.56,1.2E-2,#True#

∙C)  HABCE,02-03-2004,False,0-3D)  ABCE,#02-03-2004#,E-2

答案:

A

由Const  m=“123”,可以判断m为(    )。

∙A)  整型常量B)  实型常量C)  字符串型常量D)  布尔型常量

答案:

C

在Visual Basic 6.0程序语言系统中,下列不合法的变量名是(    )

∙A)  mynameB)  a5cC)  4cD)  class_1

答案:

C

下列各种基本数据类型说明符中表示单精度实型数的是(    )。

∙A)  IntegerB)  BooleanC)  SingleD)  String

答案:

C

在程序中将变量Inta、Bl、st和D定义为Integer型、Boolean型、String型和Date型,下列语句中,正确的是(   )

∙A)  Inta="333"+"22"B)  D=#10/05/01#C)  5+"abc"D)  #True#

答案:

B

执行语句x = -1:

 y = 2:

 x = x + y:

 y = x + y  变量x,y分别是(    )。

∙A)  13B)  11C)  -12D)  x+yx+y

答案:

A

下列Visual Basic程序段运行后,变量x的值为(   )。

   x=3:

y=77

    Do

     x=x+2

    Loop Until x>Sqr(y)

∙A)  7B)  8C)  9D)  10

答案:

C

在过程中有语句For I=N1 to N2 step N3,在该循环体内有下列四条语句,其中(   )会影响循环执行次数

  ①、N1=N1+1 ②、N2=N2+N3 ③、I=I+N3 ④、N3=2*N3

∙A)  ①②B)  ①②③C)  ③D)  ①②③④

答案:

C

下列选项中不能输出信息的是(   )

∙A)  Printa+b,cB)  ?

a,b,cC)  Printa;b,cD)  Dimxassingle

答案:

D

有如下VB程序,运行后S的值是( )。

s=3

n=5

s=s+n

n=s-n

s=s-n

∙A)  3B)  8C)  5D)  15

答案:

C

在VB中,某同学要计算1+3+5+……+9的值,他应用循环结构语句如下:

“ s=0

FOR i=1 TO 9  STEP ?

  s=s+i ”

请问语句中的“?

”代表的值是(   )

∙A)  1B)  -1C)  2D)  -2

答案:

C

下列Visual Basic程序段运行后,变量max的值为(     )。

  a=11

  b=15

  max=a

IF b>max Then max =b

∙A)  11B)  15C)  15或11都有可能D)  以上都不是

答案:

B

下面程序段是用函数实现的二分查找,将程序中带下划线的部分补充完整。

funtion  search(byval key as integer) as integer

  dim i as integer

  dim j as integer

  dim m as integer

  dim nc as integer

   i=1

   j=60

   nc=0

   do while i<=j

      nc=nc+1

      m=(i+j) \2

      if _______ then

        search=m

        exit function

      endif

 

      if key

        j=m-1

      else

        i=m+1      

      endif

        

   loop

     search=0

   

end function

∙A)  d(m)=keyB)  d(m)<>keyC)  key>d(m)D)  d(m)

  • 答案:

    A

    下面程序段是用递归函数实现的求n!

    ,将程序中带下划线的部分补充完整。

     

     function  f(byval as integer) as integer

        if n=1 then

          f=1

        else

          f=_________  

        endif

     

     end function

    ∙A)  f(n)B)  n*f(n-1)C)  f(n-1)D)  n+f(n-1)

    答案:

    B

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim s As Integer

      Dim i As Integer

      

      s = 0

      For i = 1 To 50

      

       s = s + (2 * i - 1) - 2 * i

      

      Next i

      

      text1.text = s

    End Sub

    ∙A)  0B)  50C)  -50D)  5050

    答案:

    C

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim s1 As Integer

      Dim s2 As Integer

      

      Dim i As Integer

      

      s2 = 0

      s1 = 0

      For i = 1 To 50

       s1 = s1 + (2 * i - 1)

       s2 = s2 + 2 * i

      Next i

      

      text1.text = s1 - s2

       

       

    End Sub

    ∙A)  5050B)  -50C)  0D)  50

    答案:

    B

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim s As Integer

      Dim t As Integer

      Dim i As Integer

      

      s = 0

      t = 1

      For i = 1 To 100

        s = s + i * t

        t = -t

      

      Next i

      

      text1.text = s

    End Sub

    ∙A)  5050B)  -50C)  2525D)  50

    答案:

    B

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim s As Integer

      Dim i As Integer

      s = 1

      i = 1

      Do While i <= 6

        s = s * i

        i = i + 1

      Loop

      text1.text = s

      

    End Sub

    ∙A)  120B)  720C)  360D)  21

    答案:

    B

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim s As Integer

      Dim i As Integer

      

      s = 0

      i = 1

      

      Do While i <= 100

        s = s + i

        i = i + 1

      Loop

      

      text1.text = s

    End Sub

    ∙A)  5050B)  5051C)  10100D)  10101

    答案:

    A

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim s As Integer

      Dim i As Integer

      s = 0

      For i = 1 To 100

        s = s + i

      Next i

      text1.text= s

    End Sub

    ∙A)  5051B)  10100C)  5050D)  10101

    答案:

    C

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim f1 As Integer

      Dim f2 As Integer

      Dim f As Integer

      Dim i As Integer

      

      f1 = 1

      f2 = 1

      

      For i = 3 To 8

       f = f1 + f2

       f1 = f2

       f2 = f

      Next i

      

       text1.text = f

    End Sub

    ∙A)  13B)  21C)  34D)  3

    答案:

    B

    阅读下列程序,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim n As Integer

      Dim s As Integer

      n = 10

      s = 0

      For k = n \ 3 To 4

        s = s + k - (n - k + 1) \ 2 + 1

      

      Next k

      

      text1.text = s

      

    End Sub

    ∙A)  3B)  2C)  1D)  4

    答案:

    B

    阅读下列程序,程序运行后在文本框中显示的内容是( )。

    Private Sub Form_Click()

      Dim n As Integer

      Dim s As Integer

      

      n = 456

      s = 0

      

      Do While n > 1

        s = s + n \ 5

        n = n \ 5

      Loop

      

      text1.text = s

    End Sub

    ∙A)  112B)  110C)  91D)  109

    答案:

    A

    在VB中进行程序界面制作时,要设置某个对象属性时,应进入()。

    ∙A)  任意模式B)  运行模式C)  中断模式D)  设计模式

    答案:

    D

    阅读下列程序段,程序运行后在文本框中显示的内容是()。

    Private Sub Form_Click()

      Dim a(1 To 10) As Integer

      Dim b(1 To 10) As Integer

      Dim j As Integer

      

      For j = 1 To 5

        a(j) = 2 * j

        b(j) = a(j) * 3

       

      Next j

      

      Text1.Text = b(j \ 2)

    End Sub

    ∙A)  30B)  无解C)  18D)  0

    答案:

    C

    阅读下列程序段,程序运行后正确结果是()。

    Private Function tran(ByVal n As Long)

      Dim k As Long

      

      k = n Mod 8

      n = n \ 8

      If n <> 0 Then

         tran (n)

      End If

      Print k;

    End Function

     

     

     

     

    Private Sub Form_Click()

     Dim m As Long

     

     m = 2010

     tran (m)

    End Sub

    ∙A)  2010B)  3732C)  2373D)  0102

    答案:

    B

    阅读下列程序段,程序运行后在文本框中显示的结果是()。

    Private Function gcd(ByVal m As Long, ByVal n As Long) As Long

      Dim r As Long

      

      r = m Mod n

      If r = 0 Then

         gcd = n

      Else

        gcd = gcd(n, r)

      End If

      

    End Function

    Private Sub Form_Click()

      Dim x As Long

      Dim y As Long

      x = 524

      y = 36

      Text1.Text = gcd(x, y)

    End Sub

    ∙A)  8B)  4C)  2D)  1

    答案:

    B

    下面程序段是实现二分查找,执行程序后,先输入由小到大的一组数据,后输入要查询的数。

    将程序中带下划线的部分补充完整。

    Dim a(1 To 10) As Integer

    Private Function search(ByVal key As Integer) As Integer

      Dim i As Integer

      Dim j As Integer

      Dim m As Integer

      j = 5

      i = 1

      Do While  _____________   

        m = (i + j) \ 2

        If a(m) = key Then

            search = m

            Exit Function   '退出定义函数

        Else

            If key > a(m) Then

                i = m + 1

            Else

                j = m - 1

            End If

        End If

      Loop

      search = -1

    End Function

     

    Private Sub Form_Click()

      Dim i As Integer

      Dim x As Integer

      For i = 1 To 5

        a(i) = InputBox("请输入第" + Str(i) + "的值:

    ")

      Next i

      x = InputBox("输入要查找的数值")

      Print search(x)

    End Sub

    ∙A)  i<=jB)  i>=jC)  i<>jD)  i=j

    答案:

    A

    下列程序段是将数组a中元素值从小到大排序,请将程序中带下划线部分补充完整。

    Private Sub Form_Click()

      Dim a(1 To 10) As Integer

      Dim i As Integer

      Dim j As Integer

      Dim t As Integer

      n = 10

      Randomize

      For i = 1 To n

       a(i) = Int(Rnd() * 100)

       Print a(i);

      Next i

      Print Chr(10)

      For i = 1 To n - 1

        For j = i + 1 To n

          If ____________ Then

            t = a(j)

            a(j) = a(i)

            a(i) = t

      

  • 展开阅读全文
    相关资源
    猜你喜欢
    相关搜索

    当前位置:首页 > 初中教育

    copyright@ 2008-2022 冰豆网网站版权所有

    经营许可证编号:鄂ICP备2022015515号-1