第一篇：程序設(shè)計語言VB綜合設(shè)計題及答案

《程序設(shè)計語言VB》綜合設(shè)計題

1.編制程序?qū)崿F(xiàn)：在窗體上，單擊按鈕1，在文本框中動態(tài)顯示當(dāng)前時間；單擊按鈕2，則停止動態(tài)顯示；單擊按鈕3，清除文本框內(nèi)容。提示：可用定時器控制時間，用系統(tǒng)函數(shù)Now顯示時間（如Text1.Text = Now）。

2.編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結(jié)果用消息框顯示輸出。

3.編制程序：利用輸入框輸入10個不同的整數(shù)，將它們從小到大排序，并打印輸出。4.編制程序?qū)崿F(xiàn)：設(shè)計在一框架中包含三個復(fù)選框，只有當(dāng)其1,3選中而2未選中時，才在Text1中顯示“Hello”字符。

5.編一程序能實現(xiàn)在窗體上打印出如下圖所示的圖形。

A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.編一程序用于判斷一正整數(shù)是否為素數(shù)。（提示：只能被1和本身整除的正整數(shù)稱為素數(shù)。為了判斷一個數(shù)n是不是素數(shù)，可以將n被2到sqr(n)之間的所有整數(shù)除，如果都除不盡，則n就是素數(shù)，否則n是非素數(shù)。）

7.選用If和Select判斷結(jié)構(gòu)中任意一種編寫滿足下列條件的計稅要求的程序：少于1600元，免稅；1601-5000元，征2%的稅；多于5000元，超過部分征5%的稅。

8.有a、b、c三個數(shù)，編一程序?qū)崿F(xiàn)通過文本框給a、b賦值；再調(diào)用能完成a、b比較大小的子過程，用c將大數(shù)回傳。要求按值傳送a、b。

9.編一程序用于求所有的“水仙花數(shù)”。所謂“水仙花數(shù)”是指一個3位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。例如：153就是一水仙花數(shù)，因為153 = 13+53+33。

10.設(shè)計一彈出式菜單，用于設(shè)置窗體的背景色，背景色包含白色、黃色、紅色三種顏色。11.編寫程序?qū)崿F(xiàn)：輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值判斷能否構(gòu)成三角形。如果能，則判斷三角形是否是直角三角形，若是則計算該直角三角形的面積。

提示：判斷能否構(gòu)成三角形的方法是，求最長的一邊，判斷它的邊長是否小于另外兩邊邊長之和；或求最短的一邊，判斷它的邊長是否大于另外兩邊之差。

12.編寫程序：通過四個命令按鈕Command1-Command4，在圖片框Picture1內(nèi)分別實現(xiàn)畫點、畫線、畫圓、擦除等功能。

13.編寫程序?qū)崿F(xiàn)：在窗體上單擊按鈕1，可通過輸入對話框輸入兩個字符串；單擊按鈕

2，將輸入的兩個字符串連接為一個字符串，并計算該字符串長度，然后在消息框中顯示出來。

14.編一程序：用三個文本框分別輸入a、b、c，求一元二次方程ax2+bx+c=0的解x1和x2，只包括實根。

15.編一程序：利用輸入對話框輸入兩個正整數(shù)，求最大公約數(shù)。

答案

1.Private Sub Command1_Click()

Timer1.Interval = 5

Timer1.Enabled = True End Sub Private Sub Command2_Click()

Timer1.Enabled = False End Sub Private Sub Command3_Click()

Timer1.Enabled = False

Text1.Text = “" End Sub Private Sub Timer1_Timer()

Text1.Text = Now End Sub

2.Private Sub Command1_Click()Dim i, s As Integer For i = 100 To 200

If i Mod 3 = 0 Then s = s + i Next i MsgBox(”100-200之間所有可以被3整除的數(shù)的總和為：“ & Str(s))End Sub

3.Private Sub Command1_Click()Dim a(9), i, j, m As Integer For i = 0 To 9

a(i)= Val(InputBox(”

For i = 0 To 9

For j = i + 1 To 9

If a(i)> a(j)Then

m = a(i)

a(i)= a(j)

a(j)= m

End If

Next j Next i For i = 0 To 9

Print a(i);Next i End Sub

4.Private Sub Command1_Click()If Check1.Value = 1 And

Check2.Value = 1 And Check3.Value = 0 Then Text1.Text = “Hello” End If End Sub

5.Private Sub Command1_Click()Dim i, j As Integer For i = 1 To 4

For j = 1 To(2 * i1)To 1 Step-1

Print “B”;

Next j

Print Next i End Sub

6.Private Sub Command4_Click()

Dim n, k, i, temp As Integer

n = InputBox(“請輸入一個正整數(shù)”)

k = Int(Sqr(n))

i = 2

temp = 0

Do While i <= k And temp = 0

If n Mod i = 0 Then

temp = 1

Else

i = i + 1

End If Loop

If temp = 0 Then

Print n;“是一個素數(shù)”

Else

Print n;“不是素數(shù)”

End If End Sub

7.Private Sub Command1_Click()Dim n, p As Single n = Val(Text1.Text)Select Case n

Case Is <= 1600

p = 0

Case 1600 To 5000

p =(n5000)* 0.05 End Select End Sub

8.Private Sub c1(ByVal a As Single, ByVal b As Single, c)If a > b Then c = a Else c = b End Sub

Private Sub Command1_Click()Dim a, b, c As Single a = Val(Text1.Text)b = Val(Text2.Text)

Call c1(a, b, c)

Print c End Sub

9.Private Sub Command1_Click()Dim a, b, c, n As Integer For n = 100 To 999

a = Int(n / 100)

b = Int((n(a * 100 + b * 10)

If n = a ^ 3 + b ^ 3 + c ^ 3 Then Print n;

Next End Sub

10.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu MenuA

End If End Sub

Private Sub B_Click(Index As Integer)

Select Case Index

Case 1

Form1.BackColor = vbWhite

Case 2

Form1.BackColor = vbYellow

Case Else

Form1.BackColor = vbRed

End Select End Sub

11.Private Sub Command1_Click()Dim a(2), i, j, m As Integer For i = 0 To 2

a(i)= Val(InputBox(“

If a(i)> a(j)Then

m = a(i)

a(i)= a(j)

a(j)= m

End If

Next j Next i If a(0)+ a(1)> a(2)Then

If a(0)^ 2 + a(1)^ 2 = a(2)^ 2 Then

Print ”能構(gòu)成直角三角形,面積為：“ & a(0)* a(1)/ 2

Else

Print ”能構(gòu)成三角形，但不是直角三角形“

End If Else

Print ”不能構(gòu)成三角形“ End If End Sub

12.Private Sub Command1_Click()Picture1.PSet(Picture1.Width / 2, Picture1.Height / 2)End Sub

Private Sub Command2_Click()Picture1.Line(0, 0)-(Picture1.Width, Picture1.Height)End Sub

Private Sub Command3_Click()Picture1.Circle(Picture1.Width / 2, Picture1.Height / 2), 800 End Sub

Private Sub Command4_Click()Picture1.Cls End Sub

13.Dim a, b, c As String Private Sub Command1_Click()a = InputBox(”請輸入

Private Sub Command2_Click()c = a + b MsgBox “連接后的字符串為：” & c & “。長度為：” & Len(c)End Sub

14.Private Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then

x =-c / b

Print x Else

t = b * bSqr(t))/ 2 / a

Print X1, X2

End If End If End Sub

15.Private Sub Command1_Click()m = Val(InputBox("

第二篇：程序設(shè)計語言VB單項選擇題及答案

《程序設(shè)計語言VB》單選題

1.Visual Basic是一種面向（）的程序設(shè)計語言。

A.用戶 B.事件 C.程序 D.對象

2.在Visual Basic6.0中規(guī)定工程文件的擴(kuò)展名是（）。

A.vbp B.for C.frm D.bas 3.Visual Basic6.0中規(guī)定窗體文件的擴(kuò)展名是（）。

A.for B.frm C.vbp D.bas 4.如何使一個標(biāo)簽或按鈕控件在運行時不可用（）。

A.把它的Visible屬性設(shè)置成False B.把它的Visible屬性設(shè)置成True C.把它的Enabled屬性設(shè)置成False D.把它的Enabled屬性設(shè)置成True 5.控件的字體可在屬性窗口的（）屬性中調(diào)整？

A.Font B.Color C.Text D.Caption 6.若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕。則應(yīng)設(shè)置為True的屬性是（）。

A.Value B.Cancel C.Default D.Enabled 7.在VB中，記錄對象數(shù)據(jù)的是（）。

A.方法 B.事件 C.屬性 D.語句

8.在文本框上顯示文本的屬性是（）。

A.Value B.Text C.Print D.Enabled 9.InputBox函數(shù)返回值的類型為（）。

A.字符串 B.數(shù)值 C.變體

D.數(shù)值或字符串（視輸入的數(shù)據(jù)而定）

10.設(shè)有語句：a = InputBox(“請輸入數(shù)值:”,“輸入示例”, “100”)程序執(zhí)行后,若從鍵盤上輸入數(shù)值20并按回車鍵,則變量a的值是（）。A.字符串“20” B.字符串“120” C.默認(rèn)值100 D.數(shù)值120 11.下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是（）。

A.Label控件 B.TextBox控件 C.Timer控件

D.CommandButton控件

12.語句PRINT “25*4”的輸出結(jié)果是（）。

A.25*4 B.“100” C.100 D.出現(xiàn)錯誤信息

13.只能用來顯示字符信息的控件是（）。

A.文本框 B.標(biāo)簽框 C.圖片框 D.圖像框

14.下列可作為Visual Basic變量名的是（）。

A.A%A B.4A C.?xy D.Stemp 15.下列哪個符號不能作為VB中的變量名（）。

A.timefly B.pass4

C.min4max D.R[8] 16.在窗體內(nèi)聲明的變量是（）。

A.局部變量 B.模塊變量 C.公共變量 D.任意變量

17.語句Dim x As Integer作用是:將x定義為（）變量。

A.單精度型 B.整型 C.布爾型 D.字符型

18.在VB中,用Boolean來表示的數(shù)據(jù)類型是（）。

A.長整型 B.字符型 C.布爾型 D.單精度型

19.定義常量需要用到的關(guān)鍵字是（）。

A.Const B.Dim C.Private D.Public 20.如果要處理3.1415類數(shù)據(jù)，使用的變量類型應(yīng)該是（）。

A.Single B.Long C.Integer D.String 21.表達(dá)式2*3^2+2*8/2+3^2的值為（）。

A.27 B.31 C.35 D.42 22.數(shù)學(xué)表達(dá)式 X^2+3XY對應(yīng)的VB算術(shù)表達(dá)式是（）。

A.X*2+3X*Y B.X*X+3XY C.X*X+3*X*Y D.X*X+3*XY 23.在VB語言中，求余運算符是（）。

A.％

B.MOD C.* D./ 24.判斷兩個邏輯關(guān)系任一滿足的邏輯運算是（）。

A.Or B.And C.Not D.Ok 25.表達(dá)式4+5 6 * 7 / 8 Mod 9 的值是（）。

A.4 B.5 C.6 D.7 26.選拔身高T超過1.7米且體重W小于60公斤的人，表示該條件的布爾表達(dá)式為（）。

A.T>=1.7 And W<=60 B.T<=1.7 Or W>=60 C.T>1.7 And W<60 D.T>=1.7 Or W<60 27.VB中下列邏輯表達(dá)式書寫正確的是（）。

A.a>b and a>c B.a>b>c C.a≤b D.a≠122 28.設(shè)x=4,y=8,z=7，表達(dá)式xz)Or z

A.1 B.-1 C.TRUE D.FALSE 29.Sqr(81)+Fix(3.6)的值是（）。

A.12 B.7 C.8 D.9 30.把字符串“123”轉(zhuǎn)換為數(shù)值123 時應(yīng)該使用的函數(shù)是（）。

A.Str B.Val C.Len D.Log 31.表達(dá)式Abs（-3）+int(3.14)的值為（）。

A.5 B.6 C.0.14 D.6.14 32.Int(Rnd * 100)表示的是（）范圍內(nèi)的一個整數(shù)。

A.[0,100] B.[1,99] C.[0,99] D.[1,100] 33.Len(“Friend”)的值是（）。

A.6 B.7 C.8 D.9 34.Int(-3.14)的值是（）。

A.-3 B.-3.14 C.-4 D.3.14 35.Right（“banana”, 4）的值是（）。

A.ba B.banana C.nana D.ban 36.表達(dá)式 Mid(“Hello”, 2, 3)的值是（）。

A.“l(fā)l” B.“l(fā)lo” C.“ell” D.“ello”

37.語句if 3*4>=10 then a=1 else a=2 執(zhí)行后，a的值為（A.12 B.10 C.1 D.2 38.語句If x=1 Then y=1,下列說法正確的是（）。

A.x=1和 y=1 均為賦值語句 B.x=1和 y=1均為關(guān)系表達(dá)式

C.x=1為關(guān)系表達(dá)式，y=1為賦值語句 D.x=1為賦值語句，y=1為關(guān)系表達(dá)

。）

39.下面程序段中，（）不是把兩個數(shù)中的大值賦給變量Ｍax。

A.Max=IIf(x>y,x,y)B.If x>y Then Max=x Else Max=y C.Max=x ：If y>=x Then Max=y D.If y>=x Then Max=y Max=x 40.在Select判斷結(jié)構(gòu)中，下面的表述中不正確的是（）。

A.Case 1 B.Case a > 5 C.Case 3 To 6 D.Case is <10 41.由“For i=1 To 16 Step 3”決定的循環(huán)結(jié)構(gòu)被執(zhí)行（）次。

A.4 B.5 C.6 D.7 42.Dim a(5, 5)As Long 定義的數(shù)組元素的個數(shù)是（）。

A.10 B.11 C.25 D.36 43.用于清空數(shù)組數(shù)據(jù)的關(guān)鍵字是（）。

A.Erase B.Lbound C.Ubound D.Redim 44.下列關(guān)于do while ?loop 和do?loop while循環(huán)執(zhí)行循環(huán)體次數(shù)的描述正確的是（）。

A.do while ?loop循環(huán)和do?loop while循環(huán)至少都執(zhí)行一次

B.do while ?loop循環(huán)可能不執(zhí)行，do?loop while循環(huán)至少執(zhí)行一次 C.do while ?loop循環(huán)至少執(zhí)行一次，do?loop while循環(huán)可能不執(zhí)行 D.do while ?loop循環(huán)和do?loop while循環(huán)可能都不執(zhí)行

45.For-Next 語句屬于程序基本結(jié)構(gòu)中的（）。

A.順序結(jié)構(gòu) B.循環(huán)結(jié)構(gòu) C.分支結(jié)構(gòu) D.選擇結(jié)構(gòu)

46.下列關(guān)于Exit For 的說法，正確的是（）。

A.它可以退出任何類型的循環(huán) B.一個循環(huán)只能有一個Exit For C.每個循環(huán)必須有Exit For

D.Exit For本身是無條件退出循環(huán)

47.在Visual Basic代碼窗口中,將某一條語句加以注釋和說明時,應(yīng)在語句前加（）。

A., B.: C.' D.? 48.為了將一個語句寫在多行上所使用的行續(xù)接符是：（）。

A.& B._ C.' D.：

49.在一個語句內(nèi)寫多條語句時,每個語句之間分隔符號是（）。

A., B.； C.: D.' 50.Function過程的定義，不必須有的是（）。

A.過程的名稱 B.虛參

C.End Function D.給過程賦值

51.下列過程調(diào)用語句中，被調(diào)用的過程一定是Sub子過程的語句是（）。

A.Pro1(x)B.Print Pro2(x)C.x= Pro3(x)D.Call Pro4(x)52.Sub過程與Function過程最根本的區(qū)別是（）。

A.Sub過程可以用Call語句直接使用過程名調(diào)用，而Function過程不可以 B.Function過程可以有形參，Sub過程不可以

C.Sub過程不能返回值，而Function過程能返回值 D.兩種過程參數(shù)的傳遞方式不同

53.當(dāng)拖動滾動條中的滾動塊時，將觸發(fā)滾動條的事件是（）。

A.Move B.SetFocus C.Scroll D.Change 54.列表項選擇后得到的選中索引是指（）。

A.Value B.ListValue

C.Index D.ListIndex 55.定時器定時工作所觸發(fā)的事件是（）。

A.Click()B.Change()C.Timer()D.Load()56.在圖片框中加載圖形(c:666.jpg)的方法是（）。

A.Loadpicture(“c:666.jpg”)B.Loadpicture()C.print(“c:666.jpg”)D.cls 57.以下關(guān)于VB列表框的敘述中（）是錯誤的。

A.可通過屬性“Item”，返回列表框中的項目 B.可通過屬性“Text”，得到當(dāng)前列表項中的內(nèi)容

C.可通過屬性“ListIndex”返回當(dāng)前選中的列表項的索引 D.可通過屬性“ListCount”返回列表框中項目的數(shù)目

58.為了把焦點移到某個指定控件，所使用的方法是（）。

A.GetFocus B.Visible C.Refresh D.SetFocus 59.為了隱藏一個窗體，所使用的方法為（）。

A.Load B.Show C.Hide D.UnLoad 60.如果窗體被遮擋，通過調(diào)用（）方法，可以將其顯示。

A.Hide B.Show C.Unload D.load 61.VB窗體設(shè)計器的主要功能是（）。

A.建立用戶界面 B.畫圖 C.編輯文字

D.編寫程序代碼

62.窗體的（）方法可以清除窗體上的圖形與文本。

A.print

B.cls C.load D.circle 63.窗體沒有（）屬性。

A.Caption B.Text C.Picture D.Top 64.當(dāng)一個工程有多個窗體時，其中的啟動窗體是（）。

A.70.在Visual Basic中,以下選項中表示單擊事件的是（）。

A.KeyUp B.Click C.Activate D.Load 71.下面不屬于鍵盤事件的是（）。

A.KeyUp B.KeyDown C.KeyPress D.Click 72.每當(dāng)窗體失去焦點時會觸發(fā)的事件是（）。

A.Active B.Deactive C.LostFocus D.Initialize 73.設(shè)在窗體上有一通用對話框控件Commonialog1，通過調(diào)用（）語句可以建立“顏色”對話框。

A.Commonialog1.ShowOpen B.Commonialog1.Action=2 C.Commonialog1.ShowColor D.Commonialog1.Action=5 74.用語句Commonialog1.ShowOpen建立了“打開”對話框以后，要得到用戶所選擇文件的路徑及文件名，應(yīng)使用Commonialog1的（）。A.DialogTitle屬性 B.FileTitles屬性 C.FileName屬性 D.InitDir屬性

75.用于顯示彈出式菜單的方法名是()。

A.ShowOpen B.ShowMenu C.ShowPopup D.PopupMenu 76.打開菜單編輯器的快捷鍵是（）。

A.CTRL+F B.Alt+F C.CTRL+E D.Alt+E 77.下列敘述中，錯誤的是（）。

A.順序文件打開后，既可以讀又可以寫

B.隨機文件打開后，既可以讀又可以寫 C.順序文件打開后，只能讀或者只能寫

D.順序文件和隨機文件的打開都使用Open語句

78.VB編程中順序文件的處理將用到關(guān)鍵字是（）。

A.File B.Save C.Open D.Disk

1.D 2.A 3.B 4.C 5.A 6.C 7.C 8.B 9.A 10.A 11.B 12.A 13.B 14.D 15.D 16.B 17.B 18.C 19.A 20.A 21.C 22.C 23.B 24.A 25.B

答案

26.C 27.A 28.D 29.A 30.B 31.B 32.C 33.A 34.C 35.C 36.C 37.C 38.C 39.D 40.B 41.C 42.D 43.A 44.B 45.B 46.D 47.C 48.B 49.C 50.B 51.D 52.C 53.D 54.D 55.C 56.A 57.A 58.D 59.C 60.B 61.A 62.B 63.B 64.D

65.C 66.B 67.C 68.D 69.C 70.B 71.D 72.C 73.C 74.C 75.D 76.C 77.A 78.C

第三篇：VB編程題及答案

1定義一個下標(biāo)上界為10整型數(shù)組，并用隨機函數(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隨機輸出一個小寫字母。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隨機輸出一個小寫字母。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

第四篇：VB程序設(shè)計語言多媒體教學(xué)課件的設(shè)計與實現(xiàn)

VB程序設(shè)計語言多媒體教學(xué)課件的設(shè)計與實現(xiàn)

摘 要

隨著現(xiàn)代教育技術(shù)的不斷發(fā)展，教學(xué)的方式和手段也在不斷地改進(jìn)，多媒體技術(shù)在學(xué)科教學(xué)中的推動作用越來越顯著，它通過將文字、圖像、聲音、動畫等多種媒體有機結(jié)合起來，在教學(xué)上可取得良好的效果，它具有說服力強、工作效率高、信息量大、創(chuàng)造性思維能力訓(xùn)練佳等特點，多媒體教學(xué)將對學(xué)生產(chǎn)生深遠(yuǎn)的影響。我們一直倡導(dǎo)在教學(xué)中引入各種教學(xué)手段，隨著多媒體技術(shù)的引入，使得教學(xué)資源和教學(xué)方式變得更加多樣化，學(xué)生也非常容易接受，從而明顯地提高了教學(xué)的效果。關(guān)鍵詞：多媒體教學(xué)，authorware，VB

1選題背景

1.1開發(fā)背景

目前制作多媒體教學(xué)課件的軟件很多，如Dreamweaver，flash，powerpoint和authorware等。但Macromedia公司開發(fā)的Authorware以其功能強大、好學(xué)易用等特點獨占熬頭。Authorware是一種基于圖標(biāo)和流程線的多媒體開發(fā)工具，使用者不需具備計算機編程的基礎(chǔ)知識就能制作出功能強大的交互型教學(xué)軟件。

1.2選題的目的和意義

基于authouware環(huán)境開發(fā)的多媒體教學(xué)課件作為一種輔助教學(xué)手段，在設(shè)計時可以明確教學(xué)目標(biāo)，突出重點、難點，有助于激發(fā)學(xué)生的學(xué)習(xí)興趣，調(diào)動學(xué)生參與的積極性，促進(jìn)學(xué)生對知識的掌握和吸收，進(jìn)而提高教學(xué)質(zhì)量。1.3指導(dǎo)思想及研究現(xiàn)狀

九十年代是多媒體技術(shù)飛速發(fā)展的年代，也是多媒體應(yīng)用技術(shù)不斷拓展的年代。隨著多媒體技術(shù)的發(fā)展，逐步改變著整個人類的生活、學(xué)習(xí)方式。多媒體技術(shù)將對整個教育產(chǎn)生深遠(yuǎn)的影響，使傳統(tǒng)陳舊的教育方式面貌大為改觀。

傳統(tǒng)的教學(xué)模式是：“以教師為中心，教師利用講解、板書和各種媒體作為教學(xué)法的手段和方法向?qū)W生傳授知識，學(xué)生則被動地接受教師傳授的知識?！倍?gòu)主義的教學(xué)模式則是：“以學(xué)生為中心，在整個教學(xué)過程中由教師起組織者、幫助者和促進(jìn)者的作用，利用情境協(xié)作，會話等學(xué)習(xí)環(huán)境要素充分發(fā)揮學(xué)生的主動性、積極性和首創(chuàng)精神?！痹趦煞N模式中，教師、學(xué)生、教材、媒體四個要素有著完全不同的作用。

從認(rèn)識論的角度看，學(xué)生對事物的認(rèn)識過程的起點是對事物的感性認(rèn)識。在物理科的學(xué)習(xí)中學(xué)生由于無法理解一些抽象的理論，而對物理產(chǎn)生一種畏懼的心理，阻礙了他們學(xué)習(xí)物理的情趣，但應(yīng)用CAI技術(shù)就可以直觀的解釋一些物理現(xiàn)象和規(guī)律，激發(fā)學(xué)生的興趣，提高學(xué)習(xí)的效率。

二十一世紀(jì)是信息時代，對于在學(xué)校里學(xué)習(xí)的學(xué)生，也應(yīng)培養(yǎng)處理大量信息的能力。因而在課堂教學(xué)中教師應(yīng)該向?qū)W生提供更多的信息、更多的資料，及物理學(xué)的發(fā)展情況，來擴(kuò)展學(xué)生的知識面。教學(xué)過程中，教師經(jīng)?；ㄝ^多時間板書，特別是上電學(xué)課時寫例題、畫圖例的時間更多，而采用多媒體中的顯示文本的功能，這可使本應(yīng)花十幾分鐘的內(nèi)容在幾秒內(nèi)顯示于學(xué)生眼前。由于使用多媒體的直觀性也大大縮短了教學(xué)難點的突破過程。這就有時間講解更多相關(guān)的知識和現(xiàn)實的應(yīng)用，引導(dǎo)他們理論聯(lián)系實際，豐富了課堂內(nèi)容，而且從根本上改變過去“滿堂貫”的教學(xué)弊端，給學(xué)生較多自由時間復(fù)習(xí)鞏固，優(yōu)化了課堂教學(xué)，增加了課堂的信息量。

傳統(tǒng)的物理教學(xué)過程中，主要是教師講學(xué)生聽，不便于學(xué)生個性的培養(yǎng)。應(yīng)用CAI能夠真正改變學(xué)生和教師的位置，使學(xué)生成為學(xué)習(xí)的主體。當(dāng)學(xué)生有問題時，可以及時提出或利用計算機網(wǎng)絡(luò)與同學(xué)討論，從而多渠道尋找解決問題的辦法。當(dāng)學(xué)生對某個物理現(xiàn)象有自己的觀點時，也可以提供給大家進(jìn)行研討和交流，教師提供解答，這樣雙向交流中使學(xué)生的思維更加活躍，有利于培養(yǎng)學(xué)生的創(chuàng)新意識，實現(xiàn)學(xué)生主體教師主導(dǎo)的現(xiàn)代教學(xué)思想。authorware實現(xiàn)解決方案

2.1開發(fā)工具的選擇與比較

目前，多媒體教學(xué)主要使用幾種軟件：Dreamweaver，flash，powerpoint和authorware等。

2.1.1 Dreamweaver Dreamweaver是集網(wǎng)頁制作和網(wǎng)站管理于一身的網(wǎng)頁編輯器，是針對專業(yè)網(wǎng)頁設(shè)計師的視覺化網(wǎng)頁開發(fā)工具。

Dreamweaver是唯一提供Roundtrip HTML、視覺化編輯與原始碼編輯同步的設(shè)計工具。它包含HomeSite和BBEdit等主流文字編輯器。幀(frames)和表格的制作速度快的令您無法想像。進(jìn)階表格編輯功能使您簡單的選擇單格、行、欄或作未連續(xù)之選取。甚至可以排序或格式化表格群組，Dreamweaver 支援精準(zhǔn)定位，利用可輕易轉(zhuǎn)換成表格的圖層以拖拉置放的方式進(jìn)行版面配置。所見即所得 Dreamweaver成功整合動態(tài)式出版視覺編輯及電子商務(wù)功能，提供超強的支援能力給Third-party廠商，包含ASP，Apache，BroadVision，Cold Fusion，iCAT，Tango與自行發(fā)展的應(yīng)用軟件。2.1.2 flash

Flash 是一種創(chuàng)作工具，設(shè)計人員和開發(fā)人員可使用它來創(chuàng)建演示文稿、應(yīng)用程序和其它允許用戶交互的內(nèi)容。Flash 可以包含簡單的動畫、視頻內(nèi)容、復(fù)雜演示文稿和應(yīng)用程序以及介于它們之間的任何內(nèi)容。

Flash是用于制作網(wǎng)頁動畫的多媒體軟件，能夠集圖形、聲音、動畫、影像文件制作出極富感染力的動畫作品。2.1.3 powerpoint

PowerPoint是專門用于創(chuàng)建演示文稿的軟件，即用電腦播放的幻燈片。PowerPoint是一種多媒體簡報式軟件，由于它使用簡單，制作效率高，便于課件的集成、修改及二度開發(fā)；PowerPoint文件很容易保存為網(wǎng)頁文件，可以很方便地實現(xiàn)在線演示，通過與其它創(chuàng)作工具的結(jié)合，可以制作出集圖、文、聲、動畫為一體、交互性強、操作簡便的多媒體課件。2.1.4 authorware

Authorware是將圖片、文本、聲音、視頻等多種媒體集成到一起的優(yōu)秀工具軟件。authworware的主要技術(shù)特點如下：

（1）具備多媒體素材的能力。

（2）具備多樣化的交互作用能力和提供強有力的交互控制。（3）具備操作方便、式樣靈活的文字、圖形圖象、動畫處理能力。（4）可使用模塊和庫。

（5）具備強勁的數(shù)據(jù)處理和集成能力。（6）具備直觀易用的開發(fā)界面。（7）提供增強的代碼編輯窗口。（8）提供方便強大的發(fā)行功能。（9）多媒體文本編輯器。

（10）具備內(nèi)置的數(shù)據(jù)跟蹤能力，提供精彩的范例程序。2.2 四種實現(xiàn)方式的應(yīng)用范圍

PowerPoint幻燈片課件、Authorware多媒體課件、Flash動畫型課件均適用于多媒體教室，Dreamweaver網(wǎng)頁型課件應(yīng)用于網(wǎng)絡(luò)教室或多媒體教室。

2.3 性能比較

Dreamweaver網(wǎng)頁型課件 優(yōu)點：Dreamweaver 網(wǎng)頁課件除了具有強大的交互功能和頁面跳轉(zhuǎn)功能，還具有超強的信息鏈接功能，這是其他類型課件所無法比擬的。

缺點：課件開發(fā)制作的難度較大。

課件的超大容量和超強的交互性、以及通往互聯(lián)網(wǎng)的信息通道給學(xué)生的任務(wù)驅(qū)動型學(xué)習(xí)、合作探究性學(xué)習(xí)、自主性學(xué)習(xí)留下了廣闊的空間。

Flash動畫型課件

優(yōu)點：Flash課件具有教強的交互功能，程序的開發(fā)通過元件、按鈕、圖層、幀和場景的組合，可以制作出動感極強的課件。

缺點：課件的交互功能不如Authorware課件強大，交互性設(shè)計不如Authorware簡捷，故常作為其他課件的積件。

除了能夠有效地改變知識的呈現(xiàn)方式和教學(xué)的交互方式外，動感極強的課件還能夠吸引學(xué)生的注意力和激發(fā)學(xué)生的學(xué)習(xí)興趣。

PowerPoint幻燈片課件

優(yōu)點：PowerPoint 課件的開發(fā)制作非常方便，操作簡明。缺點：課件的交互性較差，只能實現(xiàn)單一的線性播放，要進(jìn)行頁面之間的跳轉(zhuǎn)比較麻煩。

只是改變了知識的呈現(xiàn)方式，仍然是教師主講型的課堂教學(xué)。

Authorware多媒體課件

優(yōu)點：Authorware課件具有強大友好的交互功能，程序的開發(fā)制作基于流程線和設(shè)計圖標(biāo)，具有所見即所得的特點。

缺點：課件只能實現(xiàn)圖標(biāo)驅(qū)動動畫，對動畫的制作和處理能力較弱。

能夠創(chuàng)設(shè)真實的教學(xué)情景，有效地改變知識的呈現(xiàn)方式和教學(xué)的交互方式。使課件不僅成為教師教學(xué)的輔助工具，而且成為學(xué)生思維的訓(xùn)練工具。

2.4 Visual Basic介紹

Visual Basic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言，它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。

具有如下特點：

(1)可視化的程序設(shè)計過程Visual Basic在開發(fā)過程中所看到的界面，與程序運行時的界面基本相同

(2)事件驅(qū)動的編程機制用戶的操作：“事件”由事件的觸發(fā)決定程序的執(zhí)行順序(3)面向?qū)ο蟮某绦蛟O(shè)計(4)結(jié)構(gòu)化的程序設(shè)計語言(5)提供了集成開發(fā)環(huán)境

(6)支持多種數(shù)據(jù)庫系統(tǒng)的訪問

《VB程序設(shè)計》在高等教育學(xué)習(xí)中既是重點又是難點，利用多媒體課件演示操作簡單，定位便捷;突出人機交互功能;文字簡練，圖形豐富，超文本導(dǎo)航;動畫演示豐富多彩;控件按鈕豐富;背景設(shè)計與課件內(nèi)容布局協(xié)調(diào)、美觀;充分發(fā)揮了多媒體聲音、圖形、圖像、音頻和視頻相結(jié)合的優(yōu)勢，能幫助學(xué)生利用多感官系統(tǒng)接受信息，實現(xiàn)學(xué)習(xí)目標(biāo)，產(chǎn)生更好的學(xué)習(xí)效果。3總結(jié)與展望

3.1總結(jié)

多媒體技術(shù)只不過是一種教學(xué)手段，更重要的是如何實現(xiàn)多媒體技術(shù)與學(xué)科教學(xué)的整合。多媒體技術(shù)與課程的整合，是能夠?qū)崿F(xiàn)高效率，高速度課改目標(biāo)的重要手段，有效地將多媒體技術(shù)融入到學(xué)科教學(xué)的課程中，成為現(xiàn)代化教學(xué)的重要組成部分。通過整理和組合，將會使各種教學(xué)資源、各個教學(xué)要素和教學(xué)環(huán)節(jié)相互融合，達(dá)到整體優(yōu)化，實現(xiàn)課改目標(biāo)。在制作authorware課件過程中須注意一下幾點：

⑴明確教學(xué)目標(biāo)，突出重點、難點。

作為一種輔助教學(xué)的手段，使用課件的目的就在于調(diào)動學(xué)生學(xué)習(xí)的積極性和提高教學(xué)質(zhì)量。因此在設(shè)計時必須明確教學(xué)目標(biāo)，突出重點、難點，符合學(xué)生的年齡特點、認(rèn)知規(guī)律和認(rèn)識水平。教學(xué)內(nèi)容的選取、表達(dá)和組織要體現(xiàn)預(yù)定的教學(xué)目標(biāo)，要有助于學(xué)生的身心發(fā)展。

⑵激發(fā)學(xué)生的學(xué)習(xí)興趣，充分發(fā)揮學(xué)生學(xué)習(xí)的主動性。

課件設(shè)計時要充分體現(xiàn)多媒體計算機作為教學(xué)媒體的特點——交互性。利用文字、圖片、動畫等多種媒體，多感觀、多渠道地激發(fā)學(xué)生的學(xué)習(xí)興趣，調(diào)動學(xué)生參與的積極性，以促進(jìn)學(xué)生對知識的掌握和吸收。

⑶選擇適當(dāng)?shù)恼n件類型。

根據(jù)學(xué)科知識內(nèi)容及教學(xué)方法的需要，選擇合適的課件類型能夠充分實現(xiàn)教師主導(dǎo)和學(xué)生主體的統(tǒng)一。常見的課件類型有課堂演示型、模擬實驗型、練習(xí)型等。

⑷課件的內(nèi)容要具有科學(xué)性。

課件中的內(nèi)容要表達(dá)清楚、準(zhǔn)確、無科學(xué)性錯誤，語言文字要規(guī)范。

3.2展望

總之，隨著現(xiàn)代教育技術(shù)的不斷發(fā)展，多媒體在教學(xué)中的應(yīng)用范圍越來越廣泛，它對教學(xué)帶來的影響也越來越大，因此，多媒體技術(shù)知識也顯得越來越重要。如果我們掌握了更多的計算機多媒體知識，并將它們恰當(dāng)?shù)貞?yīng)用到教學(xué)工作中來，能更加順暢地貫徹授課意圖，更好地完成教學(xué)目標(biāo)，有利于學(xué)生增加才干，挖掘潛力，培養(yǎng)潛能，提高綜合素質(zhì)，體現(xiàn)高等教育的特色，培養(yǎng)社會主義現(xiàn)代化建設(shè)的有用人才！

參考文獻(xiàn)： ［1］韋應(yīng)波，郝飛，宋志強，等.多媒體教學(xué)的探討［J］.局解手術(shù)學(xué)雜志，2004，13（1）:46-47.［2］李學(xué)農(nóng)，陳慶.論多媒體教學(xué)的發(fā)展與啟示［J］.醫(yī)學(xué)教育，1994，138（12）:37-39.［3］文燦.多媒體課件在外科應(yīng)用解剖教學(xué)中的應(yīng)用［J］.局解手術(shù)學(xué)雜志，2003，12（2）:141-142.［4］倪 武，繆曉輝，王俊學(xué).論當(dāng)前多媒體教學(xué)中的不足及對策［J］.中國高等醫(yī)學(xué)教育 2000，5:23-24.［5］黃成榮，黃澍莊.多媒體教學(xué)的負(fù)面影響［J］.南寧師范高等?？茖W(xué)校學(xué)報，2000，3a ［6］Authorware7.0經(jīng)典實例詳解 朱仁成 張守麗 羅有萍編著-北京： 清華大學(xué)出版 2003 ［7］Authorware6.x入門與提高 東方人華主編；王華英，幸莉仙編著。-北京：清華大學(xué) 出版社，2003.6 ［8］Authorware6.0職業(yè)技能培訓(xùn)教程 全國計算機信息高新技術(shù)考試教材編寫委員會編寫。-北京：北京希望電子出版社，2002.7 ［9］Authorware多媒體設(shè)計專家門診 鄧椿志、李恒、王德軍編著。-北京：清華大學(xué)出版社。［10］《基于Authorware 設(shè)計的多媒體課件制作》.教學(xué)與管理[J].2009.3:80-81 唐穎悟2004.1061-62.［11］楊金土等.對高等技術(shù)教育課程設(shè)計的若干理論認(rèn)識[J].中國高等教育, 2002.21 ［12］魏建華編著·多媒體新課堂 Authorware教程·北京希望電子出版社 ［13］李立華等編著·Flash速成·人民郵電出版社

［14］賈永紅編著·計算機圖象處理與分析·武漢大學(xué)出版社

［15］劉振華等編著·多媒體課件制作實用教程·清華大學(xué)出版社

［16］清漢計算機工作室編著·FrontPage 2000網(wǎng)頁制作實例·機械工業(yè)出版社 ［17］鐘玉琢等編著·多媒體技術(shù)及其應(yīng)用·機械工業(yè)出版社

［18］James D.Foley·Computer Graphics Principles and Practice·機械工業(yè)出社·2002.6·第1版

［19］Malan Sonka· Image Processing,Analysis,and Machine Vision·人民郵電出版社·2002.8 ［20］Ramesh Jain ·Machine Vision·機械工業(yè)出版社·2003.8·第1版

第五篇：vb綜合實驗

綜 合 性 實 驗

實 驗 名 稱:關(guān)閉標(biāo)題包含指定字符的所有窗口 專 業(yè) 班 級: 學(xué) 生 姓 名：

學(xué) 號：

指 導(dǎo) 教 師：

需求分析：

關(guān)閉標(biāo)題包含指定字符的所有窗口，使我們能更方便的關(guān)閉很多窗口，避免了一個一個關(guān)閉的麻煩 運行環(huán)境：

WINDOWS XP系統(tǒng)；VB6.0； 3開發(fā)工具和編程語言

Visual Basic6.0語言； 4 系統(tǒng)設(shè)置：

下例程序運行后，單擊按鈕關(guān)閉標(biāo)題包含“記事本”的所有窗口

'在窗體上放置 3 個控件，所有控件無需設(shè)置任何屬性，全部采用默認(rèn)設(shè)置： ' Command1，Label1，Text1

Private Declare Function FindWindowEx Lib “user32” Alias “FindWindowExA”(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)As Long Private Declare Function PostMessage Lib “user32” Alias “PostMessageA”(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)As Long Private Declare Function GetWindowText Lib “user32” Alias “GetWindowTextA”(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long)As Long Private Sub Form_Load()'設(shè)置控件初始狀態(tài)，實際可以在窗體設(shè)計階段完成 Dim S As Single

Me.Caption = “關(guān)閉指定窗口”: Text1.Text = “記事本” Label1.AutoSize = True: Label1.Caption = “窗口標(biāo)題包含的字符：” Command1.Caption = “關(guān)閉指定窗口”

S = Label1.Height Label1.Move S, S Text1.Move S + Label1.Width, S * 0.5, S * 8, S * 2 Command1.Move S, S * 3, S * 8, S * 2 End Sub

Private Sub Command1_Click()Dim hWnds As Long, nCap As String, nFind As String Dim S As Long, S1 As Long, nLong()As Long, nCount As Long

S = 255: nFind = Text1.Text Do hWnds = FindWindowEx(0, hWnds, vbNullString, vbNullString)If hWnds = 0 Then Exit Do nCap = String(S + 1, “ ”)GetWindowText hWnds, nCap, S S1 = InStr(nCap, Chr(0))If S1 > 0 Then nCap = Left(nCap, S1-1)If InStr(nCap, nFind)> 0 Then ' PostMessage hWnds, &H10, 0, 0 '不在這里發(fā)送關(guān)閉消息，是為了防止漏查 nCount = nCount + 1 ReDim Preserve nLong(1 To nCount)nLong(nCount)= hWnds End If Loop

For S = 1 To nCount PostMessage nLong(S), &H10, 0, 0 '發(fā)送關(guān)閉窗口消息 DoEvents Next End Sub 5參考文獻(xiàn)：

龔培增，楊志強Visual Basic程序設(shè)計教程（