{$Wap} | 平台首页 | 信息必修 | 课程基地 | 通用必修1 | 通用必修2 | 网络 | 多媒体 | 程序 |档案袋 |必修复习 | 网络复习| |编程讨论| |理论测试 |
您现在的位置: 省句中信息技术教学平台 >> 信息必修 >> 第三章 >> 教学安排 >> 正文
[组图]第三章 信息的编程加工和智能化加工         ★★★ 【字体:
第三章 信息的编程加工和智能化加工
作者:w    文章来源:本站原创    点击数:    更新时间:2009-4-1    

 神通广大的英国间谍007收到遇害的同事的字条,上面写着“4F0EFK0KILJK08RIP”,根据事先约定,已知3代表C(大写),H代表q,0代表空格。问该同事要传递什么信息给007?
其实,这是一串经过简单的替换字符算法加密的字符串。其中,数字1~9分别代表字母A~I,字母A~Q分别代表j~z,字母R~Z分别代表a~i。根据这个规则稍加排序即可得到原来的信息:Do not trust Hary.
加密是信息加工的一种表现形式

信息加工的一般过程:确立目标、对收集的信息进行判别、筛选、分类、排序、分析和再造。

信息加工概念

     将收集到的信息按照一定的程序和方法进行分类、分析、整理、编制等,使其具有可用性。

 为什么要对原始信息进行加工呢?

    原始信息   它是一种初始的、零散的、无序的、彼此独立的状态 信息不便于观察、传递、分析、利用

信息加工涉及的内容:分类、比较、综合、研究、 编制

计算机信息加工的一般过程

选择工具、信息录入、信息加工、信息输出、信息存储

计算机信息加工的类型

    ⑴基于程序设计的自动化的信息加工

      ——针对具体的问题编制专门的程序实现信息加工的自动化

    ⑵基于大众信息技术工具的人性化信息加工

      包括字处理软件加工文本信息;利用电子表格软件加工表格信息;利用多媒体软件加工图像、声音、视频和动画等多媒体信息

    ⑶基于人工智能技术的智能化信息加工

      ——利用人工智能技术加工信息 (Office助手)

      智能化加工所要 解决的问题 :如何让计算机更加自主地加工信息、减少人的参与、进一步提高信息加工的效率和人性化程序

信息的编程加工

解密程序

代码

界面

Private Sub Command1_Click()
s1 = Text1.Text
s2 = ""
L = Len(s1)
For i = 1 To l
    c = Mid(s1, i, 1)
    If (c = "0") Then s2 = s2 + " "
    If (c >= "1") And (c <= "9") Then
        s2 = s2 + Chr(Asc("A") + Val(c) - 1)
    End If
    If (c >= "A") And (c <= "Z") Then
        a = Asc(c) + 9
        If a <= Asc("Z") Then
            s2 = s2 + LCase(Chr(a))
        Else
            s2 = s2 + LCase(Chr(a - Asc("Z") + Asc("A") - 1))
        End If
    End If
Next i
Text2.Text = s2
End Sub

Private Sub Command2_Click()
s1 = Text2.Text
s2 = ""
l = Len(s1)
For i = 1 To l
    c = Mid(s1, i, 1)
    If (c = " ") Then s2 = s2 + "0"
    If (c >= "A") And (c <= "I") Then
        s2 = s2 + Chr(Asc(c) - Asc("A") + 1 + Asc("0"))
    End If
    If (c >= "a") And (c <= "z") Then
        a = Asc(c) - 9
        If a >= Asc("a") Then
            s2 = s2 + UCase(Chr(a))
        Else
            s2 = s2 + UCase(Chr(Asc(c) - Asc("a") + Asc("r")))
        End If
    End If
Next i
Text1.Text = s2
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 97) And (KeyAscii <= 123) Then
    KeyAscii = KeyAscii - 32
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 74) And (KeyAscii <= 90) Then
    KeyAscii = KeyAscii + 32
End If
End Sub

文章录入:admin    责任编辑:admin 
  • 上一篇文章: 没有了

  • 下一篇文章:
  • 发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新热点 最新推荐 相关文章
    信息的集成与交流(四)竞赛
    信息的集成与交流(三)竞赛
    信息的集成与交流(二)竞赛
    信息的集成与交流(一)竞赛
    多媒体视频、音频
    动画(flash)竞赛班
    图像的加工与合成(竞赛班)
    多媒体加工一(竞赛班)
    Excel学习(4)_数据操作2
    09高一(10)班小报作品2(部
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)