源代码究竟是什么?

源代码就是人类可以看懂的机器文字，程序员在写完代码以后，会将源代码编译为机器代码，可能是一个可执行程序exe啥的，我们平时用的就是这个可执行程序，要想增加功能，或者改善程序，就需要有源代码了，因为人不可能通过0和1编出高级程序。

举个例子：你用Word写好一个文档，生成一个PDF文件，一般来说PDF是不可修改的，你可以把这个PDF发给别人阅读，但是别人要想修改这个PDF就不好 *** 作。而你有这个PDF的原稿（Word文档）你可以很方便的修改然后再生成PDF文档。这里的Word文档就相当于源代码，PDF文档就相当于软件。

简介

代码，没什么可说的，广义的，只要算是程序语言写的都是，c写出来的是代码，编译后，成汇编语言程序，也可以说是代码；再汇编成，机器语言程序，也可以说是代码；不过，算得上代码的，也算是程序，一般都是广义的说法。

说“源”的问题、你用c写出来的，让我看，那是源代码；你把编译成．exe文件的代码，让我直接运行，那就不是源代码、你做的java游戏，如果你把自己写的java代码给我，那是源代码；把处理过的可执行文件给我，那不是源代码。

StrConv 函数

语法为：StrConv(待转换字串, 转换格式)

转换格式：

vbUnicode 将 Ansi 字串转换为 Unicode

vbFromUnicode 将 Unicode 字串转换为 Ansi

====================

补充回答:

看看下面的基本范例您应该就会对 VB 的字串处理方式有些概念。

Private Sub Command1_Click ()

Dim sUnicode As String

Dim sAnsi As String

' Unicode 运算

sUnicode = "王小明,A123456789,651023,上海市中山路100号,(02)2345678"

Debug.Print Len(sUnicode) ' 返回 44

Debug.Print Mid$(sUnicode, 5, 10) ' 返回 A123456789

Debug.Print Instr(sUnicode, "上海市") ' 返回 23

' 将 Unicode 字串转成 Ansi

sAnsi = StrConv(sUnicode, vbFromUnicode)

' Ansi 运算

Debug.Print LenB(sAnsi) ' 返回 54

Debug.Print MidB$(sAnsi, 8, 10) ' 返回 ?????，因为忘了转回 Unicode

Debug.Print StrConv(MidB$(sAnsi, 8, 10), vbUnicode) ' 返回 A123456789，请注意转

回 Unicode 的动作一定要做

Debug.Print InStrB(sAnsi, StrConv("上海市", vbFromUnicode)) ' 返回 23, 不要忘了

要把"上海市"也转成 Ansi，否则会找不到

End Sub

================

读入文本文件

在 VB 的小技巧中，有一个是快速读文件法：

Private Sub Command1_Click ()

Dim sFile As String

Open "C:filename.txt" For Input As #1

sFile = Input$(LOF(1), #1)

Close #1

End Sub

但是很不幸地，如果你读取的文件内含中文字，那上面这段程序会出现 Input pastend of

file 的错误。因为 LOF 返回的是文件的 byte 数，而 Input 函数读取的是字符数，由于

文件内含中文，因此文件中的字符数将会小于 byte 数，于是就发生错误了。

要解决这个问题，我们就要用到 StrConv 和 InputB 这两个函数了：

Private Sub Command1_Click ()

Dim sFile As String

Open "C:filename.txt" For Input As #1

sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)

Close #1

End Sub

上面修正程序先用 InputB 将文件读进来，不过使用 InputB 所读入的文件是 Ansi格式的，

所以要再用 StrConv 转成 Unicode 才行。

================

VB我不是太熟 这些是COPY了人家的 有这些例子应该够帮到你了 如果这样还不够 那你其实应该去找本VB的教材好好看看了

忘了哪位老外大牛说过 程序就是"算法 + 字符串处理"

字符串的处理是每门语言最基本的 不要疏忽大意

/// </summary>public class WebForm1 : System.Web.UI.Page{protected System.Web.UI.WebControls.TextBox SaveAsprotected System.Web.UI.WebControls.Label Label2protected System.Web.UI.WebControls.Label Label1protected System.Web.UI.WebControls.Label resultprotected System.Web.UI.WebControls.Button Button1protected System.Web.UI.WebControls.TextBox wordTextprivate void Page_Load(object sender, System.EventArgs e){// 在此处放置用户代码以初始化页面}#region Web 窗体设计器生成的代码override protected void OnInit(EventArgs e){//// CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。//InitializeComponent()base.OnInit(e)}/// <summary>/// 设计器支持所需的方法 - 不要使用代码编辑器修改/// 此方法的内容。/// </summary>private void InitializeComponent(){this.Button1.Click += new System.EventHandler(this.Button1_Click)this.Load += new System.EventHandler(this.Page_Load)}#endregionprivate void Button1_Click(object sender, System.EventArgs e){Object Nothing=System.Reflection.Missing.Valueobject filename=@SaveAs.TextWord.Application WordApp=new Word.ApplicationClass()Word.Document WordDoc=WordApp.Documents.Add(ref Nothing,ref Nothing,ref Nothing,ref Nothing)Word.Table table=WordDoc.Tables.Add(WordApp.Selection.Range,1,1,ref Nothing,ref Nothing)table.Cell(1,1).Range.Text=wordText.TextWordDoc.Paragraphs.Last.Range.Text="Wellcome To Aspxcn.Com"WordDoc.SaveAs(ref filename,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing)WordDoc.Close(ref Nothing, ref Nothing, ref Nothing)WordApp.Quit(ref Nothing, ref Nothing, ref Nothing)result.Text="文档路径：<a href='"+SaveAs.Text+"'>"+SaveAs.Text+"</a>(点击链接查看)<br>生成结果：成功！"}}}在web.config中要设置权限。

---