更多试题请访问下载
1. 基本操作(2小题,每小题15分,共计30分)
注意:下面出现的“考生文件夹”均为%USER%
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1 的窗体上画一个标签,名称为L1,标签上显示“请输入密码”,画一个名称为Text1的文本框,其宽、高分别为2000和300,设置适当的属性使得在输入密码时,文本框中显示“*” 字符,此外再把窗体的标题设置为“密码窗口”,以上这些设置都必须在属性窗口中进行,运行时的窗体如图所示。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个标签,通过其属性窗口将名称设为L1,标签中的内容(Caption属性)设为“请输入密码”。再画一个文本框,通过其属性窗口将名称设为Text1,宽度(Width属性)设为2000,高度(Height属性)设为300,为在输入密码时,文本框中能显示“*”字符,则将PasswordChar属性设为*。此外通过Form1窗体的属性窗口将其标题(Caption属性)设为“密码窗口”。
参考文件:c:\wexamhlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:\wexam,然后打开sjt1.vbp文件并运行。
(2)在名称为Form1 的窗体上画一个图片框,名称为P1,请编写适当的事件过程,使得在运行时,每单击一次图片框,就在图片框中输出“单击图片框”,每单击图片框外的窗体一次,就在窗体中输出“单击窗体”,运行时的窗体如图所示。要求程序中不得使用变量,每个事件过程中只能写一条语句。
*注意:
存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
解题思路:
启动Visual Basic系统,创建一个Form1窗体。
在该窗体上画一个图片框控件,通过其属性窗口将名称设为P1。
单击窗体(即运行窗体的Click事件过程),在该Click事件过程中加入语句:
Private Sub Form_Click()
Print "单击窗体"
End Sub
单击图片框(即运行图片框的Click事件过程),在该Click事件过程中加入语句:
Private Sub P1_Click()
P1.Print "单击图片框"
End Sub
参考文件:c:\wexamhlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:\wexam,然后打开sjt2.vbp文件并运行。
2. 简单应用(2小题,每题20分,计40分)
注意:下面出现的“考生文件夹”均为%USER%
(1)在考生目录下有一个工程文件sjt3.vbp,窗体中有两个图片框,名称分别为P1、P2,其中的图片分别是一个航天飞机和一朵云彩,还有一个计时器,名称为Timer1,一个命令按钮,名称为C1,标题为“发射”。并给出了两个事件过程,但并不完整,要求:
1)设置计时器的属性,使其在初始状态下不计时;
2)设置计时器的属性,使其每隔0.1秒调用Timer事件过程一次。
3)去掉程序中的注释符,把程序中的 ?改为正确的内容,使得在运行时单击“发射”按钮,则航天飞机每隔0.1秒向上移动一次,当到达P2的下方时停止移动,如图所示。
注意:
不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
解题思路:
启动Visual Basic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。
由于所提供的窗体控件不完整,通过计时器属性窗口将初始状态(Enabled属性)设为False,Interval属性设为100。
由于所提供的窗体程序不完整,在“发射”按钮的Private Sub C1_Click()事件过程中,有一处地方需要修改。
1) 将语句
’Timer1.Enabled = ?
改为
Timer1.Enabled = True
在计时器的Private Sub Timer1_Timer()事件过程中,有二处地方需要修改。
1) 将语句
’If P1.Top > P2.Top + P2.? Then