请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个水平滚动条,其名称为HScrolll,Min属性为1000,Max属性为1500,LargeChange属性为50,SmaUChange属性

admin2010-09-02  18

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个水平滚动条,其名称为HScrolll,Min属性为1000,Max属性为1500,LargeChange属性为50,SmaUChange属性为2;然后再画一个文本框,其名称为Textl,初始内容为空白,编写适当的事件过程。程序运行后,移动滚动框,则在文本框中显示滚动框的当前位置。程序的运行情况如图1-156所示。
要求:
①不得使用任何变量;
②存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjt1.frm。

(2)在名称为Forml的窗体上画一个命令按钮,其名称为Cl、标题为“移动”,位于窗体的左上部,如图1-157(a)所示,编写适当的事件过程。程序运行后,每单击一次窗体,都使得命令按钮同时向右、向下移动100。程序的运行情况如图l—157(b)所示。
要求:不得使用任何变量;存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjtt2.frm。

选项

答案 第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Forml中画一个文本框和一个水平滚动条,在属性设置窗口中设置其相关属性,其属性及值如表2—88所示。 [*] 步骤2:双击窗体Forrnl上的水平滚动条,打开代码编辑窗口,在其Change事件过程中输入以下代码: 参考代码: Private Sub HScrolll_Change() Textl=HScroll1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,如表2-89在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写窗体的单击事件过程。 参考代码: Private Sub Form_Click() Forml.C1.Left=100+Me.C1.Left Me.C1.Top=i00+Forml.C1.Top End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析 第1小题
  要在程序运行时,文本框中显示滚动条滑块的当前位置,只需在滚动条的Change事件过程中编写利用滚动条的Value属性值来决定文本框Text属性值的语句即可。
    第2小题
    控件(包括窗体)的Height和Width也属性用于设置控件在屏幕上的大小(即高和宽),Top和Left属性用于设置控件的上边和左边的位置。
   要在单击窗体时,使命令按钮向右和向下移动,需要在窗体的Click事件中编写增加命令按钮的Top和Left属性的语句。
转载请注明原文地址:https://kaotiyun.com/show/WFmp777K
0

最新回复(0)