niusouti.com
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1) 在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图18-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。(2) 在名称为Form1的
题目
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图18-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
(2) 在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为 P1。请编写Text1的Chang事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。程序运行界面如图18-2所示。
注意：保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
相似考题
更多“ 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1) 在名称为Form1的窗体上添加一个计时器控件，名称为Ti”相关问题
-
第1题：
注意：下面出现的“考生文件夹”均为C:\wexam\25160002。
(1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如图27-3所示的是程序刚启动时的情况。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图27-4所示。
要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
正确答案：在窗体上建立好控件后先设置控件属性再编写事件过程。 标签的标题由Caption设置BorderStyle属性用来设置标签的边框。计时器控件用来周期性的触发Timer事件事件间隔通过计时器的Interval属性设置其单位时毫秒题目要求每隔1秒。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表27-3。
第二步：编写程序代码。
参考代码：
Private Sub Form_Load()
L1.BorderStyle = 1 - fixed
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
L1.Caption = L1.Caption + 1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后先设置控件属性再编写事件过程。
列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值：
O—None每次只能选择一项如果选择另一项则会取消对前一项的选择；
1—Simple可以同时选择多个项后续的选择不会取消前面的选择。可以用鼠标或空格键选择；
2—Extended可以选择指定范围内的表项。
因此为了实现题目要求的功能应将MultiSelect属性设置为1。列表框的ListCount属性表示表项的数量列表框中表项的排列从。开始最后一项的序号为ListCount-1。为了检测列表框中被选择的项应使用Selected属性该属性实际上是一个数组每个元素与列表框中的一项对应其取值为True或False。当元素的值为True时表明选择了该项；为False表示未选择。使用List属性列出被选中项的内容。解题步骤：
第一步：建立界面并设置控件的属性。程序用到的控件及其属性见表27-4。
第二步；编写程序代码。
程序提供的代码：
Private Sub C1_Click()
'For i = ? To ?
'If l1.? = True Then
Print l1.List(i)
End If
Next
End Sub
参考代码：
Private Sub C1_Click()
For i = 0 To l1.ListCount - 1
If l1.Selected(i) = True Then
Print l1.List(i)
End If
Next
End sub
第三步：调试并运行程序。
第四步；按题目要求存盘。
在窗体上建立好控件后，先设置控件属性，再编写事件过程。 标签的标题由Caption设置，BorderStyle属性用来设置标签的边框。计时器控件用来周期性的触发Timer事件，事件间隔通过计时器的Interval属性设置，其单位时毫秒，题目要求每隔1秒。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表27-3。
第二步：编写程序代码。
参考代码：
Private Sub Form_Load()
L1.BorderStyle. = 1 - fixed
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
L1.Caption = L1.Caption + 1
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值：
O—None每次只能选择一项，如果选择另一项则会取消对前一项的选择；
1—Simple可以同时选择多个项，后续的选择不会取消前面的选择。可以用鼠标或空格键选择；
2—Extended可以选择指定范围内的表项。
因此，为了实现题目要求的功能，应将MultiSelect属性设置为1。列表框的ListCount属性表示表项的数量，列表框中表项的排列从。开始，最后一项的序号为ListCount-1。为了检测列表框中被选择的项，应使用Selected属性，该属性实际上是一个数组，每个元素与列表框中的一项对应，其取值为True或False。当元素的值为True时，表明选择了该项；为False表示未选择。使用List属性列出被选中项的内容。解题步骤：
第一步：建立界面并设置控件的属性。程序用到的控件及其属性见表27-4。
第二步；编写程序代码。
程序提供的代码：
Private Sub C1_Click()
'For i = ? To ?
'If l1.? = True Then
Print l1.List(i)
End If
Next
End Sub
参考代码：
Private Sub C1_Click()
For i = 0 To l1.ListCount - 1
If l1.Selected(i) = True Then
Print l1.List(i)
End If
Next
End sub
第三步：调试并运行程序。
第四步；按题目要求存盘。
-
第2题：
（1）在名称为Form1的窗体中绘制一个名称为Label1的标签，其标题为空，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图61-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1．vbp，窗体文件名为sj1．frm。
（2）在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为“当前时间／日期切换”；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图61-2所示。
注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2．vbp与sj2．frm。
正确答案：(1)计时器的Interval属性用于设置每次触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True表示启用，False表示不启用。 根据题意，新建“标准EXE”工程，将一个标签和一个计时器控件添加到窗体中，标签的名称为Label1、Caption属性为“0”，Timer的名称为Timer1、Interval属性为“1000”。 设置完成后双击Command1进入代码窗口，编写如下代码：
(2)根据题意，新建“标准EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1、Text属性为空，命令按钮的名称为Command1、Caption属性为“当前时间／日期切换”。双击Command1进入代码窗口，编写如下代码：
-
第3题：
请根据以下各小题的要球设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签，并设置适当属性以满足以下要求： ①标签的内容为“计算机等级考试”； ②标签可根据显示内容自动调整其大小； ③标签带有边框，且标签内容显示为三号字。 运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图2所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：
第1小题
【审题分析】本题只需按要求画出控件并设置其相应属性即可。
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个标签，并设置它的相关属性，其属性和值如表1-8所示。
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【知识点拔】控件的Tablndex属性可设置或返回其在当前窗体中的Tab键次序，所谓Tab键次序是指按<Tab>键或<Shift+Tab>键时，焦点从一个对象移到另一个的次序通常在窗体上画控件时，VB会自动为其分配Tab键顺序(Menu、Timer、Data、Image、Line、Shape等控件除外)，运行时被设置为不呼见或无效的控件以及不能接受焦点的控件(如Frame和Label)仍可保持在Tab顺序中，但用Tab>键切换时会跳过这些控件。
【审题分析】根据题意，本题需在滚动条的Change事件过程中编写在文本框中输出滚动条当前Value值的语句。
【操作步骤】
步骤1：新建一个“标准EXE”工作，在窗体Form1中画一个命令按钮和一个水平滚动条，在属性设援窗口中设置其相关属性，其属性及值如表1-9所示。
-
第4题：
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上建立一个名称为Commandl的命令按钮数组，含三个命令按钮，它们的Index属性分别为0、1、2，标题依次为“是”、“否”、“取消”，每个按钮的高、宽均为300、800。窗体的标题为“按钮窗口”。运行后的窗体如图4所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画一个名称为Shal的形状控件，然后建立一个菜单，标题为“形状”，名称为shape0，该菜单有两个子菜单，其标题分别为“正方形”和“圆形”，其名称分别为shape1和shape2，如图5所示，然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjit2.vbp．窗体文件名为sjt2.frm。
正确答案：第1小题
【审题分析】本题只需按题目要求画出含三个元素的按钮数组，并分别设置Caption属性。
【操作步骤】
步骤l：新建一个“标准EXE”工程，如表1-1在窗体中用“复制”和“粘贴”画出控件数组并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
【主要考点】控件数组画法。
第2小题
【知识点拔】形状控件(Shape)提供了显示一些规则图形的简易方法。通过设置形状控佴Shape属性值，可显示6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形。Width属性用于设置形状的雹度，当形状为圆时即为圆的直径。
【审题分析】要实现席题中的功能，应在“正方形”菜单项的Click事件过程中，令Sha1的Shape属性为1，在“圆形”菜单项的Click事件过程中，令Sha1的Shape属性为3。
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个名为Sha1的形状控件。
步骤2：选择【工具】->【菜单编辑器】命令，打开菜单设计器，如表1．2中的设置建立菜单项。
步骤4：按要求将文件保存至考生文件夹中。 -
第5题：
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签，并设置适当属性以满足以下要求： ①标签的内容为“计算机等级考试”； ②标签可根据显示内容自动调整其大小； ③标签带有边框，且标签内容显示为三号字。 运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图2所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。正确答案：
第1小题
【审题分析】本题只需按要求画出控件并设置其相应属性即可。
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Forml中画一个标签，并设置它的相关属性，其属性和值如表1-8所示。
步骤2：按要求将文件保存至考生文件夹中。
第2小题
【知识点拔】控件的Tablndex属性可设置或返回其在当前窗体中的Tab键次序，所谓Tab键次序是指按<Tab>键或<Shift+Tab>键时，焦点从一个对象移到另一个的次序通常在窗体上画控件时，VB会自动为其分配Tab键顺序(Menu、Timer、Data、Image、Line、Shape等控件除外)，运行时被设置为不呼见或无效的控件以及不能接受焦点的控件(如Frame和Label)仍可保持在Tab顺序中，但用Tab>键切换时会跳过这些控件。
【审题分析】根据题意，本题需在滚动条的Change事件过程中编写在文本框中输出滚动条当前Value值的语句。
【操作步骤】
步骤1：新建一个“标准EXE”工作，在窗体Form1中画一个命令按钮和一个水平滚动条，在属性设援窗口中设置其相关属性，其属性及值如表1-9所示。
