程序设计与实践（VB.NET）
上QQ阅读APP看本书，新人免费读10天
设备和账号都新为新人
上一章目录下一章

习题

一、单选题

1．从循环体Do…Loop中退出并继续执行程序，可使用语句______。

A．Exit Sub

B．Exit Loop

C．Exit

D．Exit Do

2．假设TextBox1文本框中输入了学生的成绩，以A、B、C、D、E字符表示不同的等级，下列语句中，__________可用于判断输入数据是否正确。

A．If "A"<= TextBox1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"

B．If "A" <= TextBox1.Text Or TextBox1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"

C．If A <= TextBox1.Text And TextBox1.Text <= E Then MsgBox "输入正确" Else MsgBox "输入错误"

D．If "A"<= TextBox1.Text And TextBox1.Text <= "E" Then MsgBox "输入正确" Else MsgBox "输入错误"

3．下面程序段的功能是求两个数中的大数，__________是不正确的。

A．Max = IIf（x > y, x, y）

B．If x > y Then Max = x Else Max = y

C．Max = x： If y >= x Then Max = y

D．If y >= x Then Max = y： Max = x

4．对于选择结构语句If x = 10 Then y = 100，下列说法正确的是_________。

A．x=10和y=100均为赋值语句。

B．x=10和y=100均为关系表达式。

C．x=10为关系表达式，y=100为赋值语句。

D．x=10为赋值语句，y=100为关系表达式。

5．以下关于多重循环语句的使用的描述中，错误的是____________。

A．内循环变量和外循环变量不能同名。

B．外循环必须完全包含内循环，不能交叉。

C．在外循环中可以使用GoTo语句转向内循环中的任何语句。

D．在内循环中可以使用GoTo语句转向外循环中的任何语句。

6．下列程序段执行的结果是____________。

    x=10
    y=20
    If x>20 Then If y>20 Then x=x＊3 Else x = x \ 2
    Label1.Text= x

A．10

B．20

C．5

D．30

7．在窗体上添加一个按钮，然后编写如下事件过程

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
            a = InputBox（"Enter the First integer"）
            b = InputBox（"Enter the Second integer"）
            Label1.Text= b + a
    End Sub

程序运行后，单击按钮，先后在两个输入对话框中分别输入456和123，则输出结果是________。

A．579

B．123

C．456

D．123456

8．假定有以下循环结构

    Do Until条件
            循环体
    Loop

则正确的描述是________。

A．如果“条件”是一个为0的常数，则一次循环体也不执行。

B．如果“条件”是一个为0的常数，则无限次执行循环体。

C．如果“条件”是一个不为0的常数，则至少执行一次循环体。

D．不论“条件”是否为真，至少要执行一次循环体。

9．在窗体上添加一个名称为Button1的按钮，然后编写如下事件过程：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    Dim x As Integer
    x=val（InputBox（"Input"））
    Select Case x
    Case1，3
      Label1.Text= "分支1"
    Case Is >4
      Label1.Text= "分支2"
    Case Else
      Label1.Text= "Else分支"
    End Select
    End Sub

程序运行后，如果在输入框中输入2，则窗体上显示的是________。

A．分支1

B．分支2

C．Else分支

D．程序出错

10．执行以下程序段：

    Dim x As Integer，i As Integer
    x=1
    For i = 20 To 1 Step -4
      x = x + i \ 5
    Next i

后，x的值为________。

A．10

B．11

C．12

D．13

11．设有以下循环结构：

    Do
    循环体
        Loop While <条件>

则以下叙述中错误的是________。

A．若“条件”是一个为0的常数，则一次也不执行循环体。

B．“条件”可以是关系表达式、逻辑表达式或常数。

C．循环体中可以使用Exit Do语句。

D．如果“条件”总是为True，则不停地执行循环体。

12．在窗体上添加一个名称为Button1的按钮，然后编写如下事件过程：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    Dim num As Integer
    Do Until num > 6
      Label1.Text= num
      num = num + 2.5
    Loop
    End Sub

程序运行后，单击按钮，则窗体上显示的内容是________。

A．0 2.5 5

B．02.5 57

C．0 2 4 6

D．无数据输出

13．以下Case语句中错误的是________。

A．Case 0 To 10

B．Case Is>10

C．Case Is>10 And Is<50

D．Case 3,5,Is>10

二、填空题

1．若TestMe的值为1500，则函数IIf（TestMe > 1000, "Large", "Small"）返回___________。

2．按钮Button1_Click事件中的程序为：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    Static a As Integer，b As Integer
    a = 1
    a = a + 5
    b = 5 + b
    Label1.Text= "a=" & a & "b= " & b
    End Sub

程序运行时，单击按钮两次后，窗体上显示的结果为_____________

3．按钮Button1_Click事件过程如下：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    Dim a As Integer，n As Integer
    a = 1: n = 0
    Do While a < 20
      a = a ＊ 3
      n = n + 1
    Loop
    TextBox1.Text = a
    TextBox2.Text = n
    End Sub

程序运行时，单击按钮后，文本框1和文本框2上显示的结果分别为_________和_________。

4．正确地显示一个标题为ERROR、提示信息为“Input”的对话框的代码是k = InputBox（________）。

5．按钮Button1_Click事件过程如下：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    Dim a As Integer，j As Integer
    For i = 1 To 10 Step 3
      j = i
    Next i
    TextBox1.Text = j
    Label1.Text= i
    End Sub

程序运行时，单击按钮，文本框内显示的结果为__________，标签显示的结果为__________。

6．对For i = 11 To -5 Step -2语句，共循环__________次。

7．设a = 6，则执行x = IIf（a > 5, ～1, 0）后，x的值为____________。

8．在窗口上添加一个按钮，然后编写如下事件过程：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    K = 0
    For i = 1 To 5
      For j = 1 To 3
        If j mod 2<>0 then
            k = k + 1
        End if
        k = k + 1
      Next j
    Next i
    Label1.Text= k
    End Sub

程序运行后，输出结果是____________。

9．设有如下程序：

    Private  Sub  Form1_Click（ByVal  sender  As  System.Object， ByVal  e  As
System.EventArgs）Handles Form1.Click
    Dim a As Integer，s As Integer
    n = 6
    s = 0
    Do
      n = n -1
      s = s + n
    Loop until n < 0
    Label1.Text= s
    End Sub

以上程序运行后，单击窗体，输出结果为____________。

10．在窗体上添加一个名称为Button1的按钮，然后编写如下事件过程：

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）Handles Button1.Click
    For n = 1 To 20
      If n Mod 3 <> 0 Then m = m + n \ 3
    Next n
    Label1.Text= n
    End Sub

程序运行后，如果单击按钮，则窗体上显示的内容是____________。

上一章目录下一章