把“文本框输入的内容”全部变成“********”，然后存入数据库，如何做到

设置文本框的 PasswordChar属性为 (其实可以是任意单个字符的)

读取时同普通的文本框没区别 也是 text1text

晕 就算写入数据库 也是以明文的方式写入的 至于在数据库中是否显示星号 那则是你在数据库中设置对应字段的显示方式问题

而且 我觉得你应该用下MD5等加密算法

Attribute VB_Name = "modMD5"

'==================================

'16&32位MD5加密函数模块

'==================================

'============使用示例==============

'Private Sub Command1_Click()

'Text2 = md5(Text1, 16) '< 16或者32

'3d82582d361d5568

'End Sub

'==========^^使用示例^^============

Private Const BITS_TO_A_BYTE = 8

Private Const BYTES_TO_A_WORD = 4

Private Const BITS_TO_A_WORD = 32

Private m_lOnBits(30)

Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)

If iShiftBits = 0 Then

LShift = lValue

Exit Function

ElseIf iShiftBits = 31 Then

If lValue And 1 Then

LShift = &H80000000

Else

LShift = 0

End If

Exit Function

ElseIf iShiftBits < 0 Or iShiftBits > 31 Then

ErrRaise 6

End If

If (lValue And m_l2Power(31 - iShiftBits)) Then

LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) m_l2Power(iShiftBits)) Or &H80000000

Else

LShift = ((lValue And m_lOnBits(31 - iShiftBits)) m_l2Power(iShiftBits))

End If

End Function

Private Function RShift(lValue, iShiftBits)

If iShiftBits = 0 Then

RShift = lValue

Exit Function

ElseIf iShiftBits = 31 Then

If lValue And &H80000000 Then

RShift = 1

Else

RShift = 0

End If

Exit Function

ElseIf iShiftBits < 0 Or iShiftBits > 31 Then

ErrRaise 6

End If

RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

If (lValue And &H80000000) Then

RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))

End If

End Function

Private Function RotateLeft(lValue, iShiftBits)

RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))

End Function

Private Function AddUnsigned(lX, lY)

Dim lX4

Dim lY4

Dim lX8

Dim lY8

Dim lResult

lX8 = lX And &H80000000

lY8 = lY And &H80000000

lX4 = lX And &H40000000

lY4 = lY And &H40000000

lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)

If lX4 And lY4 Then

lResult = lResult Xor &H80000000 Xor lX8 Xor lY8

ElseIf lX4 Or lY4 Then

If lResult And &H40000000 Then

lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8

Else

lResult = lResult Xor &H40000000 Xor lX8 Xor lY8

End If

Else

lResult = lResult Xor lX8 Xor lY8

End If

AddUnsigned = lResult

End Function

Private Function md5_F(x, y, z)

md5_F = (x And y) Or ((Not x) And z)

End Function

Private Function md5_G(x, y, z)

md5_G = (x And z) Or (y And (Not z))

End Function

Private Function md5_H(x, y, z)

md5_H = (x Xor y Xor z)

End Function

Private Function md5_I(x, y, z)

md5_I = (y Xor (x Or (Not z)))

End Function

Private Sub md5_FF(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Sub md5_GG(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Sub md5_HH(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Sub md5_II(a, b, c, d, x, s, ac)

a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))

a = RotateLeft(a, s)

a = AddUnsigned(a, b)

End Sub

Private Function ConvertToWordArray(sMessage)

Dim lMessageLength

Dim lNumberOfWords

Dim lWordArray()

Dim lBytePosition

Dim lByteCount

Dim lWordCount

Const MODULUS_BITS = 512

Const CONGRUENT_BITS = 448

lMessageLength = Len(sMessage)

lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) (MODULUS_BITS \ BITS_TO_A_WORD)

ReDim lWordArray(lNumberOfWords - 1)

lBytePosition = 0

lByteCount = 0

Do Until lByteCount >= lMessageLength

lWordCount = lByteCount \ BYTES_TO_A_WORD

lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) BITS_TO_A_BYTE

lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)

lByteCount = lByteCount + 1

Loop

lWordCount = lByteCount \ BYTES_TO_A_WORD

lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) BITS_TO_A_BYTE

lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)

lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)

lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)

ConvertToWordArray = lWordArray

End Function

Private Function WordToHex(lValue)

Dim lByte

Dim lCount

For lCount = 0 To 3

lByte = RShift(lValue, lCount BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)

WordToHex = WordToHex & Right("0" & Hex(lByte), 2)

Next

End Function

Public Function md5(sMessage As String, stype As Integer) As String

m_lOnBits(0) = CLng(1)

m_lOnBits(1) = CLng(3)

m_lOnBits(2) = CLng(7)

m_lOnBits(3) = CLng(15)

m_lOnBits(4) = CLng(31)

m_lOnBits(5) = CLng(63)

m_lOnBits(6) = CLng(127)

m_lOnBits(7) = CLng(255)

m_lOnBits(8) = CLng(511)

m_lOnBits(9) = CLng(1023)

m_lOnBits(10) = CLng(2047)

m_lOnBits(11) = CLng(4095)

m_lOnBits(12) = CLng(8191)

m_lOnBits(13) = CLng(16383)

m_lOnBits(14) = CLng(32767)

m_lOnBits(15) = CLng(65535)

m_lOnBits(16) = CLng(131071)

m_lOnBits(17) = CLng(262143)

m_lOnBits(18) = CLng(524287)

m_lOnBits(19) = CLng(1048575)

m_lOnBits(20) = CLng(2097151)

m_lOnBits(21) = CLng(4194303)

m_lOnBits(22) = CLng(8388607)

m_lOnBits(23) = CLng(16777215)

m_lOnBits(24) = CLng(33554431)

m_lOnBits(25) = CLng(67108863)

m_lOnBits(26) = CLng(134217727)

m_lOnBits(27) = CLng(268435455)

m_lOnBits(28) = CLng(536870911)

m_lOnBits(29) = CLng(1073741823)

m_lOnBits(30) = CLng(2147483647)

m_l2Power(0) = CLng(1)

m_l2Power(1) = CLng(2)

m_l2Power(2) = CLng(4)

m_l2Power(3) = CLng(8)

m_l2Power(4) = CLng(16)

m_l2Power(5) = CLng(32)

m_l2Power(6) = CLng(64)

m_l2Power(7) = CLng(128)

m_l2Power(8) = CLng(256)

m_l2Power(9) = CLng(512)

m_l2Power(10) = CLng(1024)

m_l2Power(11) = CLng(2048)

m_l2Power(12) = CLng(4096)

m_l2Power(13) = CLng(8192)

m_l2Power(14) = CLng(16384)

m_l2Power(15) = CLng(32768)

m_l2Power(16) = CLng(65536)

m_l2Power(17) = CLng(131072)

m_l2Power(18) = CLng(262144)

m_l2Power(19) = CLng(524288)

m_l2Power(20) = CLng(1048576)

m_l2Power(21) = CLng(2097152)

m_l2Power(22) = CLng(4194304)

m_l2Power(23) = CLng(8388608)

m_l2Power(24) = CLng(16777216)

m_l2Power(25) = CLng(33554432)

m_l2Power(26) = CLng(67108864)

m_l2Power(27) = CLng(134217728)

m_l2Power(28) = CLng(268435456)

m_l2Power(29) = CLng(536870912)

m_l2Power(30) = CLng(1073741824)

Dim x

Dim k

Dim AA

Dim BB

Dim CC

Dim DD

Dim a

Dim b

Dim c

Dim d

Const S11 = 7

Const S12 = 12

Const S13 = 17

Const S14 = 22

Const S21 = 5

Const S22 = 9

Const S23 = 14

Const S24 = 20

Const S31 = 4

Const S32 = 11

Const S33 = 16

Const S34 = 23

Const S41 = 6

Const S42 = 10

Const S43 = 15

Const S44 = 21

x = ConvertToWordArray(sMessage)

a = &H67452301

b = &HEFCDAB89

c = &H98BADCFE

d = &H10325476

For k = 0 To UBound(x) Step 16

AA = a

BB = b

CC = c

DD = d

md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478

md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756

md5_FF c, d, a, b, x(k + 2), S13, &H242070DB

md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE

md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF

md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A

md5_FF c, d, a, b, x(k + 6), S13, &HA8304613

md5_FF b, c, d, a, x(k + 7), S14, &HFD469501

md5_FF a, b, c, d, x(k + 8), S11, &H698098D8

md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF

md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1

md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE

md5_FF a, b, c, d, x(k + 12), S11, &H6B901122

md5_FF d, a, b, c, x(k + 13), S12, &HFD987193

md5_FF c, d, a, b, x(k + 14), S13, &HA679438E

md5_FF b, c, d, a, x(k + 15), S14, &H49B40821

md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562

md5_GG d, a, b, c, x(k + 6), S22, &HC040B340

md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51

md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA

md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D

md5_GG d, a, b, c, x(k + 10), S22, &H2441453

md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681

md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8

md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6

md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6

md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87

md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED

md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905

md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8

md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9

md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A

md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942

md5_HH d, a, b, c, x(k + 8), S32, &H8771F681

md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122

md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C

md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44

md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9

md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60

md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70

md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6

md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA

md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085

md5_HH b, c, d, a, x(k + 6), S34, &H4881D05

md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039

md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5

md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8

md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665

md5_II a, b, c, d, x(k + 0), S41, &HF4292244

md5_II d, a, b, c, x(k + 7), S42, &H432AFF97

md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7

md5_II b, c, d, a, x(k + 5), S44, &HFC93A039

md5_II a, b, c, d, x(k + 12), S41, &H655B59C3

md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92

md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D

md5_II b, c, d, a, x(k + 1), S44, &H85845DD1

md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F

md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0

md5_II c, d, a, b, x(k + 6), S43, &HA3014314

md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1

md5_II a, b, c, d, x(k + 4), S41, &HF7537E82

md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235

md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB

md5_II b, c, d, a, x(k + 9), S44, &HEB86D391

a = AddUnsigned(a, AA)

b = AddUnsigned(b, BB)

c = AddUnsigned(c, CC)

d = AddUnsigned(d, DD)

Next

If stype = 32 Then

md5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))

Else

md5 = LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D

End If

End Function

ASM数据恢复ORA-15196 invalid ASM block header [kfcc] [check_kfbh]错误解析

ORA-15196: invalid ASM block header [kfcc] [check_kfbh] [325] [2147483650] [2170461157 != 2170461165]

是当ASM读取到无效的asm block header时的报错，相关的BUG NOTE如下：

check_kfbh的存在时为了检验块的一致性 ，会对整个块做一个32 bit xor 来对比现有check_kfbh，有点象block的checksum

The field check_kfbh is adjusted to ensure that a 32 bit xor of the whole block will be zero Check values are always calculated before writing a

block to disk, but may not be accurate for a block in the buffer cache In this example the check value is “8A 8B D0 AE” but since this is little

endian the actual value is “0xAED08B8A

对于该问题 建议：

1、首先要检查 OS是否存在IO丢失的问题，例如 AIX上执行 errpt ，Linux查看os log 和dmesg

2、 检查RAC的多个节点上存储设备名是否一致

3、 考虑执行 ' alter diskgroup check norepair'来检查ASM diskgroup

4、112中如果遇到上述情况会自动使用amdu工具dump ASM disk其trace一般在ASM对应的user dump下 ，如NOTE: AMDU dump of disk group MAC created at /oracle/diag/asm/+asm/+ASM3/trace， 整个AMDU trace里包含了很有用的信息，如果存在大量的AMDU-00209: Corrupt block found: Disk N0072 AU [26127] block [94] type [0]信息，和看到 Corrupt metadata blocks: 320 大量损坏的元数据块， 则说明该问题一般是由于 OS层或者磁盘/存储硬件层引起的，因为不太可能有ASM的bug 会造成这么大量的损坏， 解释成丢失更新 Lost Update也不合理

5、实际上如果你和我一样检阅过上面全部的BUG Note，你会发现没有个BUG note是最终定位为real bug的，这些SR/Bug Note最终要么不了了之，要么查出来确实是OS或者硬盘/存储有问题；所以对于这个问题提交SR的效率很低， 往往找OS和存储厂商一起检查更有效率

6、如果你真的遇到了该问题，那么如果坏掉的元数据块(metadata block)比较少的话，可以请相关的ASM专家手工帮你修复，具体也可以找ASKMACLEAN专业ORACLE 数据库修复团队成员帮您恢复。切记不要在无备份ASM header的情况下 *** 作，否则可能丢失恢复数据的最后一线希望。

A

Active-matrix主动距陈

Adapter cards适配卡

Advanced application高级应用

Analytical graph分析图表

Analyze分析

Animations动画

Application software 应用软件

Arithmetic operations算术运算

Audio-output device音频输出设备

Access time存取时间

access存取

accuracy准确性

ad network cookies广告网络信息记录软件

Add-ons 插件

Address地址

Agents代理

Analog signals模拟信号

Applets程序

Asynchronous communications port异步通信端口

Attachment附件

B

Bar code条形码

Bar code reader条形码读卡器

Basic application基础程序

Binary coding schemes二进制译码方案

Binary system二进制系统

Bit比特

Browser浏览器

Bus line总线

Backup tape cartridge units备份磁带盒单元

Bandwidth带宽

Bluetooth蓝牙

Broadband宽带

Browser浏览器

Business-to-business企业对企业电子商务

Business-to-consumer企业对消费者

Bus总线

C

Cables连线

Cell单元箱

Chain printer链式打印机

Character and recognition device字符标识识别设备

Chart图表

Chassis支架

Chip芯片

Clarity清晰度

Closed architecture封闭式体系结构

Column列

Combination key结合键

computer competency计算机能力

connectivity连接，结点

Continuous-speech recognition system连续语言识别系统

Control unit *** 纵单元

Cordless or wireless mouse无线鼠标

Cable modems有线调制解调器

carpal tunnel syndrome腕骨神经综合症

CD-ROM可记录光盘

CD-RW可重写光盘

CD-R可记录压缩光盘

Channel信道

Chat group谈话群组

chlorofluorocarbons(CFCs) ]氯氟甲烷

Client客户端

Coaxial cable同轴电缆

cold site冷战

Commerce servers商业服务器

Communication channel信道

Communication systems信息系统

Compact disc rewritable

Compact disc光盘

computer abuse amendments act of 19941994计算机滥用法案

computer crime计算机犯罪

computer ethics计算机道德

computer fraud and abuse act of 1986计算机欺诈和滥用法案

computer matching and privacy protection act of 1988计算机查找和隐私保护法案

Computer network计算机网络

computer support specialist计算机支持专家

computer technician计算机技术人员

computer trainer计算机教师

Connection device连接设备

Connectivity连接

Consumer-to-consumer个人对个人

cookies-cutter programs信息记录截取程序

cookies信息记录程序

cracker解密高手

cumulative trauma disorder积累性损伤错乱

Cybercash电子现金

Cyberspace计算机空间

cynic愤世嫉俗者

D

Database数据库

database files数据库文件

Database manager数据库管理

Data bus数据总线

Data projector数码放映机

Desktop system unit台式电脑系统单元

Destination file目标文件

Digital cameras数码照相机

Digital notebooks数字笔记本

Digital bideo camera数码摄影机

Discrete-speech recognition system不连续语言识别系统

Document文档

document files文档文件

Dot-matrix printer点矩阵式打印机

Dual-scan monitor双向扫描显示器

Dumb terminal非智能终端

data security数据安全

Data transmission specifications数据传输说明

database administrator数据库管理员

Dataplay数字播放器

Demodulation解调

denial of service attack拒绝服务攻击

Dial-up service拨号服务

Digital cash数字现金

Digital signals数字信号

Digital subscriber line数字用户线路

Digital versatile disc数字化通用磁盘

Digital video disc数字化视频光盘

Direct access直接存取

Directory search目录搜索

disaster recovery plan灾难恢复计划

Disk caching磁盘驱动器高速缓存

Diskette磁盘

Disk磁碟

Distributed data processing system分部数据处理系统

Distributed processing分布处理

Domain code域代码

Downloading下载

DVD 数字化通用磁盘

DVD-R 可写DVD

DVD-RAM DVD随机存取器

DVD-ROM 只读DVD

E

e-book电子阅读器

Expansion cards扩展卡

end user终端用户

e-cash电子现金

e-commerce电子商务

electronic cash电子现金

electronic commerce电子商务

electronic communications privacy act of1986电子通信隐私法案

encrypting加密术

energy star能源之星

Enterprise computing企业计算化

environment环境

Erasable optical disks可擦除式光盘

ergonomics人类工程学

ethics道德规范

External modem外置调制解调器

extranet企业外部网

F

Fax machine传真机

Field域

Find搜索

FireWire port port火线端口

Firmware固件

Flash RAM闪存

Flatbed scanner台式扫描器

Flat-panel monitor纯平显示器

floppy disk软盘

Formatting toolbar格式化工具条

Formula公式

Function函数

fair credit reporting act of 1970公平信用报告法案

Fiber-optic cable光纤电缆

File compression文件压缩

File decompression文件解压缩

filter过滤

firewall防火墙

firewall防火墙

Fixed disk固定硬盘

Flash memory闪存

Flexible disk可折叠磁盘

Floppies磁盘

Floppy disk软盘

Floppy-disk cartridge磁盘盒

Formatting格式化

freedom of information act of 1970信息自由法案

frequency频率

frustrated受挫折

Full-duplex communication全双通通信

G

General-purpose application通用运用程序

Gigahertz千兆赫

Graphic tablet绘图板

green pc绿色个人计算机

H

handheld computer手提电脑

Hard copy硬拷贝

hard disk硬盘

hardware硬件

Help帮助

Host computer主机

Home page主页

Hyperlink超链接

hacker黑客

Half-duplex communication半双通通信

Hard disk硬盘

Hard-disk cartridge硬盘盒

Hard-disk pack硬盘组

Head crash磁头碰撞

header标题

help desk specialist帮助办公专家

helper applications帮助软件

Hierarchical network层次型网络

history file历史文件

hits匹配记录

horizontal portal横向用户

hot site热战

Hybrid network混合网络

hyperlinks超连接

I

Image capturing device图像获取设备

information technology信息技术

Ink-jet printer墨水喷射印刷机

Integrated package综合性组件

Intelligent terminal智能终端设备

Intergrated circuit集成电路

Interface cards接口卡

Internal modem内部调制解调器

internet telephony网络电话

internet terminal互联网终端

Identification识别

i-drive网络硬盘驱动器

illusion of anonymity匿名幻想

index search索引搜索

information pushers信息推送器

initializing 初始化

instant messaging计时信息

internal hard disk内置硬盘

Internal modem内部调制解调器

Internet hard drive 网络硬盘驱动器

intranet企业内部网

J

joystick *** 纵杆

K

keyword search关键字搜索

L

laser printer激光打印机

Layout files版式文件

Light pen光笔

Locate定位

Logical operations逻辑运算

Lands凸面

Line of sight communication视影通信

Low bandwidth低带宽

lurking潜伏

M

Main board主板

Mark sensing标志检测

Mechanical mouse机械鼠标

Memory内存

Menu菜单

Menu bar菜单条

Microprocessor微处理器

Microseconds微秒

Modem card调制解调器

Monitor显示器

Motherboard主板

Mouse 鼠标

Multifunctional device多功能设备

Magnetic tape reels磁带卷

Magnetic tape streamers磁带条

mailing list邮件列表

Medium band媒质带宽

metasearch engine整合搜索引擎

Microwave微波

Modem解调器

Modulation解调

N

Net PC网络计算机

Network adapter card网卡

Network personal computer网络个人电脑

Network terminal 网络终端

Notebook computer笔记本电脑

Notebook system unit笔记本系统单元

Numeric entry数字输入

national information infrastructure protection act of1996国际信息保护法案

national service provider全国性服务供应商

Network architecture网络体系结构

Network bridge网桥

Network gateway网关

network manager网络管理员

newsgroup新闻组

no electronic theft act of1997无电子盗窃法

Node节点

Nonvolatile storage非易失性存储

O

Object embedding对象嵌入

Object linking目标链接

Open architecture开放式体系结构

Optical disk光盘

Optical mouse光电鼠标

Optical scanner光电扫描仪

Outline大纲

off-line browsers离线浏览器

Online storage联机存储

P

palmtop computer掌上电脑

Parallel ports并行端口

Passive-matrix被动矩阵

PC card个人计算机卡

Personal laser printer个人激光打印机

Personal video recorder card个人视频记录卡

Photo printer照片打印机

Pixel像素

Platform scanner平版式扫描仪

Plotter绘图仪

Plug and play即插即用

Plug-in boards插件卡

Pointer指示器

Pointing stick指示棍

Port端口

Portable scanner便携式扫描仪

Presentation files演示文稿

Presentation graphics电子文稿程序

Primary storage主存

Procedures规程

Processor处理机

Programming control lanugage程序控制语言

Packets数据包

Parallel data transmission平行数据传输

Peer-to-peer network system得等网络系统

person-person auction site个人对个人拍卖站点

physical security物理安全

Pits凹面

plug-in插件程序

Polling轮询

privacy隐私权

proactive主动地

programmer程序员

Protocols协议

provider供应商

proxy server代理服务

pull products推取程序

push products推送程序

R

RAM cache随机高速缓冲器

Range范围

Record记录

Relational database关系数据库

Replace替换

Resolution分辨率

Row行

Read-only只读

Reformatting重组

regional service provider区域性服务供应商

repetitive motion injury反复性动作损伤

reverse directory反向目录

right to financial privacy act of 1979财产隐私法案

Ring network环形网

S

Scanner扫描器

Search查找

Secondary storage device助存储设备

Semiconductor半导体

Serial ports串行端口

Server服务器

Shared laser printer共享激光打印机

Sheet表格

Silicon chip硅片

Slots插槽

Smart card智能卡

Soft copy软拷贝

Software suite软件协议

Sorting排序分类

Source file源文件

Special-purpose application专用文件

Spreadsheet电子数据表

Standard toolbar标准工具栏

Supercomputer巨型机

System cabine 系统箱

System clock时钟

System software系统软件

Satellite/air connection services卫星无线连接服务

search engines搜索引擎

search providers搜索供应者

search services 搜索服务器

Sectors扇区

security安全

Sending and receiving devices发送接收设备

Sequential access顺序存取

Serial data transmission单向通信

signature line签名档

snoopware监控软件

software copyright act of1980软件版权法案

software piracy软件盗版

Solid-state storage固态存储器

specialized search engine专用搜索引擎

spiders网页爬虫

spike尖峰电压

Star network星型网

Strategy方案

subject主题

subscription address预定地址

Superdisk超级磁盘

surfing网上冲浪

surge protector浪涌保护器

systems analyst系统分析师

T

Table二维表

Telephony电话学

Television boards电视扩展卡

Terminal 终端

Template模板

Text entry文本输入

Thermal printer 热印刷

Thin client瘦客

Toggle key触发键

Toolbar工具栏

Touch screen触摸屏

Trackball追踪球

TV tuner card电视调谐卡

Two-state system双状态系统

technical writer技术协作者

technostress重压技术

telnet远程登录

Time-sharing system分时系统

Topology拓扑结构

Tracks磁道

traditional cookies传统的信息记录程序

Twisted pair双绞

U

Unicode统一字符标准

uploading上传

usenet世界性新闻组网络

V

Virtual memory虚拟内存

Video display screen视频显示屏

Voice recognition system声音识别系统

vertical portal纵向门户

video privacy protection act of 1988视频隐私权保护法案

virus checker病毒检测程序

virus病毒

Voiceband音频带宽

Volatile storage易失性存储

voltage surge

W

Wand reader 条形码读入

Web 网络

Web appliance 环球网设备

Web page网页

Web site address网络地址

Web terminal环球网终端

Webcam摄像头

What-if analysis假定分析

Wireless revolution无线革命

Word字长

Word processing文字处理

Word wrap自动换行

Worksheet file 工文件

web auctions网上拍卖

web broadcasters网络广播

web portals门户网站

web sites网站

web storefront creation packages网上商店创建包

web storefronts网上商店

web utilities网上应用程序

web-downloading utilities网页下载应用程序

webmaster web站点管理员

web万维网

Wireless modems无线调制解调器

wireless service provider无线服务供应商

world wide web万维网

worm蠕虫病毒

Write-protect notch写保护口

其他缩写

DVD digital bersatile 数字化通用光盘

IT information technology信息技术

CD compact disc 压缩盘

PDA personal digital assistant个人数字助理

RAM random access memory随机存储器

>

第十三届全国青少年信息学奥林匹克联赛初赛试题

（ 普及组 Pascal 语言 二小时完成）

● ● 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 ●●

一、 单项选择题（共20题，每题15分，共计30分。每题有且仅有一个正确答案。）

1． 在以下各项中，（ ）不是CPU的组成部分。

A．控制器 B．运算器 C．寄存器 D．主板

2．在关系数据库中，存放在数据库中的数据的逻辑结构以（ ）为主。

A．二叉树 B．多叉树 C．哈希表 D．二维表

3．在下列各项中，只有（ ）不是计算机存储容量的常用单位。

A．Byte B．KB C．UB D．TB

4．ASCII码的含义是（ ）。

A．二→十进制转换码 B．美国信息交换标准代码

C．数字的二进制编码 D．计算机可处理字符的唯一编码

5．一个完整的计算机系统应包括（ ）。

A．系统硬件和系统软件 B．硬件系统和软件系统

C．主机和外部设备 D．主机、键盘、显示器和辅助存储器

6．IT的含义是（ ）。

A．通信技术 B．信息技术 C．网络技术 D．信息学

7．LAN的含义是（ ）。

A．因特网 B．局域网 C．广域网 D．城域网

8．冗余数据是指可以由其它数据导出的数据。例如，数据库中已存放了学生的数学、语文和英语的三科成绩，如果还存放三科成绩的总分，则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如，上面4个数据如果都是输入的，由于 *** 作错误使总分不等于三科成绩之和，就会产生矛盾。下面关于冗余数据的说法中，正确的是（ ）。

A．应该在数据库中消除一切冗余数据

B．用高级语言编写的数据处理系统，通常比用关系数据库编写的系统更容易消除冗余数据

C．为了提高查询效率，在数据库中可以保留一些冗余数据，但更新时要做相容性检验

D．做相容性检验会降低效率，可以不理睬数据库中的冗余数据

9．在下列各软件，不属于NOIP竞赛（复赛）推荐使用的语言环境有（ ）。

A．gcc B．g++ C．Turbo C D．Free Pascal

10．以下断电后仍能保存数据的有（ ）。

A．硬盘 B．高速缓存 C．显存 D．RAM

11．在下列关于计算机语言的说法中，正确的有（ ）。

A．高级语言比汇编语言更高级，是因为它的程序的运行效率更高

B．随着Pascal、C等高级语言的出现，机器语言和汇编语言已经退出了历史舞台

C．高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上

D．C是一种面向对象的高级计算机语言

12．近20年来，许多计算机专家都大力推崇递归算法，认为它是解决较复杂问题的强有力的工具。在下列关于递归算法的说法中，正确的是（ ）。

A．在1977年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归，原因之一是该方法可能会占用更多的内存空间

B．和非递归算法相比，解决同一个问题，递归算法一般运行得更快一些

C．对于较复杂的问题，用递归方式编程一般比非递归方式更难一些

D．对于已经定义好的标准数学函数 sin(x)，应用程序中的语句“y=sin(sin(x));”就是一种递归调用

13．一个无法靠自身的控制终止的循环成为“死循环”，例如，在C语言程序中，语句“while(1) printf(“”);”就是一个死循环，运行时它将无休止地打印号。下面关于死循环的说法中，只有（ ）是正确的。

A．不存在一种算法，对任何一个程序及相应的输入数据，都可以判断是否会出现死循环，因而，任何编译系统都不做死循环检查

B．有些编译系统可以检测出死循环

C．死循环属于语法错误，既然编译系统能检查各种语法错误，当然也应该能检查出死循环

D．死循环与多进程中出现的“死锁”差不多，而死锁是可以检测的，因而，死循环也可以检测的

14．在Pascal语言中，表达式 （23 or 2 xor 5）的值是（ ）。

A．18 B．1 C．23 D．32

15．在Pascal语言中，判断整数a等于0或b等于0或c等于0的正确的条件表达式是（ ）。

A．not ((a<>0) or (b<>0) or (c<>0))

B．not ((a<>0) and (b<>0) and (c<>0))

C．not ((a=0) and (b=0)) or (c<>0)

D．(a=0) and (b=0) and (c=0)

16．地面上有标号为A、B、C的三根柱，在A柱上放有10个直径相同中间有孔的圆盘，从上到下依次编号为1，2，3……，将A柱上的部分盘子经过B柱移入C柱，也可以在B柱上暂存。如果B柱上的 *** 作记录为“进、进、出、进、进、出、出、进、进、出、进、出、出”。那么，在C柱上，从下到上的编号为（ ）。

A．2 4 3 6 5 7 B．2 4 1 2 5 7 C．2 4 3 1 7 6 D．2 4 3 6 7 5

17．与十进制数1770对应的八进制数是（ ）。

A．3350 B．3351 C．3352 D．3540

18．设A=B=True，C=D=False，一下逻辑运算表达式值为假的有（ ）。

A．(「A∧B)∨(C∧D∨A) B．「(((A∧B)∨C)∧D)

C．A∧(B∨C∨D)∨D D．(A∧(D∨C))∧B

19．(2070)16 + (34)8 的结果是（ ）。

A．（8332）10 B．（208A）16 C．（100000000110）2 D．(20212)8

20．已知7个节点的二叉树的先根遍历是1 2 4 5 6 3 7（数字为节点的编号，以下同），中根遍历是4 2 6 5 1 7 3，则该二叉树的后根遍历是（ ）。

A．4 6 5 2 7 3 1 B．4 6 5 2 1 3 7 C．4 2 3 1 5 4 7 D．4 6 5 3 1 7 2

二、问题求解（共2题，每题5分，共计10分）。

1、（子集划分）将n个数（1，2，…，n）划分成r个子集。每个数都恰好属于一个子集，任何两个不同的子集没有共同的数，也没有空集。将不同划分方法的总数记为S(n,r)。例如，S(4,2)=7，这7种不同的划分方法依次为{(1),(234)}，{(2),(134)}，{(3),(124)}，{(4),(123)}，{(12),(34)}，{(13),(24)}，{(14),(23)}。当n=6，r=3时，S(6,3)=______________。

（提示：先固定一个数，对于其余的5个数考虑S(5,3)与S(5,2)，再分这两种情况对原固定的数进行分析。）

2、（最短路线）某城市的街道是一个很规整的矩形网络（见下图），有7条南北向的纵街，5条东西向的横街。现要从西南角的A走到东北角的B，最短的走法共有多少种？___________

(图画不了)

三、阅读程序写结果（共4题，每题8分，共计32分。）

1、program j301;

var i,a,b,c,x,y:integer;

p:array[04] of integer;

begin

y:=20;

for i:=0 to 4 do read(p);

readln;

a:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;

b:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);

c:=p[0]p[1] div p[2];

x:=a+b-p[(p[3]+3) mod 4];

if (x>10)

then y:=y+(b100-a) div (p[p[4] mod 3]5)

else

y:=y+20+(b100-c) div (p[p[4] mod 3]5);

writeln(x,',',y);

end

{注：本例中，给定的输入数据可以避免分母为0或数组元素下表越界。}

输入：6 6 5 5 3 输出：______________________

2、program j302;

var a,b:integer;

var x,y:^integer;

procedure fun(a,b:integer);

var k:integer;

begin k:=a; a:=b; b:=k; end;

begin

a:=3; b:=6;

x:=@a; y:=@b;

fun(x^,y^);

writeln(a,',',b);

end

输出：_______________________________

3、program j303;

var a1:array[150] of integer;

var i,j,t,t2,n,n2:integer;

begin

n:=50;

for i:=1 to n do a1:=0;

n2:=round(sqrt(n));

for i:=2 to n2 do

if (a1=0) then

begin

t2:=n div i;

for j:=2 to t2 do a1[ij]:=1;

end;

t:=0;

for i:=2 to n do

if (a1=0) then

begin

write(i:4); inc(t);

if (t mod 10=0) then writeln;

end;

writeln;

end

输出：_____________________________________________

_____________________________________________

4、Program j304;

Type str1=string[100];

Str2=string[200];

Var

S1:str1; s2:str2;

Function isalpha(c:char):Boolean;

Var i:integer;

Begin

i:=ord(c);

if ((i>=65) and (i<=90)) or ((i>=97) and (i<=122)) then

isalpha:=true

else isalpha:=false;

end;

function isdigit(c:char):Boolean;

var i:integer;

begin

i:=ord(c); if (i>=48) and (i<=57) then isdigit:=true

else isdigit:=false;

end;

procedure expand(s1:str1;var s2:str2);

var i,j:integer; a,b,c:char;

begin

j:=1; c:=char(1); i:=0;

while (i<=ord(s1[0])) do

begin inc(i); c:=s1;

if c='-' then begin {1}

a:=s1[i-1]; b:=s1[i+1];

if (isalpha(a) and isalpha(b)) or (isdigit(a) and isdigit(b)) then begin

dec(j);

while (ord(upcase(a))<ord(upcase(s1[i+1]))) do

begin

s2[j]:=a; inc(j); inc(a); end;

end

else

begin s2[j]:=c; inc(j); end;

end{1}

else begin s2[j]:=c; inc(j); end; end; s2[0]:=char(j-2); end;

begin readln(s1); expand(s1,s2); writeln(s2);

end

输入：wer2345d-h454-82qqq 输出：__________________________

四、完善程序（前4空，每空25分，后6空，每空3分，共28分）。

1、（求字符的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1终止程序。

请将程序补充完整。

Program j401;

type str1=string[100];

var line:str1; kz:integer;

procedure reverse(var s:str1);

var I,j:integer; t:char;

begin

i:=1; j:=length(s);

while (i<j) do begin

t:=s; s:=s[j]; s[j]:=t;

; ;

end;

end;

begin

writeln(‘continue -1 for end’);

readln(kz);

while ( )do

begin

readln(line);

;

writeln(line);

writeln(‘continue -1 for end’);

readln(kz);

end;

end

2 2 3 3

2 -1 1 3

4 1 1 5

4 4 5 5

2、（棋盘覆盖问题）在一个2k×2 k个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4 k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的3各数字构成一个纸片。

下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。

(图画不了郁闷)

Program j402;

type arr1=array[165] of integer;

arr2=array[165] of arr1;

var board:arr2; tile:integer; size,dr,dc:integer;

procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer);

var t,s:integer;

begin

if (size=1) then ;

t:=tile; inc(tile);

s:=size div 2;

if then chessboard(tr,tc,dr,dc,s) else begin

board[tr+s-1]:=t;

end;

if (dr<tr+s) and (dc>=tc+s) then chessboard(tr,tc+s,dr,dc,s)

else begin board[tr+s-1][tc+s]:=t;

; end;

if (dr>=tr+s) and (dc<tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin

board[tr+s][tc+s]:=t;

; end;

if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s)

else begin board[tr+s][tc+s]:=t;

; end;

end;

procedure prt1(n:integer);

var I,j:integer;

begin

for I:=1 to n do begin

for j:=1 to n do write(board[j]:3);

writeln;

end;

end;

begin

writeln(‘input size(4/8/16/64):’);

readln(size); writeln(‘input the position of special block(x,y):’);

readln(dr,dc); board[dr][dc]:=-1;

tile:=1; chessboard(1,1,dr,dc,size); prt1(size);

end

NOIP2007年普及组（Pascal语言）参考答案与评分标准

一、单项选择题：（每题15分）

题号 1 2 3 4 5 6 7 8 9 10

答案 D D C B B B B C C A

题号 11 12 13 14 15 16 17 18 19 20

答案 C A A A B D C D A A

二、问题求解：（每题 5分）

1．90 2．210

三、阅读程序写结果

1 15, 46（对1个数给4分，无逗号扣1分）

2 3, 6

3 2 3 5 7 11 13 17 19 23 29

31 37 41 43 47

4 wer2345defgh45456782qqq

四、完善程序(前4空（①--④），每空25分，后6空（⑤--⑩），每空3分)

1．

① inc(i) 或i:=i+1

② dec(j) 或 j:=j-1

③ kz<>-1

④ reverse(line)

2

⑤ exit

⑥ (dr<tr+s)and(dc<tc+s)

⑦ chessboard(tr,tc,tr+s-1,tc+s-1,s)

⑧ chessboard(tr,tc+s,tr+s-1,tc+s,s)

⑨ chessboard(tr+s,tc,tr+s,tc+s-1,s)

⑩ chessboard(tr+s,tc+s,tr+s,tc+s,s)

貌似我考过了 不难

希望对你能有所帮助。

以上就是关于把“文本框输入的内容”全部变成“********”，然后存入数据库，如何做到全部的内容，包括:把“文本框输入的内容”全部变成“********”，然后存入数据库，如何做到、oracle数据库用了asm asm加载一个磁盘组出现ora-15196 invaild asm、找有关计算机的专业英语等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！