崇美英+李穎+賈艷萍

摘要：文章通過對我校開設(shè)的“VB程序設(shè)計”課程的現(xiàn)狀和問題的分析，提出了用“VBA程序設(shè)計”替代目前開設(shè)的“VB程序設(shè)計”，并分析了將“VBA程序設(shè)計”作為非計算機專業(yè)計算機程序設(shè)計語言課程的優(yōu)勢，同時提出了“VBA程序設(shè)計”課程教學方法和模式，給出“VBA程序設(shè)計”案例，供該課程改革使用。

關(guān)鍵詞：程序設(shè)計；VB；VBA；計算思維

中圖分類號：TP311 文獻標識碼：A 文章編號：1009-3044（2016）28-0073-03

1 概述

中國高等院校計算機基礎(chǔ)教育課程體系2014中指出：非計算機專業(yè)的本科計算機教育宗旨是以應(yīng)用為目標，培養(yǎng)學生掌握應(yīng)用計算機的能力，為將計算機與信息技術(shù)用于所學專業(yè)打下基礎(chǔ)，使學生最終能夠運用計算機和其相對應(yīng)學科的知識，處理和解決其專業(yè)的實際應(yīng)用問題，使學生逐漸成為既熟悉其專業(yè)知識，又掌握計算機應(yīng)用的復(fù)合型人才。鑒于此，我校面向經(jīng)管類專業(yè)學生開設(shè)了《VB程序設(shè)計》課程。

2 VB程序設(shè)計課程現(xiàn)狀及存在問題

VB程序設(shè)計是我校針對經(jīng)管類專業(yè)學生開設(shè)的唯一的一門程序設(shè)計課程。自2012年開始，從減輕學生負擔的角度考慮，程序設(shè)計語言完成了從C語言到VB語言的更替，但在教學中卻發(fā)現(xiàn)，學生除了像學習C語言一樣需要記住眾多的概念、術(shù)語、語句格式、語法規(guī)則等等外，還要記住VB中的控件及眾多的控件屬性（且為英文描述），因此對于學生而言非但沒有減輕負擔，反而還要記住更多的內(nèi)容，進而加重了學生的學習負擔。同時，經(jīng)管類專業(yè)學生與理工類專業(yè)學生具有著相同的程序設(shè)計要求，這對于大部分將來不會直接從事程序設(shè)計工作的經(jīng)管類學生而言，無疑使學生們認為VB程序設(shè)計缺乏實用價值，并逐漸降低了對課程的學習興趣，有些學生通過抄襲完成課程內(nèi)容，有些學生甚至選擇放棄。

另外，隨著操作系統(tǒng)不斷更新，VB還要與不斷升級的操作系統(tǒng)相匹配，因此對于學生自己安裝和使用Visual Basic 6.0帶來困難。

3 VBA 作為程序設(shè)計語言的優(yōu)勢

3. 1 什么是VBA

VBA是Visual Basic for Application的縮寫，是MS-Office自帶的底層開發(fā)語言，它是在Office中包含的一種用于擴展Office功能的編程語言。由于VBA是所見即所得，因此對于初學者而言，它的學習和使用要比其他程序設(shè)計語言簡單。

3.2 選擇VBA的優(yōu)勢

VBA是嵌套在Office軟件包中的應(yīng)用程序，它既提供了面向?qū)ο蟮某绦蛟O(shè)計方法和比較完整的程序設(shè)計語言，又簡單易學。因此VBA程序設(shè)計不僅能夠使學生建立基本的程序設(shè)計思維，同時也有利于培養(yǎng)學生的計算思維能力，非常適合非計算機專業(yè)的學生學習。

另外，由于VBA的存在，MS-Office不僅僅是應(yīng)用程序，更是一個開發(fā)平臺，對于經(jīng)管類專業(yè)的學生，如果能夠在掌握Office辦公軟件的基礎(chǔ)上再掌握VBA的基本編程方法，那么學生在今后工作崗位上就可以根據(jù)自身需要利用VBA對Excel、Word和PowerPoint進行二次開發(fā)，以獲得自己所需的特定功能，實現(xiàn)繁瑣、重復(fù)工作的自動化，進而提高工作效率，更為把我校學生培養(yǎng)成高素質(zhì)、應(yīng)用型人才打下基礎(chǔ)。

3.3 課程改革設(shè)想

通過VBA程序設(shè)計語言的學習，使學生在程序設(shè)計思想的構(gòu)建，以及計算思維的培養(yǎng)方面都能有所收獲。

同時，在學生熟練掌握Office辦公軟件的基礎(chǔ)上，通過運用VBA實現(xiàn)對其二次開發(fā)，進而獲得自身工作中所需的特定功能，達到工作效率最大化。特別是VBA在Excel中的應(yīng)用，可使經(jīng)管類專業(yè)學生在未來工作崗位上受益匪淺。

在教學中，采用能夠激發(fā)學生自主探究和能力提升的“任務(wù)驅(qū)動”教學模式。

3.3.1 任務(wù)驅(qū)動教學模式

“任務(wù)驅(qū)動教學法”是一種建立在建構(gòu)主義學習理論基礎(chǔ)上的教學法，它將以往以傳授知識為主的傳統(tǒng)教學理念，轉(zhuǎn)變?yōu)橐越鉀Q問題、完成任務(wù)為主的多維互動式的教學理念；將再現(xiàn)式教學轉(zhuǎn)變?yōu)樘骄渴綄W習，使學生處于積極的學習狀態(tài)，每一位學生都能根據(jù)自己對當前問題的理解，運用共有的知識和自己特有的經(jīng)驗提出方案、解決問題。

“任務(wù)驅(qū)動教學法”的基本環(huán)節(jié)是創(chuàng)設(shè)情境，確定問題（任務(wù)），自主學習、協(xié)作學習，效果評價。

在日常生活中，經(jīng)常會接觸到通過驗證用戶名和密碼才能進入系統(tǒng)的情況，如在自動存取款機上進行操作，登陸QQ進行聊天等，我們以設(shè)計系統(tǒng)登錄界面作為任務(wù)，使學生帶著真實的任務(wù)在探索中學習，在這個過程中，學生還會不斷地獲得成就感，可以更大地激發(fā)他們的求知欲望，逐步形成一個感知心智活動的良性循環(huán)，從而培養(yǎng)出獨立探索、勇于開拓進取的自學能力。

課堂上設(shè)計的任務(wù)是要求學生設(shè)計一個如圖1所示的登陸界面程序。要求通過登陸界面，對進行操作的用戶進行用戶名和密碼的驗證，當用戶名和密碼均正確時才能通過驗證，然后進入如圖2所示的下一界面，完成更進一步的操作。

代碼如下：

Private Sub CommandButton1_Click（）

If Trim（TextBox1.Text） = "admin" And Trim（TextBox2.Text） = "666666" Then

判斷輸入的用戶名和密碼是否正確

UserForm1.Hide

UserForm2.Show

Else

MsgBox "密碼或用戶名不正確"

End If

End Sub

在完成任務(wù)的過程中，學生會逐步掌握選擇結(jié)構(gòu)的程序設(shè)計思想、常用控件、多重窗體的使用，并將其有機的結(jié)合起來，最終完成任務(wù)要求。

3.3.2 VBA在Microsoft Word中的應(yīng)用

從網(wǎng)上拷貝文字到Word文檔中時，經(jīng)常會含有空段，但Word并不具有刪除空段功能，因此會使用戶感到不便。通過學習VBA，學生可以通過添加以下VBA代碼實現(xiàn)在Word中刪除空段功能。代碼如下：

Sub DelLine（）

Dim i As Long

For i = ActiveDocument.Paragraphs.Count To 1 Step -1

統(tǒng)計文檔段落總數(shù)，并從文檔最后一段開始找空段

If VBA.Len（ActiveDocument.Paragraphs（i）.Range） = 1 Then

ActiveDocument.Paragraphs（i）.Range.Delete 刪除空段

End If

Next i

End Sub

3.3.3 VBA在Microsoft Excel中的應(yīng)用

在數(shù)據(jù)處理中，有些數(shù)據(jù)的存放如圖3所示，即有些名字的前面有空格。由于數(shù)據(jù)量龐大，用戶無法對數(shù)據(jù)一一檢驗，此時便可通過編寫VBA代碼來刪除名字前的空格，使數(shù)據(jù)存放如圖4所示。

代碼如下：

Sub DelSpace（）

Dim regEX As Object 創(chuàng)建正則對象

Set regEX = CreateObject（"vbscript.regexp"）

With regEX

.Global = True

.Pattern = "＼s+" ＼s+表示匹配任何空白字符

End With

For Each Rng In [b2：b7]

n = n + 1

Cells（n + 1， "b"） = regEX.Replace（Rng， ""）

Next

Set regEX = Nothing 釋放對象

End Sub

3.3.4 VBA在Microsoft PowerPoint中的應(yīng)用

制作包括三道題、四張幻燈片的課堂小測驗。四張幻燈片分別如下圖所示。單擊“開始”按鈕，界面轉(zhuǎn)向第二張幻燈片；單擊“上一題”或“下一題”按鈕時，屏幕上會顯示相應(yīng)的界面；單擊“最后得分”按鈕時，在文本框中顯示本次測驗的成績，如圖8所示。

代碼如下：

Public zongfen（2） As Integer 全局數(shù)組，用于記錄總得分

Private Sub CommandButton1_Click（）

SlideShowWindows（1）.View.GotoSlide 2 轉(zhuǎn)到第2張幻燈片

End Sub

Private Sub CommandButton1_Click（） “下一題”按鈕的單擊事件代碼

If OptionButton3.Value = True Then

zongfen（0） = 2 正確時，記分

Else

zongfen（0） = 0

End If

Label1.Caption = OptionButton3.Caption

SlideShowWindows（1）.View.GotoSlide 3 轉(zhuǎn)到第3張幻燈片

End Sub

Private Sub CommandButton3_Click（） “上一題”按鈕的單擊事件代碼

If OptionButton2.Value = True Then

zongfen（1） = 2

Else

zongfen（1） = 0

End If

Label1.Caption = OptionButton2.Caption

SlideShowWindows（1）.View.GotoSlide 2

End Sub

Private Sub CommandButton4_Click（） “下一題”按鈕的單擊事件代碼

If OptionButton2.Value = True Then

zongfen（1） = 2

Else

zongfen（1） = 0

End If

Label1.Caption = OptionButton2.Caption

SlideShowWindows（1）.View.GotoSlide 4

End Sub

Private Sub CommandButton5_Click（） “上一題”按鈕的單擊事件代碼

SlideShowWindows（1）.View.GotoSlide 3

End Sub

Private Sub CommandButton6_Click（） “最后得分”按鈕的單擊事件代碼

Dim s， i As Integer

If OptionButton4.Value = True Then

zongfen（2） = 2

Else

zongfen（2） = 0

End If

Label1.Caption = OptionButton4.Caption

s = 0

For i = 0 To 2

s = s + zongfen（i）

Next i

Label2.Caption = s

End Sub

4 結(jié)束語

程序設(shè)計語言的掌握對于我校經(jīng)管類專業(yè)學生是必要的，但我們的培養(yǎng)目標是希望在講授程序設(shè)計的同時將計算思維融入教學，鍛煉學生的計算思維能力，讓學生理解從計算思維出發(fā)思考，以計算的方式表達、分析和解決問題的整個過程，使學生掌握程序設(shè)計的思想以及問題的求解思路，而非將他們培養(yǎng)成為程序員。VBA語言作為程序設(shè)計語言恰好可以最有效地幫助我們實現(xiàn)教學以及人才培養(yǎng)的目標。

參考文獻：

[1] 徐衛(wèi)克.關(guān)于高校非計算機專業(yè)程序設(shè)計教學的思考[J]. 教育教學論壇，2014（2）.

[2] 閆麗，鄧哲. 基于VBA的Office二次開發(fā)[J].通化師范學院學報，2006（7） .

[3] 王海坤.淺談Visual Basic程序設(shè)計課程教學改革[J].科技資訊，2015（17）.

[4] 龍馬高薪教育.VBA Office 從新手到高手[M].北京：人民郵電出版社，2015.

[5] 李桂芝.Visual Basic程序設(shè)計案例教程[M].北京：清華大學出版社，2013.