第一篇：2013年9月份考試可視化程序設計(VB)第一次作業(yè)

2013年9月份考試可視化程序設計（VB）第一次作業(yè)

一、單項選擇題（本大題共100分，共 25 小題，每小題 4 分）

1.確定一個控件在窗體上的位置的屬性是()

A.Width或Height

B.Width和Left

C.Top或Height

D.Top和Left

2.標準模塊中的內容存放在以（）為擴展名的文件中。

A.frm

B.bas

C.cls

D.xt

3.下面的程序的輸出結果是()

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

A.21 20

B.21 21

C.22 20

D.22 21

4.要使某控件在運行時不可顯示，應對（）屬性進行設置。

A.Enabled

B.Visible

C.BackColor

D.Caphon

5.假設A=3，B=7，C=2，則表達式 A>B OR B > C 的值是()

A.True

B.False

C.表達式錯誤

D.不確定

6.下列選擇項中（）不能獲得焦點。

A.使用Tab鍵

B.用鼠標選擇對象

C.設置GetFocus的值為True

D.使用SetFocus方法

7.求COS35°可以使用的函數(shù)是（）。

A.Cos 35

B.Cos（35）

C.Cos（35o）

D.Cos（35*3.14159/180）

8.下列賦值語句中（）是錯誤的。

A.x＝x＋１

B.x＝x＋y

C.x＋y＝x

D.x＝４＞６

9.執(zhí)行下面的程序段后，x的值為()

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

A.21

B.22

C.23

D.24

10.若要取消窗體的最小化按鈕，可以設置（）屬性來實現(xiàn)。

A.Top

B.Enabled

C.MaxButton

D.MinButton

11.“X是小于100的正實數(shù)”寫成VB表達式正確的是：

A.X > 0 AND X<100

B.X >0 OR X < 100

C.X >= 0 AND X < 100

D.X >= 0 OR X < 100

12.以下說法正確的是（）

A.通用過程可以出現(xiàn)在窗體模塊和標準模塊中

B.不同模塊中的通用過程可以重名

C.同一標準模塊中的通過過程可以同名

D.不同標準模塊中的通用過程不能同名

13.在VB中不能表示邏輯真的是()。

A.True

B.–1

C.1

D.T

14.下列哪組語句可以將變量A、B的值互換（）。

A.A=B：B=A

B.A=C：C=B：B=A

C.A=A+B：B=A－B：A=A－B

D.A=（A+B）/2：B=（A=B）/2

15.語句Print 6 * 6 6 / 6的輸出結果是（）

A.0

B.1

C.6

D.36

16.如果要退出Do?Loop循環(huán)，可使用語句（）。

A.Exit

B.Exit Do

C.Exit For

D.Exit For

17.下列可作為Visual Basic中所允許的形式的數(shù)是()

A.±25.74

B.3.457E-100

C.368

D.1.87E+50

18.在VB中，稱對象的數(shù)據(jù)為（）。

A.屬性

B.方法

C.事件

D.封裝

19.若有數(shù)組說明語句：Dim t(1 To 10)As Variant，則t被定義為（）。

A.數(shù)值數(shù)組

B.可調數(shù)組

C.字符串數(shù)組

D.可變類型數(shù)組

20.Function過程要由函數(shù)名返回一個值。如果不使用As數(shù)據(jù)類型選項來指定函數(shù)的類型，函數(shù)類型默認為（）類型。

A.Integer

B.Variant

C.Long

D.Siring

21.設有數(shù)組說明語句：Dim b（－１To２，－２To２），則數(shù)組b中元素的個數(shù)是（）。

A.12

B.15

C.16

D.20

22.設a=2，b=3，c=4，d=5，下列表達式的值是（）a＞b AND c＜=d OR 2*a＞c

A.True

B.False

C.-1

D.1

23.以下語句的輸出結果是（）。print format$（32548.5，“000，000.00”）

A.2548.5

B.32，548.5

C.032，548.50

D.32548.50

24.把數(shù)值型轉換為字符（串）型需要使用下列哪一個函數(shù)？（）

A.Val

B.Str

C.Asc

D.Chr

25.下面語句書寫正確的是（）。

A.If a>max Then max=a Else

if max=b

End If

B.If b>max Then max=a

Else

max=b

End If

C.If a>max Then

max=a

Else

max=6

D.If a>max Then

max=a

Else

max=b

End If

答案：

一、單項選擇題（100分，共 25 題，每小題 4 分）

1.D 2.B 3.B 4.B 5.A 6.C 7.D 8.C 9.A 10.D 11.A 12.D 13.D

14.C 15.D 16.B 17.C 18.A 19.D 20.B 21.D 22.B 23.C 24.B 25.D

第二篇：可視化程序設計(VB)第一次作業(yè)

可視化程序設計（VB）第一次作業(yè)

一、單項選擇題

1.Visual Basic程序中分隔各語句的字符是(:)

2.工程文件的擴展名是（vbp）

3.下列運算符中，運算級別最高的是（*）

4.下列可作為Visual Basic的變量名的是(Filename)

5.下面的程序的輸出結果是(21 21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

Print x, i

6.下列賦值語句合法的是（A=A+B）

7.下列屬性中，目錄列表框和文件列表框都有的屬性為（Path）。

8.執(zhí)行下面的程序段后，x的值為(21)

x=5

For i = 1 To 20 Step 2

x=x+i5

Next i

9.向一個順序文件中寫數(shù)據(jù)時，（Append）是從文件末尾添加的方式打開順序文件。

10.Seek方法用于在（表）類型的記錄集中查找滿足條件的記錄。

11.當函數(shù)EOF()的返回值為真時，表示文件的指針指向（尾部）

12.如果要退出Do?Loop循環(huán)，可使用語句（Exit Do）。

13.在VB中，稱對象的數(shù)據(jù)為（屬性）。

14.不論何對象，都具有（Name）屬性。

15.使用Public Const語句聲明一個全局的符號常量時，該語句應放在（標準模塊的通用聲明段）。

16.下面關于變量的作用域，正確的描述是（同一模塊中不同級的變量不能同名）。

17.設a=2，b=3，c=4，d=5，下列表達式的值是（False）a＞b AND c＜=d OR 2*a＞c

18.把數(shù)值型轉換為字符（串）型需要使用下列哪一個函數(shù)？（Str）

19.以下敘述錯誤的是（KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放）

20.用于設置或返回文件類型的屬性是（Pattern）。

21.要刪除列表框中的某一個項目，需要使用（ReMoveItem）方法。

22.以下語句的輸出結果是(在立即窗口中)(Δ27ΔΔ65Δ)a=27 ＜CR＞(＜CR＞為回車)b=65 ＜CR＞ Print a;b ＜CR＞

23.語句Print 5*55/5的輸出結果是(25)

24.編寫如下事件過程：

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

if shift=6 and button=2 then

print “BBBB”

end if

end sub

程序運行后，為了在窗體上輸出“BBBB”，應執(zhí)行的操作為（同時按下ctrl、alt鍵和鼠標右鍵）

25.如果X是一個正實數(shù)，對X的第三位小數(shù)四舍五入的表達式是（0.01 * Int(100 *(X +0.005))）

第三篇：2012年9月份考試可視化程序設計(VB)第一次作業(yè).doc

2012年9月份考試可視化程序設計（VB）第一次作業(yè)

一、單項選擇題（本大題共100分，共 25 小題，每小題 4 分）

1.下面的數(shù)寫成普通的形式是1.2***69E+019()

A.12***6900

B.12***69000

C.12***690000

D.12***6900000

2.下列賦值語句合法的是（）

A.A=A+B

B.A+B=A

C.–A=A

D.A=2B

3.下列選擇項中（）不能獲得焦點。

A.使用Tab鍵

B.用鼠標選擇對象

C.設置GetFocus的值為True

D.使用SetFocus方法

4.設a=2，b=3，c=4，d=5，下列表達式的值是（）。not a<=c or 4*c=b^2 and b<>a+c

A.－1

B.1

C.true

D.false

5.若將命令按鈕設置為默認命令按鈕，可以通過（）屬性來實現(xiàn)。

A.Value

B.Cancel

C.Default

D.Enabled

6.通用過程可以通過執(zhí)行“工具”菜單中的（）命令來建立。

A.添加過程

B.通用過程

C.添加窗體

D.添加模塊

7.假設A=3，B=7，C=2，則表達式 NOT(B>A)的值是()

A.True

B.False

C.表達式錯誤

D.不確定

8.以下說法正確的是（）

A.通用過程可以出現(xiàn)在窗體模塊和標準模塊中

B.不同模塊中的通用過程可以重名

C.同一標準模塊中的通過過程可以同名

D.不同標準模塊中的通用過程不能同名

9.在表達式 y = InputBox(a, b, c)中，b 為輸入函數(shù)對話框的（）。

A.標題

B.提示

C.預設值

D.幫助文件名

10.如果要退出Do?Loop循環(huán)，可使用語句（）。

A.Exit

B.Exit Do

C.Exit For

D.Exit For

11.為了使窗體的大小可以改變，必須把它的BorderStyle屬性設置為()

A.1

B.2

C.3

D.4

12.若有數(shù)組說明語句：Dim t(1 To 10)As Variant，則t被定義為（）。

A.數(shù)值數(shù)組

B.可調數(shù)組

C.字符串數(shù)組

D.可變類型數(shù)組

13.Function過程要由函數(shù)名返回一個值。如果不使用As數(shù)據(jù)類型選項來指定函數(shù)的類型，函數(shù)類型默認為（）類型。

A.Integer

B.Variant

C.Long

D.Siring

14.不論何對象，都具有（）屬性。

A.Text

B.Name

C.ForeColor

D.Caption

15.下列語句正確的是（）。

A.For i=1 To m

For j=1 To n

Next i

Next j

B.For i=1 To m

For j=1 To n

Next i,j

C.For i=1 To m

For j=1 To n

Next j,i

D.For i=1 To m

While x>0

Next i

end

16.下列過程調用合法的是（）

A.Call Prog a,b

B.Prog(a,b)

C.Call Prog(a,b)

D.以上都不對

17.以下語句的輸出結果是（）。print format$（32548.5，“000，000.00”）

A.2548.5

B.32，548.5

C.032，548.50

D.32548.50

18.數(shù)學式子Sin25°寫成VB表達式是（）。

A.Sin25

B.Sin（25°）

C.Sin（25）

D.Sin（25*3.14/180）

19.以下程序段中循環(huán)語句（）。

x%=0

While Not x

x=x+1

Print x

Wend

A.有語法錯誤

B.溢出

C.循環(huán)體執(zhí)行一次

D.循環(huán)體一次也不執(zhí)行

20.下列過程說明合法的是（）

A.Sub S1(ByVal n!())

B.Sub S1(n!)as Integer

C.Function S1%(S1%)

D.Function S1(ByVal n!)

21.用下面的語句所定義的數(shù)組的元素個數(shù)是()Dim arr(3 To 6,-2 To 2)

A.12

B.16

C.18

D.20

22.下面語句書寫正確的是（）。

A.If a>max Then

max=a

Else

max=b

End If

B.If a>max Then

max=a

Else

max=b

End If

C.If a>max Then

max=a

Else

max=6

D.If a>max Then

max=a

Else

max=b

End If

23.下列一維數(shù)組說明語句錯誤的是（）。

A.Dim b(100)AS Double

B.Dim b(-5 To 0)AS Byte

C.Dim b(-10To –20)AS Integer

D.Dim b(5 To 5)AS String

24.設已定義函數(shù)過程f，它有三個整型數(shù)值參數(shù)，再設a,b和c為實型變量，則調用該函數(shù)過程使用的語句為（）。

A.f

B.f(a+b, b+c)

C.f(a+b, b+c ,c+a)

D.f a+b, b+c, c+a

25.執(zhí)行下面程序段時，內循環(huán)的循環(huán)次數(shù)是（）。

For m=1 To 3

n=0

While n<=m-1

Print m,n

n=n+1

Wend

Next m

A.3

B.4

C.5

D.6

答案：

一、單項選擇題（100分，共 25 題，每小題 4 分）

1.D 2.A 3.C 4.D 5.C 6.A 7.B 8.D 9.A 10.B 11.B 12.D 13.B

14.B 15.C 16.C 17.C 18.D 19.B 20.D 21.D 22.D 23.C 24.D 25.D

第四篇：2014年4月份考試可視化程序設計(VB)第二次作業(yè)

2014年4月份考試可視化程序設計（VB）第二次作業(yè)

一、單項選擇題（本大題共100分，共 25 小題，每小題 4 分）

1.下列過程不能包含在標準模塊中定義的是（）。

A.事件過程

B.子過程

C.函數(shù)過程

D.公共過程

2.下列關于數(shù)據(jù)庫說法錯誤的是（）

A.一個表可以構成一個數(shù)據(jù)庫

B.多個表可以構成數(shù)據(jù)庫

C.一個表的每一條記錄中的各數(shù)據(jù)項具有相同的類型

D.同一個字段的數(shù)據(jù)具有相同的類型

3.下列屬性中，目錄列表框和文件列表框都有的屬性為（）。

A.List

B.value

C.Path

D.Pattern

4.下列關于菜單訪問鍵和快捷鍵的說法正確的是（）

A.若一菜單項的Caption屬性為“打開(&O)”，則其快捷鍵是Ctrl+O

B.快捷鍵指用于執(zhí)行一個命令的功能鍵或組合鍵，可以在菜單編輯器中將快捷鍵設為Alt+F

C.可以為任意的菜單項都添加快捷鍵或訪問鍵

D.通過訪問鍵打開某個子菜單時，必須先使焦點位于其上一級菜單

5.要設置列表框的選擇方式，應使用（）屬性。

A.Columns

B.MultiSelect

C.Style

D.List

6.下面關于隨機文件的描述，不正確的是：（）

A.每條記錄的長度必須相同

B.一個文件中記錄號不必惟一

C.可通過編程對文件中的某條記錄方便地修改

D.文件的組織結構比順序文件復雜

7.下列說法正確的是（）

A.如果框架的Enable設為False，則框架內的所有控件都不可用。

B.時鐘控件的Visable屬性設為True時，該控件在程序運行時可見，設為False時，則不可見。

C.在列表框中能夠將項目按字母順序從大到小排列。

D.移動框架時，框架內的控件不隨之移動。

8.下列控件中，（）不是用于文件操作的控件。

A.List Box

B.DriveListBox

C.DirListBox

D.FileListBox

9.可以在窗體模塊的通用聲明段中聲明（）。

A.全局變量

B.全局常量

C.全局數(shù)組

D.全局用戶自定義類型

10.通過設置Line控件的（）屬性可以繪制虛線、點劃線等多種樣式的直線。

A.Shape

B.Style

C.Fillstyle

D.Borderstyle

11.當函數(shù)EOF()的返回值為真時，表示文件的指針指向（）

A.開頭

B.尾部

C.最后一個字節(jié)

D.最后一個記錄

12.下面的哪一項不能用來在模塊之間傳遞數(shù)據(jù)（）。

A.全局變量

B.對象屬性

C.全局數(shù)組

D.模塊級變量

13.數(shù)據(jù)控件用于設置指定數(shù)據(jù)控件所訪問的記錄來源的屬性是（）

A.RecordSource

B.DataSource

C.DatabaseName

D.RecordSetType

14.將通用對話框CommonDialog1的類型設置為“另存為”對話框，該調用該控件的（）方法。

A.ShowOpen

B.ShowColor

C.ShowSave

D.ShowFont

15.在下列關于對話框的敘述中，錯誤的是（）：

A.作為對話框窗體的Borderstyle、ControlBox、MaxButton和MinButton應分別設置為l、True、False和 False。

B.語句frmAbout．Show vbModeless，frmMain將 fmAbout窗體顯示為 fmMain的無模式子窗體。

C.可以將對話框分成兩種類型：模式的和無模式。

D.語句frmAbout．Show將frmAbout作為無模式對話框顯示。

16.AVI動畫類似電影，由若干幀組成，Animation控件可以顯示（）的音頻視頻動畫（AVI文件）。

A.無聲

B.有聲

C.無聲和有聲都可以

D.單聲道

17.在用菜單編輯器設計菜單時，必須輸入的項有（）。

A.快捷鍵

B.標題

C.索引

D.名稱

18.通過文本框的（）事件過程可以獲取文本框中鍵入字符的ASCII碼值。

A.Change

B.GotFocus

C.LostFocus

D.KeyPress

19.以下說法正確的是（）。

A.使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)

B.使用數(shù)據(jù)綁定控件可以直接訪問數(shù)據(jù)庫中的數(shù)據(jù)

C.使用Data控件可以對數(shù)據(jù)庫中的數(shù)據(jù)進行操作，卻不能顯示數(shù)據(jù)庫中的數(shù)據(jù)

D.Data 控件只有通過數(shù)據(jù)綁定控件才可以訪問數(shù)據(jù)庫中的數(shù)據(jù)

20.以下關于索引的說法，錯誤的是（）。

A.一個表可以建立一個到多個索引

B.每個表至少要建立一個索引

C.索引字段可以是多個字段的組合D.利用索引可以加快查找速度

21.以下敘述錯誤的是（）

A.在KeyUp和KeyDown事件過程中，從鍵盤上輸入A和a是相同的B.在KeyUp和KeyDown事件過程中，從鍵盤上1和小鍵盤上的1看作不同數(shù)字

C.KeyPress事件中不能識別鍵盤上某個鍵的按下與釋放

D.KeyPress事件中可以識別鍵盤上某個鍵的按下與釋放

22.下面關于多重窗體的敘述中，正確的是（）。

A.作為啟動對象的 main于過程只能放在窗體模塊內

B.如果啟動對象是 main子過程，則程序啟動時可不加載任何窗體，以后由該過程根據(jù)不同情況決定是否加載或加載哪一個窗體

C.沒有啟動窗體，程序不能執(zhí)行

D.以上都不對

23.改變驅動器列表框的Drive屬性將引發(fā)（）事件。

A.Load

B.Click

C.Pattern change

D.Change

24.以下的屬性和方法中（）可重定義坐標系。

A.DrawStyle屬性

B.DrawWidth屬性

C.Scale方法

D.ScaleMode屬性

25.下面關于過程作用域，錯誤的描述是（）。

A.全局級過程的作用域為整個工程

B.在某一窗體模塊中定義的全局級過程，若被該模塊外的模塊所調用，必須在該過程名前加上窗體名稱

C.在不同模塊中定義的模塊級過程可以同名

D.在不同模塊中定義的工程級過程不能同名

答案：

一、單項選擇題（100分，共 25 題，每小題 4 分）

1.A 2.C 3.C 4.D 5.B 6.B 7.A 8.A 9.A 10.D

11.B 12.D 13.A 14.C 15.A 16.A 17.D 18.D 19.D 20.B

21.D 22.B 23.D 24.C 25.D

第五篇：2011年12月考試可視化程序設計(VB)第三次作業(yè)及答案

2011年12月考試可視化程序設計（VB）第三次作業(yè)

一、填空題（本大題共60分，共 15 小題，每小題 4 分）

1.要使用狀態(tài)欄控件設計狀態(tài)欄，應首先在“部件”對話框中選擇 Microsoft Windows Common Controls 6.0，然后從工具箱中選擇 StatusBar 控件。

2.對象的邊框類型由 BorderStyle 屬性設置。

3.VB的每個菜單項都有一個下拉菜單，含有若干個 菜單 命令。用鼠標單擊某個菜單項就執(zhí)行相應的菜單命令。

4.菜單的熱鍵指使用 Alt 鍵和菜單項標題中的一個字符來打開菜單。建立熱鍵的方法是在菜單標題的某個字符前加上一個 & 符號，在菜單中這一字符會自動加上 下劃線，表示該字符是一個熱鍵字符。

5.運行時，要使工具欄控件Toolbarl中的第二個按鈕的按鈕菜單中的第三項無效（變成灰色），應使用語句：Toolbarl.Buttons(2).ButtonMenus(3).Enabled＝False。

6.根據(jù)文件內容區(qū)分，文件分為 程序文件 和 數(shù)據(jù)文件。

7.當使用Format函數(shù)與Print方法一起輸出時，格式字符串中的”#”號表示一個數(shù)字位，它的個數(shù)決定 顯示數(shù)據(jù) 的長度，若要顯示的數(shù)據(jù)位數(shù)大于這個長度，則顯示時數(shù)據(jù)按 原樣 顯示。

8.菜單在運行時的動態(tài)增減主要通過控件數(shù)組實現(xiàn)，首先將菜單項的 Visible 屬性設為False，然后在程序中用Load 語句加載。

9.如果將工程的啟動對象設置成 Main 子程序，則程序啟動時可以不加載任何窗體。

10.要從字符串“Visual Basic 6.0”中截取子字符串“Basic”可使用的函數(shù)是 Mid(“Visual Basic 6.0”,8,5)。

11.要在運行時給狀態(tài)欄 StatusBar1的第二個窗格添加一幅圖片，該圖片由文件 “c：＼windows＼winupd．ico”指定，應使用語句：StatusBar1.Panels(2).Picture＝LoadPicture（“C：＼Windows＼Winupd．ico”）。

12.若case子句中的表達式表列具有形式：表達式1 To 表達式2，則它的含義是：當測試表達式的值等于 這個范圍內的值 時，執(zhí)行該case子句相應的程序塊。

13.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式是 x mod 5=0 OR x mod 9=0。

14.程序運行過程中，在立即窗口顯示變量f的語句是 Debug.Print f。

15.設

Form1.Scaleleft=-250，F(xiàn)orm1.Scalertop=300，F(xiàn)orm1.Scalewidth=350，F(xiàn)orm1.Scaleheight=500，則Form1的右下角坐標為 100,800。

二、程序閱讀題（本大題共40分，共 10 小題，每小題 4 分）

1.若窗體Form1上添加了通用對話框CommonDialog1，下面程序的功能是什么？

Dim filename As String

Dim str As String

CommonDialog1.Filter = “文本文件(*.TXT)|*.txt”

CommonDialog1.Action = 1

filename = CommonDialog1.filename

CommonDialog1.ShowColor

Form1.ForeColor = CommonDialog1.Color

Open filename

For Input As #1

Do While Not EOF(1)

str = str + Input(1, #1)

Loop

Form1.Print str

Close ＃1

以選擇的顏色作為窗體前景色，將一個文本文件顯示在Form1窗體上

2.Private Sub Form_Click()

num = 0

Do

num = num + 3

Print num

第1頁，共4頁

Mod 4 = 0

End Sub

程序運行后，單擊窗體，輸出結果是：3 6 9 12

3.寫出下面事件過程的執(zhí)行結果。

Private Sub Command1_Click()

Dim f(10)As Integer

f(0)=1

f(1)=1

For i=2 To 10

f(i)=f(i1)

Next i

For i=0 To 9

If i Mod 4=0 Then

Print

Print f(i)

Next i

End Sub

執(zhí)行結果是：1 1 2 3 5 8 13 21 34 55

4.下列標準模塊和窗體模塊的功能是給通信錄文件“d:txrf1.dat”添加新記錄，在橫線上填上適當內容。

標準模塊：

Type txr num As Integer

name As String * 10

tel As String * 8

addr As String * 20

End Type

窗體模塊：

Private Sub Command1_Click()

Dim n%, zgr As txr

Open “d:txrf1.dat” For Random As #1

Len = Len(zgr)

zgr.num = InputBox(“輸入新職工編號：”)

zgr.name = InputBox(“輸入新職工姓名：”)

zgr.tel = InputBox(“輸入新職工電話號碼：”)

zgr.addr = InputBox(“輸入新職工住址：”)

n = LOF(1)/ Len(zgr)+ 1(2)Put #1, n, zgr

Close #1

End Sub

5.寫出下面的程序運行后，連續(xù)單擊4次窗體，在Form1上的執(zhí)行結果。

Private Sub Form_Click（）

Static a As Integer

Dim b As Integer

b=a+b+1

a=a+b

Form1.Print “a=”;a, “b=”;b

End Sub

執(zhí)行結果為： a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8

6.有如下事件過程，寫出程序的功能（數(shù)學表達式）。

Private Sub Command1_Click()

T=0

M=1

Sum =0

Do

T=T+M

Sum =Sum+T

M=M+2

Print“Sum =”；Sum

End Sub

計算數(shù)學表達式：1＋22＋32＋42＋…＋202==2870

7.編寫如下代碼：

dim flag as Boolean

private sub form_mousedown（button as integer，shift as integer，x as single，y as single）

flag=true

end sub

private sub form_mousemove（button as integer，shift as integer，x as single，y as single）

flag=false

end sub

private sub form_mouseup（button as integer，shift as integer，x as single，y as single）

if flag=false then

print “DDDD”

end if

end sub

程序運行后，如果在窗體上輸出“DDDD”，則應執(zhí)行的操作為 移動鼠標并松開鼠標左鍵。

8.下面事件過程的功能是從鍵盤上輸入若干個數(shù)據(jù)存放到一維數(shù)組a中，并求出這組數(shù)據(jù)的平均值，在橫線上填上適當內容。

Private Sub Command1_Click()

Dim n%, i%Dim a()As Integer

n=InputBox(“請輸入數(shù)據(jù)個數(shù)：”)ReDim a(n)

For i=1 To n

a(i)=InputBox(“請輸入第” & Str(i)& “個數(shù)據(jù)：”)

Next i

For i=1 To n

Sum=Sum+a(i)

Next i

Print “平均值：”;Sum / n

End Sub

9.下面程序的作用是什么？

Private Sub Command1_Click()

Dim a()

a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)

For n = 0 To 8

Print a(n);

Next

Print

Call s1(a)

For n = 0 To 8

Print a(n);

Next

End Sub

Private Sub s1(ByRef x())

s = UBound(x)

For n = 0 To s / 2

temp = x(n)

x(n)= x(sn)= temp

Next

End Sub

將數(shù)組a倒置

10.使用情況語句改寫下列事件過程。

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“請輸入一個學生的分數(shù)：”)If score>=90 Then

Grade=”A”

ElseIf score>=80 Then

Grade=”B”

ElseIf score>=70 Then

Grade=”C”

ElseIf score>=60 Then

Grade=”D”

Else

Grade=”E”

End If

Print “該學生的分數(shù)等級為：”;grade;End Sub

Private Sub Command1_Click()

Dim score!, grade$

score=InputBox(“請輸入一個學生的分數(shù)：”)Select Case score

Case Is>=90

grade=“A”

Case Is>=80

grade=“B”

Case Is>=70

grade=“C”

Case Is>=60

grade=“D”

Case Else

grade=“E”

End Select

Print “該學生的分數(shù)等級為：”;grade;End Sub