首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
admin
2017-09-20
60
问题
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Click事件过程。程序运行后,在两个文本框中分别输入姓名和年龄,然后单击“显示”按钮,则在窗体上显示两个文本框中的内容,如图所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
(2)在名称为Form1的窗体上画一个图片框,其名称为Picture1,一个水平滚动条,名称为HScroll1,一个命令按钮,名称为Command1,标题为“设置属性”,通过属性窗口在图片框中装入一个图形(文件名为picl.jpg,位于考生目录下),图片框的高度与图形的高度相同,图片框的宽度任意(如图1所示)。编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的属性如下:
Min 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp,窗体文件名为sjt2.frm。
选项
答案
(1) 【操作步骤】 步骤1:新建一个窗体,按照题目要求建立控件并设置相应属性,程序中用到的控件及属性如表3.16所示。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Command1_Click() Forml.Print Text1.Text&”,现年”& Text2.Text&”岁” End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1:新建一个窗体,添加控件并设置相应的属性。程序中用到的控件及其属性见表3.17。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Command1_Click() HScrol11.Max=1500’设置滚动条的最大值、最小值、最大改变值、最小改变值 HScroll1.Min=100 HScroll1.LargeChanqe=100 HScroll1.SmallChange=10 End Sub Private Sub HScroll1_Change() Picture1.Width=HSCroll1.Value ’将图片的width与滚动条的Value保持一致 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/tkGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列是一个体操评分程序。没满分为10分,20位评委,除去一个最高分和一个最低分,计箅平均分。PrivateSubCorrmland!Click()Max=0Min=10Fori=1To20n=Va
在随机文件中使用用户自定义数据类型时,要注意它的成员的要求,它的成员不能是()。
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
下列程序运行后的输出结果是【】。PrivateSubf(k,s)s=1Forj=1Toks=s*jNextEndSubPrivateSubCommand1_Click()Sum=0Fori=1
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
下列代码运行后输出结果是DefstrB-EPrivateSubCommand1_Click()B$="123"C="456"PrintB+C$EndSub
下列语句的输出结果是【】。PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
随机试题
患者,男,35岁,3个月来间断上腹痛,有时夜间痛醒,反酸。1天前黑便1次,无呕血,但腹痛减轻,化验大便隐血呈阳性。(2011年)为了确定诊断,首选的检查是
A.肺脾气虚B.肾气不足C.脾肾阳虚D.心肾不交E.肝经郁热睡中遗尿,日间尿频,平素易感冒,少气懒言,大便溏薄,舌淡红,苔薄白,脉沉无力。其证候是
患者,男性,52岁。有溃疡病史10年。最近1周中上腹持续性胀痛,较以往严重,伴恶心、呕吐。今日呕血一次,量约800ml,呕血后气促明显,血压100/75mmHg。该患者目前潜在的护理问题是
在建设工程勘察设计活动中形成的主要技术文件必须有相应专业注册工程师签字盖章后方可生效。()
垄断竞争市场的特征有()。
在进行资本投资评价时,下列说法正确的是()。
行政法是调整行政活动的法律规范的总称,分为一般行政法和特别行政法两个部分。下列法律属于一般行政法的是()。
______isthecoreofleadershipoftheBritishgovernment.
A、Fortenmonths.B、Forninemonths.C、Foreightmonths.D、Forsevenmonths.D本题的问题关键词是howmany。对话中提到从去年的10月1号到今年的5月2号,历时7个月,所以
传统美德
最新回复
(
0
)