问题 问答题

甲公司2007年度的有关资料如下:(1)年初未分配利润为100万元,本年净利润为258万元。按税后利润的10%和5%提取法定盈余公积和任意盈余公积。(2)向投资者宣告分派现金股利40万元。要求:

(3)计算年末未分配利润。(“利润分配”、“盈余公积”科目需要写出二级明细科目)(6分)

答案

参考答案:(3)年末未分配利润=1 000 000+2 580 000-258 000-129 000-400 000=2 793 000

选择题
问答题

[说明]
用ASP实现一个网上注册系统,用IE打开网页文件index.asp后的效果如下图所示。


图 网上注册系统显示效果
index.asp文档的内容如下所示:
<%
set conn=server.CreateObject("adodb.connection")
conn open"driver=Microsoft Access driver("mdb"); dbq="&sever.mappath
("date/date.mdb")
exec="select * from webset"
set rs=server. CreateObject("adodb.______")
rs.______exec,conn,1,1
%>
<head>
<title><%=rs ("webname") %></title>
</head>
<html>
<form action="register.asp" method="post" name="myform">
<table width="100%" border="0" align="center" cellpadding="2"
cellspacing="1" bgcolor="#A8D9EC">
<tr>
<td colspan="4" align="left">注册信息</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">用户名</td>
<td colspan="3" bgcolor="#FFFFFF">
<input name="uname" type="______" value="<%=uname%>">
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">密码</td>
<td colspan="3" bgcolor="#FFFFFF"><input name="psd" type="______">
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">性别</td>
<td bgcolor="#FFFFFF">
<input name="xb" type="______" value="male"/>男
<input name="xb" type="______" value="female" checked="true"/>女
</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">安全邮箱</td>
<td bgcolor="#FFFFFF"><input name="email" type="text" size="40"/></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">密码查询问题</td>
<td bgcolor="#FFFFFF">
<______ name="zy">
<option value="0">--请选择--</option>
<option value="1">我小学校名是什么 </option>
<option value="2">我最喜欢的歌曲是哪首 </option>
<option value="3">我母亲的生日是哪天 </option>
</select>
</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF"密码问题答案</td>
<td bgcolor="#FFFFFF"><input name="un" type="text"></td>
</tr>
<tr>
<td colspan:"4" bgcolor="#FFFFFF">
<input name:"Submit" type:"______" value="提交">
</td>
</tr>
</table>
</form>
<tr><%=rs("copyright")%></tr>
<%
rs.close ()
%>
</html>

从以下备选答案内为程序中第1~2处空缺选择正确答案。
A.connection B.stream C.recordset D.command
A.Open B.RunC.Execute D.Dim