男性，32岁。工作时不慎被锐器刺伤右足底19小时。伤后仅在当地诊所作简单局部消毒包扎

根据二因素的犯罪原因理论，矫正社会工作的功能和作用应该从（）方面进行分析。

A.个人

B.社会

C.社区

D.学校

E.家庭

______是指企业对外提供反映企业某一特定日期财务状况和某一会计期间经营成果、现金流量情况的书面文件。

2×16年1月1日，A公司和B公司共同出资购买一栋写字楼，各自拥有该写字楼50％的产权，用于出租收取租金。合同约定，该写字楼相关活动的决策需要A公司和B公司一致同意方可作出；A公司和B公司的出资比例、收入分享比例和费用分担比例均为各自50％。该写字楼购买价款为16000万元，由A公司和B公司以银行存款支付，预计使用寿命为20年，预计净残值为640万元，采用年限平均法按月计提折旧。该写字楼的租赁合同约定，租赁期为10年，每年租金为960万元，按月交付。该写字楼每月支付维修费4万元。另外，A公司和B公司约定，该写字楼的后续维护和维修支出（包括再装修支出和任何其他的大修理支出）以及与该写字楼相关的任何资金需求，均由A公司和B公司按比例承担。假设A公司和B公司均采用成本法对投资性房地产进行后续计量，不考虑税费等其他因素影响。B公司下列会计处理中正确的有（）。

A.出资购买写字楼时应确认投资性房地产8000万元

B.每月确认租金收入40万元

C.每月计提折旧64万元

D.每月支付维修费时确认其他业务成本4万元

谈谈你对社会主义核心价值体系的科学内涵及重要意义的理解？

要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
Option Base 1
Private Sub Command1_Click( )
　　Dim b( )
　　Randomize
　　 (12)
　　Do
　　　　x = Rnd
　　　　If x ＞ 0.5 Then y = 1 Else y = -1
　　　　t = y * Int(Rnd * 100)+ 1
　　　　 (13)
　　　　Do While k < j
　　　　　　If t ＜＞ b(k)Then
　　　　　　　　k = k + 1
　　　　　　Else
　　　　　　　　Exit Do
　　　　　　End If
　　　　Loop
　　　　If k = j Then
　　　　　　ReDim Preserve b(k)
　　　　　　b(k)= t
　　　　　　Print b(k);
　　　　　　j = j + 1
　　　　End If
　　Loop Until j ＞ 50
　　Print
　　 (14)
　　Max = b(1)
　　For n = 2 To 50
　　　　If b(n)＞ Max Then
　　　　　　 (15)
　　　　　　p = n
　　　　End If
　　Next n
　　Print "最大数是："; Max
　　Print "位置在第"; p; "个"
End Sub