首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
41
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗口中有一个RichText文本框控件和一个文本框控件,名称分别为rtx1和Text1,两个命令按钮,名称分别为Command1和Command2,标题分别为“加入SJT01.TXT”、“统计字符个数”。要求程序运行后,单击command1将考生文件夹下的sjt01.txt的内容显示到rtx1中;单击“统计字符个数”按钮统计 rtx1中有多少个字符,将结果显示在Text1中。程序运行结果如图13-4所示。
(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个名为Image1的图像框,要求程序运行后,鼠标左键点击图像框,则图像框变大;鼠标右键点击图像框,图像框变小。设计界面如图13-5所示。
选项
答案
在窗体上建立好控件后,先设置控件属性,再编写事件过程 RichTextBox控件可以用LoadFile和SaveFile方法可以方便的为RichTextBox控件打开或保存文件,LoadFile方法能将 RTF文件或文本文件装入控件,其形 式如:对象.LoadFile 文件标志符[,文件类型];统计字符的个数可用Len(要统计的内容)函数。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表13-3。 [*] 程序提供的代码: Option Explicit Private Sub Command1_Click() ’rtx1.? App.Path+"\sjt01.txt" End Sub Private Sub Command2_Click() If rtx1.Text <> "" Then ’ Text1.Text=? End If End Sub 参考代码: Option Explicit Private Sub Commandl_Click() rtx1.LoadFile App. Path+"\sjt01.txt" End Sub Private Sub Command2_Click() If rtx1.Text <> "" Then Text1.Text=Len(rtx1.Text) End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件属性,再编写事件过程 图像框的图片由Picture属性设置。判断鼠标左键还是右键可以通过图像框的MouseUp事件的Button参数来判断。 MouseUp事件再释放鼠标按钮时发生。其语法格式为: PrivateSubobject_MouseUp([indexAsInteger,]buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle) Object一个对象表达式。 Index一个整数,用来惟一地标识一个在控件数组中的控件。 Button返回一个整数,用来标识该事件的产生是按下(MouseDown)或者释放(MouseUp)按钮引起的。button参数是具有相应于左按钮(位0),右按钮(位1),以及中间按钮(位2)的一个位字段。这些位的值分别等于1,2,和4。其中仅有一位被设置,指示出引起该事件的那个按钮Shift返回一个整数,在button参数 指定的按钮被按下或者被释放的情况下,该整数相应于SHIFT,CTRL和ALT键的状态。某键被按下使得一个二进制位被设置。 shift参数是具有相应于SHIFT键(位0),CTRL键(位”,以及ALT键(位2)最少二进制位的一个位字段。这些位的值分别等于1,2,和4。shift参数指示这些键的状态。这些位中可能有一些、全部或者一个也没有被设置,指示这些键中的一些、全部或者一个也没有被按下。解题步骤: 第一步:建立界面并设置控件属性。 第二步:编写程序代码。 程序提供的代码: Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=1 Then If Image1.Height<4000 Or Image1.Width<4000 Then Imagel.Height=Imagel.Height+500 ’ Imagel.Width=Imagel.Width ? 500 End If End If ’If Button=? Then If Image1.Height>1000 Or Image1.Width>1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End If End Sub 参考代码: Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, XAs Single, Y As Single) If Button=1 Then If Image1.Height<4000 Or Image1.Width<4000 Then Image1.Height=Image1.Height+500 Image1.Width=Image1.Width+500 End If End If If Button=2 Then If Image1.Height>1000 Or Image1.Width>1000 Then Image1.Height=Image1.Height-500 Image1.Width=Image1.Width-500 End If End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/dh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面属于面向对象语言的是
下面不属于软件设计原则的是
McCall提出的软件质量模型包括______个软件质量特性。
for语句与while语句的关系为()
下面ChangeTitle()中对b1和b2按钮构造监听器,实现当单击b1按钮时标题变为students,当单击b2按钮时标题变为teachers。请将程序补充完整。publicChangeTitle(){super("Title
以下程序计算1+1/3+1/5+…1/(2N+1),直至1/(2N+1)小于0.00001,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){
使得线程放弃当前分得的CPU时间,但不使线程阻塞,即线程仍处于可执行状态,随时可能再次分得CPU时间的方法是【】。
利用E-R模型进行数据库的概念设计,可以分成3步:首先设计局部E-R模型,然后把各个局部E-R模型综合成一个全局的模型,最后对全局E-R模型进行()。
设有如下三个关系表下列操作中正确的是
Mid("HelloEveryone",7,3)的执行结果是
随机试题
甲公司是一家从事多元化经营的大型国有企业集团,最近三年净资产收益率平均超过了10%,经营现金流入持续保持较高水平。甲公司董事会为开拓新的业务增长点,分散经营风险,获得更多收益,决定实施多元化投资战略。2016年甲公司投资部聘请一家咨询公司进行多元化战略的
用框式图解法分析下面的句子:(1)看不看《李自成》这本书。(2)花儿为什么这样红。(3)买票的去那儿排队。(4)你去动员他留下来看戏。
病例对照研究与队列研究相比,其优点是
湿热壅阻型慢性盆腔炎的主方是寒凝血滞型慢性盆腔炎的主方是
患者,男,55岁,体重75kg。因饮食不洁后出现剧烈腹泻2大,呈水样泻。查pH7.30,PaCO232mmHg,PaO270mmHg,AB20mmol/L,SB20mmol/L,BE4.1mmoL/L,CO2CP17mmol/L。该患者补碱量是
甲公司用公司的设备作为抵押向银行借款,并在工商行政管理部门进行了抵押登记,甲公司又将设备作为质押与乙公司签订了货物买卖合同,合同约定乙公司可以使用设备进行生产,乙公司使用设备的过程中,需要对设备进行维修,乙公司与丙公司签订了维修协议,丙公司维修工作完成后,
招标代理机构在提升采购质量和效率方面具有显著的优势,其发挥的作用主要表现在()。
合格境外机构投资者可以投资的人民币金融工具包括在证券交易所挂牌交易的股票、在证券交易所及全国银行间债券市场交易的债券、证券投资基金,在证券交易所挂牌交易的权证以及中国证监会允许的其他金融工具。()
某企业2015年发生的费用有:车间管理人员工资60万元,车间设备计提折旧100万元,车间设备日常修理费用25万元,行政管理部门办公费10万元。则该企业当年应该记入“制造费用”科目的金额为()万元。
左边给定的是纸盒的外表面,下面哪一项能由它折叠而成?
最新回复
(
0
)