vb.net教学课程 vb课程教学视频

250分悬赏.那里有VB简单的入门视频教程?

兄弟看来你找对人了,呵呵!其实有一个很好的视频教学网站可能大家都听说过"网易视频教学"吧!这可是国内最顶坚的视频教学网站,里面的内容丰富的不得了不管是办公.系统或者是编程方面的视频很多.说这么多也没用是不还不如自己去看看好了.包你满意.

创新互联公司-专业网站定制、快速模板网站建设、高性价比筠连网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式筠连网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖筠连地区。费用合理售后完善，十年实体公司更值得信赖。

给你提个意见好了想学习编程这方面的知识不是看几个视频就能解决问题的了我学编程好几年了,VB我也学过.想学的话到图书馆去买几本VB入门教材看看,最好是买清华大学出版社出的书.

微软VB.net入门教程 视频+代码 wmv 适合刚接触的

BT下载，速度超快

我看过很多教程，但实际上你得做好思想准备，学这东西不但要教程了，关键是自己练的多。

如果你非要一个相当好的，那么我推荐你去看看

在搜索栏里输入 VB教程 或VB 就可以了

用VB语言制作英汉小辞典

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

这是代码，文字性的内容自己去做。

急高手帮忙教下怎么用VB.NET2008做个查询学生课程信息的资料库啊？？？

我用vb做了一个程序对数据库中的数据进行排序，程序如下：

标准模块：

Type nas

custno As Integer

last_name As String

first_name As String

vip_status As String

address1 As String

assress2 As String

city As String

state As String

post_code As String

country As String

phone As String

fax As String

email As String

remarks As String

End Type

窗体模块：

Option Base 1

Dim aa(30) As nas

Dim t As nas

Private Sub Command1_Click()

Open "e:\vbb\custoly.db" For Random As #1

For i = 1 To 30

Get #1, i, aa(i)

i = i + 1

Next i

For j = 1 To 29

For k = j + 1 To 30

If aa(j).last_name aa(k).last_name Then

t = aa(j)

aa(j) = aa(k)

aa(k) = t

End If

Next k

Next j

For p = 1 To 30

print aa(p).last_name

Next p

End Sub