1、二级 VISUAL+BASIC-72 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上用名称为 shape1 的形状控件画一个长、宽均为 1200 的正方形。请设置适当的属性以满足下列要求：窗体的标题为“正方形”，窗体的最小化按钮不可用。正方形的边框为虚线(线型不限)。程序运行后的窗体如图所示。（分数：15.00）_2.在名称为 Form1、标题为“标签”的窗体上，添加一个可自动调整大小的标签，名称为 Label1，其标题为“计算机等级考试”，字体大小为三号字；再添加两个命令按钮，标题分别是“宋体
2、”和“黑体”，名称分别为 Command1、Command2，如图所示。（分数：15.00）_二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，其窗体上有一个控件数组，名称为 Label1，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为 Text1 的控件数组，含三个初始内容为空的文本框；此外还有两个名称分别为 Cmd1 和 Cmd2 的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为不可用，如图所示。该程序的功能是计算公用电话计时收费。计时收费的标准是：通
3、话时间在 3 分钟以内时，收费 0.5 元；3 分钟以上时，每超过 1 分钟加收 0.15 元，不足 1 分钟按 1 分钟计算。程序执行的操作如下：如果单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用，“通话开始”命令按钮变为不可用。如果单击“通话结束”按钮，则在“结束时间”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用，“通话结束”命令按钮变为不可用。在窗体文件中已经给出了全部控件(如图所示)和程序，但程序不完整，要求去掉程序中的注释符，把?改为正确的内容，以实现上述功能。（分
4、数：20.00）_4.在考生文件夹下有一个工程文件 sjt4.vbp，文件 in4.txt 中有 5 组数据，每组 10 个，依次代表 10 个人语文、英语、数学、物理、化学这 5 门课程的成绩。程序运行时，单击“读入数据”按钮，可以从文件in4.txt 中读入数据放到数组 a 中。单击“计算”按钮，则计算 5 门课程的平均分(平均分取整)，并依次放入 Text1 文本框数组中。单击“显示图形”按钮，则显示平均分的图表，如图所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。（分数：20.00）_三、B综合应用题/B(总题数：1，分数：30.00
5、)5.在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请添加两个标签，其名称分别是 Label1 和 Label2，标题分别为“最长单词的长度”和“以该长度最后一次出现的单词是”；再添加两个名称分别为 Text1 和 Text2，初始内容为空的文本框，如图所示。程序功能如下：（分数：30.00）_二级 VISUAL+BASIC-72 (1)答案解析(总分：100.00，做题时间：90 分钟)一、B基本操作题/B(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上用名称为 shape1 的形状控件画一个长、宽均为 1200 的
6、正方形。请设置适当的属性以满足下列要求：窗体的标题为“正方形”，窗体的最小化按钮不可用。正方形的边框为虚线(线型不限)。程序运行后的窗体如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：新建一个窗体，按照题目要求建立形状控件并设置其属性，如图所示。 *程序中用到的控件及属性见表。 控件 形状控件 窗体属性 Name BorderStyleWidthHeightShapeCaptionMinButton设置值 Shape13 1200 1200 1 正方形 False步骤 2：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：形状控件的 Name、BorderSt
7、yle、Width、Height 和 Shape 属性以及窗体的Caption 和 MinButton 属性。 解析 通过形状控件的 Name、Width、Height 和 Shape 属性设置名称为shape1 的形状控件并画一个长、宽都为 1200 的正方形。通过窗体的 Caption 和 MinButton 属性设置窗体的标题为“正方形”和窗体的最小化按钮不可用，设置形状控件的 BorderStyle 属性使正方形的边框为虚线。2.在名称为 Form1、标题为“标签”的窗体上，添加一个可自动调整大小的标签，名称为 Label1，其标题为“计算机等级考试”，字体大小为三号字；再添加两个命令
8、按钮，标题分别是“宋体”和“黑体”，名称分别为 Command1、Command2，如图所示。（分数：15.00）_正确答案：(操作步骤 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中用到的控件及属性见表。 控件 窗体 标签 命令按钮 1 命令按钮 2属性 CaptionName CaptionFontSizeAutoSizeName CaptionName Caption设置值标签 Label1计算机等级考试一号字 True Command1宋体 Command2黑体步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Command1_Click() L
9、abel1.Font=“宋体“ End Sub Private Sub Command2_Click() Label1.Font=“黑体“ End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：窗体的 Caption 属性，标签的 Name、Caption、FontSize、AutoSize 和 Font属性以及命令按钮的 Name 和 Caption 属性。 解析 通过窗体的 Caption 属性设置窗体标题为“标签”，通过标签的 Name、Caption、FontSize 和 AutoSize 属性添加一个名称为 Label1，并可自动调整大小的标签
10、，其标题为“计算机等级考试”，字体大小为三号字，通过命令按钮的 Name 和 Caption 属性设置命令按钮的名称和标题。在命令按钮的 Click 事件过程中，通过 Label1 的 Font 属性值的改变，实现单击“宋体”命令按钮标签则内容显示为宋体字体；单击“黑体”按钮标签则内容显示为黑体字体。二、B简单应用题/B(总题数：2，分数：40.00)3.在考生文件夹下有一个工程文件 sjt3.vbp，其窗体上有一个控件数组，名称为 Label1，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为 Text1 的控件数组，含三个初始内容为空的文本框；此外还有两个名称分
11、别为 Cmd1 和 Cmd2 的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为不可用，如图所示。该程序的功能是计算公用电话计时收费。计时收费的标准是：通话时间在 3 分钟以内时，收费 0.5 元；3 分钟以上时，每超过 1 分钟加收 0.15 元，不足 1 分钟按 1 分钟计算。程序执行的操作如下：如果单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用，“通话开始”命令按钮变为不可用。如果单击“通话结束”按钮，则在“结束时间”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在“通话费用
12、”右侧的文本框中，“通话开始”命令按钮变为可用，“通话结束”命令按钮变为不可用。在窗体文件中已经给出了全部控件(如图所示)和程序，但程序不完整，要求去掉程序中的注释符，把?改为正确的内容，以实现上述功能。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件，设置 Cmd2 的 Enabled 属性为 False。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Cmd1_Click() Text1(0)=Str(Time() 当单击“通话开始“按钮时，则将当前时间显示 Text1(1).Text=“ “: Text1(2).
13、Text=“ “ Cmd1.Enabled=False Cmd2.Enabled=True End Sub Private Sub Cmd2_Click () Text1(1).Text=Str(Time () 当单击“通话结束“按钮则显示当前时间 t_start=Hour (Text1(0).Text)*3600+Minute(Text1(0).Text)*60+Second(Text1(0).Text) t_end=Hour(Text1(1).Text)*3600+Minute(Text1(1).Text)*60+Scond(Text1(1).Text) t=t_end-t_start 求
14、两时间之差 m=t/60 If m t / 60 Then m=m+1 如果通话时间不到 1 分钟，则也按 1 分钟计算 s=0.5 If m-3 0 Then 如果通话在 3 分钟以上 s=s+(m-3)*0.15 计算通话费用 End If Text1(2).Text=Str(s)+“元“ Cmd1.Enabled=True 使 Cmd1 可用 Cmd2.Enabled=False Cmd2 不可用 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：命令按钮的 Enabled 属性，文本框数组下标，Str()函数，Time()函数，Minute()
15、函数，Hour 函数，Second()函数，文本框的 Text 属性及 If 判断语句。 解析 单击“通话开始”按钮，通过 Str(Time()语句在“开始时间”右侧的文本框中显示开始时间，即系统的当前时间，且“通话结束”命令按钮的 Enabled 属性设置为 True，变为可用状态，“通话开始”命令按钮的 Enabled属性设置为 False，变为不可用。 单击“通话结束”按钮，通过 Str(Time()语句在“结束时间”右侧的文本框中显示结束时间，即系统的当前时间，同时把系统时间通过 Minute()函数、Hour()函数和 Second()函数换算成以秒为时间单位，计算通话费用，并将其显
16、示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用状态，“通话结束”命令按钮不可用。4.在考生文件夹下有一个工程文件 sjt4.vbp，文件 in4.txt 中有 5 组数据，每组 10 个，依次代表 10 个人语文、英语、数学、物理、化学这 5 门课程的成绩。程序运行时，单击“读入数据”按钮，可以从文件in4.txt 中读入数据放到数组 a 中。单击“计算”按钮，则计算 5 门课程的平均分(平均分取整)，并依次放入 Text1 文本框数组中。单击“显示图形”按钮，则显示平均分的图表，如图所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内
17、容。（分数：20.00）_正确答案：(操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Dim a(5, 10) As Integer Dim s(5) Private Sub Command1_Click() Open App.Path & “/in4.txt“ For Input As #1 对文件进行读操作 For i=1 To 5 For j=1 To 10 Input #1, a (i, j) 依次将文件中的数据读入数组 a 中 Next j Next i Close #1 End Sub Private Sub Co
18、mmand2_Click () For i=1 To 5 s(i)=0 For j=1 To 10 s(i)=S(i)+a(i,j) 将 10 个人的各科成绩累加并存入 s Next j S(i)=CInt(s(i) / 10) 求平均值并取整 Text1(i-1)=s(i) 依次显示各科成绩 Next i End Sub Private Sub Command3_Click() For k=1 To 5 依次绘图并显示 Shape1(k-1).Height=s(k)*20 m=Line2.Y1 Shape1(k-1).Top=Line2.Y2-Shape1(k-1).Height Shape
19、1(k-1).Visible=True 设置图形可见 Next k End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：形状控件的 Height、Top 和 Visible 属性，线条的 Y1 属性，CInt()函数，文件操作，For 循环语句，文本框数组下标以及形状控件数组下标。 解析 单击“读入数据”按钮，运用文件操作和 For 循环语句从文件 in4.txt 中读入数据放到二维数组 a 中。在 Command2_Click 事件过程，计算 5 门课程的平均分，通过 CInt()函数对平均分取整，存入数组 s(i)，并依次放入 Text1 文本框数
20、组中。在 Command3_Click 事件过程中，通过形状控件的 Height、Top 属性和线条的 Y1 属性，画出直方图，并通过设置形状控件的 Visible 属性使平均分的直方图显示出来。三、B综合应用题/B(总题数：1，分数：30.00)5.在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请添加两个标签，其名称分别是 Label1 和 Label2，标题分别为“最长单词的长度”和“以该长度最后一次出现的单词是”；再添加两个名称分别为 Text1 和 Text2，初始内容为空的文本框，如图所示。程序功能如下：（分数：30.00）_
21、正确答案：(操作步骤 步骤 1：打开本题工程文件，添加两个名称分别是 Label1 和 Label2，标题分别为“最长单词的长度”和“以该长度最后一次出现的单词是”的标签；再添加两个名称分别为 Text1 和Text2，初始值都为空的文本框。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 For i=1 To Len(s) J=Asc(Mid(s, i, 1) 依次从 s 中取一个字符转换成 ASCII 码 Select Case J 判断 J 的范围 Case 48 To 57, 65 To 90, 97 To 122 Case Else 当 J 不在上述范围，则使之为“
22、-“ Mid(s, i, 1)=“-“ End Select Next i J=Len(s)-1 For i=1 To J If Mid(s, i, 1)=“-“ And Mid(s, i+1, i)=“-“ Then s=Left(s, i)+Right(s, J-i) J=J-1 i=i-1 End If Next i s=Left(s, Len(s)-1) R=Split (s, “-“) 将 s 以“-“分隔成多个单词并存入 R 中 B=R(0) For i=1 To UBound(R) 查找最长的单词 If Len(B) Len(R(i) Then B=R(i) Next i For
23、 m=UBound (R) To 1 Step -1 从数组尾开始查找最后一次以 Len(B)长度出现的单词 If Len(B)=Len(R(m) Then Exit For End If Next Text1.Text=Len(B) 显示最长单词长度 Text2.Text=R(m) 显示满足条件的单词 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：考点 本题考点有：Left()函数，Right()函数，Split()函数，Select Case 语句，Len()函数，标签的 Name 和 Caption 属性，文本框的 Name 和 Text 属性，Mid()函数，UBound()函数以及文件操作。 解析 单击“统计”按钮，通过 Select Case 语句判断是否为空格或是字母，通过 Len()函数得出中最长单词的长度，并通过比较把最长单词赋值给变量 B，运用 For 语句从字符串 s 的最后开始查找，判断Len(B)=Len(R(m)，找出最后一个以该长度出现的单词，并将该单词的长度显示在 Text1 文本框内，将该单词显示在 Text2 文本框内。
