请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画3个标签,名称分别为Labell、Label2和Label3,标题分别为“人数”、“年龄”和“收入”,3个文本框,名称分别为Textl、T

admin2010-07-13  16

问题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
  (1)在名称为Forml的窗体上画3个标签,名称分别为Labell、Label2和Label3,标题分别为“人数”、“年龄”和“收入”,3个文本框,名称分别为Textl、Text2和Text 3,Text属性均为空,一个命令按钮,名称为Commandl,标题为“输人”。然后编写命令按钮的Click事件过程。要求程序运行后,如果单击命令按钮,则先后显示3个输入对话框,在3个输入对话框中分别输入人数、年龄和收入,并分别在3个文本框中显示出来。程序运行界面如图16—1所示。要求程序中不得使用任何变量。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sjl.vbp,窗体文件名为sjl.frm。
    (2)在名称为Forml的窗体上画一个图片框,名称为Picl,一个水平滚动条,名称为HScrolll,通过“属性”窗口在图片框中装入一个图形(文件名为picl.jpg,位于考生文件夹下),图片框的高度与图形的高度相同,图片框的宽度任意,运行时的窗体界面如图16—2所示。编写适当的事件过程,要求程序运行后,图片的宽度随滚动条变化。即设置水平滚动条的如下属性:Min为200,Max为2000,LargeChange为200,然后就可以通过移动滚动条上的滚动块来放大或缩小图片框的宽度。拖动滚动条后的窗体如图16—3所示。要求程序中不得使用任何变量。

    注意:存盘时必须存放在考生文件夹下,工程文件名为sj2.vbp,窗体文件名为sj2.frm。

选项

答案(1)本题主要考查利用InputBox函数的用法。根据题意,新建“标准EXE”工程,在名称为Forml的窗体上画3个标签,名称分别为Labell、Label2和Label3,标题分别为“人数”、“年龄”和“收入”,3个文本框,名称分别为Textl、Text2和Text3,Text属性均为空白,一个命令按钮,名称为Commandl,标题为“输入”。双击Commandl进入代码编写窗口,代码如下: Private Sub Commandl_Click() Textl.Text=Val(InputBox("请输入人数")) Text2.Text=Val(InputBox("请输入年龄")) Text3.Text=Val(InputBox("请输入收入")) End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,新建“标准EXE”工程,在名称为Forml的窗体上画一个图片控件,名称为Picl,再画一个水平滚动条控件,名称为HScrolll,Min属性为200,Max属性为2000,LargeChange为200。图片的宽度与HScrolll有关,具体代码如下: Private Sub Form_Load() ’初始化 Picl.Width=HScrolll.Value End Sub Private Sub HScrolll_Change() ’当拖动水平滚动条时的处理函数 Picl.Width=HScrolll.Value End Sub 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/Vyg0FFFM
0

随机试题
最新回复(0)