二级VISUAL+BASIC机试模拟8

第11套 上机考试试题

1 基本操作题(2小题，每题15分，共计30分)

注意：下面出现的“考生文件夹”均为c：\\wexam\\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1) 在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则结束程序运行。程序的运行情况如图11-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (2) 在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加4个项目，分别为“WHBB”、“HIJK”、“QWEI”和“POIU”，单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图11-2和图1l-3所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjtt2.frm。

2 简单应用题(2小题，每题20分，共计40分)

注意：下面出现的“考生文件夹”均为c：\\wexam\\25160001。

(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：

在窗体中有两个命令按钮，名称分别是C1和C2，标题分别是“修改窗体图标”和“修改窗体标题”。要求程序运行后，点击C1命令按钮，则将窗体标题栏中的图标换为图标文件1.ico(该文件在考生文件夹下)；点击C2命令按钮，则将窗体标题修改为“窗体”。程序界面如图11-4和图11-5所示。

(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：

窗口中有一个名称为Picture1的图片框，一个名称为HScroll1的滚动条，3个命令按钮，名称分别为Command1，Command2和 Command3，标题分别为“运行”、“暂停”和“结束”，一个计时器控件，名称为Timer1。程序运行后，单击“运行”按钮后，使小球围绕大球转动，并可以使用滚动条调节转动的速度；单击“暂停”按钮后，暂停小球的转动；按“结束”按钮结束程序。程序运行界面如图11-6所示。

3 综合应用题(1小题，共计30分)

注意：下面出现的“考生文件夹”均为c：\\wexam\\25160001。

在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：

在窗体上有一个名为L1的列表框，列表框中有若干的列表项如图11-7所示，通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮，名称分别是 C1和C2，标题分别是“全选”和“存盘”。要求在程序运行时，点击C1按钮则将 L1中的全部列表项选中，然后点击C2按钮，将L1中的全部列表项写入文本文件 out7.txt中，并将out7.txt保存在考生文件夹下。

答案:

1 基本操作题

(1)解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。

在Visual Basic中，菜单在“菜单编辑器”窗口中建立。通过End语句结束程序的运行。解题步骤： 第一步：建立界面并设置控件属性。菜单及控件属性设置见表11-1。

控 件 菜单 标题 名字 菜单 标题 名字 菜单 标题 文本框 Name 退出 Text1 显示 Exit 操作 Dis 属 性 名字 设 置 值 Op 第二步：编写程序代码。 参考代码：

Private Sub Dis_Click() Text1.Text=\计算机考试\ End Sub

Private Sub Exit_Click() End End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘

(2) 解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。 用RemoveItem方法删除列表框中指定的项目，其格式为：

列表框.RemoveItem索引值

RemoveItem方法从列表框中删除以“索引值”为地址的项目，改方法每次只能删除一个项目。 ListIndex属性是已被选中的表项的位置。如果没有选中任何项，ListIndex的值将设置为-1。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-2。

控 件 属 性 L1 Name 列表框 List QWEI，POIU WHBB，HIJK 设 置 值 第二步：编写程序代码。 参考代码：

Private Sub L1_Click()

L1.RemoveItem L1.ListIndex End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘。

2 简单应用题

(1) 解析：在窗体上建立好控件后，先设置控件属性，再编写事件过程。

按钮控件的属性由Caption来设置，单击触发其Click事件。通过设置Icon属性修改窗体的图标，修改窗体的Caption属性设置其标题。在程序中使用LoadPicture函数给Icon属性赋值，其格式为： LoadPicmre(\文件名\

LoadPicture函数把图形文件装入窗体、图片框或图像框中。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-3。

控 件 按钮 Caption 按钮 Caption 修改窗体标题 Name 修改窗体图标 C２ 属 性 Name C1 设 置 值 第二步：编写程序代码。 程序提供的代码： Private Sub C1_CliCk()

' Form1.Icon=LoadPicture(\ End Sub

Private Sub C2_Click() 'Form1.?=\窗体\

End Sub 参考代码：

Private Sub C1_Click()

Form1.Icon=LoadPicture(\ End Sub

Private Sub C2_CliCk() Form1.Caption=\窗体\ End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘。

(2) 解析：正面体上建立好控件后，先设置控件属性，再编写事件过程。

计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控件的Enabled属性为True时，计时器计时开始，当为False时计时器计时暂停，所以要使小球运动暂停可将Enabled属性值设置为False，要使小球运行，则设置该属性值为True。解题步骤：

第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表11-4。

控 件 按钮 Caption 按钮 Caption Name 按钮 Caption 滚动条 图片框 Name Name 结束 HScroll1 Picture1 暂停 Commang3 Name 运行 Commang2 Name 属 性 设 置 值 Command1 第二步：编写程序代码。 程序提供的代码：

Option EXplicit

Dim c As Single，r As Single ' r小球到大球的球心的距离，C为小球的角度． Dim x As Single，y As Single ' X，Y为小球移动时的圆心 Dim st As Single

Private SUb Command1_CliCk() Timer1.Enabled=True End Sub

Private Sub Command2_Click() ' ?

End Sub

Private Sub Command3_Click() End End Sub

Private Sub Form_Load() r=20 c=0

St=0.063

HScroll1.Min=1 '设置最小值 HScroll1.Max=100 '设置最大值

End Sub

Private Sub HScroll1_Change()

' Timer1.?=200-HScroll1.Value ' 根据滚动条的数值设置时间间隔，速度越快，间隔越小 End Sub

Private Sub PiCturel Paint()

PiCture1.FillColor=QBColor(12) PiCture1.ForeColor=QBColor(12) PiCture1.Circle (0，0) ，2 X=Cos(C) * r y=Sin(C) * r

Picture1.FillColor=QBColor(14) Picture1.ForeColor=QBColor(14) ' Picture1.? (x，y) ，0.5 c=c＋st

If c＞=2 * 3.14159 Then c=c Mod (2 * 3.14159) End If

End Sub

Private Sub Timer1 Timer() ' ? '重画图片框 End Sub 参考代码：

Option Explicit

Dim c As Single，r As Single ' r小球到大球的球心的距离，C为小球的角度． Dim x As Single，y As Single ' X，Y为小球移动时的圆心 Dim st As Single

Private Sub Command1_Click() Timer1.Enabled=True End Sub

PriVate Sub Command2_Click() Timer1.Enabled=False End Sub PriVate Sub Command3_Click() End End Sub

Private Sub Form_Load() r=20 c=0

st=0.063

HScroll1.Min=1 ' 设置最小值 HScroll1.Max=100 ' 设置最大值 End Sub

Private Sub HScroll1_Change()

Timer1.Interval=200-HScroll1.Vslue '根据滚动条的数值设置时间间隔，速度越快，间隔越小 End Sub

Private Sub Picture1_Paint()

Picture1.FillColor=QBColor(12) Picture1.ForeColor=QBColor(12) Picture1.Circle (0，0) ，2 X=Cos(C) * r

y=Sin(C) * r

Picture1.Fillcolor=QBColor(14) Picture1.ForeColor=QBColor(14) Picture1.Circle (x，y) ，0.5

c=c＋st

If c＞=2* 3.14159 Then c=c Mod (2*3.14159) End If End Sub

Private Sub Timer1_Timer()

PiCture1.RefreSh '重画图片框 End Sub

第三步：调试并运行程序。 第四步：按题目要求存盘。

3 综合应用题

解析：列表框用于在很多项目中作出选择的操作。列表框的ListCount属性表示表项的数量，列表项的排列从0开始，最后一项的序号为ListCount-1。使用列表项的Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为True或False，为True时表示选择了该项，为False表示未选择。解题步骤： 第一步：编写程序代码。 程序提供的代码：

Private Sub C1 Click() Dim i As Integer

For i=0 TO L1.LiStCount-1 'L1.?=True

Next End Sub

Private Sub C2 Click() Dim i As Integer

Open \ For i=0 To L1.ListCount-1 ' L1.ListIndex= ' Print #1, L1.?, L1.Selected(i)=False Next Close #1 End Sub 参考代码：

Private Sub C1_Click() Dim i As Integer

For i=0 To L1.ListCount-1 L1.Selected(i)=True

Next End Sub

Private Sub C2 Click() Dim i As Integer

Open \ For i=0 To L1.ListCount-1 L1.ListIndex=i Print #1, L1.Text, L1.Selected(i)=False Next

Close #1 End Sub

第二步：调试并运行程序 第三步：按题目要求存盘

本文来源：https://www.bwwdw.com/article/3px5.html