2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1) 在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别

admin2009-02-25  56
问题  注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
   请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
   (1) 在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别为“身高”和“体重”，两个文本框，名称分别为Text1和Text2，Text属性均为空白，一个命令按钮，名称为Command1，标题为“输入”。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来。程序运行界面如图21-1所示。要求程序中不得使用任何变量。
   注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt.frm。
   (2) 在名称为Form1的窗体上画一个图片框，名称为Picture1，一个垂直滚动条，名称为VScroll1，一个命令按钮，名称为Command1，标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生文件夹下)，图片框的宽度与图形的宽度相同，图片框的高度任意，如图21-2所示。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
                               Min            100
                               Max            2400
                               LargeChang     200
                               SmallChange    20
   之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图21-3所示。要求程序中不得使用任何变量。
   注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
选项
答案在窗体上建立好控件后，先设置控件的属性，再编写程序代码。 文本框的内容由Text属性设置，命令按钮标题由Caption属性设置，单击命令按钮触发Click事件。程序中用到了InputBox()，其格式为： InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。 title：字符串，它是对话框的标题，显示在对话框顶部的标题区。 default：字符串，用来显示输入缓冲区的默认信息。 xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。 helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-1。 [*] 　　第二步：编写程序代码。 　　参考代码： 　　　　Option Explicit 　　　　Private Sub Command1_Click() 　　　　　　Text1.Text=InputBox("请输入身高") 　　　　　　Text2.Text=InputBox("请输入体重") 　　　　End Sub 　　第三步：调试并运行程序。 　　第四步：按题目要求存盘。 　　(2)在窗体上建立好控件后，先设置控件属性，再编写程序代码。 　　控制图片的大小，就是调节图片框Width属性和Height属性的值，Width属性和Height分别决定控件的宽和高。要使滚动条的Value值改变影响图片框的大小，需要将滚动条的Value值和图片框的高联系起来，滚动条的Value属性值改变时触发Change事件。解题步骤： 　　第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-2。 [*] 第二步：编写程序代码。 参考代码： Option Explicit Private Sub Commandl_Click() VScroll1.Max=2400 VScroll1.Min=100 VScroll1.LargeChange=200 VScroll1.SmallChange=20 End Sub Private Sub VScroll1_Change() Picture1.Height=VScroll1.Value End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/gh1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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