首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条,其名称分别为Cmd1(标题为“设置”)和Vsb1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条,其名称分别为Cmd1(标题为“设置”)和Vsb1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置
admin
2016-01-31
38
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条,其名称分别为Cmd1(标题为“设置”)和Vsb1,编写适当的事件过程。程序运行后,如果单击命令按钮,则按如下要求设置垂直滚动条的属性:
Max=窗体高度
Min=0
ImrgeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框,则在窗体上显示滚动框_饷位置值。程序的运行情况如 图3-54所示。
要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为vbsj2.vbp,窗体文件名为vbsj2.frm。
选项
答案
审题分析 本题其实就是在命令按钮的单击事件过程中用代码来设置水平滚动条的属性,并且在水平滚动条的Change事件过程中,用Print方法把表示水平滚动条滑块位置的Value属性值输出到窗体上。 操作步骤 步骤1:新建一个“标准EXE”工程,按表4-33在窗体中画出控件并设置其相关属性。 [*] 步骤2:打开代码编辑窗口,编写水平滚动条的Change事件过程。 参考代码: Private Sub Cmd1_Click() Vsb1.Max=Form1.Height Vsb1.Min=0 Vsb1.LargeChange=50 Vsb1.SmallChange=10 End Sub Private Sub Vsb1_Chanqe() Print Vsb1.Value End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 滚动条
解析
转载请注明原文地址:https://kaotiyun.com/show/nrLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
下列程序段的执行结果为a=6Fork=1T00a=a+kNextPrintk;a
编写如下事件过程:PrivateSubForm_Activate()Dimscore(1to3)AsIntegerDimiAsIntegerDimtAsVariantFori=3To1St
下列能正确输出2,345.67的语句是()。
数据库设计的根本目标是要解决()。
在程序运行期间,当滚动条的滑块被拖动时,则立即触发滚动条的()事件。
要设定文本框中的文字内容是否允许修改,应该设置的属性是()。
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是()
在VisualBasic中,要将一个窗体从内存中释放,应使用的语句是
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。当改变当前驱动器时,目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中,这个事件过程是()。
随机试题
下列表述中,那些属于资产的特征()。
何谓平肝息风药?
休克严重而血尿不明显的肾损伤是
下列不属于毒性中药品种的是()
试件尺寸为150×150×150(mm)的混凝土试件,当坍落度大于70mm时,可用人工成型,分厚度大致相等的2层装模,每层插捣次数为100cm2截面积内不得少于12次。()
甲公司为增值税一般纳税人,期初无留抵增值税税额,适用企业所得税税率为25%。甲公司2016年1月份发生如下经济业务:(1)1日,甲公司与乙公司(增值税一般纳税人)签订协议,向乙公司销售商品,成本为90万元,增值税专用发票上注明销售价格为110万元、增值税
根据企业所得税法律制度的规定,下列各项费用,超过税法规定的扣除标准后,准予在以后纳税年度结转扣除的有()。
危机介入模式在具体介入的过程中,需要注意的事项有很多。下列选项中,对于需要注重事项说法正确的是()。
商品经济是一定社会历史条件的产物,商品经济得以产生的社会历史条件有()。
TakingVacationsExperiencesan82PercentIncreaseinJobPerformanceA)Thistimeofyear,manyEuropeansarelookingforwardt
最新回复
(
0
)