VB課程設(shè)計報告書 山科大

本文格式為Word版，下載可任意編輯——VB課程設(shè)計報告書山科大

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

課程設(shè)計報告書

課程設(shè)計名稱：VisualBasic課程設(shè)計

系（部）：

專業(yè)班級：學生姓名：學號：

指導教師：完成日期：

山東科技大學泰山科技學院

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、

設(shè)計課題設(shè)計課題

編寫一個倒計時的程序，當點擊開始時開始倒計時。2、編寫一個程序，使得輸入一個數(shù)字，當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

設(shè)計人姓名設(shè)計人姓名設(shè)計日期設(shè)計日期設(shè)計成績設(shè)計成績

同組人員2023年1月4日至2023年1月6日

指導教師評語

指導教師簽名：指導教師簽名：____________________年____月____日年日

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

1前言

《VB程序設(shè)計》課程設(shè)計旨在穩(wěn)定和加深對《VB程序設(shè)計》理論知識的理解，進一步把握編程技巧和方法，樹立結(jié)構(gòu)化程序設(shè)計的思想，提高程序設(shè)計的應用層面。加強VB程序設(shè)計中更高功能的理解與把握，使VB程序設(shè)計能力更進一步。

1.1對VB課程設(shè)計的認識

1.1.1VB概述

VisualBasic是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā)Windows環(huán)境下的各類應用程序。它簡單易學、效率高，且功能強大可以與Windows專業(yè)開發(fā)工具SDK相媲美。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機制、別致易用的可視化設(shè)計工具，使用Windows內(nèi)部的廣泛應用程序接口（API）函數(shù)，動態(tài)鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。

1.1.2VB課程設(shè)計的性質(zhì)和目的

通過接觸客觀實際，了解和認識所學的專業(yè)知識，把握所學知識在客觀實際中的應用，并能親自動手完成相關(guān)題目設(shè)計。把所學的理論知識與實際能力

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

緊湊的結(jié)合在一起。

1.2VB課程設(shè)計的基本內(nèi)容和要求

1.2.2VB課程設(shè)計的基本內(nèi)容

本次課程設(shè)計要求學生熟練把握《VB程序設(shè)計》課程的基礎(chǔ)知識，獨立完成設(shè)計任務,并完成課程設(shè)計報告，主要要求學生把握以下內(nèi)容：

理解系統(tǒng)開發(fā)的必要步驟，繪制流程圖、根據(jù)流程圖編寫程序、并自主進行必要的測試與維護。最終形成規(guī)范的設(shè)計報告。

1.2.2VB課程設(shè)計的基本要求

1.對系統(tǒng)要實現(xiàn)的功能進行確鑿的描述。

2.根據(jù)功能分析，建立系統(tǒng)的體系結(jié)構(gòu)，即將整個系統(tǒng)分解成若干子模塊，用框圖表示各功能模塊之間的接口關(guān)系。

3.詳細說明各功能模塊的實現(xiàn)過程，所用到的算法、技巧等（附上代碼）。4.說明系統(tǒng)的運行效果（附上界面圖形）、存在哪些不足以及預期的解決方法。

5.課程設(shè)計過程中的心得體會。

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

2課程設(shè)計必要性

2.1必要性綜述

VB是一種可視化，面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā)windows環(huán)境下的各類應用程序，是目前較為流行的應用軟件開發(fā)平臺。VB的編程功能十分強大，應用范圍十分廣泛，有大量應用軟件都可用它作為開發(fā)工具。利用VisualBasic我們可以在windows環(huán)境下，輕松自如的設(shè)計出繁雜的圖形用戶界面，高效率的開發(fā)出各種各樣的應用軟件。VB不僅是一種計算機語言，更確鑿的說，它是一個集軟件開發(fā)，測試和過錯等功能于一體的集成式開發(fā)環(huán)境。

VB課程設(shè)計是培養(yǎng)學生綜合運用所學知識，發(fā)現(xiàn)、提出、分析和解決實際問題，鍛煉實踐能力的重要環(huán)節(jié)。是對學生實際工作能力的具體訓練和考察過程.隨著科學技術(shù)發(fā)展的日新日異，計算機已經(jīng)成為當今計算機應用中空前活躍的領(lǐng)域，在生活中可以說得是無處不在。因此作為二十一世紀的大學來說把握計算機的開發(fā)技術(shù)是十分重要的。

2.1VB的特點

1.面向?qū)ο?.事件驅(qū)動

3.軟件Software集成式開發(fā)4.結(jié)構(gòu)化設(shè)計語言

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

5.強大數(shù)據(jù)庫訪問功能6.支持對象鏈接和嵌入技術(shù)7.網(wǎng)絡功能8.多個應用向?qū)?/p>

9.支持動態(tài)交換、動態(tài)鏈接技術(shù)。10.聯(lián)機幫助功能

3總體設(shè)計

本次實習包括一個基本設(shè)計和兩個可選設(shè)計?；驹O(shè)計為設(shè)計四則運算窗體文件，相對比較簡單?？蛇x設(shè)計共20個，我選擇了可選設(shè)計編寫倒計時程序（16題）和編寫貨幣大小寫轉(zhuǎn)換程序（19題）。通過操作，我深刻的了解了VB6.0的操作環(huán)境，把握了VB常用控件的使用方法，基本程序語言的運用，以及編程的主要思路。

3.1設(shè)計的功能與目標

3.1.1四則運算窗體文件設(shè)計的功能與目標

1、功能：實現(xiàn)計算機的基本加減乘除四則運算。2、目標：按以下運行界面，設(shè)計（四則運算）窗體文件。

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

3.1.12倒計時程序設(shè)計的功能與目標

1、功能：實現(xiàn)自定義時間段內(nèi)的倒計時，可以顯示剩余時間，而且中途能夠暫停、繼續(xù)，時間剩余為0時，自動彈出對話框提醒“時間到〞。

2、目標：編寫一個倒計時的程序，當點擊開始時開始倒計時界面如圖。

3.1.3貨幣大小寫轉(zhuǎn)換程序設(shè)計的功能與目標

1、功能：實現(xiàn)阿拉伯數(shù)字轉(zhuǎn)換為大寫貨幣表示。

2、目標：編寫一個程序，使得輸入一個數(shù)字，當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

4詳細設(shè)計

4.1軟件界面設(shè)計及運行說明

4.1.1四則運算窗體文件界面設(shè)計及運行說明

1、界面設(shè)計

（圖4-1）

2、運行說明

（圖4-2）

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

（圖4-3）

如圖4-2所示，分別輸入“第一個數(shù)〞、“其次個數(shù)〞，并選擇運算符號。然后點擊“=〞按鈕，“計算結(jié)果〞文本框中顯示結(jié)果。點擊下“下一式〞按鈕，文本框清空（圖4-3）。重新輸入數(shù)字并選擇運算符，可繼續(xù)運行。點擊“終止〞按鈕，程序終止運行。

4.1.2倒計時程序界面設(shè)計及運行說明

1、界面設(shè)計

（圖4-4）

2、運行說明

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

（圖4-5）

（圖4-6）

如圖4-4所示，在文本框中輸入時間，點擊“開始〞按鈕，倒計時開始。點擊“暫停〞按鈕，程序中止運行（如圖4-5），點擊“開始〞或“重新開始〞按鈕，程序繼續(xù)運行。當剩余時間為0時，系統(tǒng)自動彈出對話框，提醒“時間到〞。（如圖4-6）點擊“退出〞按鈕，程序終止運行。

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

4.1.3貨幣大小寫寫轉(zhuǎn)換界面設(shè)計及運行說明

1、界面設(shè)計

（圖4-7）

2、運行說明

（圖4-8）

如圖4-8所示，在文本框中輸入阿拉伯數(shù)字，點擊“轉(zhuǎn)換〞按鈕，彈出對話框，顯示該阿拉伯數(shù)字的貨幣大寫表示。點擊“〞，程序運行終止。

4.2主要的程序設(shè)計思想

4.2.1四則運算窗體文件的程序設(shè)計思想

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

運用label、text、command和combol控件，以實現(xiàn)數(shù)字的輸入、對運算符的選擇以及對程序的控制。

4.2.2倒計時程序的程序設(shè)計思想

運用label、text、command和timer控件，以實現(xiàn)時間的輸入、對程序的控制以及對系統(tǒng)時間的獲取。

4.2.3倒計時程序的程序設(shè)計思想

運用text和command控件，以實現(xiàn)數(shù)字的輸入及對程序的控制。

4.3主要的源程序代碼

4.3.1四則運算窗體文件的源程序代碼

PrivateSubCommand1_Click()Da1=Val(Text1.Text)da2=Val(Text2.Text)

SelectCaseCombo1.ListIndex'判斷計算方式并計算Case0

da3=Da1+da2Case1

da3=Da1-da2Case2

da3=Da1*da2Case3

da3=Da1/da2EndSelect

Text3.Text=da3'顯示計算結(jié)果EndSub

PrivateSubCommand2_Click()'重置相關(guān)控件

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

Text1.Text=Text2.Text=Text3.Text=Text1.SetFocusEndSub

PrivateSubCommand3_Click()End

EndSub

PrivateSubForm_Load()'初始化符號選擇下拉列表Combo1.List(0)=+Combo1.List(1)=-Combo1.List(2)=*Combo1.List(3)=/EndSub

4.3.2倒計時程序的源程序代碼

DimHAsIntegerDimMAsIntegerDimSAsInteger

PrivateSubCommand1_Click()'開始倒計時

IfH=0AndM=0AndS=0Then'用以判斷開始還是繼續(xù)IfVal(Text1.Text)=0Then'數(shù)據(jù)校驗H=Val(Text1.Text)Else

MsgBox小時不能為負Text1.SetFocusExitSubEndIf

IfVal(Text2.Text)=0AndVal(Text2.Text)=60Then'數(shù)據(jù)校驗

M=Val(Text2.Text)Else

MsgBox分鐘在0-60之間Text2.SetFocusExitSubEndIf

IfVal(Text3.Text)=0AndVal(Text3.Text)=60Then'數(shù)據(jù)校驗

S=Val(Text3.Text)Else

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

MsgBox秒數(shù)在0-60之間Text3.SetFocusExitSubEndIfEndIf

Label7.Caption=HLabel8.Caption=MLabel9.Caption=STimer1.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=FalseEndSub

PrivateSubCommand2_Click()'暫停Timer1.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=FalseCommand3.Enabled=TrueEndSub

PrivateSubCommand3_Click()'重新開始H=Val(Text1.Text)M=Val(Text2.Text)S=Val(Text3.Text)Timer1.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=FalseEndSub

PrivateSubCommand4_Click()End

EndSub

PrivateSubForm_Load()

EndSub

PrivateSubTimer1_Timer()'計時器規(guī)律S=S-1

Label9.Caption=S

IfS=0And(M0OrH0)Then'倒計時規(guī)律的實現(xiàn)

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

S=60

Label9.Caption=SM=M-1

Label8.Caption=M

IfM0AndH=0ThenM=59

Label8.Caption=MH=H-1

Label7.Caption=HExitSubEndIfEndIf

IfH=0AndM=0AndS=0ThenMsgBox時間到

Timer1.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=FalseCommand3.Enabled=FalseEndIf

EndSub

4.3.3貨幣大小寫轉(zhuǎn)換的源程序代碼

Functiondaxie(moneyAsString)AsStringDimxAsString,yAsString

Constzimu=.sbqwsbqysbqwsbq'定義位置代碼

Constletter=0123456789sbqwy.jzf'定義數(shù)字及漢字縮寫

Constupcase=零壹貳叁肆伍陸柒捌玖拾佰仟萬億圓角整分'定義大寫漢字

DimtempAsStringtemp=money

IfInStr(temp,.)0Thentemp=Left(temp,InStr(temp,.)-1)

IfLen(temp)9ThenMsgBox數(shù)目太大，無法換算！請輸入一億以下的數(shù)字,64,錯誤提醒:ExitFunction

x=Format(money,0.00)'格式化貨幣y=

Fori=1ToLen(x)-3

y=yMid(x,i,1)Mid(zimu,Len(x)-2-i,1)

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

Next

IfRight(x,3)=.00Theny=yzElse

y=yLeft(Right(x,2),1)jRight(x,1)f'*元*角*分

EndIf

y=Replace(y,0q,0)'避免零千(如：40200肆萬零千零貳佰)y=Replace(y,0b,0)'避免零百(如：41000肆萬壹千零佰)y=Replace(y,0s,0)'避免零十(如：204貳佰零拾零肆)y=Replace(y,0j,0)'避免零角y=Replace(y,0f,整)

DoWhileyReplace(y,00,0)

y=Replace(y,00,0)'避免雙零(如：1004壹仟零零肆)Loop

y=Replace(y,0y,y)'避免零億(如：210億貳佰壹十零億)y=Replace(y,0w,w)'避免零萬(如：210萬貳佰壹十零萬)y=IIf(Len(x)=5AndLeft(y,1)=1,Right(y,Len(y)-1),y)'避免壹十(如：14壹拾肆；10壹拾)

y=IIf(Len(x)=4,Replace(y,0.,),Replace(y,0.,.))'避免零元(如：20.00貳拾零圓；0.12零圓壹角貳分)

Fori=1To19

y=Replace(y,Mid(letter,i,1),Mid(upcase,i,1))'大寫漢字Next

daxie=yEndFunction

PrivateSubCommand1_Click()

MsgBox(daxie(Val(Text1.Text)))'將轉(zhuǎn)換好的大寫金額用對話框輸出EndSub

PrivateSubForm_Load()

EndSub

4.4調(diào)試過程中出現(xiàn)的問題及相應解決方法

4.4.1調(diào)試過程中出現(xiàn)的問題

一、基本設(shè)計：設(shè)計四則運算窗體文件。二、可選設(shè)計：1、編寫一個倒計時的程序,當點擊開始時開始倒計時。2、編寫一個程序,使得輸入一個數(shù)字,當點擊按鈕后轉(zhuǎn)換為中文大寫的貨幣表示。

在程序設(shè)計的過程中，不可避免的出現(xiàn)了好多錯誤：

1、語法錯誤。違反了vb程序設(shè)計中的語言有關(guān)句型句式的使用規(guī)