问题 问答题

在名称为Form1的窗体上添加一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1),如图1所示。在属性窗口中对滚动设置如下属性:

Min 500
Max 2000
LargeChange 50
SmallChange 20
编写适当的事件过程。程序运行后,通过改变滚动条上的刻度值,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2倍。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2. frm

答案

参考答案:[解题思路] 通过调整滚动条滑块的位置即可改变其Value属性的值,滚动条的Max和Min属性为滚动条所能表示的最大值和最小值,LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
文本框的高度和宽度分别由其Height属性值和Width属性值设定。
[操作步骤]
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表1。

表1
控件 文本框 水平滚动条
属性 Name Name Max Min Large
Change
Small
Change
设置值 Text1 HScroll1 2000 500 50 20
步骤2:编写程序代码。
参考答案:
Private Sub HScroll1_Change()
Text1. Height = HScroll1. Value
Text1. Width = 1.2 * Text1. Height
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘,

填空题
单项选择题

甲公司于2009年3月29日销售给乙公司产品一批,4月2日收到乙公司交来的一张出票日为4月1日、面值为585万元,票面年利率为3%,期限为6个月的商业承兑汇票一张;6月30日计提了3个月的利息。甲公司于7月1日持票到银行贴现,贴现期为3个月,年贴现率为4%;票据到期,因乙公司无款支付,银行将票据退回甲公司并从甲公司银行账户扣回了相应的款项;甲公司将该票据转入应收账款核算并不再计提利息,而且至11月末亦未计提坏账准备。12月1日,甲公司与乙公司达成如下债务重组协议:
(1)乙公司以其生产的产品(适用增值税税率17%)一批和自用房产一套抵偿所欠债务585万元。产品账面成本为80万元,计税价格(公允价值)为120万元;设备账面原价为300万元,已提折旧50万元,已提减值准备10万元,公允价值为180万元。甲公司将收到的产品作为商品入账、房产作为固定资产入账。
(2)豁免本金64.6万元,同时免除乙公司所积欠的利息并将剩余债务延期至2011年12月31日偿还,并从2010年1月1日起按年利率2%计算利息。假定实际利率为2%,但如果乙公司2010年起年实现利润总额超过100万元则年利率上升至4%。利息于债务结清时一并支付。假定乙公司2010年起年实现利润总额很可能超过100万元。假定确定预计负债时不考虑货币时间价值。
要求:根据上述资料,回答下列问题:

假设乙公司2010年实现利润总额120万元,2011年实现利润总额80万元,则2011年12月31日,乙公司在与甲公司结清债务时,应( )。

A.增加营业外收入4万元

B.冲减财务费用4万元

C.增加资本公积4万元

D.增加营业外收入8万元