请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个水平滚动条,其名称为HScroll1,Min 属性为0,Max 属性为100,LargeChange属性为5,SmallCha

admin2019-05-28  33

问题 请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
    (1)在名称为Form1的窗体上画一个水平滚动条,其名称为HScroll1,Min  属性为0,Max 属性为100,LargeChange属性为5,SmallChange属性为2,然后再画一个文本框,其名称为Text1,初始内容为空白,编写适当的事件过程。程序运行后,在文本框中输入0^100之间的一个值,然后单击窗体,则滚动条的滚动框移到相应的位置,程序的运行情况如图1-288所示。

    要求:程序中不得使用任何变量。存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
    (2)在名称为Form1的窗体上画一个标签,其名称为Label1,标题为“程序设计”,AutoSize属性为True;然后再画一个列表框,通过属性窗口输入5个项目,分别为10、16、20、24、36,如图1-289(a)所示,编写适当的事件过程。程序运行后,如果用鼠标选中列表框中的某个项目,则把标签中字体的大小设置为与该项目相同。程序的运行情况如图1-289(b)所示。

    要求:程序中不得使用任何变量。存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。

选项

答案第1小题 【操作步骤】 步骤1:新建“标准EXE”工程,往窗体Form1中加入一个文本框和一个水平滚动条,分别设置它们的相关属性,属性及其值如表2-154所示。 [*] 步骤2:打开代码编辑窗口,输入如下代码: 参考代码: Private Sub Form_Click() HScroll1.Value = Val(Text1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,在窗体上画一个列表框和一个标签,按表2-155设置其相关属性。 [*] 步骤2:在打开的代码编辑窗口中,编写列表框的单击事件代码。 参考代码: Private Sub List1_Click() Label1.FontSize = Val(List1.Text) End Sub 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://kaotiyun.com/show/JWUp777K
0

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