2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp，两个窗体文件，文件名分别为sj31．frm和sj32．frm。此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的Commandl按钮，则弹出名为Forml的窗体；单击Forml上的C

(1)在考生文件夹下有一个工程文件sj3．vbp，两个窗体文件，文件名分别为sj31．frm和sj32．frm。此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的Commandl按钮，则弹出名为Forml的窗体；单击Forml上的C

admin2009-03-26  35
问题 (1)在考生文件夹下有一个工程文件sj3．vbp，两个窗体文件，文件名分别为sj31．frm和sj32．frm。此工程实现的功能是，在运行时只显示名为Form2的窗体，单击Form2上的Commandl按钮，则弹出名为Forml的窗体；单击Forml上的Commandl按钮，则Forml的窗体关闭。这个程序并不完整，要求：
    把Form2设为启动窗体；把Form2上按钮的标题改为“打开”，把Forml上按钮的标题改为“关闭”。去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件存盘。程序正确运行后的界面如图48—3所示。
    注意：不得改变工程文件名和窗体文件名，仍按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4．vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的数大于0，滚动条中的滚动块向下移动到与该数相等的刻度，但如果输入的值大于滚动条的最大值，则不移动，并且显示“数值超过最大值”；如果输入的是负数，滚动条中的滚动块向上移动到与该数相等的刻度，但如果超过了滚动条的最小值，则不移动，并且显示“数值小于最小值”，如图48—4所示。

    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。
选项
答案(1)根据题意，在工程窗口中单击右键，选择“添加窗体”命令，或选择“工程”→“添加窗体”命令添加一个Form，名称为Form2，然后分别在Forml和Form2中添加一个Command，名称都为Commandl、Caption属性分别为“关闭”和“打开”，设置完成后，双击Forml中的关闭按钮，编写如下代码： Private Sub Commandl_Click() Unload Me’关闭forml End Sub 双击Form2的打开按钮，编写如下代码： Private Sub Commandl_Click() Forml．Show’显示Forml End Sub 单击[*]按钮运行程序，并按要求保存。 (2)滚动条能表示的最大值由Max属性设置，最小值由Min属性设置。滚动条的当前值由Value属性设置。 根据题意，将一个垂直滚动条控件、一个命令按钮、一个文本框控件和一个Label控件添加到窗体中，垂直滚动条的名称为VScrolll、Max属性为500、Min属性为100，命令按钮的名称为Commandl、Caption属性为“移动”，文本框的名称为Textl、Text属性为空，标签的名称为Labell、Caption属性为空。双击Commandl进入代码编写窗口，补充如下参考代码： Private Sub Commandl_Click() Dim i As Integer i=Val(Textl．Text) ’将Textl中的字符串转换成数值 If(VScrolll．Value+i>VScrolll．Max)Then’如果大于最大值 Labell．Caption "数值超过最大值" ’移动后数值如果大于最大值 Elself VScrolll．Value+iMin Then Labell．Caption="数值小于最小值" ’移动后数值如果小于最小值 Else VScrolll．Value=VScrolll．Value+i’满足条件则移动 Labell．Caption="" End If End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/uV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)