1. 基本操作(2小题,每小题15分,共计30分)
注意:下面出现的“考生文件夹”均为%USER%
**********************************************************************
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1 的窗体上画一个名称check1的复选框数组(Index属性从0开始),含三个复选框,其标题分别为“语文”、“数学”、“体育”,利用属性窗口设置适当的属性,使“语文”未选,“数学”被选中,“体育”为灰色,再把窗体的标题设置为“选课”,如图所示。
注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个复选框控件,通过对复选框控件的复制产生复选框控件数组,共有三个复选框,标题(Caption属性)分别设为“语文”、“数学”、“体育”,“数学”的Value属性设为1,“体育”的Value属性设为2。激活Form1窗体,通过其属性窗口将标题(Caption属性)设为“选课”。
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:\wexam\26990001中,然后打开sjt1.vbp文件并运行。
**********************************************************************
(2)在名称为Form1的窗体上画两个文本框,名称分别为Text1、Text2,再画两个命令按钮,名称分别为Command1、Command2,标题分别为“复制”、“删除”。程序运行时,在Text1中输入一串字符,并用鼠标拖拽的方法选择几个字符,然后单击“复制”按钮,则被选中的字符被复制到Text2中(如图所示)。若单击“删除”按钮,则被选择的字符从Text1中被删除。请编写两个命令按钮的Click过程完成上述功能。
注意:
要求程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画二个文本框控件,通过其属性窗口将名称分别设为Text1、Text2。画二个命令按钮控件,通过其属性窗口将名称分别设为Command1、Command2,标题(Caption属性)分别设为“复制”、“删除”。
单击“复制”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command1_Click()
Text2 = Text1.SelText
End Sub
单击“删除”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
Private Sub Command2_Click()
Text1.SelText = ""
End Sub
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:\wexam\26990001中,然后打开sjt2.vbp文件并运行。
2. 简单应用(2小题,每题20分,计40分)
注意:下面出现的“考生文件夹”均为%USER%
***********************************************************************
(1)在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序,如图所示。
要求:
1)利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;
2)请编写适当的程序完成以下功能: 在Text1中输入40(度数),选择组合框中的一个项目,单击“计算”按钮,则根据所选择的项目,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。
注意:
考生不得修改窗体文件中已经存在的程序, 在结束程序运行之前,必须进行一种计算;在Text1中输入的必须是40;必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,按原文件名存盘。www.Kao8.CC
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。
对该窗体上的二个文本框,通过其属性窗口将Alignment属性都设为1。
单击“计算”按钮(即运行其Click事件过程),在该Click事件过程中加入语句:
Private Sub Command1_Click()
Const PI = 3.14159
Select Case Combo1.Text
Case "sin": a = Sin(CInt(Text1.Text) * PI / 180)
Case "cos": a = Cos(CInt(Text1.Text) * PI / 180)
Case "tg": a = Tan(CInt(Text1.Text) * PI / 180)
Case "ctg": a = 1 / Tan(CInt(Text1.Text) * PI / 180)
End Select
Text2 = Int(a * 1000) / 1000
End Sub
另外特别注意需在Text1中输入的值必须是40,而且结束程序时必须用窗体右上角的关闭按钮来结束程序,否则该部分将没有成绩。
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw、out3.txt
请把这些文件复制到c:\wexam\26990001中,然后打开sjt3.vbp文件并运行。
**********************************************************************
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时,不计时,选择一个单选按钮后,再单击“计时”按钮,则开始计时,并根据所选的单选按钮决定是每秒显示一次秒数,还是每10秒显示一次秒数。Text2 用于显示秒,如图所示。窗体文件中已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。
注意:
不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。
由于所提供的窗体程序不完整,在窗体的Private Sub Timer1_Timer事件过程中,有三处地方需要修改。
1) 将语句
'num = ?
改为
num = num + 1
2) 将语句
'Text2.Text = Text2.Text + ?
改为
Text2.Text = Text2.Text + 10
3) 将语句
'Text1.Text = Text1.Text + ?
改为
Text1.Text = Text1.Text + 1
参考文件:c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw
请把这些文件复制到c:\wexam\26990001中,然后打开sjt4.vbp文件并运行。
**********************************************************************
3. 综合应用(1小题,计30分)
注意:下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和Timer2,Timer1用于变换信号灯,黄灯1秒,红灯2秒,绿灯3秒;Timer2用于控制汽车向左移动。运行时,信号灯不断变换,单击“开车”按钮后。汽车开始移动,如果移动到信号灯前或信号灯下,遇到红灯或黄灯,则停止移动,当变为绿灯后再继续移动。
在窗体中已经给出了全部控件和程序,但程序不完整,要求阅读程序并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原文件名存盘。
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt5.vbp,相应的窗体文件名为sjt5.frm。
由于所提供的窗体程序不完整,在窗体的Private Sub C1_Click()事件过程中,有一处地方需要修改。
1) 将语句
'Timer2.Enabled = ?
改为
Timer2.Enabled = True
在窗体的Private Sub Timer1_Timer()事件过程中,有一处地方需要修改。
1) 将语句
'P1.Picture = LoadPicture("?")
改为
P1.Picture = LoadPicture("绿灯.ico")
在窗体的Private Sub Timer2_Timer()事件过程中,有二处地方需要修改。
1) 将语句
'Timer2.Enabled = ?
改为
Timer2.Enabled = False
2) 将语句
'P2.Move ? - 10, P2.Top, P2.Width, P2.Height
改为
P2.Move P2.Left - 10, P2.Top, P2.Width, P2.Height