请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画一个名称为Textl的文本框,其高、宽分别为400、2000。运行后的窗体如图1-109所示。请在属性框中设置适当的属性满足以下要求: ①Tex

admin2010-09-02  24

问题 请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为Textl的文本框,其高、宽分别为400、2000。运行后的窗体如图1-109所示。请在属性框中设置适当的属性满足以下要求:
①Textl的字体为“黑体”,字号为“四号”:
②窗体的标题为“输入”,不显示最大化按钮和最小化按钮。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。

(2)在名称为FormI的窗体上画一个名称为Image1的图像框,利用属性窗口装入考生目录下的图像文件
picl.bmp,并设置适当属性使其中的图像可以适应图像框大小;再画两个命令按钮,名称分别为Commandl、Command2,标题分别为“向右移动”、“向下移动”。请编写适当的事件过程,使得在运行时,每单击“向右移动”按钮一次,图像框向右移动100;每单击“向下移动”按钮一次,图像框向下移动100。运行时的窗体如图1-110所示。要求程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建一个“标准EXE”程。 步骤2:单击工具箱中的。TextBox控件图标,在窗体Forml上按下鼠标左键并拖动到一定位置后松开。画出一个文本框,如图2-3所示。 [*] 步骤3:选定窗体中的文本框,在属性窗口中设置其相关属性,如图2-4所示,属性及值如表2-61所示。 [*] 步骤4:在文本框的属性窗口中单击“Font”属性右侧的按钮,打开“字体”对话框,在其中设置“字体”为“黑体”,“字号”为“四号”。 步骤5:单击窗体无控件区域,在属性窗口中设置窗体相关属性,属性及值如图2-4所示。 步骤6:选择【文件】→【保存工程】命令,打开“文件另存为”对话框,如图2-5所示。在该对话框的“保存在”下拉列表中选择考生文件夹,并在“文件名”文本框中输入sitl.frm。单击“保存”按钮,如图2-5所示,即保存好窗体文件l在接下来的“工程另存为”对话框中,在“文件名”文本框中输入sjtl.vbp,如图2-6所示,并单击“保存”按钮,即保存好工程文件。 [*] 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体Forml中画一个图像框和两个命令按钮,分别设置其相关属性,属性及值如表2-62所示。 [*] 步骤2:双击“向右移动”命令按钮,打开代码编辑窗口,在按钮的Click事件过程中输入如图2-7所示代码。 [*] 步骤3:双击“向下移动”命令按钮,打开代码编辑窗口,在按钮的Click事件过程中输入如图2-8所示代码。 [*] 步骤4:按要求将文件保存至考生文件夹中。

解析 第1小题
    ①用Visual Basic开发应用程序的一般步骤:首先建立用户界面,然后设置窗体及控件属性,最后编写代码。②添加控件的方法有两种:一是先选中工具箱中要添加的控件,然后在窗体上按下鼠标左键并拖动到一定位置后松开:二是通过直接双击工具箱中相应控件的图标来添加控件。③设置控件属性的方法也有两种:一是在设计阶段通过对象的属性窗口来设置;二是通过程序代码在程序运行时来设置。④文本框(Text):通常用于接收用户输入的字符串数据或用于显示输出信息,其Text属性用于设置或返回文本框中显示的文本。⑤控件的Height和Width属性用于设置控件在屏幕上的大小(即高和宽)。⑥通过属性设置窗口中的Font属性可设置控件标题文本的字体、字号、字形等,在程序设计时Font属性可返回一个Font对象,Font对象包含有格式化文本所需要的信息。⑦窗体的标题由其Caption属性设置,窗体的MaxButton属性、MinButton属性决定其标题栏是否显示最大化按钮、最小化按钮,True表示显示,False表示不显示。
    本题只需按要求建立程序界面并设置窗体和文本框相关属性即可。
第2小题
    ①图像框的Picture属性可以指定在图像框中显示的图像路径,既可以在属性窗口中进行设置,也可以在代码中进行设置。
    ②对象的Left属性用于确定对象距离窗体左边框的距离,改变这个属性值会实现对象的水平移动,同理改变对象的Top属性值可以实现对象的垂直移动。
    本题需要按照要求建立相关控件并设置相应属性,然后在相应事件代码中改变图像框的Left属性值和Top属性值。
转载请注明原文地址:https://jikaoti.com/ti/GNg0FFFM
0

最新回复(0)