以下两条公式均显示 900元整，宏没试，怎么回事啊！再求高手！！
1、计算机由运算器、控制器、内存、硬盘和存储器五大部分组成，其中运算器和控制器合称为中央处理器，也叫cpu。
2、计算机中存储一个汉字信息要占8个字节。
3、在Windows中，要使文件或文件夹被直接删除而不经过回收站，在删除时要按住shift+delete键。
4、存储器是用来存放________和________的部件。
5、计算机的总线分为数据总线、地址总线和物理总线。
6、计算机中的文件名由名称和后缀两部分组成，其中名称反映文件的内容，后缀表示文件的类型。
7、Word 2000将页面正文的顶部空白部分称为页眉。
8、使用PowerPoint制作的文件称为_____________，它的扩展名是__________。
9、计算机网络的目标是实现________和________。
10、一个IP地址由子网掩码和忘记了两部分组成。
11、计算机网络按地理位置进行分类，可分为局域网、广域网和城域网，因特网属于广域网。
12、在客户/服务器结构中，提出请求的计算机称为_________，而将受理请求的计算机称为________。
13、集调制/解调两种处理功能于一体的专用通信设备叫作调制/解调器，它的英文名是______。
14、为客户提供接入因特网服务的代理商的简称是isp
15、HTTP是网页什么的。
二、选择题（30分）
1、在计算机领域中通常用MIPS来描述a。 A、计算机的运算速度 B、计算机的可靠性 C、计算机的可运行性 D、计算机的可扩充性
2、配置高速缓冲存储器(Cache)是为了解决c。 A、内存与辅助存储器之间速度不匹配问题 B、CPU与辅助存储器之间速度不匹配问题 C、CPU与内存储器之间速度不匹配问题 D、主机与外设之间速度不匹配问题
3、第3代电子计算机使用的电子元件是c。
A、晶体管 B、电子管 C、中、小规模集成电路 D、大规模和超大规模集成电路
4、计算机内部采用的数制是b_。
A、十进制 B、二进制 C、八进制 D、十六进制
5、在Excel工作表单元格中，输入下列表达式a是错误的。 A、=(72+G6)/4 B、= A2/F3 C、SUM(A2:A4)/2 D、=A1+A2+D3
6、下列4种不同数制表示的数中，数值最小的一个是d。
A、八进制数52 B、十进制数44 C、十六进制数2B D、二进制数101001
7、8位无符号的二进制数能表示的最大十进制数是a。
A、256 B、255 C、128 D、127
8、计算机最主要的工作特点是a。 A、存储程序与自动控制 B、高速度与高精度 C、可靠性与可用性 D、有记忆能力
9、下列有关计算机性能的描述中，不正确的是c。
A、一般而言，主频越高，速度越快 B、内存容量越大，处理能力就越强
C、计算机的性能好不好，主要看主频是不是高
D、内存的存取周期也是计算机性能的一个指标
10、下列关于存储器读写速度的排列，正确的是b_。
A、RAM硬盘CACHE软盘 B、CACHERAM软盘硬盘
B、CACHERAM硬盘软盘 D、RAMCACHE硬盘软盘
11、在ASCII码表中，按照ASCII码值从小到大排列顺序是b。
A、数字、英文大写字母、英文小写字母 B、数字、英文小写字母、英文大写字母
C、英文大写字母、英文小写字母、数字 D、英文小写字母、英文大写字母、数字
12、硬盘的一个主要性能指标是容量，硬盘容量的计算公式为A。
A、磁道数×面数×扇区数×盘片数×512字节
B、磁道数×面数×扇区数×盘片数×128字节
C、磁道数×面数×扇区数×盘片数×80×512字节
D、磁道数×面数×扇区数×盘片数×15×128字节
13、在计算机中，既可作为输入设备又可作为输出设备的是b_。
A、显示器 B、磁盘驱动器 C、键盘 D、图形扫描仪
14、计算机病毒是一种c。 A、特殊的计算机部件 B、游戏软件 C、人为编制的特殊程序 D、能传染的生物病毒 15、DNS指的是d。 A、文件传输协议 B、用户数据报协议 C、简单邮件传输协议 D、域名服务协议
三、判断题（10分）
1、计算机性能指标中字长表示内存储器的容量。 （ ）
2、软盘处于写保护状态，是指软盘内的数据只能写入不能读出的状态。 （ ）
3、微机常常是在信息复制和信息交换时感染上计算机病毒。 （ ）
4、Windows XP是一个多用户多任务操作系统。 （ ）
5、所谓后台打印，即在打印文件的同时，计算机还可以处理其他任务。 （ ）
6、Word只用于文字处理，在文字中无法插入图形或表格。 （ ）
7、在Word文档中，只有“普通”、“页面”、“大纲”三种显示模式。 （ ）
8、利用编辑菜单中的复制，粘贴选项不能实现整张幻灯片的复制。 （ ）
9、PowerPoint的标尺功能包括显示幻灯片尺寸和显示缩进刻度线标记。 （ ）
10、在Excel中，函数包括函数名和参数，没有参数的函数可以不加括号。 （ ）
四、计算题（10分）
1、（147）10=（ ）2=（ ）8=（ ）16
2、（10101.1011）2=（ ）10=（ ）8
五、简答题（20分）
1、计算机中存储器分哪两类，它们的特点是什么？
2、简述冯·诺依曼结构计算机的设计思想。
3、什么是Excel的相对引用和绝对引用？
4、什么是计算机网络？计算机网络的基本拓扑结构有哪几种？
2、计算机中存储一个汉字信息要占8个字节。
3、在Windows中，要使文件或文件夹被直接删除而不经过回收站，在删除时要按住shift+delete键。
4、存储器是用来存放________和________的部件。
5、计算机的总线分为数据总线、地址总线和物理总线。
6、计算机中的文件名由名称和后缀两部分组成，其中名称反映文件的内容，后缀表示文件的类型。
7、Word 2000将页面正文的顶部空白部分称为页眉。
8、使用PowerPoint制作的文件称为_____________，它的扩展名是__________。
9、计算机网络的目标是实现________和________。
10、一个IP地址由子网掩码和忘记了两部分组成。
11、计算机网络按地理位置进行分类，可分为局域网、广域网和城域网，因特网属于广域网。
12、在客户/服务器结构中，提出请求的计算机称为_________，而将受理请求的计算机称为________。
13、集调制/解调两种处理功能于一体的专用通信设备叫作调制/解调器，它的英文名是______。
14、为客户提供接入因特网服务的代理商的简称是isp
15、HTTP是网页什么的。
二、选择题（30分）
1、在计算机领域中通常用MIPS来描述a。 A、计算机的运算速度 B、计算机的可靠性 C、计算机的可运行性 D、计算机的可扩充性
2、配置高速缓冲存储器(Cache)是为了解决c。 A、内存与辅助存储器之间速度不匹配问题 B、CPU与辅助存储器之间速度不匹配问题 C、CPU与内存储器之间速度不匹配问题 D、主机与外设之间速度不匹配问题
3、第3代电子计算机使用的电子元件是c。
A、晶体管 B、电子管 C、中、小规模集成电路 D、大规模和超大规模集成电路
4、计算机内部采用的数制是b_。
A、十进制 B、二进制 C、八进制 D、十六进制
5、在Excel工作表单元格中，输入下列表达式a是错误的。 A、=(72+G6)/4 B、= A2/F3 C、SUM(A2:A4)/2 D、=A1+A2+D3
6、下列4种不同数制表示的数中，数值最小的一个是d。
A、八进制数52 B、十进制数44 C、十六进制数2B D、二进制数101001
7、8位无符号的二进制数能表示的最大十进制数是a。
A、256 B、255 C、128 D、127
8、计算机最主要的工作特点是a。 A、存储程序与自动控制 B、高速度与高精度 C、可靠性与可用性 D、有记忆能力
9、下列有关计算机性能的描述中，不正确的是c。
A、一般而言，主频越高，速度越快 B、内存容量越大，处理能力就越强
C、计算机的性能好不好，主要看主频是不是高
D、内存的存取周期也是计算机性能的一个指标
10、下列关于存储器读写速度的排列，正确的是b_。
A、RAM硬盘CACHE软盘 B、CACHERAM软盘硬盘
B、CACHERAM硬盘软盘 D、RAMCACHE硬盘软盘
11、在ASCII码表中，按照ASCII码值从小到大排列顺序是b。
A、数字、英文大写字母、英文小写字母 B、数字、英文小写字母、英文大写字母
C、英文大写字母、英文小写字母、数字 D、英文小写字母、英文大写字母、数字
12、硬盘的一个主要性能指标是容量，硬盘容量的计算公式为A。
A、磁道数×面数×扇区数×盘片数×512字节
B、磁道数×面数×扇区数×盘片数×128字节
C、磁道数×面数×扇区数×盘片数×80×512字节
D、磁道数×面数×扇区数×盘片数×15×128字节
13、在计算机中，既可作为输入设备又可作为输出设备的是b_。
A、显示器 B、磁盘驱动器 C、键盘 D、图形扫描仪
14、计算机病毒是一种c。 A、特殊的计算机部件 B、游戏软件 C、人为编制的特殊程序 D、能传染的生物病毒 15、DNS指的是d。 A、文件传输协议 B、用户数据报协议 C、简单邮件传输协议 D、域名服务协议
三、判断题（10分）
1、计算机性能指标中字长表示内存储器的容量。 （ ）
2、软盘处于写保护状态，是指软盘内的数据只能写入不能读出的状态。 （ ）
3、微机常常是在信息复制和信息交换时感染上计算机病毒。 （ ）
4、Windows XP是一个多用户多任务操作系统。 （ ）
5、所谓后台打印，即在打印文件的同时，计算机还可以处理其他任务。 （ ）
6、Word只用于文字处理，在文字中无法插入图形或表格。 （ ）
7、在Word文档中，只有“普通”、“页面”、“大纲”三种显示模式。 （ ）
8、利用编辑菜单中的复制，粘贴选项不能实现整张幻灯片的复制。 （ ）
9、PowerPoint的标尺功能包括显示幻灯片尺寸和显示缩进刻度线标记。 （ ）
10、在Excel中，函数包括函数名和参数，没有参数的函数可以不加括号。 （ ）
四、计算题（10分）
1、（147）10=（ ）2=（ ）8=（ ）16
2、（10101.1011）2=（ ）10=（ ）8
五、简答题（20分）
1、计算机中存储器分哪两类，它们的特点是什么？
2、简述冯·诺依曼结构计算机的设计思想。
3、什么是Excel的相对引用和绝对引用？
4、什么是计算机网络？计算机网络的基本拓扑结构有哪几种？
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-08-20
给你个简短的=IF(OR(A1="",A1=0),"",TEXT(INT(A1),"[dbnum2]")&IF(INT(A1)=A1,"元整","元")&IF(INT(A1)<>A1,TEXT(--RIGHT(INT(A1*10)),"[=0]零;[>0][dbnum2]#角"),"")&TEXT(--RIGHT(INT(A1*100)),"[dbnum2]#分;;"))
第2个回答 2010-08-20
=SUBSTITUTE(TEXT(A1,"[DBNum2]G/通用格式"),".","点")
a1表示在EXECL表中"A1"栏里数据,如:123.45
a1表示在EXECL表中"A1"栏里数据,如:123.45
第3个回答 2010-08-20
在A5格输入数值，在B5格输入公式：
=IF(ROUND(A5,2)<0,"无效数值",IF(ROUND(A5,2)=0,"零",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))
或用另一种形式：
在C5格输入公式：
=TEXT(INT(A5),"[dbnum2]")&"元"&IF(INT(A5*10)-INT(A5)*10=0,"",TEXT(INT(A5*10)-INT(A5)*10,"[dbnum2]")&"角")&IF(INT(A5*100)-INT(A5*10)*10=0,"整",TEXT(INT(A5*100)-INT(A5*10)*10,"[dbnum2]")&"分")
===================================
不想要整。。角。。分。。元等
右键－－单元格属性－－特殊－－中文大写数字。。。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
=IF(ROUND(A5,2)<0,"无效数值",IF(ROUND(A5,2)=0,"零",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))
或用另一种形式：
在C5格输入公式：
=TEXT(INT(A5),"[dbnum2]")&"元"&IF(INT(A5*10)-INT(A5)*10=0,"",TEXT(INT(A5*10)-INT(A5)*10,"[dbnum2]")&"角")&IF(INT(A5*100)-INT(A5*10)*10=0,"整",TEXT(INT(A5*100)-INT(A5*10)*10,"[dbnum2]")&"分")
===================================
不想要整。。角。。分。。元等
右键－－单元格属性－－特殊－－中文大写数字。。。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
第4个回答 2010-08-20
用宏自定义公式吧
Function DaXie(txtJE As Double) As String
On Error GoTo Error
Dim i As Long '循环变量
Dim k As Long '记录整数位循环位置
Dim NC As String '输入金额 '
Dim chrNum As String '保存从字串中取出的数字
Dim c1 As String '中文大写单位
Dim c2 As String '中文角分
Dim c3 As String '中文大写数字
Dim Zheng As String '整数部分
Dim Xiao As String '小数部分
NC = Trim(Format(txtJE, "##0.00"))
c1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"
c2 = "角分"
c3 = "玖捌柒陆伍肆叁贰壹"
If NC = 0 Then
DaXie = "零元整"
Exit Function
End If
DaXie = ""
Zheng = Mid(NC, 1, (Len(NC) - 3))
Xiao = Mid(NC, (Len(Zheng) + 2), 2)
If Val(Xiao) <> 0 Then
For i = Len(Xiao) To 1 Step -1
chrNum = Mid(Xiao, i, 1)
If chrNum <> 0 Then
DaXie = Mid(c2, i, 1) & DaXie
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
Else
If i = 1 Then
DaXie = "零" & DaXie
End If
End If
Next i
End If
k = 0
If Val(Zheng) <> 0 Then
DaXie = "元" & DaXie
For i = Len(Zheng) To 1 Step -1
If (Len(Zheng) - i) = 4 Then
If Val(Mid(Zheng, Len(Zheng) - 4, 1)) = 0 And _
Mid(DaXie, 1, 1) <> "零" And _
Mid(DaXie, 1, 1) <> "元" Then
DaXie = "零" & DaXie
End If
If Len(Zheng) >= 9 Then
If Val(Mid(Zheng, Len(Zheng) - 7, 4)) = 0 Then
DaXie = DaXie
Else
DaXie = "万" & DaXie
End If
Else
DaXie = "万" & DaXie
End If
ElseIf (Len(Zheng) - i) = 8 Then
If Val(Mid(Zheng, Len(Zheng) - 8, 1)) = 0 And _
Mid(DaXie, 1, 1) <> "零" And _
Mid(DaXie, 1, 1) <> "元" Then
DaXie = "零" & DaXie
End If
DaXie = "亿" & DaXie
ElseIf (Len(Zheng) - i) = 12 Then
If Val(Mid(Zheng, Len(Zheng) - 12, 1)) = 0 And _
Mid(DaXie, 1, 1) <> "零" And _
Mid(DaXie, 1, 1) <> "元" Then
DaXie = "零" & DaXie
End If
DaXie = "万" & DaXie
End If
chrNum = Mid(Zheng, i, 1)
If chrNum <> 0 Then
If i = Len(Zheng) Then
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
Else
If (Len(Zheng) - i) <> 4 And _
(Len(Zheng) - i) <> 8 And _
(Len(Zheng) - i) <> 12 Then
DaXie = Mid(c1, (Len(c1) - k), 1) & DaXie
End If
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
End If
Else
If Mid(DaXie, 1, 1) <> "元" And _
Mid(DaXie, 1, 1) <> "万" And _
Mid(DaXie, 1, 1) <> "亿" Then
If Mid(DaXie, 1, 1) <> "零" Then
DaXie = "零" & DaXie
End If
End If
End If
k = k + 1
Next i
End If
If Right(Trim(DaXie), 1) <> "分" Then
DaXie = DaXie & "整"
End If
Exit Function
Error:
MsgBox "你输入的数字太长或者格式错误.", , "提示:"
End Function
Function DaXie(txtJE As Double) As String
On Error GoTo Error
Dim i As Long '循环变量
Dim k As Long '记录整数位循环位置
Dim NC As String '输入金额 '
Dim chrNum As String '保存从字串中取出的数字
Dim c1 As String '中文大写单位
Dim c2 As String '中文角分
Dim c3 As String '中文大写数字
Dim Zheng As String '整数部分
Dim Xiao As String '小数部分
NC = Trim(Format(txtJE, "##0.00"))
c1 = "仟佰拾万仟佰拾亿仟佰拾万仟佰拾元"
c2 = "角分"
c3 = "玖捌柒陆伍肆叁贰壹"
If NC = 0 Then
DaXie = "零元整"
Exit Function
End If
DaXie = ""
Zheng = Mid(NC, 1, (Len(NC) - 3))
Xiao = Mid(NC, (Len(Zheng) + 2), 2)
If Val(Xiao) <> 0 Then
For i = Len(Xiao) To 1 Step -1
chrNum = Mid(Xiao, i, 1)
If chrNum <> 0 Then
DaXie = Mid(c2, i, 1) & DaXie
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
Else
If i = 1 Then
DaXie = "零" & DaXie
End If
End If
Next i
End If
k = 0
If Val(Zheng) <> 0 Then
DaXie = "元" & DaXie
For i = Len(Zheng) To 1 Step -1
If (Len(Zheng) - i) = 4 Then
If Val(Mid(Zheng, Len(Zheng) - 4, 1)) = 0 And _
Mid(DaXie, 1, 1) <> "零" And _
Mid(DaXie, 1, 1) <> "元" Then
DaXie = "零" & DaXie
End If
If Len(Zheng) >= 9 Then
If Val(Mid(Zheng, Len(Zheng) - 7, 4)) = 0 Then
DaXie = DaXie
Else
DaXie = "万" & DaXie
End If
Else
DaXie = "万" & DaXie
End If
ElseIf (Len(Zheng) - i) = 8 Then
If Val(Mid(Zheng, Len(Zheng) - 8, 1)) = 0 And _
Mid(DaXie, 1, 1) <> "零" And _
Mid(DaXie, 1, 1) <> "元" Then
DaXie = "零" & DaXie
End If
DaXie = "亿" & DaXie
ElseIf (Len(Zheng) - i) = 12 Then
If Val(Mid(Zheng, Len(Zheng) - 12, 1)) = 0 And _
Mid(DaXie, 1, 1) <> "零" And _
Mid(DaXie, 1, 1) <> "元" Then
DaXie = "零" & DaXie
End If
DaXie = "万" & DaXie
End If
chrNum = Mid(Zheng, i, 1)
If chrNum <> 0 Then
If i = Len(Zheng) Then
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
Else
If (Len(Zheng) - i) <> 4 And _
(Len(Zheng) - i) <> 8 And _
(Len(Zheng) - i) <> 12 Then
DaXie = Mid(c1, (Len(c1) - k), 1) & DaXie
End If
DaXie = Mid(c3, (Len(c3) - chrNum + 1), 1) & DaXie
End If
Else
If Mid(DaXie, 1, 1) <> "元" And _
Mid(DaXie, 1, 1) <> "万" And _
Mid(DaXie, 1, 1) <> "亿" Then
If Mid(DaXie, 1, 1) <> "零" Then
DaXie = "零" & DaXie
End If
End If
End If
k = k + 1
Next i
End If
If Right(Trim(DaXie), 1) <> "分" Then
DaXie = DaXie & "整"
End If
Exit Function
Error:
MsgBox "你输入的数字太长或者格式错误.", , "提示:"
End Function
