【文章內(nèi)容簡(jiǎn)介】 End SubPrivate Sub btnDdd_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要添加記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = ThenDim myRow As DataRow = ()myRow(”學(xué)號(hào)“)= myRow(”課程號(hào)“)= myRow(”成績(jī)“)= myRow(”學(xué)分“)= (myRow)refreshdata()End IfEnd SubPrivate Sub btnEdit_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要修改記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。用戶選擇“確定”39。修改學(xué)號(hào)().Item(1)= 39。修改課程號(hào)().Item(2)= 39。 修改成績(jī)().Item(3)= 39。修改學(xué)分().Item(4)= refreshdata()39。更新并刷新顯示End IfEnd SubPrivate Sub btnDelete_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要?jiǎng)h除記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。用戶選擇“確定”39。除學(xué)生成績(jī)表當(dāng)前記錄().Delete()refreshdata()39。更新并刷新顯示End IfEnd SubPrivate Sub Button1_Click(ByVal sender As , ByVal e As )Handles Dim objConn As New Dim objDaXS As New Dim objCommXS As New Dim objDsXS As New DataSetDim WhereStr As StringWhereStr = ”“If Trim() ”“ ThenWhereStr = ” 學(xué)號(hào)like “ + Trim()End If = ”Provider = 。data source = 39。D:39。“ = ” Select * From XS_KC “If WhereStr ”“ Then = amp。 ”where“ amp。 WhereStrEnd If = objConn = objCommXS()(objDsXS, ”XS_KC“)() = (”XS_KC“)End SubPrivate Sub Form4_Load(ByVal sender As , ByVal e As )Handles WhereStr = ”bindgridview(WhereStr)End Sub End ClassPublic Class Form2Private Sub quitMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub importscoreMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form4 As New Form4 = Me = ()End SubPrivate Sub updateinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form7 As New Form7 = Me = ()End SubPrivate Sub selectinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form6 As New Form6 = Me = ()End SubPrivate Sub cascadeMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub horizonMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub verticalMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub aboutMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form5 As New Form5 = Me = ()End SubPrivate Sub ToolStripButton1_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton2_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton3_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton4_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton5_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton6_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripStatusLabel1_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class八．參考文庫(kù)百度文庫(kù)，百度知道第四篇：vb課程設(shè)計(jì)Visual Basic課程設(shè)計(jì)報(bào)告題目1： 貪吃蛇 難度：**** 題目2： 難度： 指導(dǎo)教師：姓 名： 學(xué) 號(hào)： 專 業(yè)： 班 級(jí)： 學(xué) 院：日 期：目錄題目簡(jiǎn)介...................................................................................................錯(cuò)誤！未定義書簽。設(shè)計(jì)思路與總體方案.................................................................................................................3 【設(shè)計(jì)】...................................................................................................3 【設(shè)計(jì)】..................................................................................................11 【設(shè)計(jì)】..................................................................................................14 【設(shè)計(jì)】.................................................................................................14 【設(shè)計(jì)】....................................................................................................【設(shè)計(jì)】..................................................................錯(cuò)誤！未定義書簽。 標(biāo)準(zhǔn)模塊..........................................................................................................................14設(shè)計(jì)過(guò)程遇到的主要問(wèn)題及解決方法...................................................................................16設(shè)計(jì)中尚存的不足分析...........................................................................................................16心得體會(huì)...................................................................................................................................17參考文獻(xiàn)...................................................................................................................................17貪吃蛇是一種很流行的電子游戲。如圖1所示，一條蛇在棋盤狀的格子平面上爬行，由鍵盤控制其轉(zhuǎn)彎；格子上隨機(jī)出現(xiàn)五個(gè)數(shù)字（1~5），當(dāng)蛇的頭部碰到數(shù)字時(shí)會(huì)將數(shù)字“吃掉”，蛇的身體會(huì)變長(zhǎng)。當(dāng)蛇的頭撞到障礙物時(shí)或碰到自己身體時(shí)，游戲結(jié)束。游戲結(jié)束時(shí)，蛇身體越長(zhǎng)的分越高。圖1 程序啟動(dòng)時(shí)界面如圖1所示，游戲平面有20*20個(gè)方格構(gòu)成。使用回車鍵可以暫停（如圖2所示），蛇爬到邊界時(shí)，如果未遇到障礙物，會(huì)從一側(cè)爬出再?gòu)牧硪粋?cè)爬入。如果運(yùn)動(dòng)過(guò)程中，其頭部碰到障礙物或自己，則被撞死，游戲結(jié)束。圖2 如果該用戶的成績(jī)超過(guò)記錄成績(jī)，則會(huì)顯示圖3所示的對(duì)話框提示輸入用戶名，以供記錄成績(jī)，排行榜界面如圖4所示。圖3圖4選擇“設(shè)置”菜單命令，打開(kāi)圖5所示的“設(shè)置”對(duì)話框。在該對(duì)話框中可以選擇不同的障礙物形狀，也可指定背景和障礙物顏色。圖5 為了使效果更好，我加了背景音樂(lè)和速度控制。設(shè)計(jì)思路與總體方案(說(shuō)明用到哪些控件并進(jìn)行難點(diǎn)分析，說(shuō)明所使用到的模塊、過(guò)程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關(guān)系，必要時(shí)給出系統(tǒng)結(jié)構(gòu)圖等圖表。對(duì)如下事項(xiàng)逐步進(jìn)行必要的分析、說(shuō)明：l 程序設(shè)計(jì)的主要思想，程序功能是如何實(shí)現(xiàn)的？l 設(shè)計(jì)了幾個(gè)程序模塊(有幾個(gè)窗體模塊、幾個(gè)標(biāo)準(zhǔn)模塊)，各個(gè)功能模塊的作者及想到之間的關(guān)系(模塊間是如何傳遞信息和數(shù)據(jù)的，采用什么方式，為什么？)？l 程序中定義了哪些主要的變量(分別定義了哪些過(guò)程級(jí)變量？模塊級(jí)變量和全局變量)，這些變量起什么作用？是否全局變量？ 這里不需要給出大段的源程序，只需要給出關(guān)鍵的實(shí)現(xiàn)代碼即可。) 【設(shè)計(jì)】這是主界面，但也是最難的環(huán)節(jié)，之后要用到的控件與顯示都要在其基礎(chǔ)上發(fā)展。首先我們要將背景網(wǎng)格和蛇身畫出來(lái)，由于受到了動(dòng)態(tài)添加控件的啟發(fā)，我用了powerpacks中的ovalshape來(lái)構(gòu)造蛇身，lineshape來(lái)構(gòu)造線，為了滿足蛇的身體長(zhǎng)長(zhǎng)，用到了數(shù)組。由于代碼之間有許多調(diào)配，在此我所舉的代碼皆主要起說(shuō)明作用，實(shí)際情況可看源代碼。代碼如下：Public num As Integ