第一篇：《VB編程實現(xiàn)文字閃爍》教案

《VB編程實現(xiàn)文字閃爍》教案

授課課題：VB編程實現(xiàn)文字閃爍 授課時間： 授課地點： 授課班級： 授 課 人： 教學(xué)目的：

一、認(rèn)知目標(biāo)

1、理解文字閃爍程序的設(shè)計思想和設(shè)計方法

2、理解Ｓｅｌｅｃｔ ｃａｓｅ語句構(gòu)造多分支程序的方法和實現(xiàn)的技巧

3、理解RGB（）函數(shù)和RND（）函數(shù)配合，動態(tài)隨機(jī)生成顏色的方法

二、技能目標(biāo)

1、熟練使用VB中的Ｌａｂｅｌ控件構(gòu)造程序界面

2、熟練使用格式工具對控件進(jìn)行排列設(shè)置

3、熟練使用編程工具對程序代碼進(jìn)行編寫和簡單的調(diào)試

三、情感目標(biāo)

1、培養(yǎng)學(xué)生的自學(xué)能力、自主創(chuàng)意、分析解決問題的能力

2、培養(yǎng)學(xué)生的團(tuán)隊合作精神，互相協(xié)作完成任務(wù)的能力

教學(xué)重點：

1、熟練使用VB中的Ｌａｂｅｌ控件構(gòu)造程序界面

2、理解文字閃爍程序的設(shè)計思想和設(shè)計方法

3、理解Ｓｅｌｅｃｔ ｃａｓｅ語句構(gòu)造多分支程序的方法和實現(xiàn)的技巧

教學(xué)難點：

1、理解文字閃爍程序的設(shè)計思想和設(shè)計方法

2、理解Ｓｅｌｅｃｔ ｃａｓｅ語句構(gòu)造多分支程序的方法和實現(xiàn)的技巧

教學(xué)方法：直觀演示法、案例教學(xué)法、分層教學(xué)法和興趣激勵法 教學(xué)用具：VB開發(fā)工具、VB程序案例、多媒體演示系統(tǒng)

學(xué)情分析：高二的學(xué)生上課紀(jì)律較好，比較能夠配合教師進(jìn)行教學(xué)；通過大半學(xué)期的VB學(xué)習(xí)，對項目教學(xué)法也已經(jīng)比較熟悉；但大部分學(xué)生由于基礎(chǔ)知識和學(xué)習(xí)方法的限制，學(xué)習(xí)還比較死板，學(xué)習(xí)方法還只停留在教師教學(xué)生學(xué)的層面上；學(xué)生也不太主動通過摸索、調(diào)試自己解決問題。所以本課準(zhǔn)備先講后練，步步引導(dǎo)，并協(xié)調(diào)好學(xué)生自主學(xué)習(xí)和教師輔助學(xué)習(xí)的關(guān)系，提高學(xué)生的主觀能動性。

教學(xué)過程：

【引入】演示原來講解過的文字變色的例子和今天要講解的文字閃爍的例子；提問學(xué)生：這兩個案例有什么不同。可以調(diào)節(jié)閃爍的時間，讓學(xué)生仔細(xì)觀察。

【預(yù)測】學(xué)生通過觀察大部分都能過發(fā)現(xiàn)兩個實例的區(qū)別。（5分鐘）【演示】開始新課，教師先演示Ｌａｂｅｌ控件排列文字的方法。

【預(yù)測】學(xué)生可能有疑問，為什么８個漢字要用８個Ｌａｂｅｌ控件呢，這個問題教師主動提出來，學(xué)生可以思考以后馬上解答，也可以設(shè)計完程序以后解答?！局v解】教師講解核心代碼和代碼設(shè)計思想。該過程是學(xué)習(xí)程序構(gòu)造算法的關(guān)鍵，教師有目的地進(jìn)行引導(dǎo)講解。該過程以教師講為主，根據(jù)學(xué)情進(jìn)行難度適中的提問，力求讓大部分學(xué)生理解程序的基本設(shè)計思路。（10分鐘）

【預(yù)測】大部分學(xué)生應(yīng)該能初步理解程序的設(shè)計思路。在學(xué)生自己練習(xí)時讓學(xué)生自己再去體會。

【摸索】學(xué)生開始進(jìn)行設(shè)計，也可以在設(shè)計過程中進(jìn)行簡單的學(xué)生之間的交流和討論。

【巡視】教師巡視，視學(xué)生的設(shè)計情況決定是否終止摸索而再次進(jìn)行教師統(tǒng)一講解教學(xué)。

【預(yù)測】由于學(xué)生有實習(xí)計劃和程序代碼，大部分學(xué)生都應(yīng)該能夠進(jìn)行設(shè)計，但學(xué)．．生對程序的理解可能要困難的多。提高程序設(shè)計的方法只有兩條：多閱讀別．．．．．．．．．．．．．．人的優(yōu)秀程序；自己大膽嘗試程序設(shè)計。

【建議】成績比較優(yōu)秀的學(xué)生應(yīng)該能夠完成任務(wù)，有部分學(xué)生在設(shè)計時回出現(xiàn)教學(xué)前教師不可預(yù)見的錯誤，如果大部分學(xué)生完成任務(wù)順利而教學(xué)時間充足，應(yīng)該把學(xué)生中常見的錯誤和完成好的實例進(jìn)行展示講解。教師應(yīng)該走到學(xué)生中去輔助教學(xué)。

【練習(xí)】盡量能讓學(xué)生在教師小節(jié)前做完設(shè)計。

【建議】該過程是學(xué)生提升技能，形成能力的關(guān)鍵，應(yīng)要求學(xué)生人人動手，努力設(shè)計。（25分鐘）

教學(xué)評價：

【小節(jié)】學(xué)生應(yīng)上傳作品和上繳實訓(xùn)報告，教師應(yīng)結(jié)合學(xué)生作品對本節(jié)內(nèi)容進(jìn)行總結(jié)。

【預(yù)測】有部分學(xué)生在設(shè)計時會出現(xiàn)教學(xué)前教師不可預(yù)見的錯誤，如果大部分學(xué)生完成任務(wù)順利而教學(xué)時間充足，應(yīng)該把學(xué)生中常見的錯誤和完成好的實例進(jìn)行展示講解。教師應(yīng)該走到學(xué)生中去輔助教學(xué)。

【作業(yè)】文字閃爍程序的修改版——跳躍文字閃爍（5分鐘）

第二篇：vb語言編程教案

課

題：vb語言編程概述 課 時:2課時 授課時間：2011.09.05 課堂類型：講授

教學(xué)目的：1.熟悉VB界面和VB集成開發(fā)環(huán)境；

2.在實際操作中學(xué)會編簡單的VB應(yīng)用程序；

教學(xué)要求：1.掌握VB基礎(chǔ)知識。

2.會編簡單的VB應(yīng)用程序。

教學(xué)重點：1.熟悉VB集成開發(fā)環(huán)境

2.編寫簡單VB應(yīng)用程序。

教學(xué)難點：在熟悉VB界面的同時學(xué)習(xí)編寫簡單VB應(yīng)用程序 教學(xué)方法：講授 教學(xué)過程：

一、VB簡介

BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初學(xué)者通用符號指令代碼）的縮寫，它是專門為初學(xué)者設(shè)計的高級語言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可視化程序設(shè)計語言。

a．“Visual”是“可視化的”、“形象化的”的意思。b.因此Visual Basic也具有易學(xué)易用的特點

c.目前Visual Basic的最新版本是Visual Basic 6.0（簡稱VB 6.0）

二、啟動VB

1、首先顯示“新建工程”對話框

直接單擊“打開”按鈕，創(chuàng)建“標(biāo)準(zhǔn)EXE”類型應(yīng)用程序，進(jìn)入集成開發(fā)環(huán)境主界面。

2、集成開發(fā)環(huán)境中的各元素 1）標(biāo)題欄：用來顯示窗口的標(biāo)題。2）菜單欄 3）工具欄 4）工具箱 5）窗體窗口 6）工程窗口 7）屬性窗口 8）窗體布局窗口

三、通過一個簡單的應(yīng)用程序快速入門

【例1.1（實訓(xùn)1，p16）】制作一個的一個簡單的應(yīng)用程序的運(yùn)行界面。它由一個窗體、一個文本框、一個標(biāo)簽和一個命令按鈕組成。當(dāng)用戶單擊命令按鈕“顯示”時，文本框中出現(xiàn)“教你學(xué)VB”。1．新建工程 2．添加文本框Text1 3．添加命令按鈕Command1 4．添加標(biāo)簽Label1 5．設(shè)置屬性 6．編寫事件過程代碼

前面的工作把應(yīng)用程序的界面設(shè)計好了，屬性也設(shè)置完畢。但現(xiàn)在應(yīng)用程序并不能實現(xiàn)實際的功能。為了使它具有一定的功能，還必須為對象編寫實現(xiàn)某一功能的事件過程代碼。1）雙擊窗體上的“顯示”按鈕，屏幕上出現(xiàn)代碼窗口，程序代碼就在這里編寫。編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “歡迎使用VB” End Sub 2）運(yùn)行應(yīng)用程序 3）保存應(yīng)用程序

VB應(yīng)用程序至少有兩種文件需要保存： · 窗體文件（.frm）· 工程文件（.vbp）4）生成EXE文件

四、總結(jié)步驟

設(shè)計VB應(yīng)用程序主要有以下4個步驟：（1）設(shè)計用戶界面。（2）設(shè)置屬性。（3）編寫代碼。（4）保存和運(yùn)行調(diào)試程序，生成EXE文件。

五、知識延伸

1、只有一個文本框的實例 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = “教你學(xué)VB“ End Sub

2、多個文本框時 編寫如下事件過程：

Private Sub Command1_Click（）Text1.Text = ”教你學(xué)VB“ Text2.Text = “歡迎使用VB“ End Sub

3、按照系統(tǒng)的元件特性分類(分別舉例說明)課后實訓(xùn)1 第二個命令按鈕：清除 第三個命令按鈕：退出 步驟：

1.添加2個命令按鈕 2.雙擊按鈕，進(jìn)入編程狀態(tài) 3.和顯示按鈕命令編程相似 編寫如下事件過程： Private Sub Command2_Click（）Text1.Text = ” “ End Sub Private Sub Command3_Click（）End End Sub

4、圖片的加載方法

Private Sub Form_Load()Image1.Picture = LoadPicture(App.Path + “1.BMP”)End Sub

六、小結(jié) 1.熟悉界面。

2.掌握完整編程過程以及運(yùn)行及調(diào)試程序的過程。

第三篇：VB編程題及答案

1定義一個下標(biāo)上界為10整型數(shù)組，并用隨機(jī)函數(shù)為其賦值（值處于[0,100]之間），計算數(shù)組中所有偶數(shù)的和。Private Sub Command1_Click()Randomize Dim a%(10)Dim i%, s% For i = 0 To 10 a(i)= 101 * Rnd()Next For i = 0 To 10 If a(i)Mod 2 = 0 Then s = s + a(i)End If Next Print “所有偶數(shù)的和為”, s 2 設(shè) S=35，C=0.3，編寫程序，計算并輸出下面級數(shù)的部分和。結(jié)果取小數(shù)點后面7位。C/1!-C^3/3!+C^5/5!-? +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ ?

參考答案如下：

Private Sub Command1_Click()

Dim n As Integer

Dim x As Double

x = 0.3

Dim item As Double

Dim sum As Double

Dim fac As Double

For n = 1 To 35

fac = 1

Dim i As Integer

For i = 1 To 2 * n1)* x ^(2 * n1

If n Mod i = 0 Then

isprime = False

Exit Function

End If

Next

isprime = True End Function Private Sub Command1_Click()

Dim i As Integer

Dim sum As Long

For i = 1000 To 2000

If isprime(i)= True Then

sum = sum + i

End If

Next

Text1.Text = “sum=” & sum End Sub 'sum= 419684 13.編寫一個函數(shù)，求某個數(shù)的階乘。

調(diào)用該函數(shù)計算22!。

Public Function fact(ByVal n As Integer)As

Long

Dim i As Integer, f As Long

f = 1

For i = 1 To n

f = f * i

Next i

fact = f End Function Private Sub Command1_Click()

Dim m As Integer, i As Integer, s As Long

m = InputBox(“輸入一個正整數(shù)：

”)

s = fact(m)

MsgBox(s)End Sub ‘479001600 14.編寫子過程，計算并輸出3000-4000之間的素數(shù)之和C與其中最小的素數(shù)MIN。

Private Sub Command1_Click()

Dim sum, i, min As Integer

min=0

For i = 3000 To 4000

Dim isprime As Boolean = True

Dim j As Integer

For j = 2 To i1)* n *(n + 1)

sum = sum + item

n = n + 2

Loop While Abs(sum)<= 100

MsgBox(sum)End Sub 'sum=-68 編寫一個函數(shù)，其功能為求兩個數(shù)的最大公約數(shù)。

Public Function

gcd(ByVal m As Integer, ByVal n As Integer)As Integer

Dim i As Integer If m > n Then Dim t As Integer t = m: m = n: n = t End If For i = m To 1 Step-1 If m Mod i = 0 And n Mod i = 0 Then gcd = i Exit Function

End If

Next End Function

20.用InputBox輸入一個年份，判斷該年份是否是平年，若是則輸出“Yes”，否則輸出“No”。

Dim year As Integer year = Val(InputBox(“"))If(year Mod 400 = 0)Or(year Mod 4 = 0 And year Mod 100<>0)

Then MsgBox(”No“)Else

MsgBox(”Yes“)

End If 輸入兩個整數(shù)m、n，編寫程序使得

m>=n，并輸出m、n的值。

Dim m, n As Integer

m = Val(InputBox(”“))n = Val(InputBox(”“))

If m < n Then Dim t As Integer t = m : m = n : n = t End If

MsgBox(”m=“ & m & ”;“ & ”n=“ & n)

22求下面級數(shù)前n項的和S，在求和

過程中，當(dāng)某項（注意，該項參與求和）的絕對值小于0.0001 時求和終止。結(jié)果取 5 位小數(shù)。

1-1/3+1/5-1/7+1/9-1/11+ ? +(-1)^(n-1)*1/(2n-1)+ ?

Private Sub Command1_Click()

Dim n As Integer

Dim item As Double

Dim sum As Double

i = Do While True

item =(-1)^(i1)

整數(shù)：”)sum = sum + item If Abs(item)< 0.0001 Then Exit Do Else i = i + 1 End If Loop

MsgBox(Format(sum, “0.0000”))

End Sub '

sum=0.78545 編寫一個函數(shù)，其功能為判斷一個3位正整數(shù)是否是“水仙花數(shù)”。（“水仙花數(shù)”是指各位數(shù)字的立方和與該數(shù)相等，如153=1^3+5^3+3^3,153就是水仙花數(shù)。）

Public Function Panduan(ByVal x As Integer)As Boolean

Dim a As Integer, b As Integer, c As Integer

a = x 100

b =(x Mod 100)10

c = x Mod 10

If x = a ^ 3 + b ^ 3 + c ^ 3 Then

Panduan = True

Else

Panduan = False

End If

End Function Private Sub Command1_Click()

Dim i As Integer

i = InputBox(“輸入一個3位正

MsgBox(Panduan(i))End Sub 定義一個下標(biāo)上界為10整型數(shù)組，并為其賦值（值處于[0，100]之間），計算數(shù)組中所有不小于60的數(shù)據(jù)的和。

Dim a(10), i, sum As Integer

For i = 0 To 10

a(i)= Int(Rnd()* 101)

Next

For i = 0 To 10

If a(i)〉=60 Then

sum = sum + a(i)

End If

Next

print sum

25.編寫程序，求下面級數(shù)前n項的和s=1/1!-1/2!+1/3!-1/4!+....+(-1)^(n-1)*1/n!+.....。

'求和過程當(dāng)某一項的絕對值小于0.0001時結(jié)束（注意，該項參與求和），計算并輸出所求的s，要求結(jié)果保留6位小數(shù)。Private Sub Command1_Click()

Dim m As Double, n As Long, s As Double, f As Integer

s = 0: n =-1: m = 1: f = 1 Do While 1 / m >= 0.0001 m = m * f f = f + 1 n =-n

s = s + n / m Loop

s = Format(s, ”0.000000“)Print s End Sub

26輸入一個四位數(shù)，分別輸出它的個位數(shù)字，是十位數(shù)字，百位數(shù)字，千位數(shù)字。Private Sub Command1_Click()Dim a%, j%, k%, i%, m% a = InputBox(”請輸入一個四位整數(shù)“)j = a 1000 k = a 100 Mod 10 i = a 10 Mod 10 m = a Mod 10 Print ”個位數(shù)字;“;m Print ”十位數(shù)字;“;i Print ”百位數(shù)字;“;k Print ”千位數(shù)字;“;j End Sub 6.計算sum=2!+4!+6!+...+10!Private Sub Command1_Click()Dim a%, i% Sum = 0 i = 1: a = 1 Do a = 2 * i If i Mod 2 = 0 Then Sum = Sum + a End If i = i + 1 Loop While i <= 10 Print Sum End Sub

27編寫程序，計算并輸出下面級數(shù)前n項（n=20）中奇數(shù)項的和。1*2*3-2*3*4+3*4*5-4*5*6+....+(-1)^(n-1)*n*(n+1)*(n+2)+...Private Sub Command1_Click()Dim s!, i% For i = 1 To 20 Step 2 s = s + i *(i + 1)*(i + 2)Next MsgBox(s)End Sub

28隨機(jī)輸出一個小寫字母。Private Sub Command1_Click()Dim a As String Randomize

a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、29編寫程序，計算并輸出下面級數(shù)前n項（n=50）中偶數(shù)項的和。s=1*2+2*3+3*4+4*5+....+n*（n+1）+.....Private Sub Command1_Click()Dim s!, i%

For i = 2 To 50 Step 2 s = s + i *(i + 1)Next

MsgBox(s)End Sub

30斐波那契數(shù)列是由計算某類動物繁殖增長量而提出的。數(shù)列的前兩項是1、1，以后的每一項都是其相鄰前兩項的和。編寫程序求：數(shù)列前30項和。

Private Sub Command1_Click()Dim a&, b&, c&, i%

a = 1: b = 1: c = 2: Sum = 0 For i = 1 To 28 c = a + b a = b b = c

Sum = Sum + c Next

MsgBox(Sum)End Sub

31輸入三個數(shù)a、b、c，編寫程序使得a<=b<=c，并輸出a、b、c的值。Private Sub Command1_Click()Dim a%, b%, c%, t%

a = Val(InputBox(”請輸入a的值!“))b = Val(InputBox(”請輸入b的值!“))c = Val(InputBox(”請輸入c的值!“))If a > b Then t = b b = a a = t End If

If a > c Then t = a a = c c = t End If If b > c Then t = b b = c c = t End If

Print a, b, c End Sub 32編寫程序，設(shè)n=20，x=3.4，計算并輸出S(n)的值，要求結(jié)果保留5位小數(shù)。S(n)=Inx/x+In2x/x^2+In3x/x^3+.....+In(n*x)/x^n+.....Private Sub Command1_Click()Dim x#, i% Dim S(20)As Double n = 20 x = 3.4 For i = 1 To 20 S(20)= S(20)+ Log(i * x)/(x ^ i)Next Print Format(S(20), ”0.00000“)End Sub

33輸入任意三個數(shù) 找出其中最大的數(shù) Private Sub Command1_Click()Dim a!, b!, c!, Max!a = Text1.Text b = Text2.Text c = Text3.Text Max = a If b > Max Then Max = b If c > Max Then Max = c Text4.Text = Max End Sub

輸出1到100之間的素數(shù) Print 1;2;a = 3 While a <= 100 i = 2

While i < a

If a Mod i = 0 Then

i = a

End If

i = i + 1

Wend

If i = a Then

Print a;

End If a = a + 1 Wend、34打印斐波那契數(shù)列20項 Private sub form_click()A=0 B=1

Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)For i=1 to 9 A=A+B B=A+B

Text1.text=text1.text&str(A)&str(B)&chr(13)& Chr(10)Next i

35判定素數(shù)

A=val(inputbox(“input a”))For i=2 to a

If(a mod i=0)then Exit for End if Next i

If i

36求sum

1+(1+2)+(1+2+3)………….n = Val(Text1.Text)sum = 0

For i = 1 To n sum1 = 0 For j = 1 To i sum1 = sum1 + j Next j sum = sum + sum1 Next i Text2.Text = sum

37求50名學(xué)生的平均成績并統(tǒng)計高于平均分的人

Dim c(1 to 50)as integer Dim p!,n%,i% P=0 For i=1 to 50 C(i)=inputbox(“請輸入第”&i&”位學(xué)生的成績”

P=p+c(i)Next i P=p/50 N=0 For i= 1 to 50 If c(i)>p then n=n+1 Next i Print “平均分=”;”高于平均分的人數(shù)=”;n

設(shè)C=0.3，編寫程序，計算并輸出下面級數(shù)的部分和。結(jié)果取小數(shù)點后面7位。C/1!-C^3/3!+C^5/5!-? +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ ? Dim n as integer Dim x as integer X=0.3 Dim item as double Dim sum as double Dim fact as double For n=1 to 35 Fact=1 Dim I as integer For I =1 to 2*n-1 Fact=fact*i Next Item =(-1)^(n-1)*x^(2*n-1)/fact Sum=sum+item Next Sum=int(sum*10000000+0,.5)/100000000

Magbox

39已知A、B為整數(shù)A和B的立方和為1000求所有的A、B。

Dim x ,y as integer For x=0 to10 For y=0 to10

If x^3+y^3=1000 then Msgbox(x=;y=)

定義一個下標(biāo)上界為30的單精度數(shù)組，設(shè)置好其初值（值處于[20，90]），計算數(shù)組中所有元素的均值。Dim array(30)as single For i=0

Array(i)=20+int(rnd()*71)Next i

Dim sum% For i=0 to 30

Sum=sum+array(i)Next i

Print sum 31 End sum

41求下面級數(shù)前S項中奇數(shù)項的和sum。在求和過程中，以第一個奇數(shù)項的數(shù)值大于 10000 的項為末項。1!-2!+3!-4!+ ? +(-1)^(S-1)*S!+ ?

Dim n as integer Dim item double Dim I as integer Dim sum as double Dim abs as double Do while true Item =1 For I =1 to n Item = item*1 Next i

Sum=sum +item N=n+2

If abs(item)>10000 then Exit do Else N=n+2 End if Loop Msgbox(sum)

42計算sum=1/1!+1/2!+1/3!+....+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Double n = 1 s = 0 For m = 1 To 10 n = n * m s = s + 1 / n Next Print s

42求從[j,s]區(qū)間內(nèi)的素數(shù)及素數(shù)和（這里需要用到三個文本框和2個按鈕）'Private Sub Command1_Click()Dim n%, i%, j%, s% Sum = 0 j = Val(Text1.Text())s = Val(Text2.Text())For n = j To s For i = 2 To n1 Then Sum = Sum + n: Print n Next n Text3.Text = Sum End Sub Private Sub Command2_Click()Cls Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text1.SetFocus End Sub 43某分段函數(shù)描述如下：（1）當(dāng)x為偶數(shù)時，y的值為x的二分之一。（2）當(dāng)x為奇數(shù)時，y的值為x的二倍。Private Sub Command1_Click()Dim x!, y!x = Val(InputBox(”請輸入X的值！“))

If x Mod 2 = 0 Then y = x / 2 Else y = 2 * x MsgBox(y)End If End Sub

44隨機(jī)輸出一個小寫字母。Private Sub Command1_Click()Dim a As String Randomize

a = Chr(Int(97 + 26 * Rnd))MsgBox(a)End Sub、45編寫程序，計算并輸出下面級數(shù)前n項（n=50）中偶數(shù)項的和。s=1*2+2*3+3*4+4*5+....+n*（n+1）+.....Private Sub Command1_Click()Dim s!, i%

For i = 2 To 50 Step 2 s = s + i *(i + 1)Next

MsgBox(s)End Sub

46編寫程序，設(shè)n=20，x=3.4，計算并輸出S(n)的值，要求結(jié)果保留5位小數(shù)。S(n)=Inx/x+In2x/x^2+In3x/x^3+.....+In(n*x)/x^n+.....Private Sub Command1_Click()Dim x#, i%

Dim S(20)As Double n = 20 x = 3.4

For i = 1 To 20

S(20)= S(20)+ Log(i * x)/(x ^ i)Next

Print Format(S(20), ”0.00000“)End Sub

47設(shè) S=35，C=0.3，編寫程序，計算并輸出下面級數(shù)的部分和。結(jié)果取小數(shù)點后面7位。C/1!-C^3/3!+C^5/5!-? +(-1)^(S-1)*C^(2*S-1)/(2*S-1)!+ ?

參考答案如下：

Private Sub Command1_Click()

Dim n As Integer

Dim x As Double

x = 0.3

Dim item As Double

Dim sum As Double

Dim fac As Double

For n = 1 To 35

fac = 1

Dim i As Integer

For i = 1 To 2 * n1)* x ^(2 * n1

fac = fac * i

Next

item =(-1)^(n1)/ fac

sum = sum + item

Next

sum = Int(sum * 10000000 + 0.5)/ 10000000

MsgBox(sum)End Sub

'

sum = 0.479426

49編寫子過程，計算并輸出3000-4000之間的素數(shù)之和C與其中最小的素數(shù)MIN。

Private Sub Command1_Click()

Dim sum, i, min As Integer

min=0

For i = 3000 To 4000

Dim isprime As Boolean = True

Dim j As Integer

For j = 2 To ia(1))*(pa(3)))MsgBox(s)Else MsgBox(”不能構(gòu)成三角形")End If End Sub

第四篇：編程實現(xiàn)能力

教育教學(xué)研究

試論如何提高學(xué)生編程能力

韓國勇男工程碩士信息工程系助理講師

[文章摘要] 計算機(jī)應(yīng)用能力和編程能力是計算機(jī)專業(yè)教學(xué)的兩個重要的檢驗手段，我結(jié)合自己四年的軟件開發(fā)經(jīng)驗和一年的教學(xué)經(jīng)歷，從學(xué)習(xí)、讀程序、思考、練習(xí)、實踐和好習(xí)慣六個方面來論述提高學(xué)生的編程能力。[關(guān) 鍵 詞] 學(xué)習(xí)編程實踐能力

高等職業(yè)技術(shù)教育是一種能力教育，是一種以學(xué)生就業(yè)為導(dǎo)向的教育。除了注重學(xué)生能力的全面培養(yǎng)外，更要注重學(xué)生專業(yè)應(yīng)用能力和專業(yè)擴(kuò)展能力的培養(yǎng)，這樣學(xué)生才能適應(yīng)社會發(fā)展的需要。我結(jié)合自己四年的軟件開發(fā)經(jīng)驗和一年的教學(xué)經(jīng)歷，通過對我們學(xué)校學(xué)生的了解，感覺學(xué)生編程能力比較薄弱，本文從學(xué)、讀、思、練、實踐和好習(xí)慣六個方面探討如何提高高職院校學(xué)生的編程能力。

一、學(xué)

所謂學(xué)就是學(xué)習(xí)，認(rèn)真學(xué)習(xí)專業(yè)課程和編程基礎(chǔ)課程，不斷地學(xué)習(xí)新的和先進(jìn)的開發(fā)工具；只有扎實的理論基礎(chǔ)，理論指導(dǎo)，編程才能游刃有余，才能寫出高水平的代碼，才能編寫出高質(zhì)量的程序。

最基礎(chǔ)的課程是C語言，然后根據(jù)應(yīng)用范圍不同而選擇不同的開發(fā)工具，如果搞底層開發(fā)一般使用C和匯編；如果是大型或者游戲軟件開發(fā)那就是C或C++，一般都用到VC++或者BC++開發(fā)工具；網(wǎng)頁編程可以選擇ASP/PHP/JSP；電子商務(wù)方面選擇.NET和J2EE；網(wǎng)絡(luò)應(yīng)用一般選擇JAVA。不過像數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)庫等課程無論哪個方面的開發(fā)都需要學(xué)的；另外英語和數(shù)學(xué)也非常重要。

一般的基礎(chǔ)課程有C語言，VB程序設(shè)計，數(shù)據(jù)庫原理，數(shù)據(jù)結(jié)構(gòu)，算法設(shè)計等，主要是指學(xué)習(xí)一門語言，一門數(shù)據(jù)庫，一門算法設(shè)計；扎實地學(xué)好這些基礎(chǔ)課程，基礎(chǔ)越牢固編的程序效率越高，這一點在以后的編程中會慢慢的體會到；如果基礎(chǔ)課程不牢固，作者簡介：韓國勇男工程碩士信息工程系助講

可能也能編軟件，寫程序，但是很難寫出高水平的程序。

例如一般的程序會遇到費(fèi)用問題，有費(fèi)用就要考慮費(fèi)用的大寫問題，那么怎樣實現(xiàn)費(fèi)用的大小寫轉(zhuǎn)換呢？首先考慮算法設(shè)計，然后考慮使用什么語言實現(xiàn)?？紤]算法時就要考慮從左向右轉(zhuǎn)換還是從右向左轉(zhuǎn)換，確定后就可以通過循環(huán)控制結(jié)構(gòu)來實現(xiàn)轉(zhuǎn)換；中間用判斷結(jié)構(gòu)來判斷如果為零或中間有零的情況等等。這樣一個問題就通過簡單的算法和基本控制結(jié)構(gòu)實現(xiàn)了，所以編程必須有扎實的理論基礎(chǔ)。

另外，很多的課程告訴我們一些程序的效率問題，例如數(shù)據(jù)庫設(shè)計中提到了SQL語句，我們最先想起的就是Select語句，在數(shù)據(jù)量比較大的情況下，Select語句的查詢速度和數(shù)據(jù)庫中表的索引有很大的關(guān)系，但是很多情況下Select語句是不使用索引的，如果在Select語句中的where條件中出現(xiàn)下列情況的不使用索引：列上有數(shù)學(xué)運(yùn)算的，列上使用substr字符串函數(shù)的，‘%’通配符在第一個字符的，在列上使用字符串連接(||)的，Where條件中使用is null或is not null的等。在對大量的數(shù)據(jù)進(jìn)行查詢時，如果不考慮上面的情況可能寫得SQL語句的效率就比較低。

二、讀

所謂的讀就是讀教材、讀程序、讀網(wǎng)上資料，然后把看到的經(jīng)典的程序代碼，好的算法，整理出來，逐個消化并吸收，轉(zhuǎn)變?yōu)樽约旱闹R，提高編程能力。

多讀別人的代碼，讀完后思考你是否能寫出比它更精練更有效率的程序，讀別人的程序,不要單純的模仿,思想才是最重要的,主要是理解別人的思想，和自己的思想進(jìn)行比較,能學(xué)到很多東西；多與別人交流，三人行必有我?guī)熝?，也許在一次和別人不經(jīng)意的談話中，就可以迸出靈感的火花。多上網(wǎng)搜資料，看別人的開發(fā)經(jīng)驗心得，算法的實現(xiàn)，變?yōu)榧河小?/p>

三、思

所謂思就是思考，事前思考有沒有解決方案，事中思考有沒有更好的解決方案，事后考慮有沒有需要完善和補(bǔ)充的功能，總之是使程序功能更強(qiáng)大和完善，性能更好！

首先：事前思考有沒有可行性，給你一個問題或一個項目，最先要做的就是思考可行性問題，包括技術(shù)可行性、經(jīng)濟(jì)可行性、法律可行性。如果給你一個悖論，讓你用程序來實現(xiàn)，本身是一個悖論，編寫程序肯定陷入死循環(huán)，怎么可能解決呢？

其次：事中考慮有沒有更好的解決方案？微軟給了我們很好的思路，比如：登陸界面，保存，輸入格式的限制和輸入范圍的限制等。登陸界面一般有用戶名和登錄密碼，并且默認(rèn)上次成功登陸系統(tǒng)的用戶名，輸入的密碼顯示為一串“*”，在這些操作中可以只使用鍵盤，我們編寫的程序應(yīng)該怎樣實現(xiàn)呢？可以使用setfocus()方法來實現(xiàn)；那么定期保存怎樣實現(xiàn)，數(shù)據(jù)備份怎樣實現(xiàn)？其實我們可以在程序中增加登陸時系統(tǒng)時間，在一定的時間間隔內(nèi)實現(xiàn)備份，最簡單的就是調(diào)用Winrar進(jìn)行文件壓縮備份；一些輸入的限制，要根據(jù)輸入的內(nèi)容的邏輯進(jìn)行判斷到底應(yīng)該輸入的內(nèi)容或范圍是什么？例如日期有的月份能輸入31日，有的月份就不能輸入31日，需要進(jìn)行邏輯判斷，當(dāng)然了現(xiàn)在已經(jīng)有很多工具有時間的控件，自動進(jìn)行邏輯判斷。

最后：事后考慮有沒有需要完善的，代碼有沒有

需要優(yōu)化的？下面舉幾個代碼優(yōu)化的例子：(1)判斷年year是否為閏年，首先我們知道閏年的定義是能被4整除，不能被100整除；或者能被4整除，且能被400整除，然后書寫算法（year % 4 == 0 && year % 100!= 0）||(year % 4 == 0 && year % 400 == 0)，其實 year % 4 == 0 就不需要了，因為year如果能整除400，肯定能整除4，所以year % 400 == 0一個條件就可以了。(2)求一元二次方程ax + bx + c = 0的根，步驟是先判斷a是否為0，在判斷b24ac是否為0時，需要這樣判斷fabs(b2-4ac)<= 1e – 6，因為在計算機(jī)中，儲存實數(shù)一般都有誤差。

四、練

所謂練就是動手做練習(xí)，教材上的例題、課后習(xí)題都是很好的練習(xí)素材，這些是編者經(jīng)過深思熟慮的例子和習(xí)題，很有代表性。

邊練習(xí)，邊理解，邊思考，多問為什么？然后根據(jù)自己的思考和理解對例子作一定的改動，看執(zhí)行結(jié)果，是否和自己期望的一樣？出現(xiàn)問題設(shè)法調(diào)試和改正使其編譯通過。例如有很多循環(huán)例子，是否可以實現(xiàn)for循環(huán)和while循環(huán)相互轉(zhuǎn)化，當(dāng)通過自己的實際轉(zhuǎn)換后才體會到原來每個循環(huán)有各自的特點。

練習(xí)要分階段分步驟，開始編一些趣味性大一點的小程序，例如：數(shù)據(jù)結(jié)構(gòu)書中有很多算法的,試著把它們敲成程序,運(yùn)行一下，既可以實踐檢驗算法,也可以鍛煉自己的實際編程能力，隊列,排序,很多都是很經(jīng)典的。當(dāng)積累到一定程度就可以按照自己的想法去編一些實用性強(qiáng)一點的程序，開始時沒靈感也不要緊，畢竟資源豐富，可以從借鑒別人的勞動成果開始。最后，系統(tǒng)地學(xué)學(xué)軟件工程，完全按照軟件生命周期的6個階段來做。

練習(xí)是一個逐漸的過程，開始熟悉語法，編程規(guī)范，各種控件的用法，然后再學(xué)習(xí)各種控件的綜合運(yùn)

用，甚至編寫一個小的系統(tǒng)。但是不要為了練習(xí)而練習(xí)，要加上自己豐富的想象力，不要拘泥于固定的思維方式，多思考、多練習(xí)，通過不斷的練習(xí)，加深對各種工具或控件的運(yùn)用，提高編程能力。

五、實踐

如果有機(jī)會，可以做實際的項目工程，在實踐中不斷地鍛煉自己的其他能力：邏輯能力、思維能力、業(yè)務(wù)能力、溝通交流能力。

邏輯能力和思維能力是編程能力的基礎(chǔ)，只有良好的邏輯能力和思維能力才能開發(fā)出高性能的程序，才能保證程序的正確性。

業(yè)務(wù)能力和溝通交流能力是必須的，如果你不知道業(yè)務(wù)的話，不可能開發(fā)出適合用戶的程序，因為不懂業(yè)務(wù)，所以就不知道用戶所需，不能更好的為用戶服務(wù)。

實踐的項目不在大小，在于我們的實踐經(jīng)歷，通過實踐我們知道在實施項目中除了編程能力外還需要其他的能力，通過實踐知道項目的實施過程和環(huán)節(jié)，在實施的過程中遇到各種各樣的問題，會使我們明白在編程中怎樣解決這些問題，例如：在培訓(xùn)用戶使用我們的系統(tǒng)時，發(fā)現(xiàn)用戶對我們的業(yè)務(wù)流程不適應(yīng)，業(yè)務(wù)流程過于繁瑣，他們有自己的業(yè)務(wù)流程，而且也比較簡單，那么我們在編程時就可以借鑒用戶的流程，使我們系統(tǒng)的操作流程更簡捷；在測試階段發(fā)現(xiàn)用戶經(jīng)常使用業(yè)務(wù)回退功能，那么我們就把主要的業(yè)務(wù)流程都增加上業(yè)務(wù)回退功能，使系統(tǒng)功能更完善；在現(xiàn)場維護(hù)階段發(fā)現(xiàn)維護(hù)人員看代碼看不明白，那么在編程階段就要注意良好的編程風(fēng)格和增加適量的注釋，這樣位護(hù)時才能很快的看明白程序，盡快地調(diào)試和改正程序中的問題，以便提高工作效率。

所以，編程能力的高低，不是語言懂的越多能力越高，需要我們在實踐中不斷的鍛煉，提高自己的溝

通交流能力和邏輯思維能力，提高編程綜合能力。

六、好習(xí)慣

所謂好習(xí)慣就是在編程過程中要養(yǎng)成良好的習(xí)慣，提高編程效率和編程能力：

1、先想后做：在編程前或解決問題前，先考慮該問題是否有可行性，有可行性再考慮計劃和實施。

2、游戲規(guī)則：編程要遵循軟件的生命周期，按照制定計劃、需求分析、軟件設(shè)計、程序編碼、軟件測試和運(yùn)行維護(hù)這6個階段來實現(xiàn)軟件，不可越級。

3、有備無患：編程之前，先找一些樣例程序仔細(xì)研究，應(yīng)該包含哪些基本功能？里面一些難度大的算法應(yīng)該怎樣實現(xiàn)？不打無準(zhǔn)備之仗。

4、見名知意：程序再小，用的變量也不會少，變量起名應(yīng)當(dāng)“見名知意”，這是老規(guī)矩，能提高程序的易理解性和易修改性。

5、編程規(guī)范：和見名知意雷同，主要是使得程序?qū)哟吻逦子诶斫狻?/p>

6、多加注解：對程序中自定義的變量、函數(shù)、子程序加以功能性的注釋說明，別嫌麻煩，如果三五個月之后，連自己寫的東西都看不明白了，那才麻煩大了。

7、環(huán)境保護(hù)：如果應(yīng)用程序需要修改系統(tǒng)設(shè)置，記著執(zhí)行程序前先保存設(shè)置，結(jié)束后要恢復(fù)設(shè)置，千萬別污染環(huán)境。

8、拿來主義：一個人的力量是有限的，大家的力量是無限的，平時多看看書，有好的經(jīng)驗、巧的方法、用得上的段子不妨拿來。

總之：要提高編程能力，就要不斷地學(xué)習(xí)，不斷地讀程序、讀代碼，不斷地思考和練習(xí)、有機(jī)會就實踐，還要在編程中養(yǎng)成良好的習(xí)慣，只有這樣才能得到鍛煉，能力才能提高。

第五篇：體驗VB編程教學(xué)設(shè)計

《體驗VB編程》教學(xué)設(shè)計

一、教學(xué)內(nèi)容分析

1．課程標(biāo)準(zhǔn)內(nèi)容《信息的編程加工》教學(xué)設(shè)計

初步掌握用計算機(jī)編程加工信息的工作過程和基本特征； 2．教材作用與地位

教科版《信息技術(shù)基礎(chǔ)》第三章第二節(jié)“信息的編程加工”，對這部分內(nèi)容分兩堂課完成。第一節(jié)課通過操作和剖析已經(jīng)編好的計算機(jī)程序，在解決實際問題中分析并了解其工作過程，這種通過問題分析形成算法、再利用計算機(jī)程序解決問題的思路和做法，對學(xué)生幫助很大。

第二節(jié)課主要是通過制作“QQ登陸”這個小程序，體驗 VB編程的過程。讓學(xué)生了解一些簡單的編程知識。我們認(rèn)識問題的過程一般都是像課本那樣：從概念到案例。即從事物的原理出發(fā)，以實例來驗證原理。這樣的方法雖然對闡述問題的整體性是有益的，但是卻并不容易突破難題，給人以就事論事的感覺，沒有鮮活的體現(xiàn)。

所以本節(jié)采用的策略是：從案例到概念。即從事物的表象出發(fā)，根據(jù)現(xiàn)象去探索原理。這樣的方法更符合青少年的求知心理，也更容易在用技術(shù)實現(xiàn)軟件模型過程中體驗到程序的本質(zhì)意義和巨大價值。而且要通過例子來讓學(xué)生明白計算機(jī)語言只是工具，算法才是程序設(shè)計的靈魂，從而理解計算機(jī)工作的內(nèi)部機(jī)制，也就理解了為什么說自動化信息加工和人性化加工是智能化加工的一個基礎(chǔ)。

二、學(xué)生分析

因為大多數(shù)學(xué)生在初中都沒有接觸到利用計算機(jī)來進(jìn)行編程方面的內(nèi)容，因此在利用 VB來進(jìn)行編程方面的基礎(chǔ)可以說是零，老師就要從最簡單、最基礎(chǔ)的方面來引導(dǎo)這些零起點的學(xué)生。在學(xué)生已有的計算機(jī)基礎(chǔ)上給他們講解一下程序設(shè)計中的算法以及一些簡單的VB編程。

三、教學(xué)目標(biāo)： 1．知識與技能目標(biāo)

引導(dǎo)學(xué)生了解有關(guān)程序設(shè)計的基本知識；讓學(xué)生了解計算機(jī)加工信息的內(nèi)在機(jī)制以及算法的含義。

2．過程和方法目標(biāo)

讓學(xué)生了解計算機(jī)解決問題的一般過程，了解用高級語言編程工具解決問題的基本方法，感悟計算機(jī)程序設(shè)計的思想，了解計算機(jī)程序設(shè)計的基本流程。

3．情感與價值觀目標(biāo)

激發(fā)學(xué)生對信息技術(shù)的求知欲，提高其學(xué)習(xí)興趣，形成積極主動學(xué)習(xí)信息技術(shù)的態(tài)度。

四、教學(xué)重點

1．了解VB程序設(shè)計的界面組成。

2．了解怎樣用VB編寫簡單的小程序，并且運(yùn)行小程序。

五、教學(xué)難點

學(xué)生對于算法和 VB編程的理解程度。

六、教學(xué)過程

1．第一環(huán)節(jié)：觀看程序，查看代碼，了解設(shè)計程序的一般過程 通過演示“QQ登陸框“小程序激發(fā)同學(xué)們的興趣。

學(xué)生觀察其界面。分析其程序。

教師：上節(jié)課大家通過修改程序體驗了一下編程的神奇力量，今天這堂課大家就變身真正的程序員，自己設(shè)計程序，編寫代碼，大顯身手了！首先，我們來設(shè)計它的外觀吧！

第二環(huán)節(jié) 上手模擬軟件外觀。

認(rèn)識算法：制作軟件需要編寫程序，編寫程序要有一定的工具，事先還要有一定的規(guī)劃和設(shè)計，即算法。以蓋房子為例講解算法：預(yù)計有多少房間，規(guī)劃每個房間的功能是什么，建筑的過程是怎樣的，最后的裝修使用等。

操作演示：從制作軟件者的視角，了解 VB的結(jié)構(gòu)特點。（1）控件。

VB就像蓋房，有各種材料、器件——控件，以圖像控件為例，演示給學(xué)生插入一個控件。（2）控件的屬性。

每個控件都有一定的屬性，就像壁畫有名稱、大小、內(nèi)容、位置等。為圖像控件的 Picture屬性引入一個圖片。

（3）事件響應(yīng)代碼。

有的控件要能響應(yīng)一定的功能要求——事件。就像門鈴按動時有聲音，按門鈴就是事件，聲音就是響應(yīng)。

教師演示如何設(shè)計程序界面?。ㄑ菔疽粋€控件即可！更改其屬性，并引導(dǎo)學(xué)生觀察每個對象的屬性說明，選擇相應(yīng)的屬性進(jìn)行修改。）

學(xué)生：設(shè)計程序界面。

教師要引導(dǎo)學(xué)生觀察每個對象的名稱。第三環(huán)節(jié) 探索軟件智慧的來源。

教師：設(shè)計好了程序界面，我們運(yùn)行程序，是否會相應(yīng)我們的操作！我們輸入了正確的賬號和密碼，就會顯示登錄成功的界面嗎？

學(xué)生：不會！要給它編寫代碼！

教師：是呀！我們剛才只是給它一個軀體，并沒有賦予它靈魂！只有編寫了正確的代碼，它才會按照我們的指令去操作！

那我們來分析一下這個程序！什么時候我們才能登陸成功？ 學(xué)生：輸入正確的賬號和密碼！教師：什么時候出現(xiàn)錯誤的提示：

學(xué)生：賬號錯誤或密碼錯誤或者賬號密碼都錯誤！

教師：分析得非常好！明確了解決問題的過程，我們就開始動手編寫代碼吧?。ǜ咭坏臄?shù)學(xué)已經(jīng)了解程序設(shè)計的相關(guān)知識，學(xué)生讀懂程序沒有什么障礙！老師稍加點撥即可?。?/p>

問題是我們現(xiàn)在對那個對象編寫代碼？這是我們要解決的問題！

學(xué)生通過討論和思考：單擊“登陸”按鈕才引發(fā)的事件，應(yīng)當(dāng)對“登陸”按鈕編寫代碼！代碼如下：

Private Sub Command1_Click()mm = “gl123” hm = “2423366923” sr = Text2.Text If sr = mm And Text1.Text = hm Then Form2.Show Else MsgBox(“密碼輸入錯誤！”)End End If End Sub 教師和學(xué)生共同理解程序。

教師：在編寫程序過程中，難免會出現(xiàn)錯誤，就需要進(jìn)行運(yùn)行和調(diào)試！解決編程中出現(xiàn)的問題！有學(xué)生提出疑問：老師，我輸入的密碼為什么不能以“*”顯示？ 教師：在文本框有一個passwordchar屬性，大家更改一下看看如何？

還可以對程序進(jìn)行哪些修改呢？我們有時遇到網(wǎng)絡(luò)很差，想取消登陸怎么辦？引導(dǎo)學(xué)生對程序進(jìn)行進(jìn)一步的修改和完善！

第四環(huán)節(jié) 總結(jié)程序的作用及程序的結(jié)構(gòu)特點。教學(xué)反思： 1．教學(xué)設(shè)計

本節(jié)課在教學(xué)過程中，緊扣課標(biāo)，從學(xué)生的認(rèn)識特點和實際能力出發(fā)，沒有用教材提供的例子，而用教師自己設(shè)計的例子——設(shè)計QQ登陸程序，引發(fā)學(xué)生的學(xué)習(xí)興趣。數(shù)學(xué)中已經(jīng)初步了解了程序設(shè)計語言，了解了程序涉及的三種結(jié)構(gòu)，從學(xué)生熟知的例子入手，這樣引入課題自然、清楚，更重要的是簡化了“算法”和簡化了程序，課堂效果較好，達(dá)到了課標(biāo)的要求。本節(jié)課的教學(xué)我感到最為成功的地方是，以學(xué)生為本，緊扣課標(biāo)，教材處理恰當(dāng)。通過分析通過剖析程序讓學(xué)生了解編程解決問題的方法和步驟；通過學(xué)生上機(jī)實踐，親身感受計算機(jī)編程解決問題的過程；通過學(xué)生感悟編程的過程，感受到編程就像跟計算機(jī)對話一樣；

2．分層教學(xué)的實施

教學(xué)中采用了分層教學(xué)，對不同的學(xué)生有不同的要求，“零起點”學(xué)生親身感受計算機(jī)程序解決問題的過程，懂得計算機(jī)程序設(shè)計的基本流程，“非零起點”的學(xué)生在“零起點”的基礎(chǔ)上，能夠根據(jù)自己的需要對程序進(jìn)行進(jìn)一步的完善。這樣所有的學(xué)生都能達(dá)到課標(biāo)的要求，每個學(xué)生在自己的基礎(chǔ)上都有所提高。

3．感悟和提升

在教學(xué)中教師讓學(xué)生感悟程序設(shè)計的過程像什么活動一樣，好多學(xué)生都能感悟出像對話一樣，這正是程序設(shè)計的“精髓”。教師告訴學(xué)生編程不但能解決畫函數(shù)圖像這樣的小問題，還能解決更大更復(fù)雜的問題，你們現(xiàn)在所用的 Office就是用VB開發(fā)出來的，你們以前所學(xué)內(nèi)容主要是在應(yīng)用別人開發(fā)的程序，如果有一天你能開發(fā)出程序讓別人使用，那么你的計算機(jī)水平將上一個臺階，你自己也很有成就感。

4．不足

前面在程序設(shè)計界面上，學(xué)生花費(fèi)了較多的時間，在完善程序，如密碼框改變其屬性passwordchar，設(shè)計取消登陸框的“取消”按鈕，沒有完成。