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

在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。

（1） Cmd对象属于类。（单选，填字母：A . Form / B . Label / C . TextBox / D . CommandButton ）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmd_Click()

Dim i As Integer, j As Integer, k As Integer

Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single

Dim d As Single, Totald As Single, v As Single, s As String

s =①

x1 = 0： y1 = 0         ‘出发点为坐标原点

k = 1 ： j = 1 ： Totald = 0

For i = 1 To Len（s）

If Mid（s，i，1） ="，" Then

    v = Val（Mid（s，j，i - j））       ‘提取坐标值，保存在变量v中

    j = i + 1

    If ② Then

      x2 = v

    Else

      y2 = v

      d = Sqr（（x2 — x1）^2 + （y2 — y1）^ 2）

      Totald = Totald + d

      x1 = x2 ： y1 = y2

    End If

    k = k + 1

End If

Next i

Label1. Caption = Str（Totald）

End Sub
（3）运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为。

小明编写了一个VB程序，可实现如下功能：在100至999之间的自然数中，找出能被3整除，且至少有一位数字为5的所有整数，并统计个数。程序运行界面如图a所示。

（1）在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“List1”列表框。
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click（）

  Dims As Integer，n As Integer

  Dim a As Integer，b As Integer，c As Integer

  n=0

  s=102

  List1.Clear

  Do Whiles<=999

    a=   ①

    b=s\10 Mod 10

    c=s Mod 10

    If ②   Then

      List1.Addltem Str（s）

         ③

    End If

    s=s+3

  Loop

  Label1.Caption="共有"+Str（n）+"个"

End Sub

画线处应填入的代码为：①；②；③。

编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Command1，在列表框List1中显示n个两数之和小于100的加法练习题。程序运行界面如图1所示。

图1

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

Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n = Val(Text1.Text)

i =

Do While i <= n

    a = Int(Rnd * 100)

    b = Int(Rnd * 100)

    If Then

        List1.AddItem "(" + Str(i) + ")" + Str(a) + "+" + Str(b) + "="

        i = i + 1

    End If

Loop

End Sub
（3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句a = Int(Rnd * 100)执行次数的描述，最合理的是（单选，填字母：A . 执行次数等于5 / B . 执行次数大于等于5 / C .执行次数小于等于5）

下列是VB控件工具箱的部分截图，其中“标签”控件工具是（）

A . 1 B . 2 C . 3 D . 4

在VB中，运行程序可以单击工具栏中的按钮是（）。

A .

B .

C .

D .

VB的三种工作模式包括设计模式、中断模式和( )

A . 运行模式 B . 对象模式 C . 代码模式 D . 属性模式

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

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

在设计阶段，双击窗体上的某个控件时打开的窗口是（）。

A . 代码窗口 B . 工具箱窗口 C . 工程资源管理器窗口 D . 属性窗口

VB有三种工作模式：设计模式、运行模式以及。

属性窗口的属性可以按照和顺序排列。

VB6.0共有三个版本，按功能从弱到强的顺序排列应是、和。

下列说法不正确的是( )

A . 计时器控件设计时不能改变大小 B . 计时器控件运行时不可见 C . 计时器控件能响应CLICK事件 D . 计时器控件没有前景色属性

下列不能打开代码窗口的操作是：（）

A . 双击窗体上的某个控件 B . 单击窗体或控件 C . 按“F7”键 D . 双击窗体

VB工作模式分为设计、、3种类型。

下列叙述正确的是( )

A . 一个组中同一时刻只能选一个复选框 B . 一个组中同一时刻只能选一个单选按钮 C . 一个组中同一时刻能选多个单选按钮 D . 复选框不能同时选择多个

我们还可以利用计算机来模拟“割圆术”计算验证圆周率。如图所示，设圆的半径为1，正n边形的边长AB=x，弦心距为h，面积为S，正2n边形的边长AC=x;由勾股定理即可推导出 $\text{[math]}$ ， $\text{[math]}$ ，其中x₆=1。观察发现，正2n边形的面积等于正n边形的面积加上n个等腰三角形的面积，即 $\text{[math]}$ 。利用这个推导公式，编写如下Python程序，求解π的近似值。据此完成小题。

from math import * #从math模块调用常用的数学函数

n = int(input("请输人多边形的边数:"))

i=6

x=1

s=6*sqrt(3)/4 #sqrt( ) :math中的函数，用于求算术平方根

while i <=n/2: #当i> n/2时，结束循环，执行print( )

h = sqrt(1-(x/2)**2)

s= s+i*x*( 1-h)/2

x = sqrt(((x/2)**2+(1-h)**2)

i=2*i

print( "当正多边形的边数为", n, "时, π的近似值为:", s)

（1）按照数字化工具的功能分类，Python语言编程软件属于( )

A . 信息传输工具 B . 信息加工工具 C . 信息检索工具 D . 信息存储工具
（2） Python文件的后缀名为( )

A . .c B . .jar C . .xls D . .Py
（3） s=6* sqrt(3)/4是一条（）

A . 输入语句 B . 赋值语句 C . 输出语句 D . 注释语句
（4） “(x/2)**2+( 1-h)**2”表达的代数式是（）

A . 2( $\text{[math]}$ )+1-2h B . $\text{[math]}$ ×2+(1-h) ×2 C . 2( $\text{[math]}$ )+2(1- h) D . ( $\text{[math]}$ )²+(1-h)
（5） “i<=n/2”中包含①算术表达式②逻辑表达式③关系表达式④赋值表达式（）

A . ①② B . ①③ C . ②④ D . ②③
（6）程序中“#当i> n/2时，结束循环，执行print()"的功能为（）

A . 数据输入 B . 数据输出 C . 注释或解释 D . 赋值
（7） “print("当正多边形的边数为" ，n，"时，π的近似值为：" ，s)”的作用是（）

A . 数据输入 B . 数据输出 C . 运算 D . 赋值
（8）在h = sqrt( 1-(x/2)**2)语句中， **是( )运算符。（）

A . 乘 B . 除 C . 求余 D . 幂
（9）在Python程序设计语言中，数据输入通过input函数来实现，input函数的返回值是（）

A . 数值 B . 字符串 C . 字典 D . 列表
（10）利用计算机模拟“割圆术”，计算验证圆周率，体现了数字化学习的( )特点。

A . 多样性 B . 局限性 C . 创造性 D . 单一性
（11）编制计算机程序解决问题的一般过程为①设计算法②编写程序③调试运行程序④分析问题，正确的排序是（）

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

小明为了将十进制数转化为k进制数(k值范围在2到16之间)，设计如下界面程序：在文本框Text1中输入一个十进制数，在文本框Text2中输入整数k，单击“运行”按钮Command1，程序将十进制转化为k进制值，并在标签Label1中输出结果。请回答下列问题：

（1）程序窗体中“运行”所用的控件是(选项A . ；B . ；C . ；D . )。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_ Click()

Dim d As Integer, k As Integer, r As Integer

Dim s As String, c As String

d= Val(Text1. Text)

k= Val(Text2. Text)

s=" "

Do While d>0

    r=d Mod k

    If r>=10 Then

      c= Mid(“ABCDEF”,,1)

    Else

      c=str(r)

    End If

    s=

    d=d\ k

Loop

Label1. Caption=“结果为：”+s

End Sub
（3）运行该程序，在文本框Text1中输入“28”，文本框Text2 中输入“16”，单击“运行”按钮，则Label1显示的内容为是。

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

    Dim n As Integer，i As Integer，a As Integer，b As Integer

    Randomize

    n=Val(Text1.Text)

    i=

    Do While i<=n

        a=Int(Rnd*100)

        b=Int(Rnd*100)

        IfThen

            List1.AddItem“(“+Str(i)+”)“+Str(a)+”+“+Str(b)+”=”

            i=i+1

        End If

    Loop

End Sub
（3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句“a=Int(Rnd*100)”执行次数的描述，最合理的是(单选，填字母：A .执行次数等于5 / B .执行次数大于等于5 / C .执行次数小于等于5)。

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

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