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

在VB中，若要在窗体中增加一个列表框，在控件工具箱中要选择的控件是（）

A .

B .

C .

D .

如图所示，要更换图片，应在Image 1属性窗口设置的属性是（）

A . Top B . Left C . Picture D . Height

铁路托运行李是根据行李的质量收费的，标准如下：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费，但行李质量不得超过150千克。

设计一个VB程序，通过在文本框Text1输入托运行李的质量，计算并输出托运行李的费用，行李质量超过150千克，则显示“行李超重！”。结果在文本框Label1中显示。程序运行界面如图a所示。

（1）在设计程序界面时，应使用图b所示的“控件工具箱”中的（填写相应编号）添加“Label1”对象。
（2）解决铁路托运行李费用计算问题采用的算法是（填字母：A .解析算法/B .枚举算法）。
（3）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click( )

  Dim x As Double，y As Double

      ①

  If x>150 Then

    Label1l.Caption="行李超重！"

  Else

    If ②   Then

      y=0.35*50+0.5*（x-50）

    Else

      y=0.35*x

       ③

    Label1.Caption="行李收费"+   ④   十"元"

  End If

End Sub

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

统计不同单词个数，在Text1中输入一行单词，点击“统计”按钮后在Text2中输出不同单词的个数。单词字母有大小写，同一单词的大小字母视为相同，句子以符号结尾，程序运行界面如图1所示。

图1

图2

（1）观察以下代码，该代码中 Command1_Click（）是（选：A . 对象名 /B . 事件名 /C . 事件处理过程名）
（2）在设计应用程序界面时，应使用图2所示“控件工具箱”中的添加列表框List1.
（3）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()

  Dim a(1 To 100) As String ,s As String, ch As String, word As String

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

  s = Text1.Text : k = 0 : word = ""

For i = 1 To Len(s)

   ch = Mid(s, i, 1)

  If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then

    If ch >= "A" And ch <= "Z" Then

        word = word + ch

    Else

        flag = False

     For j = 1 To k

        If a(j) = word Then flag = True

      Next j

      If Not flag And word <> "" Then



        a(k) = word

        numb = numb + 1

      End If



  End If

  Next i

Text2.Text = str(numb)

End Sub

编写“字母出现频率测试”程序，实现如下功能：在文本框Text1中输入英文句子，单击“统计”按钮，在列表框List1中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如图所示。

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

    Dim count(25) As Integer

    Dim ch, ch2 As String

    Dim m As Integer

    ch = Text1.Text

    For k = 1 To Len(ch)



        n = Asc（ch2）-Asc(“a”)

        If n >= 0 And n <= 25 Then

            count(n) = count(n) + 1

            List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"

        End If

    Next k

    m = count(0)

    For k = 1 To 25

        If Then m = count(k)

    Next k

    Label1.Caption = "字母最高出现" + Str(m) + "次"

End Sub
（3）分析如上代码，“统计”按钮的对象名称为。（单选，填字母：A . Command1 / B . CmdTJ / C . CmdTJ_Click / D .统计）

某VB程序界面如图所示，功能为：在文本框Text1中输入字符串，单击按钮Comand1后，依次输出该字符串中每个字符及其相应的ASCII码，代码如下所示：

Private Sub Command1_ Click ()

Dim i As Integer

Dim s As String， s2 As String

s =Text1． Text

For i=1ToLen(s)

s2 = Mid(s，i，1)

List1．AddItem s2 & "：”& Str (Asc (s2))

Next i

End Sub

则程序界面上用于输出的控件的图标为（）

A .

B .

C .

D .

下列关于“控件”属性的说法正确的是( )

A . 单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值。 B . 所有对象都具有同样的属性 C . 控件的属性只能在设计时设置，不能在运行时修改 D . 控件的每一个属性都具有同样的默认值

如图是 Visual Basic窗体中某对象的属性窗口，从图中可以看出，该对象所属的类名是（）

A . Lb1 B . Caption C . Label D . welcome

在Visual Basic中，某对象属性窗口的部分信息如图所示。下列说法不正确的是（）

A . 该对象属于文本框类 B . 该对象名为age C . 在程序运行时该对象不可见 D . Text是属性名

小明打开“工程1.vbp”文件进行编辑，如图所示，为了显示应用程序的窗体，他应该进行的操作是（）

A . 单击A处的“视图”菜单 B . 双击B处的“Form1”窗体文件 C . 单击C处的“窗口”菜单 D . 关闭文件，重新打开

以下关于图片框控件的说法中，错误的是（）

A . 可以通过Print方法在图片框中输出文本 B . 清空图片框控件中图形的方法之一是加载一个空图形 C . 图片框控件可以作为容器使用 D . 用Stretch属性可以自动调整图片框中图形的大小

可以在中断状态下查询对象值的窗口是。

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。

请分析任务，完成下列题目。

程序代码如下：

Private Sub Command1_Click()

Dim s As single

Dim Max ， Min ，i As Integer

Dim a(5) As Integer

Max = 0

Min = ①

s = 0

For i = 1 To 5

a(i) = InputBox("请输入第" & i & "个分数")

s = s + a(i)

If ② Then Max = a(i)

If Min > a(i) Then Min = a(i)

Next i

s = ③

Text1.Text = Max

Text2.Text = Min

Text3.Text = s

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command3_Click()

End Sub

请分析任务，完成下列题目。

（1）下列控件在本程序窗体中用到的是（）

A . 列表框 B . 单选按钮 C . 标签 D . 组合框
（2）为精确计算选手的最终得分，程序中变量s的数据类型应定义为（）

A . 整型 B . 单精度型 C . 字符型 D . 布尔型
（3）程序中①所在位置表达式正确的是（）

A . 0 B . 1 C . 5 D . 10
（4）程序中②所在位置表达式正确的是（）

A . Max < a(i) B . Max >a(i) C . Max =a(i) D . Max <> a(i)
（5）程序中③所在位置表达式正确的是（）

A . s/3 B . (s+Max+ Min)/5 C . (s - Max - Min) / 3 D . (s - Max - Min) / 5
（6）变量s所表示的含义是（）

A . 最低分 B . 最高分 C . 评委打分 D . 最终得分
（7）当一个选手的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是（）

A . 8 B . 8.33 C . 7.66 D . 7
（8）程序中Command1控件响应的事件是（）

A . 单击事件 B . 双击事件 C . 载入事件 D . 活动事件
（9）程序中数组a(5)包含的元素个数是（）

A . 1 B . 5 C . 6 D . 10
（10）程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是（）

A . 1 B . 4 C . 5 D . 6

Visual basic6.0集成环境中没有下面的哪种工作状态（）

A . 设计 B . 运行 C . 编译 D . 中断

VB6.0集成开发环境的主窗口不包括（）

A . 菜单栏 B . 标题栏 C . 状态栏 D . 工具栏

激活属性窗口的快捷方式是。

在VB集成开发环境中，发现没有显示“工具箱”窗口，应选择菜单的“工具箱”选项。

用户使用对窗体上的单选按钮分组。

第一个单选按钮的默认名称是

编写VB程序，实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数并求和与最大数”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

（1）观察运行界面，选项中没有用到的控件是(选项A . .；B . ；C . ；D . )。
（2）设计该窗体界面时，需要将窗体Form1的属性设置为“最大随机数”。
（3）请完善下列程序横线处代码
Private Sub Command1_ Click()

    Dim a(1 To 10) As Integer ．

    Dim i As Integer, n As Integer

    Dim s As Integer, max As Integer

    n= Val(Text1. Text)

    i=1：s=0

    Randomize     '随机函数的初始化语句

    Do While i <=n

        a(i)= Int(Rnd * 100)

        List1. AddItem Str(a(i))

        s= s+ a(i)



    Loop

    max=a(1)

    For i=2 To n

       If a(i)> max Then

    Next i

    List1. AddItem“和为：”+

    List1. AddItem“最大值为：”+Str( max)

End Sub

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

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