首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,根据下文的描述,编写相应的程序。存盘时不得改变文件名和文件夹。 本题描述如下: 在窗体上有一名为Textl的文本框,要求程序运行后,每用鼠标左键单击窗体一次,则文本框的宽增加15
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,根据下文的描述,编写相应的程序。存盘时不得改变文件名和文件夹。 本题描述如下: 在窗体上有一名为Textl的文本框,要求程序运行后,每用鼠标左键单击窗体一次,则文本框的宽增加15
admin
2009-08-26
82
问题
(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,根据下文的描述,编写相应的程序。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一名为Textl的文本框,要求程序运行后,每用鼠标左键单击窗体一次,则文本框的宽增加150;每用鼠标右键单击窗体一次,文本框的宽减小150。窗体的宽为2 500,文本框最大宽度不允许超过窗体的宽度,最小宽度不小于900(高与宽的单位为twip)。
程序运行时的窗口界面如图27—3所示。
注意:保存时必须存放到考生文件夹下,工程文件名为sj3.vbp,窗体文件名为sj3.frm。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。在窗体中有一个名为Labell的标签和两个名称分别为Commandl与Command2、标题分别为“显示”、“关闭”的命令按钮。要求程序运行后,单击“显示”按钮,能打印出如图所示的B字三角形,执行完毕,“显示”按钮变成“完成”,且无效(变灰),如图27—4所示。
注意:请在有“?”号的地方填放正确内容,然后删除“?”及所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)鼠标事件分点击事件和状态事件。点击事件有单击(Click)和双击(DblClick),不区分左右键;状态事件有按下(Mousedown)、移动(Mousemove)和弹起(Mouseup),状态事件涉及Button、Shift两个参数,Button参数是一个整数,值可能为1(左键)、2(右键)或4(中间键),Shift参数也是一个整数,用来代表用户是否按下Shift、Ctrl或Alt键。根据题意,程序中可以使用Mousedown事件,也可使用Mouseup事件。 根据题意,在进行鼠标左键点击放大前需判断文本框加宽后的宽度是否超过窗体大小,若是,将文本框的大小设为与窗体一致,否则宽度加150;在进行鼠标右键点击缩小前需判断文本框缩小后的宽度是否小于900,若是,将文本框的宽度设为900,否则宽度减150。补充后的具体代码如下: Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Select Case Button Case 1’当单击鼠标左键时
Textl.Width=Textl.Width+150
’Textl的宽度加150 Case 2’当单击鼠标右键时
Textl.Width=Textl.Width-150
’Textl的宽度减150
End Select
If Textl.Width>Forml.Width Then Textl.Width=Forml.Width’当Textl的宽度大于Forml的宽度,则不再增加 Elself Textl.Width<900 Then
Textl.Width=900
’当Textl的宽度小于Forml的宽度,则不再减小 End If End Sub 单击[*]按钮运行程序,并按要求保存。 (2)本题主要考查For循环控制语句与字符串的操作。根据题意,将一个标签和两个命令按钮添加到窗体中,标签的名称为Labell,命令按钮的名称分别为Commandl和Command2,Caption属性分别为“显示”和“关闭”。双击Commandl进入代码窗口,补充后的代码如下: Private Sub Commandl_Click() Dim i As Integer Dim i AS Integer Dim str As String Dim tmp As String str="" For i=1 To 6 ’画三角形的上半部分 tmp="" For j=1 To i tmp=tmp+"B" Next j str=str+
tmp
+vbCrLf’将一行放入字符串中然后换行 Next i For i=5 To 1 Step-1 tmp="" For j=1 To i tmp=tmp+"B" Next j str=str+
tmp
+vbCrLf’将一行放人字符串中然后换行 Next i Labell.
Caption
=str’在Label中显示三角形 Commandl.Caption="完成" Commandl.
Enabled
=False End Sub Private Sub Command2_Click()
Unload Me
End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/yc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果线程正处于阻塞状态,不能够使线程直接进入可运行状态的情况是()。
下列程序的功能是将一个整数数组写入二进制文件,在程序的下划线处应填入的选项是()。importjava.io.*;publicclassXieShuzu{publicstaticvoidmain(String[]a){
以下是一个对数据文件进行缓冲输入操作的语句,在语句的下划线处,请填上适当的内容:DatahputStreamdin=newDatanputStream(new【】(newPdehputStngn("e叫oyee.dat")))
数据流图用于描述一个软件的逻辑模型,数据流图由一些特定的图形符号构成。下列图符名称标识的图符不属于数据流图合法图符的是()。
下列数据结构中属于非线性结构的是()。
通常,将软件产品从提出、实现、使用维护到不再使用的过程称为【】。
查找随机文件的记录时,应使用的方法是()。
若数组a定义为int[][]a=newint[3][4],则a是()。
如下的代码段中,如果方法unsafe()正常运行,那么结果是()。publicvoidexample(){try{unsafe();System.out.pri
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()。
随机试题
管理的核心是以人为本,这是因为()
某企业的采购部在收到生产需求部门直接提交的清购单后,由其职员E进行询价并确定供应商,再由其职员F负责编制和发出预先未经连续编号的订购单。采购的货物运达后,采购部根据订购单的要求验收货物,编制一式多联的未连续编号的验收单。验收单一联交采购部,登记采购明细账和
一患者患风湿顽痹,肢体麻木瘫痪,不慎又将上肢前臂摔伤,现肢体肿胀、疼痛。治疗宜首选的药物是
患者,男性,30岁。农民,既往体健。7月2日来诊,腹泻2天,为水样便,带少量黏液,量多,1天10余次,相继呕吐数次,无发热、无腹痛,腓肠肌痉挛。体检:体温36.8℃,神志清,皮肤弹性差,脉搏细速,血压70/30mm/Hg。化验检查:粪便镜检白细胞0~2个
()不得使用商业承兑汇票。
财政部门对各单位实施监督的主要事项包括()。
A公司向B汽车运输公司租人5输载重汽车,双方签订的合同规定,5辆载重汽车的总价值为240万元,租期3个月,月租金为0.4万元。则A、B两公司应缴印花税额合计为()。
下列几个句子的顺序已经被打乱,请重新排列,排列正确的一项是()。①大海里,闪烁着一片鱼鳞似的银波②一片片坐着、卧着、走着的人影,看得清清楚楚了③沙滩上,也突然明亮起来④它像一面光辉四射的银盘似的,从那平静的大海里涌了出来⑤月亮上
论述清末民初中国近代经济率先自东部兴起的原因。(南开大学2014年中国历史真题)
WhocomestotheChicagotradefaireachyear?
最新回复
(
0
)