vb編程案例

㈠ VB中的CASE語句

在VB.NET中VB.NET CASE語句就是比較常用的一種，下面是詳細的介紹和代碼的演示：

1、可以用 Select...Case 語句來替換 If...Then...Else 語句，所不同的是If 和 ElseIf 語句可在每個語句中計算不同的表達式，而 Select 語句對單個表達式只計算一次，然後將其和不同的值比較。

Functionbonus(ByValperformanceAsInteger,_ByValsalaryAsDecimal)AsDecimal
Selectperformance
Case1
Returnsalary*0.1
Case2
Returnsalary*0.3
Case瞎悔3
Returnsalary*0.7
Case4
Returnsalary*0.9
Case5
Returnsalary*1.2
EndSelect
EndFunction

2、VB.NET Case語句可包含多個值和某個范圍的值，代碼案例如下：

Functionbonus(ByValperformanceAsInteger,_ByValsalaryAsDecimal)AsDecimal帆神廳
Selectperformance
Case1
Returnsalary*0.1
Case2,3
Returnsalary*0.3
Case3To7
Returnsalary*0.7
Case8To9態隱
Returnsalary*0.9
CaseIs<=15
Returnsalary*1.2
CaseElse
Return0
EndSelect
EndFunction

㈡ VB Dictionary 填充數據的方法

VB編程中用Dictionary填充數據的方法，簡單的代叢孫碼案例如下：

PrivateSubCommand1_Click()
DimTblMap_Card'創建一個變殲敏量滲改鏈
SetTblMap_Card=CreateObject(Scripting.Dictionary)
TblMap_Card.Add"Table","Cards"'前面是Key後面是Value
TblMap_Card.Add"Serial","serialno"
TblMap_Card.Add"Number","surface"
MsgBoxTblMap_Card.Item("Table")
EndSub

㈢ 《VB多分支選擇結構的運用》教學案例|教育教學案例分析100例

本課是教育科學出版社普通高中課程標准實驗教科書《演算法與程序設計（選修）》第二章的部分內容。本節內容是在學生初步了解了VB的編程環境、VB中的數據類型、變數的使用以及If單分支與雙分支結構的基礎上，進一步向學生展示VB多分支選擇結構的使用。
在信息技術課程教學中，培養學生信息素養，或者說信息能力，在全國、省、市信息技術優質課評選中存在兩種意見：一種是課堂教學中應注重學生技術、技能培養，教學過程中將指導學生如何操作和使用作為教學核心；另一種是在教學中應著重培養學生處理信息的方法和過程，用探究學習的方式去發現和學習技術，形成技能。本案例就是在「引領學生思維，培養分析、解決問題能力，通過思維促進技能」教學理念指導下的設計，並進行了教學反思。
一、學生分析
本課教學對象是高一學生，他們第一次接觸程序設計。通過前面的學習，學生已基本掌握單分支和雙分支選擇結構，能夠編寫簡單的選擇結構程序。
二、教學目標
知識與技能：能理解選擇結構中單分支和雙分支選擇結構執行過程，並用其解決實際問題；能理解多分支選擇結構，並能用If多分支語句和Select Case多分支語句解決實際問題；能理解Image控制項的picture屬性和List控制項的text屬性；能熟練編寫、修改、運行程序。
過程與方法：睜滾能掌握兩種多分支結構語句的基本格式；能掌握選擇結構中條件的表達方法；能靈活運用多分支語句編寫程序解決實際問題。
情感、態度與價值觀：通過任務驅動，逐步深化對知識的理解，提高分析問題、解決問題的能力。
三、教學重、難點
教學重點：能正確選擇If的單分支、雙分支以及If和Select Case多分支語句解決實際問題。
教學難點：能正確理解選擇結構的執行過程，能對程序設計有整體的理解。
四、教學過程
（一）創設情境 整體感知
1.實例演示，了解程序流程。
小明爸爸的生日快到了，小明想用平時節省下來的800元錢給爸爸買生日禮物，請同學們設計一個「愛心禮物」的小程序，讓爸爸挑選喜歡的上衣、褲子和鞋子共三件禮物且不超出800塊錢預算。教師展示如圖1所示的程序。
2.學生操作程序，教師布置任務。
（1）口述程序流程。
（2）用程序流程圖畫出程序模塊結構。
3.師生共同交流探討，完成程序流程圖（略）。
設計意圖：用實際操作「愛心禮物」程序創設情境，激發學生興趣；通過敘述操作過程、繪製程序流程圖,引導學生對程序進行整體把握，養成學生整體構建、整體分析能力，為後面任務生成奠定基礎。
（二）分析流程 明確任務
1.分析程序流程，學生討論思考：我們完成本程序設計，需要解決哪些問悉舉余題？
2.學生討論，教師梳理，列出如下任務：
（1）圖片載入。
（2）雙分支，多分支選擇。
（3）價格核算。
3.聯系舊知，解析任務。
（1）圖片載入――學生閱讀教師提供的Image控制項圖片載入方法參考資料。
（2）雙分支――選擇上衣，價格核算，回顧前面所學習的If語句。
（3）多分支――選擇褲子和鞋子。教師提示可用多個單分支語句疊加。
本環節，教師集中解決基礎問題――圖片載入，為後面多分支探究掃除障礙。
設計意圖：從事物表象抓住本源，需要學生在分析問題時有整體意識，需要學生將零散問題進行歸類。本環節旨在培養學生分析問題的能力，一是整體把握分層（程序模塊）思考，二是結合已有知識對問題進行梳理，三是培養學生程序設計的策劃能力。
（三）小組合作 自主探究
1.三人一組，選擇「雙分支」、「多分支」、「價格核算」之一進行合作探究。要求如下：
（1）根據流程圖寫出程序。
（2）上機操答枯作調試。
（3）把程序要點及問題做好記錄，以備交流匯報使用。
2.交流匯報，資源共享。
（1）雙分支交流。
請選擇上衣的小組做交流，並利用廣播系統展示其程序。
（2）多分支交流。
預設一：學生展示未完成的程序。
學生說出自己的問題與困惑；教師幫助分析，找出原因，修改完善，並調試運用。
預設二：學生展示已經完成的程序，教師將雙分支和單分支語句解決多分支程序進行列舉比較。
（3）核算交流。
學生思考：如何讓程序知道你選擇了多少錢的上衣、褲子和鞋子？用變數保存價格的時候應該放在程序的什麼地方？整個禮物選擇結果的判斷應在什麼地方完成？
小結：利用單分支以及多個單分支解決問題。
設計意圖：知識的實際運用體現學生解決問題的基本能力，知識的遷移則體現學生對新舊知識的重組與構建。本環節倡導學生通過合作探究，充分運用已有知識解決現實中的問題，並通過提供相關資料，創設實際運用平台，搭建新舊知識互通的橋梁，讓學生探索發現新知及其實際運用。
（四）師生探究 構建新知
學生通過多個單分支語句解決多分支問題，除了這種方法，是否還有新的發現？
教師引用學生新發現，或者直接引出「多分支結構」，並思考：
1.對比圖2、圖3，分析新的「多分支結構」與剛才「單分支解決多分支」有什麼不同？
教師用單步調試的方法，讓學生分析兩者之間在執行過程中的不同，找到If多分支語句的優勢所在，並引導學生觀察、分析If多分支語句的基本結構。學生歸納總結兩種結構執行過程的差異，師生共同總結出If多分支結構。
2.引導學生熟悉新內容，完成整個程序的設計，並調試運行。
設計意圖：程序演算法的優越性，需要在實際運用中才能獲得直接感受，也需要在同一問題不同演算法的比較中得到體驗。將新的方法與用已有知識解決問題的方法進行比較，進一步讓學生清楚兩者之間的差別。通過改變滿堂灌的方式，採用自主探究學習方式，培養學生自主學習的習慣、意識和能力。
（五）交流總結 拓展延伸
1.運用Select Case語句來完成多分支選擇。
指出VB中還有一種多分支語句――Select Case語句，讓學生閱讀教材中的例子和注釋並思考：
（1）在我們這個任務中「Select Case 表達式」中「表達式」和「表達式列表」含義分別是什麼？
（2）用Select Case語句實現選擇鞋子的程序該怎麼寫？
學生自主探究，調試程序並運行。
設計意圖：用比較、類比的方法，啟迪學生創造性思維。通過學生自學教材例子，完成新知識的學習，培養學生舉一反三的能力，同時訓練自學能力。
2.小結。
（1）多分支選擇語句的格式。
（2）多重選擇語句的執行過程。
設計意圖：歸納梳理知識發現過程，對比所發現新知識的優勢所在，讓學生體會程序演算法的精妙之處。此處師生共同小結，一是知識的獲取過程，二是歸納本課知識要點。
（六）學生完成自我評價
課堂自我評價表

1.對於本節的學習課的學習你感到：
A 輕松 B比較輕松 C有點困難
2.對於If 多分支結構和Select Case語句的基本格式你感到：
A完全理解 B理解，但仍有點模糊 C不理解
3.關於表達式與表達式的列表的表示方法，你的理解程度：
A理解 B大概理解 C不理解
4.在完成這節課中的實踐與練習時，你：
A能夠獨立編寫代碼並通過調試程序正確運行。
B基本上能夠編寫代碼並通過幫助達到程序正確運行。
C編程有點困難，正確率也不是太高。

設計意圖：學生自我評價的反饋信息，有助於教師了解教學的實際情況，便於在以後的教學中調整教學方法和教學策略。
（七）課後練習
布置課後作業。
設計意圖：由於Select Case語句結構上較If多分支語句更加靈活，鑒於要在一節課內完成兩個多分支語句的理解比較困難，所以在處理時進行了側重，通過課後練習的方式，讓學生在課後去思考、消化。
五、教學反思
該案例源於南京師大附中王靜老師2010年暑假在武漢做新課程培訓時所展示的程序，她的教學理念是「在游戲中學習程序設計」。在講到這個內容時，用這個例子設計了教學過程。
在「演算法與程序設計」這一模塊的教學中，我總是擔心學生難以接受，總是習慣於幫助學生分析程序中的演算法，學生跟著老師安排的任務進行學習，但忽視了自己分析的過程，忽視了知識的建構，學生知其「源」，不知其所以「源」。學生在課堂上學得很不錯，但在獨立解決其他問題時，仍然不知道如何入手，不知道已有的知識如何運用。可以看出這種教學方法存在很大問題。我們能否讓學生像程序員一樣工作，讓學生通盤熟悉信息處理的全過程，發現一個程序形成的全過程，讓學生知識與能力並舉。本課教學正是立足於此而展開的。
本案例通過「愛心禮物」程序創設情境，通過敘述操作過程以及繪製程序流程圖引導學生對程序進行整體上的把握，培養學生整體分析能力。通過分析流程、明確任務環節，幫助學生從事物表象抓住本源，培養學生分析程序、解析問題的能力。在知識獲取過程中，把所需知識演變成學生迫切想解決的問題，並建立新舊知識的聯系，讓學生通過自主探究、合作學習而完成。整體把握分層（程序模塊）思考，結合已有知識對問題進行梳理，培養學生程序設計的策劃能力。
當然，在實際教學實施中也遇到了很多問題，通過學生教學反饋信息來看，有一部分學生對於VB程序設計的學習感到困難，這也反映出學生思維上的依賴性，自主探究的動力和習慣還有待提高。當然，教師在進行 教學設計 的過程中應該有更多的預設，通過充分的換位思考，提高教學效果。
（作者單位：湖北黃石市第二中學 湖北黃石市廣場路小學）

㈣ 求一個VB中ACCESS數據管理的案例

雖然不是段態蔽ACCESS data 控制項 但是 你可以自己修改一下

Option Explicit

'用來存儲文件名屬性
Dim msFileName As String

'用來代表文件對象或者文件夾對象
Dim mFileDir

Private Sub cmdOK_Click()
Dim nAttr As Integer
nAttr = 0 '屬性變數初始化
'根據復選框的值，來決定文件或者閉陪文件夾的屬性
If chkNormal.Value = 1 Then nAttr = nAttr + vbNormal
If chkReadOnly.Value = 1 Then nAttr = nAttr + vbReadOnly
If chkHidden.Value = 1 Then nAttr = nAttr + vbHidden
If chkSystem.Value = 1 Then nAttr = nAttr + vbSystem
If chkArchive.Value = 1 Then nAttr = nAttr + vbArchive

'設置文件或者文件夾的屬性
mFileDir.Attributes = nAttr

Unload frmAttribute
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Public Property Get FileName() As String
FileName = msFileName
End Property

Public Property Let FileName(ByVal strFile As String)
On Error GoTo errHandler

'給FileName屬性賦值
msFileName = strFile

Dim fso As New FileSystemObject
If fso.FolderExists(msFileName) Then
'如果文件名代表的是一個文件夾
Me.Caption = "查看文件夾的屬性"
Set mFileDir = fso.GetFolder(msFileName)
ElseIf fso.FileExists(msFileName) Then
'如果文握州件名代表的是一個文件
Me.Caption = "查看文件的屬性"
Set mFileDir = fso.GetFile(msFileName)
Else
'如果文件名即不代表文件夾，也不代表文件，則退出窗體
MsgBox "所指定的文件或者文件夾不存在！", vbCritical, "錯誤"
Unload Me
End If

'讀取被選文件的屬性
Dim nAttr As Integer
nAttr = mFileDir.Attributes

'對文件屬性作出判斷，設置對應的屬性檢查框
chkNormal.Value = IIf((nAttr And vbNormal) > 0, 1, 0)
chkReadOnly.Value = IIf((nAttr And vbReadOnly) > 0, 1, 0)
chkHidden.Value = IIf((nAttr And vbHidden) > 0, 1, 0)
chkSystem.Value = IIf((nAttr And vbSystem) > 0, 1, 0)
chkArchive.Value = IIf((nAttr And vbArchive) > 0, 1, 0)

Exit Property

errHandler:
MsgBox Err.Description, vbCritical, "錯誤"
End Property
form2
Option Explicit

Dim msFileToCopy '所拷貝的文件的名稱
Dim msPathToCopy '所拷貝的文件的路徑

'聲明模塊級的FileSystemObject對象
Dim mFSO As New FileSystemObject

Private Sub dirList_Change()
filList.Path = dirList.Path
End Sub

Private Sub drvList_Change()
dirList.Path = drvList.Drive
End Sub

Private Sub cboFilter_Change()
filList.Pattern = cboFilter.Text
End Sub

Private Sub cboFilter_Click()
filList.Pattern = cboFilter.Text
End Sub

Private Sub filList_DblClick()
mnuFileAttribute_Click
End Sub

Private Sub Form_Load()
'添加文件類型
cboFilter.AddItem "*.*"
cboFilter.AddItem "*.doc"
cboFilter.AddItem "*.txt"

'設置在運行時顯示在 FileListBox 中的文件類型
filList.Pattern = "*.*"
filList.Archive = True
filList.Hidden = True
filList.System = True
filList.ReadOnly = True
filList.Normal = True

mnuFilePaste.Enabled = False
End Sub

Private Sub mnuDirAttribute_Click()
If dirList.Path = "" Then Exit Sub

Load frmAttribute
frmAttribute.FileName = dirList.Path

frmAttribute.Show 1 '以模式方式顯示屬性窗體
End Sub

Private Sub mnuDirDel_Click()
On Error GoTo errHandler
If MsgBox("真的要刪除文件夾嗎？", vbYesNo + vbQuestion, "詢問") = vbNo Then Exit Sub

Dim theFolder As Folder
Set theFolder = mFSO.GetFolder(dirList.Path) '取得要刪除的文件夾對象
If theFolder.Path = "" Or theFolder.IsRootFolder Then Exit Sub

Dim strParent As String
strParent = theFolder.ParentFolder
theFolder.Delete True '調用Folder對象的Delete方法來強制刪除文件夾
dirList.Path = strParent '刷新文件夾列表

Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "錯誤"
End Sub

Private Sub mnuDirRename_Click()
Dim theFolder As Folder
Set theFolder = mFSO.GetFolder(dirList.Path) '取得Folder對象
If theFolder.Path = "" Or theFolder.IsRootFolder Then Exit Sub

Dim strAfterDir As String
strAfterDir = InputBox("請輸入新的名稱", "輸入名稱")
If strAfterDir = "" Then Exit Sub
theFolder.Name = strAfterDir '更改文件夾的名稱

dirList.Path = theFolder.Path '刷新文件夾列表
End Sub

Private Sub mnuFileDel_Click()
On Error GoTo errHandler
If filList.FileName = "" Then Exit Sub

'詢問是否要刪除文件
If MsgBox("真的要刪除所選的文件嗎？", vbYesNo + vbQuestion, "詢問") = vbNo Then Exit Sub

Dim str As String
str = mFSO.BuildPath(filList.Path, filList.FileName)
mFSO.DeleteFile str, True '調用FileSystemObject的DeleteFile方法來刪除文件
filList.Refresh '更新文件列表

Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "刪除文件時，出現下列錯誤："
End Sub

Private Sub mnuExit_Click()
Unload Me
End Sub

Private Sub mnuFileCopy_Click()
'獲取所要拷貝的文件名
msFileToCopy = filList.FileName
msPathToCopy = filList.Path

mnuFilePaste.Enabled = (msFileToCopy <> "")
End Sub

Private Sub mnuFilePaste_Click()
On Error GoTo errHandler

'取得源文件的全路徑名稱
Dim strCopyFrom As String
strCopyFrom = mFSO.BuildPath(msPathToCopy, msFileToCopy)
'取得目標文件的全路徑名稱
Dim strCopyTo As String
strCopyTo = mFSO.BuildPath(filList.Path, msFileToCopy)

'使用FileSystemObject對象的CopyFile來實現拷貝文件
mFSO.CopyFile strCopyFrom, strCopyTo, False
filList.Refresh '刷新文件列表
Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "錯誤"
End Sub

Private Sub mnuDirNew_Click()
On Error GoTo errHandler

Dim str As String
str = InputBox("輸入所要創建的文件夾的名稱！", "新建文件夾", mFSO.GetTempName())
If str = "" Then Exit Sub
str = mFSO.BuildPath(dirList.Path, str)
mFSO.CreateFolder str '創建文件夾
dirList.Path = str '刷新文件夾列表

Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "創建文件夾錯誤"
End Sub

Private Sub mnuFileRename_Click()
On Error GoTo errHandler
If filList.FileName = "" Then Exit Sub

Dim str
str = mFSO.BuildPath(filList.Path, filList.FileName)
Dim theFile As File
Set theFile = mFSO.GetFile(str) '取得File對象

'取得文件名，並改變當前的文件名
str = InputBox("請輸入新的名稱", "輸入名稱")
If str = "" Then Exit Sub
theFile.Name = str
filList.Refresh '更新文件列表

Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "錯誤"
End Sub

Private Sub mnuFileAttribute_Click()
If filList.FileName = "" Then Exit Sub

Load frmAttribute
frmAttribute.FileName = mFSO.BuildPath(filList.Path, filList.FileName)
frmAttribute.Show 1 '以模式方式顯示屬性窗體
End Sub
不知道是不是你想要的 ，如果不是我再發。

綁定到 MSChart 控制項的數據

Microsoft Chart 控制項是一個數據綁定控制項，允許您以圖形方式表示數值數據。不像其他數據綁定控制項，Chart 控制項不能同 Remote Data 控制項一起使用，也不能同 Data 控制項一起使用。它可以同 ADO Data Control、ADO Recordset 以及 Data Environment 一起使用。該示例將顯示如何打開一個 ADO Recordset，該 ADO Recordset 包含了您想要顯示的欄位，並且 Chart 控制項的 DataSource 屬性設置為 Recordset 對象。如果第一個欄位包含字元串數據，則該數據將作為 X 軸標簽使用。

下面的示例顯示了三組數據，先創建一個具有四個欄位的 Recordset 對象；第一個欄位包含 X 軸的標簽，而其他的欄位作為系列數據顯示。

Option Explicit
' 確保設置一個對 Microsoft ActiveX Data
' Objects 2.0 Library 的引用。
Private rsProcts As New ADODB.Recordset
Private cn As New ADODB.Connection

Private Sub Form_Load()
Dim strQuery As String ' SQL 查詢字元串。

' 首先將路徑改為到您機器的一個有效路徑。
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
"C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb" ' <-更改該路徑。

' 打開連接。
cn.Open

' 創建一個只檢索四個欄位的查詢。
strQuery = "SELECT ProctName, UnitPrice, " & _
"UnitsInStock, UnitsOnOrder FROM Procts WHERE SupplierID = 1"
' 打開記錄集。
rsProcts.Open strQuery, cn, adOpenKeyset
' 將 DataSource 設置為該記錄集。
With MSChart1
.ShowLegend = True
Set .DataSource = rsProcts
End With
End Sub