程序设计工具及编程环境知识点题库

分析解答问题.

学校举行校园歌手大赛，评委由6人组成，评分方法，去掉一个最高分和一个最低分，计算其余4位评委的平均分，作为选手的最终得分。

（1）在设计界面过程中，窗体中录入评委打分的对象是下面图中哪个控件生成的？
（2）定义一个数组储存六个评委的成绩，需要定义的类型为。

A . integer B . boolean C . long D . Single
（3）下列程序代码片段对应于算法描述中的第2步至第4步。请在横线处填写表达式：
max=a(1)

min=a(1)

s=a(1)

For i=2 to 6

s=s+a(i)

If a(i)>max then max=a(i)

If a(i)<min then min=a(i)

Next i

Aver=/4 ‘计算出选手的最终得分aver

在VB中，如下图所示，在窗体上放置一张图片，应在工具箱中选择的控件是（）

A .

B .

C .

D .

合数指自然数中除了能被1和本身整除外，还能被其他数（0除外）整除的数。与之相对的是质数，而1既不属于质数也不属于合数，最小的合数是4。编写合数“寻找质因子”的程序，程序功能：在文本框Text1中输入一个整型的合数，单击“计算”按钮Command1后，在文本框Text2中显示该整数可分解出的所有质因子。程序运行界面如图所示。

（1）观察程序界面，不具有Caption属性的对象的控件类名是。
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click( )

  Dim n, k As Integer

  Dims As String

     ①

  k=2

  Do While n>1

      If n Mod k=0 Then

           ②

        s=s+Str（k）

      Else

        k=k+1

      End If

  Loop

  Text2.Text=s

End Sub

画线处应填入的代码为：①；②。
（3）运行上述程序，若在文本框Text1中输入1024，单击“计算”按钮后，文本框Text2中显示的内容为。

在计算机系统中，数值一律用补码表示和存储（补码的计算方法：正整数的补码用其二进制数表示，负整数的补码是将其对应的正整数二进制数的所有位取反后加1）。小明为了更好地了解数值在计算机中是以什么形式传输的，编写了如下VB程序段。在文本框Text1中输入一个整数（-128至127之间的整数），单击“计算”按钮，在文本框Text2中输出对应的补码。程序运行界面如图所示。

实现上述功能的VB程序如下。

Private Sub Command1_Click( )

Dim n As Integer, i As Integer

Dim b（1 To 8） As Integer

Dims As String

s=""：n=Val（Text1. Text）

If n>=0 Then

For i=1 To 8

b（i）=n Mod 2：n=n\2

Next i

Else

n=Abs（n）

For i=1 To 8

b（i）=（n+1） Mod 2：n=n\2

Next i

b（1）=b（1）+1

i=1

Do While b（i）=2

b（i）=0

i=i+1

__________

Loop

End If

For i=8 To 1 Step-1

Next i

Text2. Text=s

End Sub

（1）观察运行界面，程序至少使用了类控件。
（2）根据程序规定的算法，-20的补码是。
（3）请将程序代码中的画线处语句补充完整。
（4）程序代码中，加框处赋值语句有误，请改正。

编写VB程序采用逢二进一的方法模拟“写二进制数”过程。程序功能如下：

在文本框Text1中输入一个不大于100的数字n，点击“写二进制数”按钮，在列表框List1中逐一显示1到n之间所有的二进制数。

（1）在设计程序界面时，可用上图中所示“控件工具箱”中的（填写相应编号）添加用于显示二进制值的列表框。
（2）实现上诉功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

    Dim d(1 To 7) As Integer    ‘数组d用于存储二进制数值的每一位的值

    n = Val(Text1.Text)

    For i = 1 To 7

        d(i) = 0

    Next i

    For i = 1 To n

    ‘最低位加1后，“逢二进一”处理进位，从而产生下一个二进制数



        d(k) = d(k) + 1

        s = ""

        For k = 1 To 6

            If d(k) = 2 Then

                d(k + 1) = d(k + 1) + 1



            End If



        Next k

        List1.AddItem Str(i) + " " + str(d(k)) + s

    Next i

End Sub

一个Pyhton程序的运行界面如下图所示，下列说法正确的是( )

①窗体内有1个按扭 ②窗体内有2个按钮

③窗体内有3个标签 ④该窗体的标题可以通过title()方法设置为“加法计算器”

A . ①② B . ②③ C . ③④ D . ①④

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（1）应用程序界面设计时，为添加“List1”对象，应使用图2所示的“控件工具箱”中的（填写相应编号）。
（2）请根据题意将解决此问题的相应程序补充完整。
Private Sub Command1_click( )

    Dim x As Integer, s As Long

    Dim y As Integer, i As Integer

    For i = 0 To 9999

        s = 590000 + i

        If Then

            x= s mod 10

            y =

            If x = y Then

                List1.AddItem Str(s)

            End If

        End If

    Next i

End Sub
（3）该模块采用的算法是（）

A . 枚举 B . 查找 C . 排序 D . 解析

在下图所示的VB“代码窗口”中，“对象”“过程”列表分别是（）

A . ①② B . ①③ C . ③④ D . ②③

GUI是指什么？（）

A . 图形用户界面 B . 统一资源管理器 C . 文本标签 D . 文本框

（）是用于编写程序（或制作软件）的开发工具。

A . 操作系统 B . 程序设计语言 C . 应用软件 D . 工具软件

COD（化学需氧量）是衡量水质污染程度的重要指标之一，污水处理时根据污水的COD指标来计算COD去除剂的投放量。

程序界面如图1所示，在本框Text1中输入COD指标，单击“计算投放量”按钮（Command1）后，程序根据COD指标计算出合适的COD去除剂投放量，并在标签Label3中输出计算结果。

污水处理厂根据COD指标投放COD去除剂的标准如下表所示：

当前COD指标X	根据COD指标应投放COD去除剂的剂量
X<50	10
X≥50并且X≤500	$\text{[math]}$
X>500	3X

图 1

图2

（1）在设计界面时，应使用图2所示“控件工具箱”中的（填写相应编号）添加“计算投放量”按钮。
（2）为实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click( )

    Dim x As Single，s As Single

    x =Val（Text1. Text）

    If x < 50 Then

        s=10

    ElseIf



    Else

        s=3*x

    End If

    Label3. Caption=

End Sub

小禾编写了一个VB程序，功能如下：在文本框Text1中输入英语文章，并在文本框Text2中输入要查找的英语单词，单击“开始查找”按钮Command1后，在文本框Text3中显示英语文章中出现该单词的次数，在文本框Text4中显示该单词在英语文章中两次出现的最大间距，程序运行界面如下图所示。请回答以下问题：

Private Sub Command1_Click()

Dim a(1 To 1000) As Integer '数组a存储文中出现该指定单词的各个位置

Dim s, c, ch As String

Dim n, max, i As Integer

s = Text1.Text

①

n = 0

max = 0

For i = 1 To Len(s) - Len(c) + 1

ch = ②

If ch = c Then

n = n + 1

③

If n >= 2 Then

If a(n) - a(n - 1) - Len(c) > max Then max = a(n) - a(n - 1) - Len(c)

End If

Next i

Text3.Text = Str(n)

Text4.Text = Str(max)

End Sub

（1）该应用程序中共有个对象组成，分别属于类控件
（2）请将横线处的语句补充完整
① ② ③

小明的支付宝帐号密码忘记了，但他还零星记得有关于密码的一些信息：

①密码是八位数字，前两位为19

②最后两位数字是91

③能被77和133整除

程序界面如图所示，单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

解决此问题的相应的程序如下：

Private Sub Command1_Click()

Dim i As Long, s As Long

For i = 0 To 9999

s = ① 's表示该八位数密码

If ② Then '符合密码的条件，s能被77和133整除

List1.AddItem Str(s)

End If

Next i

End Sub

（1）在应用程序界面设计时，添加“List1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的（填写相应的编号）。
（2）将窗体Form1上显示的文本“Form1”改为“寻找密码”，可在其属性窗口中将属性的属性值修改为“寻找密码”。
（3）解决此问题的算法是。（填：枚举算法/解析算法/查找算法）
（4）在程序下划线处，填入适当的语句或表达式，把程序补充完整：
① ②

同时具有列表框与文本框功能的控件是。

下面叙述错误的是（）

A . 在设计模式下，双击窗体可以打开代码窗口; B . 在运行模式下、双击窗体可以打开代码窗口; C . 单击工程资源管理器窗口上的查看代码按钮，可以打开代码窗口: D . 在设计模式下，双击窗体上任控件可以打开代码窗口。

设计模式下击工具箱中的图标，可以完成在窗体上添加相应的控件。

某车管所计划设计-款选车牌的程序，规则如下：

规则一：随机选取10个车牌号，其中2个车牌的尾数是字母，其余8个车牌的尾数是数字。

规则二：车牌尾数按从小到大排列。

规则三：若规则一随机选取的车牌中，第1个车牌尾数为数字，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：数字一字母一数字一字母一数字一数字……；若规则一随机选取的车牌中，第1个车牌尾数为字母，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：字母一数字一字母一数字一数字……

程序运行后，列表框List1中显示随机选取的车牌，单击“排序”按钮，在列表框List2 中显示按以上规则排序后的待选车牌。

（1）该界面中至少用到(填数字)类控件。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10

Dima(1 To 10) As String

Private Sub Form_ Load( )

'从数据库里随机选取10个车牌号(其中有2个尾号带字母)，车牌号依次存储于数组a(1)至a(10)，代码略

End Sub

Private Sub Command1_ Click( )

    If Then

        m= 1

    Else

      m=0

    End If

    For i=1 To n-1

        k=i

        For j=i+1 To n

          If Then k=j

      Next j

        If k <> i then tmp=a(k)： a(k)=a(i)：a(i)= tmp

    Next i

    pos= 9

    For i=0 To 1

        j=

      tmp = a(pos)

Do While j>=m+1+2*i

            a(j+1)=a(j)

            j=j-1

        Loop



        pos= pos+1

    Next i

    For i=1 To 10

        List2.AddItem a(i)

    Next i

End Sub

Function judge(s As String) As Boolean

   If Mid(s，7)>。="0"AndMid(s，7)<<="9"Then

        judge = True

    Else

       judge = False

    End If

End Function
（3）程序中加框处代码有误，请改正。

某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。

（1）窗体中没有用到的控件是。

A . B . C . D .
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码
Dim a(1 To 20) As Integer

Dim i As Integer, n As Integer

Private Sub Form_Load()

    Dim s As String, ch As String

    n = 1：s = Text1.Text

    For i = 1 To Len(s)

        ch = Mid(s, i, 1)

        If ch <> "," Then

            a(n) =

        Else

            n = n + 1

        End If

    Next i



End Sub

Private Sub Command1_Click()

    Dim j As Integer, t1 As Integer, t2 As Integer

    For i = 2 To n/2

        t1 = a(2 * i - 1): t2 = a(2 * i): j = i - 1

        Do While

            a(2 * j + 1) = a(2 * j - 1)

            a(2 * j + 2) = a(2 * j)

            j = j - 1

            If j = 0 Then Exit Do

        Loop

        a(2 * j + 1) = t1



    Next i

    For i = 1 To n/2

        Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))

    Next i

End Sub
（3）程序中加框处代码有误，请改正

下列控件中，可以输入数据的是()。

A . TextBox B . Label C . Form D . CommandButton

简述VB集成开发环境的组成（10部分），并说明代码窗口的打开方式（4种）

程序设计工具及编程环境 知识点题库

程序设计工具及编程环境知识点题库