你得先補基礎(chǔ)。
創(chuàng)新互聯(lián)建站服務(wù)項目包括昭平網(wǎng)站建設(shè)、昭平網(wǎng)站制作、昭平網(wǎng)頁制作以及昭平網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，昭平網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到昭平省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
最好去學(xué)校，找計算機系的學(xué)生，抄下專業(yè)專業(yè)課程和對應(yīng)的課本（說不定順便能討些舊課本），賣齊這些課本（一般學(xué)校里面就有書店）慢慢學(xué)。
（以下課程不全）
至少需要讀一遍的：計算機導(dǎo)論、程序設(shè)計基礎(chǔ)、軟件工程、編譯原理
重點學(xué)習(xí)的：算法與數(shù)據(jù)結(jié)構(gòu)、面向?qū)ο蟪绦蛟O(shè)計
還有VB.Net需要一定的基礎(chǔ)，建議先從 C++ 或 VB（版本6.0）入門
1、建立應(yīng)用程序界面
2、設(shè)置對象的屬性
3、編寫應(yīng)用程序的代碼
4、保存和運行程序
VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建Active?X控件，用于高效生成類型安全和面向?qū)ο蟮膽?yīng)用程序。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。
擴展資料
VB語言缺點
Visual Basic 語言具有不支持繼承、無原生支持多線程、異常處理不完善等三項明顯缺點，使其有所局限性（此些缺點皆已在 vb .net 獲得改進）。
1、不支持繼承
VB 5.0 和 VB 6.0 都是基于對象的編程語言，但是不包含繼承特性。VB 中提供了特殊的類的功能，但是還是不能滿足程序員的需求。
2、無原生支持多線程
Visual Basic 對于多線程無原生支持，只能通過Windows API的調(diào)用實現(xiàn)，且極其的不穩(wěn)定。因為在API創(chuàng)建的線程中，并沒有自動初始化運行時庫，導(dǎo)致部分的函數(shù)無法使用。一般的，在VB6等早期的VB開發(fā)環(huán)境下，使用API創(chuàng)建線程的目的是完成容易使程序假死的大量數(shù)據(jù)或者邏輯的計算。
3、異常處理不完善
Visual Basic 中內(nèi)置異常處理，即使未寫異常處理代碼，一旦用戶出錯也會彈出一個明確寫出出錯原因?qū)υ捒?，接著程序終止。
Visual Basic 中可以使用 Err.Raise拋出異常。對系統(tǒng)及用戶拋出的異常的處理常用兩種模式：一是使用 On Error Resume Next 處理錯誤；另一種是使用 On Error Goto 將運行引入錯誤處理代碼。但相對 C++ 等語言而言，這樣的異常處理破壞了代碼的結(jié)構(gòu)。
1、VB程序設(shè)計以Visual Basic 6.0簡體中文版為語言背景，深入淺出的介紹Visual Basic 6.0程序設(shè)計技術(shù)，基本涵蓋了Visual Basic 6.0編程時的常用內(nèi)容。
2、VB程序設(shè)計共分14章，主要內(nèi)容包括開發(fā)環(huán)境、語言基礎(chǔ)和數(shù)組與過程、常用控件、菜單設(shè)計、文件處理、ActiveX控件、數(shù)據(jù)庫程序設(shè)計、圖形程序設(shè)計、多媒體編程、網(wǎng)絡(luò)編程、API函數(shù)和注冊表、安裝程序的制作和綜合實例。
3、為了方便讀者學(xué)習(xí)，《VB程序設(shè)計》提供多媒體課件，及例題和練習(xí)題的所有源代碼。
4、VB程序設(shè)計可以作為大中專院校計算機及相關(guān)專業(yè)的教材，適合編程愛好者自學(xué)使用。
Dim SumN As Long
Dim i As Integer
Dim str As String
str = InputBox("請輸入個數(shù)：")
i = Val(str)
If i 1 Then
Exit Sub
End If
Dim k As Integer
Try
For k = 1 To i
SumN = SumN + k ^ k
Next
MsgBox("結(jié)果：" SumN)
Catch
End Try
Public Class Form1
Inherits System.Windows.Forms.Form
Public filename As String = "英漢詞典.txt"
Public myword(6500, 1) As String
Public words As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
Dim b As Integer
Dim i As Integer = 0
Dim n As String
Dim m As String
Dim stringb As Integer
TextBox1.Text = ""
TextBox2.Text = ""
FileOpen(1, "英漢詞典.txt", OpenMode.Input)
Do While Not EOF(1)
a = LineInput(1)
b = InStr(a, " ")
n = Microsoft.VisualBasic.Left(a, b - 1)
myword(i, 0) = n
ListBox1.Items.Add(n)
stringb = Len(a) - b
m = Trim(Microsoft.VisualBasic.Right(a, stringb))
myword(i, 1) = m
i += 1
Loop
words = i
FileClose(1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer = -1
If TextBox1.Text = "" Then
MessageBox.Show("不能輸入空格，請重新輸入")
TextBox2.Text = ""
TextBox1.Focus()
Exit Sub
Else
For i = i + 1 To words
If LCase(TextBox1.Text) = LCase(myword(i, 0)) Then
TextBox2.Text = Trim(myword(i, 1))
Exit Sub
End If
Next
MessageBox.Show(" 您需要的單詞不存在，請重新輸入")
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Try
TextBox1.Text = myword(ListBox1.SelectedIndex, 0)
TextBox2.Text = Trim(myword(ListBox1.SelectedIndex, 1))
Catch ex As Exception
End Try
Exit Sub
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ch, enterwords As String
Dim j, m As Integer
If -1 = ListBox1.SelectedIndex Then
MsgBox("請選擇單詞", , "")
ListBox1.Focus()
Exit Sub
End If
enterwords = InputBox("請修改單詞", "修改單詞", Trim(myword(ListBox1.SelectedIndex, 0)))
Do While enterwords = ""
m = MsgBox("單詞不能為空", MsgBoxStyle.RetryCancel, "修改單詞")
If m = 4 Then
enterwords = InputBox("請修改單詞", "修改單詞", Trim(myword(ListBox1.SelectedIndex, 0)))
Else
Exit Sub
End If
Loop
ch = InputBox("請修改中文意思", "修改單詞", Trim(myword(ListBox1.SelectedIndex, 1)))
Do While ch = ""
m = MsgBox("中文意思不能為空", MsgBoxStyle.RetryCancel, "修改單詞")
If m = 4 Then
ch = InputBox("請修改中文意思", "修改單詞", Trim(myword(ListBox1.SelectedIndex, 1)))
Else
Exit Sub
End If
Loop
myword(ListBox1.SelectedIndex, 1) = ch
myword(ListBox1.SelectedIndex, 0) = enterwords
FileOpen(1, filename, OpenMode.Output)
For j = 0 To words - 1
PrintLine(1, myword(j, 0) " " myword(j, 1))
Next
FileClose(1)
MsgBox("修改成功")
ListBox1.Items.Clear()
Form1_Load(sender, e)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer = 0
Dim k, m As Integer
Dim enterwords, ch As String
enterwords = InputBox("請輸入要添加的單詞", "添加單詞")
Do While enterwords = ""
m = MsgBox("單詞不能為空，請輸入單詞！", MessageBoxButtons.RetryCancel, "添加單詞")
If m = 4 Then
enterwords = InputBox("請輸入要添加的單詞", "添加單詞")
Else
Exit Sub
End If
Loop
ch = InputBox("請輸入中文意思", "添加中文")
Do While ch = ""
m = MsgBox("中文不能為空，請輸入中文意思！", MessageBoxButtons.RetryCancel, "添加中文")
If m = 4 Then
ch = InputBox("請輸入中文意思", "添加中文")
Else
Exit Sub
End If
Loop
Do While LCase(myword(i, 0)) LCase(enterwords)
i = i + 1
If words = i Then
myword(i, 0) = enterwords
myword(i, 1) = ch
words = words + 1
FileOpen(1, filename, OpenMode.Output)
For i = 0 To words - 1
PrintLine(1, myword(i, 0) " " myword(i, 1))
Next
ListBox1.Items.Clear()
FileClose(1)
ListBox1.Items.Clear()
Form1_Load(sender, e)
MessageBox.Show("添加成功")
Exit Sub
End If
Loop
If LCase(myword(i, 0)) = LCase(enterwords) Then
MessageBox.Show("該單詞已存在！")
ListBox1.SelectedIndex = i
Exit Sub
ElseIf LCase(myword(0, 0)) LCase(enterwords) Then
For k = words To 0 Step -1
myword(k + 1, 0) = myword(k, 0)
myword(k + 1, 1) = myword(k, 1)
Next
myword(0, 0) = enterwords
myword(0, 1) = ch
words = words + 1
FileOpen(1, filename, OpenMode.Output)
For i = 0 To words - 1
PrintLine(1, myword(i, 0) " " myword(i, 1))
Next
ListBox1.Items.Clear()
FileClose(1)
Form1_Load(sender, e)
MessageBox.Show("添加成功")
Exit Sub
End If
For k = words To i + 1 Step -1
myword(k + 1, 0) = myword(k, 0)
myword(k + 1, 1) = myword(k, 1)
Next k
myword(i, 0) = enterwords
myword(i, 1) = ch
words = words + 1
FileOpen(1, filename, OpenMode.Output)
For i = 0 To words - 1
PrintLine(1, myword(i, 0) " " myword(i, 1))
Next
FileClose(1)
ListBox1.Items.Clear()
Form1_Load(sender, e)
MessageBox.Show("添加成功")
Exit Sub
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim i, j, k As Integer
If -1 = ListBox1.SelectedIndex Then
MsgBox("請選擇單詞", , "")
ListBox1.Focus()
Exit Sub
End If
k = MsgBox("確定是否刪除", MsgBoxStyle.YesNo, "提示")
If k = 6 Then
For i = ListBox1.SelectedIndex To words
myword(i, 0) = myword(i + 1, 0)
myword(i, 1) = myword(i + 1, 1)
Next
words = words - 1
FileOpen(1, filename, OpenMode.Output)
For j = 0 To words - 1
PrintLine(1, myword(j, 0) " " myword(j, 1))
Next
FileClose(1)
MsgBox("單詞已刪除")
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
ListBox1.Refresh()
TextBox1.Text = ""
TextBox2.Text = ""
Exit Sub
Else
Exit Sub
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class
這是代碼，文字性的內(nèi)容自己去做。
重慶分公司
重慶分公司
