简述市场预测的程序

分录题。(根据以下经济业务，编制相应的会计分录。)
(1)从银行提取现金50000元，发放职工工资。
(2)以银行存款支付本月水电费7600元，其中车间耗用4600元，厂部耗用3000元。
(3)购入材料一批，价款60000元，增值税10200元，开出商业承兑汇票一张支付货款，材料验收入库。
(4)以银行存款支付本月的电话费2840元。
(5)提取本月车问固定资产的折旧费16000元。
(6)结转本月已销产品成本32000元。
(7)接受由外商捐赠的设备一台，价值6000元。
(8)年终，将税后净利346000元予以结转。
(9)本年末按税后净利的10%提取法定盈余公积34600元。
(10)财产清查中发现盘亏固定资产设备一台，原价30000元，已提折旧16000元，原因待查。

缺血性心脏病最常见的病因是

A．主动脉瓣狭窄

B．心肌肥厚

C．严重贫血

D．冠状动脉粥样硬化

E．主动脉瓣关闭不全

有如下函数过程： Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer Do While y ＜＞ 0 reminder=x Mod yx=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调节器用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a, b) Print x End Sub

A．0

B．25

C．5O

D．100

女，25岁。无意中发现甲状腺肿块7天，近3天来肿块迅速增大，伴有胀痛。甲状腺ECT检查：甲状腺右叶"冷结节"。应初步诊断为（）

A.单纯性甲状腺肿

B.结节性甲状腺肿

C.甲状腺囊腺瘤并囊内出血

D.甲状腺癌

E.甲状腺腺瘤

简述土石坝渗透变形防护的措施。