第一篇：VB課程設計

課程設計

學 院 班 級

指導老師

姓 名 學 號 成 績

2013年 月 10

日

一．課程設計題目

學生管理系統

二．功能描述

按設定的用戶名密碼進行登錄后，可按需求進行對數據庫中已有的學生信息及成績進行查詢，添加，刪除，修改等操作。

三．概要設計

登錄界面功能：讓用戶進行登錄。主界面功能：讓用戶選擇進行哪項操作。

查詢學生信息菜單功能：輸入學生學號，對該學生的個人信息以

及成績進行查詢，若直接點擊查詢按鈕，則顯示全部學生個人信息及成績。

編輯學生信息菜單功能：可對數據庫中已有的學生信息進行查

詢，添加，刪除，修改等操作。

學生信息維護菜單功能：可對數據庫中已有的學生成績進行查

詢，添加，刪除，修改等操作。

四．詳細設計

五．效果以及存在問題

說明系統的運行效果（附上運行界面圖片）、存在哪些不足以及預期的解決辦法。

登錄界面

登錄學生管理系統

按查詢條件查詢

打開修改學生信息子窗口

學生成績維護子窗口

垂直窗口排列

關于窗口

不足：1.沒有實現用戶登錄界面中的注冊功能

2.沒有實現主界面中文件下的新建和保存功能。

六．心得體會

經過幾天的苦戰，終于把課程設計粗略的做完了。剛開始做的時候，毫無頭緒，一片茫然。好在書本上有類似的實驗，可以供參考。盡管如此，真正做起項目來，還是有著這樣那樣的困難，有時一個空格少打都會出錯，導致我檢查了半天才發現問題所在。由于VB語法還運用不熟練，很多代碼都是模仿書本上的敲的，許多代碼往往能編譯通過，但很多都會拋出各種異常，讓人頭疼。有時系統就給出個有個參數沒有被指定值，就可以讓人搞的焦頭爛額。因此，寫程序真的也很需要強大的耐心，只要熬下去了，當你做出程序時，也會倍有成就感。目前，程序是基本寫完了，平常學的理論都得到了運用，感覺自己的能力也增強了。一句話，實踐才是硬道理。

七．附錄代碼

（附上各模塊代碼）

1.登錄界面

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Static n As Integer

If txtName.Text = “abc” And txtPassWord.Text = “123” Then

Dim form2 As New Form2()

form2.Show()

Me.Close()

Else

n = n + 1

If n < 5 Then

MsgBox(“請輸入正確的用戶名和密碼！”, MsgBoxStyle.Critical)

Else

MsgBox(“請輸入正確的用戶名和密碼！”, MsgBoxStyle.Critical)

Button1.Enabled = False

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click

Me.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click

Dim form3 As New Form3()

form3.Show()

Me.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

End Sub End Class

2.查詢學生菜單代碼

Public Class Form6

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS_KC As New OleDb.OleDbDataAdapter

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS_KC As New OleDb.OleDbCommand

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS_KC As New DataSet

Dim objDsXS As New DataSet

objConn.ConnectionString = “Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'”

objCommXS.CommandText = “ Select * From XS ”

objCommXS_KC.CommandText = “ Select * From XS_KC ”

objCommXS_KC.Connection = objConn

objDaXS_KC.SelectCommand = objCommXS_KC

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS_KC.Fill(objDsXS_KC, “XS_KC”)

objDaXS.Fill(objDsXS, “XS”)

objConn.Close()

DataGridView1.DataSource = objDsXS_KC.Tables(“XS_KC”)

DataGridView2.DataSource = objDsXS.Tables(“XS”)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS_KC As New OleDb.OleDbDataAdapter

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS_KC As New OleDb.OleDbCommand

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS_KC As New DataSet

Dim objDsXS As New DataSet

Dim WhereStr As String

WhereStr = “"

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 學號like “ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“

objCommXS.CommandText = ” Select * From XS “

objCommXS_KC.CommandText = ” Select * From XS_KC “

If WhereStr <> ”“ Then

objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr

objCommXS_KC.CommandText = objCommXS_KC.CommandText & ”where“ & WhereStr

End If

objCommXS_KC.Connection = objConn

objDaXS_KC.SelectCommand = objCommXS_KC

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS_KC.Fill(objDsXS_KC, ”XS_KC“)

objDaXS.Fill(objDsXS, ”XS“)

objConn.Close()

DataGridView1.DataSource = objDsXS_KC.Tables(”XS_KC“)

DataGridView2.DataSource = objDsXS.Tables(”XS“)

End Sub End Class

3編輯學生信息菜單

Public Class Form7

Dim objDs As New DataSet

Dim objxstable As DataTable

Dim objda As New OleDb.OleDbDataAdapter

Dim wherestr As String

Public Sub refreshdata()

objda.Update(objDs, ”XS“)

objxstable.Clear()

bindgridview(wherestr)

End Sub

Public Sub bindgridview(ByVal strXH As String)

Dim objConn As New OleDb.OleDbConnection

Dim objComm As New OleDb.OleDbCommand

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

wherestr = ” 學號like“ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:XSCJ.mdb'“

objComm.CommandText = ” Select * From XS “

If WhereStr <> ”“ Then

objComm.CommandText = objComm.CommandText & ”where“ & WhereStr

End If

'把objConn設置為objConn的數據連接

objComm.Connection = objConn

objda.SelectCommand = objComm

'創建INSERT Command

Dim InsCommand As New OleDb.OleDbCommand(”INSERT INTO XS(學號,姓名,專業名,性別,出生日期,總學分,備注)VALUES(?,?,?,?,?,?,?)“, objConn)

InsCommand.Parameters.Add(”學號“, OleDb.OleDbType.VarChar, 6, ”學號“)

InsCommand.Parameters.Add(”姓名“, OleDb.OleDbType.VarChar, 8, ”姓名“)

InsCommand.Parameters.Add(”專業名“, OleDb.OleDbType.VarChar, 10, ”專業名“)

InsCommand.Parameters.Add(”性別“, OleDb.OleDbType.VarChar, 2, ”性別“)

InsCommand.Parameters.Add(”出生日期“, OleDb.OleDbType.Date, Nothing, ”出生日期“)

InsCommand.Parameters.Add(”總學分“, OleDb.OleDbType.Integer, Nothing, ”總學分“)

InsCommand.Parameters.Add(”備注“, OleDb.OleDbType.VarChar, Nothing, ”備注“)

objda.InsertCommand = InsCommand

'創建Delte Command

Dim delcommand As New OleDb.OleDbCommand(”DELETE * from XS where 學號=?“, objConn)

delcommand.Parameters.Add(”學號“, OleDb.OleDbType.Char, 6, ”學號“)

objda.DeleteCommand = delcommand

'創建Update Command

Dim updCommand As New OleDb.OleDbCommand(”UPDATE XS SET 學號=?,姓名=?,專業名=?,性別=?,出生日期=?,總學分=?,備注=? WHERE 學號=?“, objConn)

updCommand.Parameters.Add(”學號“, OleDb.OleDbType.VarChar, 6, ”學號“)

updCommand.Parameters.Add(”姓名“, OleDb.OleDbType.VarChar, 8, ”姓名“)

updCommand.Parameters.Add(”專業名“, OleDb.OleDbType.VarChar, 10, ”專業名“)

updCommand.Parameters.Add(”性別“, OleDb.OleDbType.VarChar, 2, ”性別“)

updCommand.Parameters.Add(”出生日期“, OleDb.OleDbType.Date, Nothing, ”出生日期“)

updCommand.Parameters.Add(”總學分“, OleDb.OleDbType.Integer, Nothing, ”總學分“)

updCommand.Parameters.Add(”備注“, OleDb.OleDbType.VarChar, Nothing, ”備注“)

updCommand.Parameters.Add(”學號“, OleDb.OleDbType.VarChar, 6, ”學號“)

objda.UpdateCommand = updCommand

objConn.Open()

'打開數據庫連接

objda.Fill(objDs, ”XS“)'填充數據

objxstable = objDs.Tables(”XS“)

objConn.Close()

'關閉數據集

'把DataGrid1的DataSource屬性設置為剛剛取到的數據表，這樣就可以顯示數據了

DataGridView1.DataSource = objDs.Tables(”XS“)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellContentClick

TxtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString '顯示學號

TxtStuXM.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString '顯示姓名

TxtZY.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString '顯示專業

TxtXB.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString '顯示性別

TxtCSRQ.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString '顯示出生日期

TxtStuZXF.Text = DataGridView1.CurrentRow.Cells.Item(5).Value.ToString '顯示總學分

TxtBZ.Text = DataGridView1.CurrentRow.Cells.Item(6).Value.ToString '顯示備注

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS As New DataSet

Dim WhereStr As String

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 學號like “ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“

objCommXS.CommandText = ” Select * From XS “

If WhereStr <> ”“ Then

objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr

End If

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS.Fill(objDsXS, ”XS“)

objConn.Close()

DataGridView1.DataSource = objDsXS.Tables(”XS“)

End Sub

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

wherestr = ”“

bindgridview(wherestr)

End Sub

Private Sub butAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butAdd.Click

Dim response As MsgBoxResult

response = MsgBox(”確定要添加記錄嗎？“, vbOKCancel + vbQuestion, ”系統提示“)

If response = MsgBoxResult.Ok Then

Dim myRow As DataRow = objxstable.NewRow()

myRow(”學號“)= TxtStuXH.Text

myRow(”姓名“)= TxtStuXM.Text

myRow(”專業名“)= TxtZY.Text

myRow(”性別“)= TxtXB.Text

myRow(”出生日期“)= TxtCSRQ.Text

myRow(”總學分“)= TxtStuZXF.Text

myRow(”備注“)= TxtBZ.Text

objxstable.Rows.Add(myRow)

refreshdata()

End If

End Sub

Private Sub butEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butEdit.Click

Dim response As MsgBoxResult

response = MsgBox(”確定要修改記錄嗎？“, vbOKCancel + vbQuestion, ”系統提示“)

If response = MsgBoxResult.Ok Then '用戶選擇“確定”

'修改學號

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(0)= TxtStuXH.Text

'修改姓名

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1)= TxtStuXM.Text

'修改專業

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2)= TxtZY.Text

'修改性別

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3)= TxtXB.Text

'修改出生日期

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4)= TxtCSRQ.Text

'修改總學分

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(5)= TxtStuZXF.Text

'修改備注

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Item(6)= TxtBZ.Text

refreshdata()'更新并刷新顯示

End If

End Sub

Private Sub butDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butDelete.Click

Dim response As MsgBoxResult

response = MsgBox(”確定要刪除記錄嗎？“, vbOKCancel + vbQuestion, ”系統提示“)

If response = MsgBoxResult.Ok Then '用戶選擇“確定”

'除學生成績表當前記錄

objxstable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()

refreshdata()'更新并刷新顯示

End If

End Sub End Class

4.學生成績維護菜單

Public Class Form4

Dim objDs As New DataSet

Dim objXSTable As DataTable

Dim objDa As New OleDb.OleDbDataAdapter

Dim WhereStr As String

Public Sub refreshdata()

objDa.Update(objDs, ”XS_KC“)

objXSTable.Clear()

bindgridview(WhereStr)

End Sub

Public Sub bindgridview(ByVal strXH As String)

Dim objConn As New OleDb.OleDbConnection

Dim objComm As New OleDb.OleDbCommand

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 學號like“ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:XSCJ.mdb'“

objComm.CommandText = ” Select * From XS_KC “

If WhereStr <> ”“ Then

objComm.CommandText = objComm.CommandText & ”where“ & WhereStr

End If

'把objConn設置為objConn的數據連接

objComm.Connection = objConn

objDa.SelectCommand = objComm

'創建INSERT Command

Dim InsCommand As New OleDb.OleDbCommand(”INSERT INTO XS_KC(學號,課程號,成績,學分)VALUES(?,?,?,?)“, objConn)

InsCommand.Parameters.Add(”學號“, OleDb.OleDbType.VarChar, 6, ”學號“)

InsCommand.Parameters.Add(”課程號“, OleDb.OleDbType.VarChar, 4, ”課程號“)

InsCommand.Parameters.Add(”成績“, OleDb.OleDbType.Integer, Nothing, ”成績“)

InsCommand.Parameters.Add(”學分“, OleDb.OleDbType.Integer, Nothing, ”學分“)

objDa.InsertCommand = InsCommand

'創建Delte Command

Dim delcommand As New OleDb.OleDbCommand(”DELETE * from XS_KC where 序號=?“, objConn)

delcommand.Parameters.Add(”序號“, OleDb.OleDbType.Char, 6, ”序號“)

objDa.DeleteCommand = delcommand

'創建Update Command

Dim updCommand As New OleDb.OleDbCommand(”UPDATE XS_KC set 學號=?,課程號=?,成績=?,學分=? where 序號=?“, objConn)

updCommand.Parameters.Add(”學號“, OleDb.OleDbType.VarChar, 6, ”學號“)

updCommand.Parameters.Add(”課程號“, OleDb.OleDbType.VarChar, 4, ”課程號“)

updCommand.Parameters.Add(”成績“, OleDb.OleDbType.Integer, Nothing, ”成績“)

updCommand.Parameters.Add(”學分“, OleDb.OleDbType.Integer, Nothing, ”學分“)

updCommand.Parameters.Add(”序號“, OleDb.OleDbType.Integer, Nothing, ”序號“)

objDa.UpdateCommand = updCommand

objConn.Open()

'打開數據庫連接

objDa.Fill(objDs, ”XS_KC“)'填充數據

objXSTable = objDs.Tables(”XS_KC“)

objConn.Close()

'關閉數據集

'把DataGrid1的DataSource屬性設置為剛剛取到的數據表，這樣就可以顯示數據了

DataGridView1.DataSource = objDs.Tables(”XS_KC“)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellContentClick

txtStuXKID.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString '顯示ID

txtStuXH.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString '顯示學號

txtStuKCH.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString '顯示課程號

txtStuCJ.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString '顯示成績

txtStuXF.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString '顯示學分

End Sub

Private Sub btnDdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butAdd.Click

Dim response As MsgBoxResult

response = MsgBox(”確定要添加記錄嗎？“, vbOKCancel + vbQuestion, ”系統提示“)

If response = MsgBoxResult.Ok Then

Dim myRow As DataRow = objXSTable.NewRow()

myRow(”學號“)= txtStuXH.Text

myRow(”課程號“)= txtStuKCH.Text

myRow(”成績“)= txtStuCJ.Text

myRow(”學分“)= txtStuXF.Text

objXSTable.Rows.Add(myRow)

refreshdata()

End If

End Sub

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butEdit.Click

Dim response As MsgBoxResult

response = MsgBox(”確定要修改記錄嗎？“, vbOKCancel + vbQuestion, ”系統提示“)

If response = MsgBoxResult.Ok Then '用戶選擇“確定”

'修改學號

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(1)= txtStuXH.Text

'修改課程號

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(2)= txtStuKCH.Text

' 修改成績

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(3)= txtStuCJ.Text

'修改學分

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Item(4)= txtStuXF.Text

refreshdata()'更新并刷新顯示

End If

End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles butDelete.Click

Dim response As MsgBoxResult

response = MsgBox(”確定要刪除記錄嗎？“, vbOKCancel + vbQuestion, ”系統提示“)

If response = MsgBoxResult.Ok Then '用戶選擇“確定”

'除學生成績表當前記錄

objXSTable.Rows.Item(DataGridView1.CurrentRow.Index).Delete()

refreshdata()'更新并刷新顯示

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

Dim objConn As New OleDb.OleDbConnection

Dim objDaXS As New OleDb.OleDbDataAdapter

Dim objCommXS As New OleDb.OleDbCommand

Dim objDsXS As New DataSet

Dim WhereStr As String

WhereStr = ”“

If Trim(TxtXH.Text)<> ”“ Then

WhereStr = ” 學號like “ + Trim(TxtXH.Text)

End If

objConn.ConnectionString = ”Provider = Microsoft.jet.OLEDB.4.0;data source = 'D:XSCJ.mdb'“

objCommXS.CommandText = ” Select * From XS_KC “

If WhereStr <> ”“ Then

objCommXS.CommandText = objCommXS.CommandText & ”where“ & WhereStr

End If

objCommXS.Connection = objConn

objDaXS.SelectCommand = objCommXS

objConn.Open()

objDaXS.Fill(objDsXS, ”XS_KC“)

objConn.Close()

DataGridView1.DataSource = objDsXS.Tables(”XS_KC“)

End Sub

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

WhereStr = ”"

bindgridview(WhereStr)

End Sub End Class

5.主菜單界面代碼

Public Class Form2

Private Sub quitMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles quitMenuItem.Click

Me.Close()

End Sub

Private Sub importscoreMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles importscoreMenuItem.Click

Dim form4 As New Form4

form4.MdiParent = Me

form4.WindowState = FormWindowState.Normal

form4.Show()

End Sub

Private Sub updateinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles updateinfoMenuItem.Click

Dim form7 As New Form7

form7.MdiParent = Me

form7.WindowState = FormWindowState.Normal

form7.Show()

End Sub

Private Sub selectinfoMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles selectinfoMenuItem.Click

Dim form6 As New Form6

Form6.MdiParent = Me

form6.WindowState = FormWindowState.Normal

form6.Show()

End Sub

Private Sub cascadeMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles cascadeMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

End Sub

Private Sub horizonMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles horizonMenuItem.Click

Me.LayoutMdi(MdiLayout.TileHorizontal)

End Sub

Private Sub verticalMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles verticalMenuItem.Click

Me.LayoutMdi(MdiLayout.TileVertical)

End Sub

Private Sub aboutMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles aboutMenuItem.Click

Dim form5 As New Form5

form5.MdiParent = Me

form5.WindowState = FormWindowState.Normal

form5.Show()

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton1.Click

selectinfoMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton2.Click

updateinfoMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton3.Click

importscoreMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton4.Click

cascadeMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton5.Click

aboutMenuItem.PerformClick()

End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripButton6.Click

quitMenuItem.PerformClick()

End Sub

Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ToolStripStatusLabel1.Click

aboutMenuItem.PerformClick()

End Sub End Class

八．參考文庫

百度文庫，百度知道

第二篇：VB 課程設計

學生成績管理系統一、功能描述

首先簡單地闡述本人所要實現系統的目的，然后應較詳細的敘述本系統所要實現的功能。

************ *******

二、概要設計

1、系統功能模塊框圖設計

根據功能描述，建立系統的體系結構，即將整個系統分解成若干子功能模塊，并用框圖表示各功能模塊之間的銜接關系，并簡要說明各模塊的功能。

程序流程框圖如圖所示：（僅供參考）

圖1 程序流程圖

2、數據庫設計

包括數據庫的組成說明，數據庫中各表的結構說明（包括字段名、字段類型等），可以包含圖片例如下表：

表1 學生信息表

三、詳細設計

詳細說明主要窗體的實現過程，包括窗體的設計圖片及其上所包含的控件名和屬性設置；

詳細說明主要操作的代碼實現過程，包括過程間的調用關系（注：在此給出不完全代碼）。如下所示：

1、賬號登錄

帳號登錄模塊中登錄與注冊兩按鈕，單擊注冊會進入注冊模塊中，單擊登錄會進入系統進行下一步的操作，帳號文本框與數據庫相連接，當在帳號文本框輸入帳號后點擊登錄按鈕后，會在數據庫中進行查詢看數據庫中是否會有該帳號，且該帳號的密碼是否與密碼框中輸入的相同，如果相同會進入系統，如果不存在該賬號或密碼與帳號不相匹配，則會提示“帳號或密碼錯誤”，帳號文本框會得到焦點，讓重新輸入。

（1）窗體截圖（如圖2）

圖2 注冊窗體

（2）功能實現

2、學生信息查詢窗體

圖3 查詢窗體

四、調試中存在的問題及解決方法

包括調試過程中遇到的主要問題及采取的解決方法。例如：

1、注冊賬號出現的錯誤

數據庫中帳號被設為主鍵，當注冊時的帳號與數局庫中的帳號有相同時就會出錯。

2、解決方法：在寫入數據庫前先進行查詢數據庫

五、心得體會

本人在本次實習中取得的收獲、遇到的困難、如何面對和克服各種困難、本系統的不足之處，將要改進的思想等。

六、參考文獻

[1] 羅朝盛.Visual Basic 6.0程序設計教程(第3版).人民郵電出版社，2009年2月

[2] [3]

七、附錄

包括全部源程序清單(程序中應有足夠的注釋)。

第三篇：vb課程設計

Visual Basic課程設計報告

題目1： 貪吃蛇 難度：**** 題目2： 難度： 指導教師：

姓 名： 學 號： 專 業： 班 級： 學 院：

日 期：

目錄

1、題目簡介...................................................................................................錯誤！未定義書簽。

2、設計思路與總體方案.................................................................................................................3

2.1 窗體Form1.vb【設計】...................................................................................................3 2.2窗體Form2.vb【設計】..................................................................................................11 2.3窗體Form3.vb【設計】..................................................................................................14 2.4 窗體Form4.vb【設計】.................................................................................................14 2.5窗體Form5.vb【設計】....................................................................................................2.6窗體Form6.vb【設計】..................................................................錯誤！未定義書簽。2.6 標準模塊..........................................................................................................................14

3、設計過程遇到的主要問題及解決方法...................................................................................16

4、設計中尚存的不足分析...........................................................................................................16

5、心得體會...................................................................................................................................17

6、參考文獻...................................................................................................................................17

1.題目簡介

貪吃蛇是一種很流行的電子游戲。如圖1所示，一條蛇在棋盤狀的格子平面上爬行，由鍵盤控制其轉彎；格子上隨機出現五個數字（1~5），當蛇的頭部碰到數字時會將數字“吃掉”，蛇的身體會變長。當蛇的頭撞到障礙物時或碰到自己身體時，游戲結束。游戲結束時，蛇身體越長的分越高。

圖1 程序啟動時界面如圖1所示，游戲平面有20*20個方格構成。使用回車鍵可以暫

停（如圖2所示），蛇爬到邊界時，如果未遇到障礙物，會從一側爬出再從另一側爬入。如果運動過程中，其頭部碰到障礙物或自己，則被撞死，游戲結束。

圖2 如果該用戶的成績超過記錄成績，則會顯示圖3所示的對話框提示輸入用戶名，以供記錄成績，排行榜界面如圖4所示。

圖3

圖4

選擇“設置”菜單命令，打開圖5所示的“設置”對話框。在該對話框中可以選

擇不同的障礙物形狀，也可指定背景和障礙物顏色。

圖5 為了使效果更好，我加了背景音樂和速度控制。

2、設計思路與總體方案

(說明用到哪些控件并進行難點分析，說明所使用到的模塊、過程、變量、數組、自定義數據類型及其相互關系，必要時給出系統結構圖等圖表。

對如下事項逐步進行必要的分析、說明：

? 程序設計的主要思想，程序功能是如何實現的？

? 設計了幾個程序模塊(有幾個窗體模塊、幾個標準模塊)，各個功能模塊的作者及想到之間的關系(模塊間是如何傳遞信息和數據的，采用什么方式，為什么？)？

? 程序中定義了哪些主要的變量(分別定義了哪些過程級變量？模塊級變量和全局變量)，這些變量起什么作用？是否全局變量？ 這里不需要給出大段的源程序，只需要給出關鍵的實現代碼即可。)2.1 窗體Form1.vb【設計】

這是主界面，但也是最難的環節，之后要用到的控件與顯示都要在其基礎上發展。首先我們要將背景網格和蛇身畫出來，由于受到了動態添加控件的啟發，我用了powerpacks中的ovalshape來構造蛇身，lineshape來構造線，為了滿足蛇的身體長長，用到了數組。由于代碼之間有許多調配，在此我所舉的代碼皆主要起說明作用，實際情況可看源代碼。代碼如下：

Public num As Integer = 4 ‘記錄蛇的長度，即ovalshape的個數

Public j As String‘記錄Inputstring的字符串

Public p As Integer = 1‘記錄MsgBox所產生的值

Dim w As Integer

Dim d As Integer ‘為鍵盤方向確定一固定值

Dim recordname As String‘記錄玩家名字

Dim bnum As Integer = 1‘記錄障礙物的個數

Public recordlist(7)As String ‘記錄成績

Public recordscore(7)As Integer

Public gametime As Integer ‘記錄游戲進行所用時間

Public gameinterval As Integer = 200 ‘記錄游戲Timer控件interval值

Public score As Integer ‘記錄得分

Public direction As Integer

Public line(41)As LineShape

Public food(4)As RectangleShape

Public eye(2)As OvalShape '蛇的眼睛

Public a(num)As OvalShape '蛇的身體

Public word(4)As Label

Imports Microsoft.VisualBasic.PowerPacks Public a(num)As OvalShape ‘a（）為定義蛇身的數組，變量num用來記錄蛇身個數

Public line(41)As LineShape Dim canvas = New Microsoft.VisualBasic.PowerPacks.ShapeContainer

For i = 4 To 0 Step-1 a(i)= New OvalShape

a(i).Size = New Size(20, 20)a(i).Top = 360 a(i).Left = 120 + 20 * i a(i).FillStyle = FillStyle.Solid a(i).FillColor = Color.Yellow a(i).Parent = canvas Next

a(0).FillColor = Color.Red ‘給蛇上色 a(0).BackColor = Color.Red Dim i As Integer

canvas.parent = Me.Panel1 For i = 0 To 20 '形成網格,以兩點坐標來確定線的位置

line(i)= New LineShape line(i).X1 = 0 line(i).X2 = 400 line(i).Y1 = 20 * i

line(i).Y2 = 20 * i line(i).Parent = canvas Next

For i = 21 To 41 line(i)= New LineShape line(i).X1 = 20 *(i21)line(i).Y1 = 0 line(i).Y2 = 400 line(i).Parent = canvas 蛇已經做好，那么我們可以進行下一步：讓蛇隨鍵盤的上下左右運動起來。這一步曾經困擾我很久，但通過上網我發現每一個鍵盤都對應著一個代碼，如：左37，上38，右39，下40。首先得讓控件響應鍵盤事件，其次讓蛇動，而蛇的運動可看作蛇頭移動，蛇身跟隨前一個身體。由此可以用以下代碼解決：

Private Sub form_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)Handles Me.KeyDown Select Case e.KeyCode Case 37 If d <> 2 Then d = 0 ‘這樣能讓蛇不往回走

Case 38 If d <> 1 Then d = 3 Case 39 If d <> 0 Then d = 2 Case 40 If d <> 3 Then d = 1 End Select

End Sub Select Case d Case 2 For i = num To 1 Step-1 a(i).Left = a(i1).Top Next

a(0).Left += 20 Case 1 For i = num To 1 Step-1 a(i).Left = a(i1).Top Next

a(0).Top += 20 Case 0 For i = num To 1 Step-1

a(i).Left = a(i1).Top Next

a(0).Left-= 20 Case 3 For i = num To 1 Step-1 a(i).Left = a(i1).Top Next

a(0).Top-= 20 End Select 然后我們可以來設置食物來讓蛇吃，我用rectangleshape控件來制造食物，就像和畫出蛇身一樣寫，但是每當被吃后它有出現，而且不能出現在蛇身上。首先，它是隨機出現的，我們可用隨機函數，然后可通過判斷讓它不出現在蛇身上。對于數字1，2，3，4，5；我用lebal控件，然后讓其和食物坐標同步，這樣看起來就像數字在食物上一樣。代碼如下：

For i = 0 To 4 If a(0).Top = food(i).Top And a(0).Left = food(i).Left Then ‘判斷是否吃到

score += i + 1 ‘分數增加 num += i + 1 ‘蛇身的個數增加 food(i).Visible = False word(i).Visible = False

ReDim Preserve food(4)ReDim Preserve word(4)food(i)= New RectangleShape food(i).Size = New Size(20, 20)Randomize()food(i).Left = Int(Rnd()* 20)* 20 ‘隨機確定新坐標

food(i).Top = Int(Rnd()* 20)* 20 L2: For g = 0 To num1 If food(i).Left = a(g).Left And food(i).Top = a(g).Top Then

Call setloction(i)GoTo L2 End If

Next

food(i).FillStyle = FillStyle.Solid food(i).Parent = canvas word(i)= New Label word(i).Text = i + 1 word(i).Size = New Size(10, 10)

word(i).Top = food(i).Top + 5 word(i).Left = food(i).Left + 5 word(i).Parent = canvas ReDim Preserve a(num)‘蛇長長，重新定義動態數組

For k = numii1 If a(0).Top = barrier(k).Top And a(0).Left = barrier(k).Left Then

Timer1.Enabled = False a(0).FillColor = Color.Red lifetime-= 1 If score < 3 Then

If lifetime < 1 Then

MsgBox(“GAME OVER!”, 64, “貪吃蛇”)recordname = InputBox(“GAME OVER!” & Chr(13)& “你的成績為” & Int(score)& “分用時” & _ Int(gameinterval * gametime / 1000)& ”秒。“ & Chr(13)& ”請留下大名“, ”貪吃蛇“, ”無名氏“)Else

p = MsgBox(”Do you want to continue?“, vbYesNo, ”生命值“ & lifetime)If p = 6 Then

Exit For

End If

End If

Else

If lifetime < 1 Then

recordname = InputBox(”GAME OVER!“ & Chr(13)& ”你的成績為“ & Int(score)& ”分用時” & _ Int(gameinterval * gametime / 1000)& “秒。” & Chr(13)& “請留下大名?”, “貪吃蛇”, “無名氏”)Else

p = MsgBox(“Do you want to continue?”, vbYesNo, “生命值” & lifetime)If p = 6 Then

Exit For

End If

End If

End If

Call record()Call initialize()Exit For

End If

Next 想要形成障礙物，在此我們需要用到文件的讀操作。主要代碼如下：

FileOpen(1, filelacation, OpenMode.Input)' 讀取墻壁，形成迷宮 bnum = 1 Dim L As Integer

Dim T As Integer

For i = 1 To 419 j = InputString(1, 2)If Val(j)= 1 Then

barrier(bnum)= New RectangleShape barrier(bnum).Left = 20 * L barrier(bnum).Top = 20 * T barrier(bnum).Size = New Size(20, 20)barrier(bnum).FillColor = barriercolor barrier(bnum).FillStyle = FillStyle.Solid barrier(bnum).Parent = canvas bnum += 1 End If

If Val(j)= 0 Then ‘用此方法使讀出的內容與坐標對應

End If

If j = vbCrLf Then L-= 1 End If L += 1

If L = 20 Then L = 0 : T += 1 End If

Next

FileClose(1)在此基礎上便可調用其它的過程，比較簡單。代碼如下：

Private Sub 開始ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 開始ToolStripMenuItem.Click If Timer1.Enabled = False Then Timer1.Enabled = True

Exit Sub

End If

If Timer1.Enabled = True Then Timer1.Enabled = False

End If

End Sub

Private Sub 新開局ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 新開局ToolStripMenuItem.Click Call initialize()End Sub

Private Sub 關于ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 關于ToolStripMenuItem.Click MsgBox(“貪吃蛇vb2010.2016.3.20”, 64, “版本說明”)End Sub

Private Sub 幫助ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 幫助ToolStripMenuItem1.Click Form3.Show()End Sub

Private Sub 設置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 設置ToolStripMenuItem.Click Form2.Show()End Sub

Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 退出ToolStripMenuItem.Click

End

End Sub

Private Sub 排行榜ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 排行榜ToolStripMenuItem.Click Form6.Show()End Sub

2.2窗體Form2.vb【設計】

這個界面是第二重要的，當然它的設計也較麻煩。設計的障礙物的類型用到了listbox控件，也用到了菜單欄與pictureBox控件。而調用的過程shapeview所用到的內容與Form1.vb中的類似，因此方便好多。

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load ListBox1.Items.Add(“方盒形”)ListBox1.Items.Add(“隧道形”)ListBox1.Items.Add(“螺旋形”)ListBox1.Items.Add(“路障形”)ListBox1.Items.Add(“彎曲形”)ListBox1.Items.Add(“怪異形”)ListBox1.Items.Add(“無障礙形”)PictureBox2.BackColor = Color.DarkGray PictureBox1.BackColor = Color.Aqua TextBox1.Text = lifetime Call shapeview()End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles ListBox1.SelectedIndexChanged

If ListBox1.SelectedIndex = 0 Then filelacation = “maze1方盒形.txt” filename = “方盒形” mazenum = 1 End If

If ListBox1.SelectedIndex = 1 Then filelacation = “maze1隧道形.txt” filename = “隧道形” mazenum = 2 End If

If ListBox1.SelectedIndex = 2 Then filelacation = “maze1螺旋形.txt” filename = “螺旋形”

mazenum = 3 End If

If ListBox1.SelectedIndex = 3 Then filelacation = “maze1路障形.txt” filename = “路障形” mazenum = 4 End If

If ListBox1.SelectedIndex = 4 Then filelacation = “maze1彎曲形.txt” filename = “彎曲形” mazenum = 5 End If

If ListBox1.SelectedIndex = 5 Then filelacation = “maze1怪異形.txt” filename = “怪異形” mazenum = 6 End If

If ListBox1.SelectedIndex = 6 Then

filelacation = “maze1無障礙形.txt” filename = “無障礙形” mazenum = 7 End If

For k = 1 To oldnum121)line1(i).X2 = 10 *(i單車.wav“

'musicname = ”MUSIC陳奕迅-單車.wav“

My.Computer.Audio.Play(My.Application.Info.DirectoryPath & ”MUSIC陳奕迅-單車.wav“)End If

End Sub

Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles RadioButton6.CheckedChanged If RadioButton6.Checked = True Then

'Form1.AxWindowsMediaPlayer1.Ctlcontrols.stop()

My.Computer.Audio.Stop()End If

End Sub End Class

2.6窗體Form5.vb[設計】

此窗體用來調節蛇運動的快慢程度。

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles TrackBar1.Scroll

Dim v As Integer v = TrackBar1.Value timeinterval = 500 /(2 ^ v)Label3.Text = TrackBar1.Value End Sub

2.7窗體Form6.vb[設計】

此窗體用來顯示玩家的成績，用到了listBox控件來顯示成績，點擊清除所有記錄可還原，recordlist（）用來記錄文件中的每一行。Public Class Form6

Public Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load For i = 1 To 7 ListBox1.Items.Add(Form1.recordlist(i))Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click ListBox1.Items.Clear()FileOpen(1, My.Application.Info.DirectoryPath & ”clear.txt“, OpenMode.Input)For i = 1 To 7 Form1.recordlist(i)= LineInput(1)ListBox1.Items.Add(Form1.recordlist(i))Next

FileClose(1)End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub End Class

2.8標準模塊

定義各種變量

Imports Microsoft.VisualBasic.PowerPacks Module Module1

Public barriercolor As System.Drawing.Color = Color.DarkGray

‘記錄障礙物的顏色

Public panalcolor As System.Drawing.Color = Color.Aqua ‘記錄面板的顏色

Public oldnum As Integer

Public oldnum1 As Integer

Public bnum1 As Integer

Public filelacation As String = ”maze1螺旋形.txt“

Public filename As String = ”螺旋形"

Public timeinterval As Integer = 1000 Public mazenum As Integer = 2 ‘為每一個障礙物類型做標記

Public lifetime As Integer = 1 ‘生命次數

Public barrier(400)As RectangleShape End Module

3、設計過程遇到的主要問題及解決方法

3.1剛開始時對于畫出后面的線條時我是添加了41個Lineshape控件，一個個確定等距的坐標將其畫下，廢了我好大的氣力，但后來受到了動態添加控件的觸動用數組將其解決。

3.2如何引發鍵盤事件曾一度困擾我，了解了鍵盤下所代表的代碼意義，之前一直使用的是select case keycode代碼，怎么也無法使其響應。后來看看課本上關于鍵盤的代碼，隨便使用了select case e.keycode代碼，令我欣慰的是竟然成功了。

3.3下一個是如何在界面上顯示出障礙物。根據所提供的文件夾，了解起大概用法，為了讓我編程更容易，我對其文件做了一定的修改。

3.4最難的是過程之間的調用與聯系，解決的辦法就是不斷的進行調試，修改。比如在我編寫重新開局的菜單代碼時總是會出現兩只蛇；又如在編寫排行榜時便不是很方便的能使用listbox.Items.remove這行代碼，因此我得另辟蹊徑。

4、設計中尚存的不足分析

4.1由于我采用的編寫方法是將完成這個貪吃蛇游戲所需滿足的要求分開，一個一個的進行攻破，我會發現越往后編寫越要考慮到之前的內容，在解決程序之間的關系會越麻煩，調試的次數更多。而且編完后縱觀全局會發現代碼的結構較混亂，重復性高，他人難以看的明白。

4.2 在定義變量時我盡量定義其為全局變量和模塊級變量。部分變量為了簡單或難以翻譯為英文的僅僅使用了字母代替，對讀代碼有一定困難。

4.3 我所犯下的最大錯誤就是使用控件來顯示蛇，因為在運行程序時蛇身會隨著長度的增加閃爍的愈發厲害。可能是控件太多，程序運行不流暢，效率不高。

4.4 我想在游戲中添加一些音樂，并且用到了循環播放的代碼，但是至今我還是沒有想到如何能將播放中的音樂暫停。還有的就是怎樣才能同時播放兩種聲音。

4.5 對于排行榜的編寫存在一些問題，比如：怎樣才能使顯示的行間距更開；如何才能使所顯示的各項指標在其對應的列下，在這一點上有很大的缺陷。可能程序要用到dictionary方法。

4.6 當我運行程序時，如果我點了界面上的某條線的話，蛇就不再響應鍵盤事件了，必須使用ctrl+方向鍵才能使其響應鍵盤事件。應該是我點擊時失去了焦點導致無法正常運行。

5、心得體會

這個程序從難度上講足足有四顆星，因此我想說我確實摸索了很久，從界面的制作排版到代碼的編寫。由于計算機編程知識當初只學了些皮毛，很多次我在編程時不斷調試卻依然出現這樣那樣的毛病，可能是無意中拼寫錯誤，但有些確實是因為不了解vb的某些較為冷僻的用法所致。這段時間，常會向同學請教，也自覺地去借了些書看看，基本上完成了要求，但是功能、界面都還不是很完善，我會借助以后的時間繼續去加工的，我需要的是學以致用。

我體會到了編寫程序是個有條理的邏輯過程，首先必須有個大致的思路，整體的規劃出來。然后再是分步地去具體完成，尤為重要的是需要投入相當一部分精力去精益求精，這樣你的成果才不會是毛糙的。思維調動是件另人愉快的事情，而我們應該去學會享受腦力勞動的過程，哪怕是一次次地失利。這就是2個月的課程設計所教會我的。

6、參考文獻

[2].王棟，visual basic程序設計實用教程，北京，清華大學出版社

第四篇：vb課程設計心得體會

2023vb課程設計心得體會

2023vb課程設計心得體會1

在課程設計過程中，雖然我對程序設計不是很熟悉，但是通過老師詳細的講解，我按照步驟去做，遇到問題的時候先自己想方法解決，解決不了的就去問同學，問老師，通過這種學習，收獲很大，學會了自己解決棘手問題，知道了團結的力量。

剛開始做程序的時候，就是完全按照老師的要求，老師的步驟去做的，結果卻發現，怎么運行不了？明明是按照老師的步驟去做的，明明是按照老師的要求去做的，但是就是會遇到一些問題使程序運行不了。開始也沒有管那么多，仍然是按照課本上的去做。 第一次，在上機課的時候，我根據老師講的，在機房里做了一次，但沒有做完。于是把東西存在了自己的MP3里面，以便以后上機的時候再來做。但真的沒有想到，我的MP3，在一次上電子閱覽室的時候，忘了拔了。于是乎，我辛辛苦苦做了一大節課的程序就這樣沒了。心里真的很不舒服，但是，不舒服歸不舒服，這個程序，還是得繼續做下去，這么以點點小小的失誤不算什么，然后跑到學校機房，繼續我的VB程序設計。但由于時間問題，做的還是有點粗糙，還是不免存在一定的問題，比方說開始的'時候翻開不了文件，總是出現錯誤，自己總也找不出來，后來請教了一下同學，結果發現時代碼的編寫出現了錯誤，把代碼改正來之后，程序終于可以翻開運行了。然后，檢查的時候，又發現“查找”運行錯誤，又是代碼那里出現的黃色的字樣，結果發現，是代碼拼寫錯誤，于是，拿著同學的代碼比照一下，發現了錯誤所在之地，然后更正了過來。

經過一番努力，程序終于做完了。

后來，室友看了我的程序，她說運行不了的，就是出現了錯誤，出現了錯誤，就應該改正啊，這時的我才恍然大。“是錯誤，那么就要改正的！”于是當天，我就去了學校機房，再一次運行我的程序，仍然出現錯誤情況，需要調試，我回憶起上課的時候，老師是怎么跟我們講的，哪里出現了錯誤，需要怎么樣改正。于是，我就耐著性子，一個一個，一個一個得改正，代碼，一個一個得檢查，終于完成了。完成之后，我在運行一下，一切正常，心里終于舒了一口氣。經過這次的VB程序設計，讓我知道了更多學習的方法。具體如下：

（1）保持良好的學習心態，第一，要有自信，自強，積極主動學習、第二，克服畏難情緒，樹立學好程序設計的信心。

（2）要了解概念：VB程序設計本身并不復雜，變量，函數，條件語句，循環語句等概念較多、要真正能進行程序設計，就要深入理解這些概念、應該重視概念的學習。

（3）自己動手編寫程序，親自動手進行程序設計是培養邏輯思維的好方法、因此我們得多動手編寫程序，逐漸提高寫程序的能力、自己動手，編寫一些程序，才會有成就感，進而對課程產生興趣，做起來才比較沉著、等你在編寫大量程序之后。

（4）上機調試程序應注意多問問同學，多問問老師，把不懂的地方標出來。

（5）養成良好的編程習慣，第一，程序構思要有說明；

第二，學會如何調試程序；第三，對運行結果要做正確與否的分析。 但是，如果以前上課的時候不認真的聽講的話，做這個程序設計就會有點點困難，所以，同時也在提醒我們，學習，任何時候都要認真！

總之，在此次的VB程序設計中，如果沒有足夠的耐心，就不可能完成的很好。所以此次VB程序設計，讓我做事情更加有耐心，更加細心，學習更加認真仔細。

2023vb課程設計心得體會2

VB課程是計算機科學與技術本科專業的專業骨干課。本課程主要通過VB論述了面向對象程序設計和組建編程的機理，涉及到控制臺界面程序、Windows窗體程序、圖形界面編程、數據庫、網絡應用系統等多方面的內容。內容量大，程序設計復雜、同時VB程序調試是在VS環境下進行，在編程過程中環境會自動為用戶生成一些必要代碼，以降低編程難度，降低學生的編程負擔，但這也帶來了一些問題，如：學生對VB的程序結構把握和了解不全面，對編程機理了解不透徹，學生容易盲目照搬書上代碼，不求甚解，似是而非。為了解決這個問題，我們采取了課程設計的方法來加深學生對知識的理解，將書本知識遷移到新的問題解決中，提高學生分析問題和解決問題的能力。

要求學生在學習該課程中，應用每個相對獨立的、完整的單元知識解決一個實際項目，設計編寫一個小作品；學完整個課程后，完成一個綜合性比較強的編程項目，使學生對整個課程內容進行全面的總結、梳理，以項目完成為手段，全面鍛煉學生分析問題和解決問題的能力。

一、目的

1、為使學生掌握VB編程、面向對象程序設計思想和組建編程的知識實際技能，除了系統地講授必要的VB知識，上機練習，做作業外，還應該對學生作較全面的編程技能和分析問題解決問題的能力訓練，即作課程設計，以達到如下目的：具體應用和鞏固本課程及有關先修課的基礎理論和專業知識，了解面向對象程序設計思想，掌握應用VB。NET編程和組建編程程序設計方法，培養學生初步的項目設計能力。

2、獨立地根據一定的項目要求，查閱資料，寫出項目開發目標，分析開發過程中所用到的課程知識，提出解決方案，編碼并上機調試完成系統，培養學生分析問題和解決問題的能力。課程設計是教學過程中的一個重要環節，必須認真對待。

二、要求

在課程設計中要求學生注意培養認真負責，踏實細致的工作作風和保質保量，按時完成任務的習慣。在設計過程中必須做到：

1、在某個教學單元結束后，完成一個教師布置的、或學生自己擬定的、知識覆蓋整個章節的，有一定綜合性和難度的項目，要求學生描述出要達到的目標、圍繞目標，收集資料和素材，復習所需的課程知識，描述問題解決方案、編寫程序上機調試，直到項目的完成。最后的成果要有完成的作品和相應的文檔。

2、在課程結束后，完成一個大的'編程項目，其要求與課程單元的項目差不多，只是綜合性更強、難度更大、知識覆蓋面更廣，工作量更大，以全面促進學生復習和梳理學科教學內容，提升學生分析問題、解決問題和文檔的書寫和編制。

三、采取的措施

為了保證課程設計能夠按照預定的目標和計劃進行，我們還采取了以下措施來加強對學生監督和管理。

1、首先講清楚課程設計的意義，讓學生能夠自覺積極主動地進行課程設計，發揮學生的主觀能動性；

2、在課程設計過程中，教師隨時巡視和監督，了解把握和控制課程設計的進展；

3、將學生的作品集中展示、評價、打分，可以讓學生在展示的過程中獲得成就感、自豪感，學生之間可以相互學習、取長補短，同時在此過程中可以明確標準，自覺地按照標準來調整自己地學習；

4、將課程設計作為學期成績的一部分記載，大約占10%，必須完成課程設計后才能參加考試，課程設計不過關，即使考得再好，也不能過。

四、取得的效果

通過以上措施，學生全部都完成了自己的項目、將所有的作品通過超鏈接網頁的方式集成在一個作品集中，所有的學生都完成了4～6個小作品，每個作品都反映了學生應用課程的某部分知識解決某個問題的結果，通過完成這些作品，學生鞏固、加深了對相關知識的理解，加強了知識之間的聯系，促進了知識的遷移和應用。同時學生看到凝聚著自己的心血、汗水、思維和創新的作品，就像一個母親看到自己呱呱墜地孩子那樣充滿了喜悅，激發了學生的創造欲望。通過同學之間作品的對比，提供了一個相互學習交流的平臺，激發了學生的競爭意識。總之通過課程設計受到了良好的多方面的效果，從考試成績來看，級本科全部都及格了。

2023vb課程設計心得體會3

在前兩周中我們進行的VB課程設計中，我獲得了一些心得體會。

這是我第一次系統與完整的接觸軟件設計。我們組的題目是關于“俄羅斯方塊游戲”的設計。我在組內主要負責：

（1）游戲界面的設計；

（2）俄羅斯方塊的造型；

（3）游戲級別的自由選擇；

（4）游戲速度的自由選擇；

（5）游戲的背景音樂。；

在這次課程設計中，我的能力得到了鍛煉，自己也有許多體會。這次的課程設計是自己第一次全面接觸軟件的制作過程。以前僅僅是對軟件的開發有一個大體的印象，通過這次的課程設計，我對軟件的開發有了切身的體會。軟件并不像我原來所想的那樣十分神秘，而是有著一個相對固定的模式和流程。我們只要按照這個模式和流程，就能夠比較標準的完成一個軟件的制作。軟件的制作是一個系統的工程，需要我們掌握多方面的知識。在這次課程設計中，我覺得自己的知識面依然有所欠缺。因此我需要在以后的學習中加以注意，要不斷的提高自己的`知識面與知識層次。

我在這次課程設計中主要負責：

（1）游戲界面的設計；

（2）俄羅斯方塊的造型；

（3）游戲級別的自由選擇；

（4）游戲速度的自由選擇；

（5）游戲的背景音樂。在這次課程設計之前，我對VB的編程不是特別的熟悉，這次的課程設計，我是一邊學習，一邊總結，一邊進步。在編程的過程中，我體會到其實各種計算機語言是有相通之處的。在以前的學習中，我只接觸過C語言，這次在VB課程設計中，我發現C語言中的許多知識可以應用到VB中，兩者具有相通的數據結構。所以我認為現在對計算機語言的學習，不要貪多，而應耐心的學好一門主要的計算機語言，在這個根底上，去學習其他的語言，這樣會使學習效率大大提高。

在編程的過程中，我體會到編程是十分辛苦的。在課程設計這一段時間里，我每天的生活根本是在不斷的調試程序和修改代碼中完成的。有時，這種生活令人感到乏味和疲倦，但是在這種近似枯燥的生活中，我的編程水平有了一定程度的提高，這是課程設計中組成員互相幫助，有問題兩個人一起討論解決，大大節省了時間。互相都提出了很好的建議，使我們的課程設計得以較好的完成。 課程設計已經結束了，但在課程設計的這些體會要應用到今后的日常學習中去。在新的學期，我覺得自己要在以下幾個方面加以注意：

首先，在學習專業課的時候要注意理論聯系實際。注意將課本上的知識應用到日常的操作中，真正做到學以致用。只有這樣，才能做到目的明確，才能有足夠的學習動力。

其次，在學習過程中要經常與同學進行交流，討論所遇到的問題，并一起解決。在討論中解決問題，會節約很多時間，并且在交流的過程中，我們也可以學到更多的東西。

課程設計已經已經完美解暑，這次課程設計給我打來了很多新的體會，在以后的學習中要不斷總結，不斷改良，使自己的成績有新的提高。只有不斷努力，才會使自己變得更加優秀。

2023vb課程設計心得體會4

經過近一個月的設計與制作，我們組的《世界杯觀戰指南》終于完成了，現將過程中遇到的問題、獲得的體會記錄如下。

這次數據庫課程設計中我主要負責用戶登錄、注冊及數據庫維護方面的'設計。

1、Delphi是一款功能很強大的軟件，其控件之多超出了我的想象，因此在運用時要借助很多資料。要學會查找和利用現有資料來解決問題

2、在設計中用到了很多SQL語句，因此對SQL及程序語句地掌握也是必不可少的。

3、后期的軟件制作都是以前期的工作為基礎的，因此在前期的需求分析及數據庫設計階段要認真、細致。

4、我們是三個人的小組，在設計過程要互相協調，合作。這樣才能充分發揮每個人的作用。

2023vb課程設計心得體會5

時間真的如輪一樣在飛轉，一周的實訓又一次即將結束，可是，感覺仿佛只過去了一天。實訓結束也意味著這個學期也將結束。不管時間多么的飛快，這周短暫的VB程序設計實訓同樣讓我們收益不少。 首先，不說我們學到了多少專業知識，也不說我們學到了多少專業技能。在這樣零下1度的天氣中實訓，著實是鍛煉我們的意志力。人都有惰性，這是無可厚非的事實。在寒冷的天氣里，賴床就更是常有的事。因為要實訓，我們很多平常經常遲到的同志不得不早起。就說實訓的第一天，外面飄著白雪，早上，手機的鬧鈴已經響過第二遍了。

我們宿舍的幾個姐妹還躲在被窩里無動于衷。可是，當一個姐們突然說了一句，“這周要實訓”時，我們都‘呼啦’爬了起來，以驚人的速度洗漱好，急忙趕到教室。不管平時多么懶散的同學，這次實訓都表現的異樣的認真。這應該算是實訓賦給我們的特別禮物吧！ 實訓的目的無非就是訓練我們的操作能力，以及提高我們的專業技能。實踐出真知，這是不變的.真理。毫無疑問，這次VB程序設計實訓讓我們每一位同學都在不同程度上提高了編程技能。編程是我們的專業課程，可是，在老師平時上課的時候，班上大部分同學都以怠慢的態度對待。所以，對這門課程學的泛泛的。

實訓前，如果要我們做一個管理系統，我想班上能完成任務的同學應該寥寥無幾。在實訓前，我們常抱怨，編程有多么的難。一個學期的學習，我們居然都不能完全的做出一個管理系統來。而這次短短的實訓，卻讓我們學會了做管理系統。沒錯，就是短短的幾天，我們每位同學都完成了一個自己做的管理系統。這說明，編程它本身不是很難，而在于你是不是真正的學習了。這次實訓讓我深刻的明白，你的態度決定一切。就以我自己的經歷來說，一個學期的學習還沒沒短短一周學到的多。這是為什么？主導因素就是態度。在平日的學習中，我抱著不以為然的態度，以懶散的心態對待這門課程。所以，一個學期下來，我的編程學的一塌糊涂。而這次實訓，就像是一場實戰，必須認真對待。而這幾天踏踏實實的學習，將我平日落下的學習全都補救過來了。真的非常感謝這次實訓。通過這次實訓，我的編程技能確比之前實提高了不少。

更重要的是，在這次實訓中，讓我明白：學習或生活中發現了自己的不足，就要及時改進。不管是在學習中，還是在生活中，有不懂的沒關系。而，如果不懂，也不去問，就是一件很悲哀的事情。這次實訓中，我遇到了很多不懂的問題，但是，這些不懂最后都被我弄懂了。因為遇到不懂的不會做的我及時主動詢問了周圍的同學。同學不懂的，我又詢問了老師。不要認為問別人是一件讓人很羞恥的事情。不懂就問，不但不會讓你蒙羞，反而能顯示你的真實與謙虛。

總之，這次實訓我又有不少新收獲。

最后，還要感謝這次實訓期間周圍同學的熱情幫助和老師的熱心講解與指導。

2023vb課程設計心得體會6

在前兩周中我們進行的VB課程設計中，我獲得了一些心得體會。

這是我第一次系統與完整的接觸軟件設計。我們組的題目是關于“俄羅斯方塊游戲”的設計。我在組內主要負責（1）游戲界面的設計（2）俄羅斯方塊的造型（3）游戲級別的自由選擇（4）游戲速度的自由選擇（5）游戲的背景音樂。在這次課程設計中，我的能力得到了鍛煉，自己也有許多體會。這次的課程設計是自己第一次全面接觸軟件的制作過程。以前僅僅是對軟件的開發有一個大體的印象，通過這次的課程設計，我對軟件的開發有了切身的體會。軟件并不像我原來所想的那樣十分神秘，而是有著一個相對固定的模式和流程。我們只要按照這個模式和流程，就能夠比較規范的完成一個軟件的制作。軟件的`制作是一個系統的工程，需要我們掌握多方面的知識。在這次課程設計中，我覺得自己的知識面依然有所欠缺。因此我需要在以后的學習中加以注意，要不斷的提高自己的知識面與知識層次。

我在這次課程設計中主要負責（1）游戲界面的設計（2）俄羅斯方塊的造型（3）游戲級別的自由選擇（4）游戲速度的自由選擇（5）游戲的背景音樂。在這次課程設計之前，我對VB的編程不是特別的熟悉，這次的課程設計，我是一邊學習，一邊總結，一邊進步。在編程的過程中，我體會到其實各種計算機語言是有相通之處的。在以前的 學習中，我只接觸過C語言，這次在VB課程設計中，我發現C語言中的許多知識可以應用到VB中，兩者具有相通的數據結構。所以我認為現在對計算機語言的學習，不要貪多，而應耐心的學好一門主要的計算機語言，在這個基礎上，去學習其他的語言，這樣會使學習效率大大提高。

在編程的過程中，我體會到編程是十分辛苦的。在課程設計這一段時間里，我每天的生活基本是在不斷的調試程序和修改代碼中完成的。有時，這種生活令人感到乏味和疲倦，但是在這種近似枯燥的生活中，我的編程水平有了一定程度的提高，這是課程設計中我最大的收獲。以前學習計算機語言，總是靜不下心來，不能認真的看書。這次課程設計，為了順利的完成編程工作，我認真的學習了VB語言，并有了一定的心得體會。所以在以后的學習中，自己全身心的投入，這樣學習才會有效率，才會有效果。

這次的課程設計是按小組進行的，我們的小組由兩名同學組成。軟件的設計本來就是一個團體的智慧結晶。這次課程設計也給了我們一次體驗團體合作的機會。在課程設計中，我深深的體會到集體的智慧于力量是個人所無法比擬的。在課程設計中，我們的小組成員互相幫助，有問題兩個人一起討論解決，大大節省了時間。互相都提出了很好的建議，使我們的課程設計得以較好的完成。

課程設計已經結束了，但在課程設計的這些體會要應用到今后的日常學習中去。在新的學期，我覺得自己要在以下幾個方面加以注意：

首先，在學習專業課的時候要注意理論聯系實際。注意將課本上的知識應用到日常的操作中，真正做到學以致用。只有這樣，才能做到目的明確，才能有足夠的學習動力。

其次，在學習過程中要經常與同學進行交流，討論所遇到的問題，并一起解決。在討論中解決問題，會節約很多時間，并且在交流的過程中，我們也可以學到更多的東西。

課程設計已經已經完美解暑，這次課程設計給我打來了很多新的體會，在以后的學習中要不斷總結，不斷改進，使自己的成績有新的提高。只有不斷努力，才會使自己變得更加優秀。

2023vb課程設計心得體會7

VB.NET課程是計算機科學與技術本科專業的專業骨干課。本課程主要通過VB.NET論述了面向對象程序設計和組建編程的機理，涉及到控制臺界面程序、Windows窗體程序、圖形界面編程、數據庫、網絡應用系統等多方面的內容。內容量大，程序設計復雜、同時VB.NET程序調試是在VS.NET環境下進行。

在編程過程中環境會自動為用戶生成一些必要代碼，以降低編程難度，降低學生的編程負擔，但這也帶來了一些問題，如：學生對VB.ENT的程序結構把握和了解不全面，對編程機理了解不透徹，學生容易盲目照搬書上代碼，不求甚解，似是而非。為了解決這個問題，我們采取了課程設計的方法來加深學生對知識的理解，將書本知識遷移到新的問題解決中，提高學生分析問題和解決問題的能力。

要求學生在學習該課程中，應用每個相對獨立的、完整的單元知識解決一個實際項目，設計編寫一個小作品;學完整個課程后，完成一個綜合性比較強的編程項目，使學生對整個課程內容進行全面的總結、梳理，以項目完成為手段，全面鍛煉學生分析問題和解決問題的能力。

一、目的

1、為使學生掌握VB.NET編程、面向對象程序設計思想和組建編程的知識實際技能，除了系統地講授必要的VB.NET知識，上機練習，做作業外，還應該對學生作較全面的編程技能和分析問題解決問題的能力訓練，即作課程設計，以達到如下目的：具體應用和鞏固本課程及有關先修課的基礎理論和專業知識，了解面向對象程序設計思想，掌握應用VB.NET編程和組建編程程序設計方法，培養學生初步的項目設計能力。

2、獨立地根據一定的項目要求，查閱資料，寫出項目開發目標，分析開發過程中所用到的課程知識，提出解決方案，編碼并上機調試完成系統，培養學生分析問題和解決問題的能力。課程設計是教學過程中的一個重要環節，必須認真對待。

二、要求

在課程設計中要求學生注意培養認真負責，踏實細致的工作作風和保質保量，按時完成任務的習慣。在設計過程中必須做到：

1、在某個教學單元結束后，完成一個教師布置的、或學生自己擬定的、知識覆蓋整個章節的，有一定綜合性和難度的項目，要求學生描述出要達到的目標、圍繞目標，收集資料和素材，復習所需的課程知識，描述問題解決方案、編寫程序上機調試，直到項目的完成。最后的成果要有完成的作品和相應的文檔。

2、在課程結束后，完成一個大的編程項目，其要求與課程單元的項目差不多，只是綜合性更強、難度更大、知識覆蓋面更廣，工作量更大，以全面促進學生復習和梳理學科教學內容，提升學生分析問題、解決問題和文檔的書寫和編制。

三、采取的措施

為了保證課程設計能夠按照預定的目標和計劃進行，我們還采取了以下措施來加強對學生監督和管理。

1、首先講清楚課程設計的意義，讓學生能夠自覺積極主動地進行課程設計，發揮學生的主觀能動性。

2、在課程設計過程中，教師隨時巡視和監督，了解把握和控制課程設計的進展。

3、將學生的作品集中展示、評價、打分，可以讓學生在展示的過程中獲得成就感、自豪感，學生之間可以相互學習、取長補短，同時在此過程中可以明確標準，自覺地按照標準來調整自己地學習。

4、將課程設計作為學期成績的一部分記載，大約占10%，必須完成課程設計后才能參加考試，課程設計不過關，即使考得再好，也不能過。

四、取得的`效果

通過以上措施，學生全部都完成了自己的項目、將所有的作品通過超鏈接網頁的方式集成在一個作品集中，所有的學生都完成了4～6個小作品，每個作品都反映了學生應用課程的某部分知識解決某個問題的結果，通過完成這些作品，學生鞏固、加深了對相關知識的理解，加強了知識之間的聯系，促進了知識的遷移和應用。同時學生看到凝聚著自己的心血、汗水、思維和創新的作品，就像一個母親看到自己呱呱墜地孩子那樣充滿了喜悅，激發了學生的創造欲望。通過同學之間作品的對比，提供了一個相互學習交流的平臺，激發了學生的競爭意識。總之通過課程設計受到了良好的多方面的效果，從考試成績來看，20xx級本科全部都及格了。

2023vb課程設計心得體會8

首先了解到VB的特點，VB是在原來的Basic語言基礎上發展而來的。Visual指的是可視的圖形用戶界面開發方法。不需編寫大量代碼去描述界面元素的外觀和位置，只要把預先建立的對象添加到屏幕上的某點即可。如果使用者諸多PAINT之類的繪圖程序，則實際上已經掌握了創建用戶界面的必要技巧。

BASIC指的是B語言，一種在計算機技術發展歷史上應用得最為廣泛的.語言之一。VB在原來BASIC語言的基礎上進一步發展至今包含了數百條語句，函數及關鍵詞，其中很多和WINDOWS GUI有直接關系，VB不僅是可視語言，而且是面向對象的編程語言。其特點是概念多，實踐性強，涉及面廣。

之后，了解到一些基本的概念，含義。例如類，就是創建對象實例的模板包含了創建的屬性描述和行為特征的定義。而此中的對象又是類的一個實例，繼承了類的屬性，方法，而VB中長用的對象有窗體，控件等。但我們在建立之前必須清楚對象的三要素:屬性，方法和事件。而建立程序的步驟大致可分為:

(1)啟動程序，裝載和顯示窗體。

(2)窗體等待事件的發生。

(3)事件發生時，執行對應的事件發生過程。

(4)再重復(2)(3)的過程(5)最后直接遇到“END”結束語句結束程序的運行或按“結束”強行停止程序的運行。

再用VB創建一個應用程序，第一步驟是創建窗體，它是用戶與應用程序進行交互操作的可視部分，窗體是創建界面的基本構造模塊，也是創建應用程序所使用的對象。而后必要設置窗體的屬性，從而構出窗體的外觀，設置好的窗體，窗體就作為對象，能夠對其定義的事件作出響應，這也是所謂的窗體事件，而窗體事件又包括窗體本身事件，鍵盤事件和鼠標事件。

在了解窗體基本知識就還應了解VB的語言基礎，其中包括了代碼模塊(窗體模塊，標準模塊，類模塊)，注釋，分行和續行，數據類節(字節型，邏輯型，數值型，日期型)，變量與常數，運算符與表達式，數組，控制結構，子過程和函數。同時，為了編程，我們還應培養良好的編程習慣，首先是對象，變量及過程的命名約定，然結構化編碼約定。

在VB中創建應用程序之際也就是和對象打交道之時，對象是代碼和數據的組合，可以作為一個單位來處理，對象可以是應用程序的一部分，比如可以是控件，窗體，或數據訪問對象。控件也是對象中的一種，主要用來獲取用戶的輸入信息和顯示輸出信息。應用程序中可用的控件包括文本框，命令按扭和列表框。而通過另外一些控件可以訪問其他應用程序并處理數據。

VB程序設計同時可設計出一個更好的菜單系統，這樣就可以使用戶了解到更大量有關應用程序設計和結構的信息，精心規劃菜單與工具欄有助于提高應用程序的可用性。同時在基于WINDOWS的應用程序中，對話框被用來提示應用程序繼續運行所需的數據或者用戶顯示信息。對話框是一種特殊類型的窗體對象，在VB中按對話框的創建有三種類型的對話框，他們是預定義對話框，自定義對話框和標準對話框。對于自定義對話框和標準對話框，使可以完成與用戶之間的交互。

學習VB程序設計后，增加對此的認識，深入學習VB程序就可掌握新的軟件，新的編程環境，學習此課程，也可學會使用開發環境，開發工具的方法。才能更好地跟上計算機學科的發展。

2023vb課程設計心得體會9

在課程設計過程中，雖然我對程序設計不是很熟悉，但是通過老師詳細的講解，我按照步驟去做，遇到問題的時候先自己想辦法解決，解決不了的就去問同學，問老師，通過這種學習，收獲很大，學會了自己解決棘手問題，知道了團結的力量。

剛開始做程序的時候，就是完全按照老師的要求，老師的步驟去做的，結果卻發現，怎么運行不了？明明是按照老師的步驟去做的，明明是按照老師的要求去做的，但是就是會遇到一些問題使程序運行不了。開始也沒有管那么多，仍然是按照課本上的去做。

第一次，在上機課的時候，我根據老師講的，在機房里做了一次，但沒有做完。于是把東西存在了自己的MP3里面，以便以后上機的時候再來做。但真的沒有想到，我的MP3，在一次上電子閱覽室的時候，忘了拔了。于是乎，我辛辛苦苦做了一大節課的程序就這樣沒了。心里真的很不舒服，但是，不舒服歸不舒服，這個程序，還是得繼續做下去，這么以點點小小的失誤不算什么，然后跑到學校機房，繼續我的VB程序設計。但由于時間問題，做的還是有點粗糙，還是不免存在一定的問題，比如說開始的時候打開不了文件，總是出現錯誤，自己總也找不出來，后來請教了一下同學，結果發現時代碼的編寫出現了錯誤，把代碼改過來之后，程序終于可以打開運行了。然后，檢查的時候，又發現“查找”運行錯誤，又是代碼那里出現的黃色的字樣，結果發現，是代碼拼寫錯誤，于是，拿著同學的代碼對比一下，發現了錯誤所在之地，然后更正了過來。

經過一番努力，程序終于做完了。

后來，室友看了我的`程序，她說運行不了的，就是出現了錯誤，出現了錯誤，就應該改過啊，這時的我才恍然大。“是錯誤，那么就要改正的！”于是當天，我就去了學校機房，再一次運行我的程序，仍然出現錯誤情況，需要調試，我回憶起上課的時候，老師是怎么跟我們講的，哪里出現了錯誤，需要怎么樣改正。于是，我就耐著性子，一個一個，一個一個得改正，編輯代碼，一個一個得檢查，終于完成了。完成之后，我在運行一下，一切正常，心里終于舒了一口氣。經過這次的VB程序設計，讓我知道了更多學習的方法。具體如下：

（1）保持良好的學習心態，第一，要有自信，自強，積極主動學習、第二，克服畏難情緒，樹立學好程序設計的信心。

（2）要了解概念：VB程序設計本身并不復雜，變量，函數，條件語句，循環語句等概念較多、要真正能進行程序設計，就要深入理解這些概念、應該重視概念的學習。

（3）自己動手編寫程序，親自動手進行程序設計是培養邏輯思維的好方法、因此我們得多動手編寫程序，逐漸提高寫程序的能力、自己動手，編寫一些程序，才會有成就感，進而對課程產生興趣，做起來才比較從容、等你在編寫大量程序之后。

（4）上機調試程序應注意多問問同學，多問問老師，把不懂的地方標出來。

（5）養成良好的編程習慣，第一，程序構思要有說明；第二，學會如何調試程序；第三，對運行結果要做正確與否的分析。

但是，如果以前上課的時候不認真的聽講的話，做這個程序設計就會有點點困難，所以，同時也在提醒我們，學習，任何時候都要認真！

總之，在此次的VB程序設計中，如果沒有足夠的耐心，就不可能完成的很好。所以此次VB程序設計，讓我做事情更加有耐心，更加細心，學習更加認真仔細。

2023vb課程設計心得體會10

我們組這次設計的程序是考勤管理系統，主要用于企事業單位的考勤，便于統計員工的出勤情況。

1、通過這一次的程序設計，使我能夠進一步掌握用程序設計語言解決實際問題的方法，在操作當中把所學到的用于實際的編程里面去。

2、通過這一次的程序設計，使我能夠提高分析問題、查閱資料、吸收新知識的能力，在分析解決問題時比以前有了很大的進步，一些常用的知識和一些常規的錯誤都能夠解決。

3、通過這一次的程序設計和指導教師姜瑤老師的指導使我能夠進一步對vb有了熟練的操作，并且在分析，編程方面比以前有了更大的提高。

4、我認為實踐周的程序設計是給我們學習的一個大好機會，使我們在這樣的機會里學到了一定的知識，畢竟理論要通過實踐來鍛煉，也只有自己參與了這樣的一個鍛煉，才能更好的發現自己的不足并加以改進和完善！ 在這次的設計過程中，我學到的不僅是知識，我還認識到許多事情。這次設計使我的編程水平提高了一大步，使我充分的認識到合作的`可貴。由于這次設計涉及到數據庫，我也學到了不少數據庫連接的知識，對數據庫的操作有了進一步的了解。這次設計對我的綜合能力是一次很好的鍛煉，但是我必須承認自己的能力和知識還很膚淺。所以今后我的學習道路還是很漫長的。最后，在這里我要衷心的感謝我們的指導老師謝謝她的耐心指導和熱心幫助。由于我水平有限，加之時間短暫，故學習數據庫系統中還有許多不足之處，請老師批評指正，我會在以后的制作中不斷改進，不斷完善。

第五篇：VB程序設計課程設計

VB程序設計課程設計

1、目的

VB程序設計課程設計是考察學生對VB程序設計課程相關知識點掌握情況的重要環節，也是激勵學生進一步學習VB、提高運用VB開發實際計算機程序的能力。課程設計的重點在于學生利用VB開發程序的能力。

2、課程設計題目

學生信息管理系統

3、程序功能

該程序具有建立數據庫，建立數據庫表，添加數據，刪除數據，查詢學生每學期成績、不及格情況、積點情況等相關信息的功能。

4、實現要求

每個學生建立一個數據庫（名字自擬），數據庫中建立學生基本信息表（學號、姓名、性別、出生年、出生月、出生日、聯系電話、年級、班級、住址等）、學生成績表（學號、課程號、成績、學期等）、課程信息表（課程號、課程名稱、出版社、出版日期、版次、頁碼、價格、課程類型（基礎課、專業基礎課、選修課等）、開課學院等）。

把課程信息、每一學期的成績等分別輸入相應的表中，其中學生基本信息表記錄不少于5個學生的信息。

在以上數據的基礎上，實現相關的程序功能（不僅僅第3條指定的功能）。

設計多界面程序，相關查詢結果應由不同的界面顯示，每個同學顯示結果的形式應盡量不同。

5、考核

根據學生實現程序功能多少（40分）、界面設計情況（20分）、課程設計報告撰寫情況（20）、答辯情況（20分）進行考核。雷同者應重做。

6、課程設計報告內容

1）課程設計題目

2）課程設計的目的3）程序功能介紹

4）程序界面設計與控件屬性設置

5）程序代碼編寫

6）程序演示（將運行過程用截圖方式截下來，并對輸入數據、輸出的結果進行適當說明）

7）課程學習與課程設計心得體會

7、上交材料

本次課程設計以小班為單位上交如下資料：

1）光盤：每一小班建立一個目錄（專業年級班級），在此目錄下建立每個同學的目錄（學號姓名），在每個同學的目錄下保存該同學的電子版的課程設計報告、打包的程序。

2）紙制版的課程設計報告