人的記憶力會隨著歲月的流逝而衰退，寫作可以彌補記憶的不足，將曾經的人生經歷和感悟記錄下來，也便于保存一份美好的回憶。范文書寫有哪些要求呢？我們怎樣才能寫好一篇范文呢？接下來小編就給大家介紹一下優秀的范文該怎么寫，我們一起來看一看吧。

計算機二級vb題型篇一

private sub command1_click( )

n = val()

if n\2 = n/2 then

f = f1(n)

else

f = f2(n)

end if

print f; n

end sub

public function f1(byref x)

x=x*x

f1=x+x

end function

public function f2(byval x)

x=x*x

f2=x+x+x

end function

程序運行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(d)(單)

a.72 36

b.108 36

c.72 6

d.27 3

2.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

c = “1234”

for i = 1 to 4

c1 = trim(str( ))

print c1

next i

end sub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容

1

12

123

1234

則在下劃線處應填入的內容為(b)(單)

(c1,i)

(c1,i)

(c1,i,1)

(c1,i,i)

3.在窗體上畫一個名稱為command1的命令按鈕和一個名稱為text1的文本框，然后編寫如下事件過程：

private sub command1_click( )

n = val()

for i = 2 to n

for j = 2 to sqr(i)

if i mod j = 0 then exit for

next j

if j >sqr(i) then print i

next i

end sub

該事件過程的功能是(c)(單)

a.輸出n以內的奇數

b.輸出n以內的偶數

c.輸出n以內的素數

d.輸出n以內能被j整除的數

4.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：

private function f(m as integer)

if m mod 2 = 0 then

f = m

else

f = 1

end if

end function

private sub command1_click( )

dim i as integer

s = 0

for i = 1 to 5

s = s + f(i)

next

print s

end sub

程序運行后，單擊命令按鈕，在窗體上顯示的是(c)(單)

a.11

b.10

c.9

d.8

5.在窗體上畫一個名稱為text1的文本框和一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

dim array1(10, 10) as integer

dim i as integer, j as integer

for i = 1 to 3

for j = 2 to 4

array1(i, j) = i + j

next j

next i

= array1(2, 3) + array1(3, 4)

end sub

程序運行后，單擊命令按鈕，在文本框中顯示的值是(d)(單)

a.15

b.14

c.13

d.12

basic應用程序中標準模塊文件的擴展名是【】(注意不要寫點)。

7.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuedit，visible屬性為false，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuedit相應的菜單。

private sub form_ 【mousedown】 (button as integer, shift as integer, x as single, y as single)

if button=2 then

popupmenu mnuedit

end if

end sub

8.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuedit，visible屬性為false，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuedit相應的菜單。以下是實現上述功能的程序，請填空。

private sub form mousedown (button as integer, shift as integer, x as single, y as single)

if button=2 then

【popupmenu】 mnuedit

end if

9.為了使計時器控件timer1每隔0.5秒觸發一次timer事件，應將timer1控件的【interval】屬性設置為500。

10.為了使計時器控件timer1每隔0.5秒觸發一次timer事件，應將timer1控件的interval屬性設置為【500】。

計算機二級vb題型篇二

1.窗體中有一個名稱為txtspeed的文本框，一個名稱為hsbspeed的滾動條。

以下程序：

private sub hsbspeed_change( )

txtspee

= hsbspee

end sub

當單擊滾動條hsbspeed右端的箭頭時，以下說法不正確的是(b) (單)

a.此時會觸發change事件

b.此時不會觸發change事件

c.在文本框中顯示了滾動條滑塊所在位置的值

d.此時不會觸發scroll事件

2.利用窗體中的滾動條hscroll1改變窗體的背景色，可以這樣編寫代碼：

private sub hscroll1_change( )

r=

lor = rgb(r，int(rnd*256)，int(rnd*256))

end sub

以下說法不正確的是(c) (單)

a.窗體的背景色是一個隨機的顏色

函數取得到的顏色有256*256*256種

c.表達式int(rnd*256)取得隨機數的范圍為0-256之間的整數

d.表達式int(rnd*256)取得隨機數的范圍為0-255之間的整數

3.窗體中有一個名稱為slider1的可選擇性刻度滑塊控件，一個名稱為text1的文本框，如下程序：

private sub slider1_change( )

ze =【】

end sub

當拖動滑塊時，以上程序實現用slider控件設置文本框中的字體大小的功能。

4.窗體中有一個名稱為slider1的可選擇性刻度滑塊控件，一個名稱為text1的文本框，如下程序：

private sub slider1_change( )

text1.【fontsize】 =

end sub

當拖動滑塊時，以上程序實現用slider控件設置文本框中的字體大小的功能。

5.窗體中有一個名稱為slider1的可選擇性刻度滑塊控件，要設置它的如下屬性值，可以編寫程序(a) (單)

(1)slider控件的滑塊處于最小位置時值為8

(2)slider控件的滑塊處于最大位置時值為72

(3)單擊slider控件兩端箭頭時，滑塊的增量值為2

(4)單擊slider控件的空白處時，滑塊的增量值為8

= 8：

= 72：

hange =2：

hange = 8

= 2：

= 8：

hange = 72：

hange = 8

= 8：

= 72：

hange = 8：

hange = 2

= 72：

= 8：

hange = 2：

hange = 8

6.在窗體中有一個名稱為timer1的時鐘控件，三個名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：

sub form_load( )

e=loadpicture(+“\”)

e=loadpicture(+“\”)

e=loadpicture(+“\”)

end sub

sub timer1_timer( )

static pickbmp as boolean

+ 20, - 5

if pickbmp = false then

e = e

pickbmp = true

else

e = e

pickbmp = false

end if

end sub

以下說法不正確的是(c) (單)

a.此程序的功能是把image1圖像框顯示圖形在和文件之間進行切換

p變量是邏輯變量，作用是表示圖形的狀態

表示絕對路徑

d.要使得timer控件起作用，必須使得它的enabled屬性設置為true，interval屬性設置為介于0-64767之間的數值，但不能等于0

7.在窗體中有一個名稱為timer1的時鐘控件，三個名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：

sub form_load( )

e=loadpicture(+“\”)

e=loadpicture(+“\”)

e=loadpicture(+“\”)

end sub

sub timer1_timer( )

static pickbmp as boolean

+ 20, - 5

if pickbmp = false then

e = e

pickbmp = true

else

e = e

pickbmp = false

end if

end sub

以下說法不正確的是(b) (單)

a.此程序的功能是把image1圖像框顯示圖形在和文件之間進行切換

b.也可以將timer1控件的timer事件改寫為change事件

表示相對路徑

d.要使得timer控件起作用，必須使得它的enabled屬性設置為true，interval屬性設置為介于0-64767之間的數值，但不能等于0

8 .在progressbar進度條控件中，它的value屬性決定該控件被填充多少。√

9 .updown控件通常與伙伴控件“捆綁”在一起使用。√

10 .animation控件可以用來顯示有聲音的avi視頻文件 ×。

11.對animation控件所使用的方法描述不正確的是(b) (單)

方法用于打開文件

方法用于播放動畫，格式為： avi動畫文件路徑

方法用于停止播放

方法用于關閉文件

12.下面的事件不屬于鼠標器事件的是(d) (單)

own事件

p事件

ove事件

事件

13.下面的事件不屬于鍵盤事件的是(d) (單)

ss事件

n事件

事件

e事件

14.在窗體中有一個名稱為command1的命令按鈕，一個名稱為text1的文本框，一個名稱為commondialog1的通用對話框，編寫如下程序：

sub command1_click( )

= 3

lor =

end sub

當單擊命令按鈕時，對程序的運行說法正確的是(b) (單)

a.打開一個顏色對話框

b.打開一個字體對話框

c.把文本框的背景顏色設置為對話框選擇的字體顏色

d.把文本框的背景顏色設置為對話框中選擇的顏色

15.當單擊命令按鈕時，對以下程序說法不正確的是(d) (單)

sub command1_click( )

= 5

for i = 1 to

next i

end sub

a.此文件的功能是打印文本框text1中的內容

b.語句表示結束文擋打印

c.打開的打印對話框

d.以上說法都不正確

16.當單擊命令按鈕時，對以下程序說法不正確的是(c) (單)

sub command1_click( )

me = “”

text = “txt”

= 2

end sub

b.設置缺省擴展名為txt

c.顯示的是文件“打開”對話框

d.顯示的是“另存為”對話框

17.在窗體中建立了三個名稱分別為editcut、editcopy和editpaste的命令按鈕，一個名稱為text1的文本框。

如下程序：

private sub editcopy_click( )

st = t 將選中的內容存放到st變量中

end sub

private sub editcut_click( )

st = t

t = “”

end sub

private sub editpaste_click( )

= left(text1, rt) + st + mid(text1, rt

+ 1)

end sub

對以上程序說法不正確的是(d) (單)

a.語句st = t的作用是：將text1文本框中選擇的內容存放到st變量中

t = “” 的作用是：將text1文本框中選擇的內容清除

c.單擊editcut命令按鈕實現了text1文本框中選擇的內容清除

d.單擊editcopy命令按鈕實現了text1文本框中所有內容的粘貼

18.對以下程序說法不正確的是(d) (單)

private sub fileopen_click( )

r = “c:\”

= “文本文件 | *.txt”

en

end sub

a.顯示“文件”打開對話框

b.打開的對話框的初始目錄為c盤根目錄

c.打開的對話框的文件類型為文本文件

d.以上說法都不正確

19.雙精度型數據的類型符為(a) (單)

a.#

b.*

c.&

d.@

20.整型數據的類型符為(b) (單)

a.#

b.%

c.&

d.@

計算機二級vb題型篇三

二級vb試題及答案

1.棧和隊列的共同特點是( )

a.都是先進先出

b.都是先進后出

c.只允許在端點處插入和刪除元素

d.沒有共同點

【參考答案】 c

2.鏈表不具有的特點是( )

a.不必事先估計存儲空間 b.可隨機訪問任一元素

c.插入刪除不需要移動元素 d.所需空間與線性表長度成正比

【參考答案】 b

3.為了提高測試的效率，應該( )

a.隨機選取7測試數據 b.取一切可能的輸入數據作為測試數據

c.在完成編碼以后制定軟件的測試計劃 d.集中對付那些錯誤群集的程序

【參考答案】 d

4.軟件生命周期中所花費用最多的階段是( )

a.詳細設計 b.軟件編碼 c.軟件測試 d.軟件維護

【參考答案】 d

5.下列有關數據庫的描述，正確的是( )

a.數據庫是一個dbf文件

b.數據庫是一個關系

c.數據庫是一個結構化的數據集合

d.數據庫是一組文件

【參考答案】 c

6.算法的空間復雜度是指( )

a.算法程序的長度 b.算法程序中的指令條數

c.算法程序所占的存儲空間 d.執行過程中所需要的存儲空間

【參考答案】 d

7.數據結構中，與所使用的計算機無關的是數據的( )

a.存儲結構 b.物理結構 c.邏輯結構 d.物理和存儲結構

【參考答案】 c

8.軟件設計包括軟件的結構、數據接口和過程設計，其中軟件的過程設計是指( )

a.模塊間的關系 b.系統結構部件轉換成軟件的過程描述

c.軟件層次結構 d.軟件開發過程

【參考答案】 b

9.數據流圖用于抽象描述一個軟件的邏輯模型，數據流圖由一些特定的圖符構成。下列圖符名標識的圖符不屬于數據流圖合法圖符的是( )

a.控制流 b.加工

c.數據存儲 d.源和潭

【參考答案】 a

10.在數據庫設計中，將e-r圖轉換成關系數據模型的過程屬于( )

a.需求分析階段 b.邏輯設計階段 c.概念設計階段 d.物理設計階段

【參考答案】 b

11.使用visual foxpro的菜單設計器時，選中菜單項之后，如果要設計它的子菜單，應在“結果”中選擇( )

a.菜單項 b.子菜單 c.命令 d.過程

【參考答案】 b

12.在visual foxpro中，用于建立或修改過程文件的命令是( )

<文件名> command<文件名>

procedure<文件名>d.以上b、c都對

【參考答案】 b

13.在菜單設計器中，第一級菜單的“結果”項中選項有( )

a.命名、填充名稱、子菜單、過程 b.包含對象的表單集

c.菜單項、命令、過程和快捷菜單 d.子菜單、菜單項、過程和快捷菜單

【參考答案】 a

14.使用命令declare mm(2，3)定義的數組，包含的數組元素(下標變量)的個數為( )

a.2個 b.3個 c.5個 d.6個

【參考答案】 d

15.計算所有職稱為正、副教授的平均工資，將結構賦予變量pj中，應使用命令( )

e工資to pj for″教授″$職稱

e fields工資to pj for″教授″$職稱

e工資to pj for職稱=″副教授″.and.職稱=″教授″$

e工資to pj for職稱=″副教授″.or.″教授″

【參考答案】 a

16.“x是小于100的非負數”，用vfp表達式表示是( )

a.0≤x<100 b.0<=x<100 c.0<=x and x<100 d.0<=x or x<100

【參考答案】 c

17.將a區上的主表文件按關鍵字段“xm”和c區上的輔助文件建立關聯，正確的是( )

relation to xm into c relation to c into xm

relation to xm to c relation on xm into c

【參考答案】 a

已經打開，共有10條記錄，按關鍵字xm排序，執行命令sort on xm to cj后，屏幕將顯示( )

a.10條記錄排序完成

已存在，覆蓋它嗎(y/n)

c.文件在使用

d.出錯信息

【參考答案】 c

19.關于數據庫表和自由表，下列說法正確的是( )

a.數據庫表可以轉換為自由表，反之不能 b.自由表可以轉換為數據庫表，反之不能

c.兩者不能相互轉換 d.兩者可以相互轉換

【參考答案】 d

20.在下列各式中，運算結果為數值的是( )

(′04/05/97′)-28 b.′1234′+′5678′

c.120+30=150 (′abcd′)-1

【參考答案】 d21.從數據庫的整體結構看，數據庫系統采用的數據模型有( )

a.網狀模型、鏈狀模型和層次模型 b.層次模型、網狀模型和環狀模型

c.層次模型、網狀模型和關系模型 d.鏈狀模型、關系模型和層次模型

【參考答案】 c

22.把當前數據庫文件中“性別”字段的值全部清除，但仍保留該字段與其他各字段內容，應當使用命令( )

structure

e

【參考答案】 c

23.假定系統日期是12月20日，有如下命令：

mj=mod(year(date)，100)

執行該命令后，mj的值是( )

a. b.98 c.981220 d.1220

計算機二級vb題型篇四

1.在窗體上畫一個名稱為text1的文本框，一個名稱為command1的命令按鈕，然后編寫如下事件過程和通用過程：

private sub command1_click( )

n = val()

if n2 = n/2 then

f = f1(n)

else

f = f2(n)

end if

print f; n

end sub

public function f1(byref x)

x=x*x

f1=x+x

end function

public function f2(byval x)

x=x*x

f2=x+x+x

end function

程序運行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(d)(單)

a.72 36

b.108 36

c.72 6

d.27 3

2.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

c = “1234”

for i = 1 to 4

c1 = trim(str( ))

print c1

next i

end sub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容

1

12

123

1234

則在下劃線處應填入的內容為(b)(單)

(c1,i)

(c1,i)

(c1,i,1)

(c1,i,i)

3.在窗體上畫一個名稱為command1的命令按鈕和一個名稱為text1的文本框，然后編寫如下事件過程：

private sub command1_click( )

n = val()

for i = 2 to n

for j = 2 to sqr(i)

if i mod j = 0 then exit for

next j

if j >sqr(i) then print i

next i

end sub

該事件過程的功能是(c)(單)

a.輸出n以內的奇數

b.輸出n以內的偶數

c.輸出n以內的素數

d.輸出n以內能被j整除的數

4.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：

private function f(m as integer)

if m mod 2 = 0 then

f = m

else

f = 1

end if

end function

private sub command1_click( )

dim i as integer

s = 0

for i = 1 to 5

s = s + f(i)

next

print s

end sub

程序運行后，單擊命令按鈕，在窗體上顯示的是(c)(單)

a.11

b.10

c.9

d.8

5.在窗體上畫一個名稱為text1的文本框和一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

dim array1(10, 10) as integer

dim i as integer, j as integer

for i = 1 to 3

for j = 2 to 4

array1(i, j) = i + j

next j

next i

= array1(2, 3) + array1(3, 4)

end sub

程序運行后，單擊命令按鈕，在文本框中顯示的值是(d)(單)

a.15

b.14

c.13

d.12

basic應用程序中標準模塊文件的擴展名是【】(注意不要寫點)。

7.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuedit，visible屬性為false，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuedit相應的菜單。

private sub form_ 【mousedown】 (button as integer, shift as integer, x as single, y as single)

if button=2 then

popupmenu mnuedit

end if

end sub

8.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuedit，visible屬性為false，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuedit相應的菜單。以下是實現上述功能的程序，請填空。

private sub form mousedown (button as integer, shift as integer, x as single, y as single)

if button=2 then

【popupmenu】 mnuedit

end if

9.為了使計時器控件timer1每隔0.5秒觸發一次timer事件，應將timer1控件的【interval】屬性設置為500。

10.為了使計時器控件timer1每隔0.5秒觸發一次timer事件，應將timer1控件的interval屬性設置為【500】。

1.計算機二級vb練習題

2.全國計算機二級《vb》練習題及答案

3.計算機二級vb考試習題

4.計算機二級考試試題vb練習題

5.計算機二級vb專項練習題

6.計算機二級vb練習題及答案

7.計算機二級vb強化試題及答案

8.計算機二級《vb》的常用算法

9.2017計算機二級考試《vb》鞏固訓練題

10.計算機二級考試《vb》鞏固訓練題

計算機二級vb題型篇五

1.窗體中有一個名稱為txtspeed的文本框，一個名稱為hsbspeed的滾動條。

以下程序：

private sub hsbspeed_change( )

txtspee

= hsbspee

end sub

當單擊滾動條hsbspeed右端的箭頭時，以下說法不正確的是(b) (單)

a.此時會觸發change事件

b.此時不會觸發change事件

c.在文本框中顯示了滾動條滑塊所在位置的值

d.此時不會觸發scroll事件

2.利用窗體中的滾動條hscroll1改變窗體的背景色，可以這樣編寫代碼：

private sub hscroll1_change( )

r=

lor = rgb(r，int(rnd*256)，int(rnd*256))

end sub

以下說法不正確的是(c) (單)

a.窗體的背景色是一個隨機的顏色

函數取得到的顏色有256*256*256種

c.表達式int(rnd*256)取得隨機數的范圍為0-256之間的整數

d.表達式int(rnd*256)取得隨機數的范圍為0-255之間的整數

3.窗體中有一個名稱為slider1的可選擇性刻度滑塊控件，一個名稱為text1的文本框，如下程序：

private sub slider1_change( )

ze =【】

end sub

當拖動滑塊時，以上程序實現用slider控件設置文本框中的字體大小的功能。

4.窗體中有一個名稱為slider1的可選擇性刻度滑塊控件，一個名稱為text1的文本框，如下程序：

private sub slider1_change( )

text1.【fontsize】 =

end sub

當拖動滑塊時，以上程序實現用slider控件設置文本框中的字體大小的功能。

5.窗體中有一個名稱為slider1的可選擇性刻度滑塊控件，要設置它的如下屬性值，可以編寫程序(a) (單)

(1)slider控件的滑塊處于最小位置時值為8

(2)slider控件的滑塊處于最大位置時值為72

(3)單擊slider控件兩端箭頭時，滑塊的增量值為2

(4)單擊slider控件的空白處時，滑塊的增量值為8

= 8：

= 72：

hange =2：

hange = 8

= 2：

= 8：

hange = 72：

hange = 8

= 8：

= 72：

hange = 8：

hange = 2

= 72：

= 8：

hange = 2：

hange = 8

6.在窗體中有一個名稱為timer1的時鐘控件，三個名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：

sub form_load( )

e=loadpicture(+“”)

e=loadpicture(+“”)

e=loadpicture(+“”)

end sub

sub timer1_timer( )

static pickbmp as boolean

+ 20, - 5

if pickbmp = false then

e = e

pickbmp = true

else

e = e

pickbmp = false

end if

end sub

以下說法不正確的是(c) (單)

a.此程序的功能是把image1圖像框顯示圖形在b和b文件之間進行切換

p變量是邏輯變量，作用是表示圖形的狀態

表示絕對路徑

d.要使得timer控件起作用，必須使得它的enabled屬性設置為true，interval屬性設置為介于0-64767之間的數值，但不能等于0

7.在窗體中有一個名稱為timer1的時鐘控件，三個名稱分別為image1、image2 和 image3的圖像框，編寫如下程序：

sub form_load( )

e=loadpicture(+“”)

e=loadpicture(+“”)

e=loadpicture(+“”)

end sub

sub timer1_timer( )

static pickbmp as boolean

+ 20, - 5

if pickbmp = false then

e = e

pickbmp = true

else

e = e

pickbmp = false

end if

end sub

以下說法不正確的是(b) (單)

a.此程序的功能是把image1圖像框顯示圖形在b和b文件之間進行切換

b.也可以將timer1控件的timer事件改寫為change事件

表示相對路徑

d.要使得timer控件起作用，必須使得它的enabled屬性設置為true，interval屬性設置為介于0-64767之間的數值，但不能等于0

8 .在progressbar進度條控件中，它的value屬性決定該控件被填充多少。√

9 .updown控件通常與伙伴控件“捆綁”在一起使用。√

10 .animation控件可以用來顯示有聲音的avi視頻文件 ×。

11.對animation控件所使用的方法描述不正確的是(b) (單)

方法用于打開文件

方法用于播放動畫，格式為： avi動畫文件路徑

方法用于停止播放

方法用于關閉文件

12.下面的事件不屬于鼠標器事件的是(d) (單)

own事件

p事件

ove事件

事件

13.下面的事件不屬于鍵盤事件的是(d) (單)

ss事件

n事件

事件

e事件

14.在窗體中有一個名稱為command1的命令按鈕，一個名稱為text1的文本框，一個名稱為commondialog1的通用對話框，編寫如下程序：

sub command1_click( )

= 3

lor =

end sub

當單擊命令按鈕時，對程序的運行說法正確的是(b) (單)

a.打開一個顏色對話框

b.打開一個字體對話框

c.把文本框的背景顏色設置為對話框選擇的字體顏色

d.把文本框的背景顏色設置為對話框中選擇的顏色

15.當單擊命令按鈕時，對以下程序說法不正確的是(d) (單)

sub command1_click( )

= 5

for i = 1 to

next i

end sub

a.此文件的功能是打印文本框text1中的內容

b.語句表示結束文擋打印

c.打開的打印對話框

d.以上說法都不正確

16.當單擊命令按鈕時，對以下程序說法不正確的是(c) (單)

sub command1_click( )

me = “”

text = “txt”

= 2

end sub

b.設置缺省擴展名為txt

c.顯示的是文件“打開”對話框

d.顯示的是“另存為”對話框

17.在窗體中建立了三個名稱分別為editcut、editcopy和editpaste的命令按鈕，一個名稱為text1的文本框。

如下程序：

private sub editcopy_click( )

st = t 將選中的內容存放到st變量中

end sub

private sub editcut_click( )

st = t

t = “”

end sub

private sub editpaste_click( )

= left(text1, rt) + st + mid(text1, rt

+ 1)

end sub

對以上程序說法不正確的是(d) (單)

a.語句st = t的作用是：將text1文本框中選擇的內容存放到st變量中

t = “” 的作用是：將text1文本框中選擇的內容清除

c.單擊editcut命令按鈕實現了text1文本框中選擇的內容清除

d.單擊editcopy命令按鈕實現了text1文本框中所有內容的粘貼

18.對以下程序說法不正確的是(d) (單)

private sub fileopen_click( )

r = “c:”

= “文本文件 | *.txt”

en

end sub

a.顯示“文件”打開對話框

b.打開的對話框的初始目錄為c盤根目錄

c.打開的對話框的文件類型為文本文件

d.以上說法都不正確

19.雙精度型數據的類型符為(a) (單)

a.#

b.*

c.&

d.@

20.整型數據的類型符為(b) (單)

a.#

b.%

c.&

d.@

1.計算機二級vb練習題

2.計算機二級考試試題vb練習題

3.計算機二級vb練習題及答案

4.計算機二級vb專項練習題

5.全國計算機二級《vb》練習題及答案

6.計算機二級vb考試模擬練習題

7.9月計算機二級考試《vb》強化練習題及答案

8.209月計算機二級考試《vb》強化練習題與答案

9.計算機二級vb強化試題及答案

10.計算機二級《vb》的常用算法

計算機二級vb題型篇六

(34)某人設計了下面的函數fun，功能是返回參數a中數值的位數

function fun(a as integer) as integer

dim n%

n = 1

while a \ 10 >= 0

n = n + 1

a = a \ 10

wend

fun = n

end function

在調用該函數時發現返回的結果不正確，函數需要修改，下面的修改方案中正確的是

a)把語句n = 1改為n = 0

b)把循環條件a \ 10 >= 0改為a \ 10 >0

c)把語句 a = a \ 10改為a = a mod 10

d)把語句fun = n改為 fun = a

(35)在窗體上有一個名稱為check1的復選框數組

(含4個復選框)，還有一個名稱為text1的文本

框，初始內容為空。程序運行時，單擊任何復選

框，則把所有選中的復選框后面的方字羅列在文

本框中(見圖)。下面能實現此功能的事件過程是

a)private sub check1_click(indes as integer)

=“”

for k = 0 to 3

if check1(k).value = 1 then

= & check1(k).caption & “ ” 雙引號中是空格

end if

next k

end sub

b)private sub check1_click(index as integer)

for k = 0 to 3

if check1(k).value = 1 then

= & check1(k).caption & “ ” 雙引號中是空格

end if

next k

end sub

c)private sub check1_click(index as integer)

= “”

for k = 0 to 3

if check1(k).value = 1 then

= & check1(index).caption & “ ” 雙引號中是空格

end if

next k

end sub

d)private sub check1_click(index as integer)

= “”

for k = 0 to 3

if check1(k).value = 1 then

= & check1(k).caption & “ ” 雙引號中是空格

exit for

end if

next k

end sub

二、填空題(每空2分，共30分)

請將每空的正確答案寫在答題卡[1]~[15]序號的橫線上，答在試卷上不得分。

(1)軟件需求規格說明書應具有完整性，無岐義性、正確性、可驗證性、可修改性等特征，其中最重要的是【1】 。

(2)在兩種基本測試方法中，【2】 測試的原則之一是保證所測模塊中每一個獨立路徑至少執行一次。

(3)線性表的存儲結構主要分為順序存儲結構和鏈式存儲結構。隊列是一種特殊的線性表，循環隊列是隊列的【3】 存儲結構。

(4)對下列二叉樹進行中序遍歷的結果為【4】 。

(5)在e-r圖中，矩形表示【5】 。

(6)窗體上有一個組合框，其中已輸入了

若干個項目。程序運行時，單擊其中一

項，即可把該項與最上面的一項交換。

例如：單擊圖1中的“重慶”，則與“北

京”交換，得到圖2的結果。下面是可

實現此功能的程序，請填空。

private sub combo1_click

dim temp

temp =

[6] = (0)

(0) = temp

end sub

(7)設窗體上有一個名稱為hscroiii的水平滾動條，要求當滾動塊移動位置后，能夠在窗體上輸出移動的距離(即新位置與原位置的刻度值之差，向右移動為正數，向左移動為負數)。下面是可實現此功能的程序，請填寫。

dim [7] as integer

private sub form_load()

pos=

end sub

private sub hscroiii_change()

print [8] -pos

pos=

end sub

(8)設窗體上有一個名稱為cd1的通用對話框，一個名稱為text1的文本框和一個名稱為command1的命令按鈕。程序執行時，單擊command1按鈕，則顯示打開文件對話框，操作者從中選擇一個文本文件，并單擊對話框上的“打開”按鈕后，則可打開該文本文件，并讀入一行文本，顯示在text1中。下面是實現此功能的事件過程，請填空。

private sub command1_click()

=“文本文件1*.txt(word 文檔)*.doc”

inder = 1

en

if me“”then

open [9] for input as #1

line input #1,ch$

close #1

= [10]

end if

end sub

(9)下面的程序執行時，可以從鍵盤輸入一個正整數，然后把該數的每位數字按逆序輸出。例如：輸入7685，則輸出5867，輸入1000，則輸出0001。請填空。

private sub command1_click()

dim x as integer

x=inputbox(“請輸入一個正整數”)

while x>__[11]___

print x mod 10;

x=x\10

wend

print__[12]__

end sub

計算機二級vb題型篇七

計算機二級vb考試題及答案

計算機二級vb考試題及答案

1.設有如下程序段：

x=2

for c=1 to 4 step 2

x=x+c

next c

運行以上程序后，x的值是(a)(單)

a.6

b.7

c.8

d.9

2.以下敘述中錯誤的是(a)(單)

a.在keypress事件過程中不能識別鍵盤鍵的按下與釋放

b.在keypress事件過程中不能識別回車鍵

c.在keydown和keyup事件過程中，從鍵盤輸入的字母“a”和字母“a”對應的keycode視作相同的字母

d.在keydown和keyup事件過程中，從大鍵盤上輸入的“1”和從右側小鍵盤上輸入的“1”被視作不同的字符

3.執行如下兩條語句，窗體上顯示的是(c)(單)

a=9.8596

print format(a,“000.00”)

a.0,009.86

b.9.86

c.009.86

d.0,009.86

4.在窗體上畫一個名稱為commanddialog1 的通用對話框，一個名稱為command1的命令按鈕。然后編寫如下事件過程：

private sub command1_click( )

me =“”

=“all file|*.*|(*.doc)|*.doc|(*.txt)|*.txt”

index=1

title=“vbtest”

=1

end sub

對于這個程序，以下敘述中錯誤的是(d)(單)

a.該對話框被設置為“打開”對話框

b.在該對話框中指定的文件名為空

c.該對話框的標題為vbtest

d.在該對話框中指定的默認文件類型為文本文件(*.txt)

5.設一個工程由兩個窗體組成，其名稱分別為form1和form2，在form1上有一個名稱為command1的命令按鈕。窗體form1的程序代碼如下：

private sub command1_click( )

dim a as integer

a=10

call g(form2,a)

end sub

private sub g(f as form,x as integer)

y=iif(x>10,100,-100)

n=y

end sub

運行以上程序，正確的結果是(b)(單)

1的caption屬性值為100

2的caption屬性值為-100

1的caption屬性值為-100

2的caption屬性值為100

6.在窗體上畫一個名稱為command1的命令按鈕，并編寫如下程序：

private sub command1_click( )

dim x as integer

static y as integer

x=10

y=5

call f1(x,y)

print x,y

end sub

private sub f1(byref x1 as integer, y1 as integer)

x1=x1+2

y1=y1+2

end sub

程序運行后，單擊命令按鈕，在窗體上顯示的內容是(d)(單)

a.10 5

b.12 5

c.10 7

d.12 7

base 1

private sub command1_click( )

dim a(10) as integer

dim n as integer

n=3

if n<10 then

call getarray(a,n)

end if

end sub

private sub getarray(b( ) as integer,n as integer)

dim c(10) as integer

j=0

for t=1 to n

b(t)=rnd*100

if b(t)/2=b(t)2 then

j=j+1

c(j)=b(t)

end if

next t

print j

end sub

以下敘述中錯誤的是(c)(單)

a.數組b中的數范圍為0-100

b.c數組下標的下界從1開始

ay過程的參數n是按值傳送的

d.語句if b(t)/2=b(t)2 then 是判斷數組b中元素的值是否為整數

8.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：

option base 1

private sub command1_click( )

dim a

a= array(1,2,3,4,5)

for c=1 to ubound(a)

a(c) = a(c)+c-1

next c

print a(3)

end sub

程序運行后，單擊命令按鈕，則在窗體上顯示的內容是(b)(單)

a.4

b.5

c.6

d.7

9.閱讀程序：

option base 1

private sub form_click( )

dim arr

dim sum%

sum = 0

arr = array(1, 3, 5, 7, 9)

for t = 1 to 5

sum = sum + arr(t)

next t

print sum

end sub

程序運行后，單擊窗體，輸入結果為(b)(單)

a.5

b.9

c.25

d.15

10.在窗體上畫一個名稱為file1的文件列表框，并編寫如下程序：

private sub file1_dblclick( )

x=shell(me,1)

end sub

以下關于該程序的敘述中，錯誤的是(a)(單)

a.x沒有實際作用，因此可以將該語句寫為：call shell(file1,filename,1)

b.雙擊文件列表框中的文件，將觸發該事件過程

c.要執行的文件的名字通過me指定

1中顯示的是當前驅動器、當前目錄下的文件

11.在窗體上畫一個名稱為label1、標題為“visualbasic考試”的標簽，兩個名稱分別為command1和command2、標題分別為“開始”和“停止”的命令按鈕，然后畫一個名稱為timer1的.計時器控件，并把其interval屬性設置為500。編寫如下程序：

private sub form_load( )

d=false

end sub

private sub command1_click( )

d=true

end sub

private sub timer1_timer( )

if < then

= + 20

else

=0

end if

end sub

程序運行后，單擊“開始”按鈕，標簽在窗體中移動。 對于這個程序，以下敘述中錯誤的是(a)(單)

a.標簽的移動方向為自右向左

b.單擊“停止”按鈕后再單擊“開始”按鈕，標簽從停止的位置繼續移動

c.當標簽全部移出窗體后，將從窗體的另一端出現并重新移動

d.標簽按指定的時間時隔移動

12.規范地說，vb是一種(a)的開發工具(單)

a.面向對象

b.面向用戶

c.面向屏幕

d.面向窗體

6設計界面包含多個視窗，控制這些視窗顯示或關閉的命令包含在(d)下拉菜單中(單)

a.文件

b.工程

c.編輯

d.視圖

14下面(d)操作不是激活或顯示屬性列表框的操作(單)

a.按快捷鍵f4

b.點擊工具欄中的“屬性列表框”按鈕

c.選擇“視圖”下拉菜單的“屬性窗口”項

d.雙擊窗體中的某一對象

basic程序中分隔各語句的字符是(b)(單)

a.′

b.:

c.

d._

16.假定窗體的名稱(name屬性)為form1，則把窗體的標題設置為“vb test”的語句為(b)(單)

1 = “vb test”

n =“vb test”

1.text = “vb test”

1.name =“vb test”

17.下列不能打開代碼窗口的操作是(d)(單)

a.雙擊窗體上的某個控件雙擊

b.雙擊窗體

c.按f7鍵

d.單擊窗體或控件

basic程序中語句行的續行符是(d)(單)

a.′

b.:

c.

d. _

basic程序中的注釋所使用的字符是(a)(單)

a.′

b.:

c.

d._

20.下列說法中正確的是：為了保存一個visual basic應用程序，應當(d)(單)

a.只保存窗體模塊文件(.frm)

b.只保存工程文件(.vbp)

c.分別保存工程文件和標準模塊文件(.bas)

d.分別保存工程文件、窗體文件和標準模塊文件

計算機二級vb題型篇八

計算機vb試題及答案

(1)下面敘述正確的是(c)

a.算法的執行效率與數據的存儲結構無關

b.算法的空間復雜度是指算法程序中指令(或語句)的條數

c.算法的有窮性是指算法必須能在執行有限個步驟之后終止

d.以上三種描述都不對

(2)以下數據結構中不屬于線性數據結構的是(c)

a.隊列

b.線性表

c.二叉樹

d.棧

(3)在一棵二叉樹上第5層的結點數最多是(b)注：由公式2k-1得

a.8

b.16

c.32

d.15

(4)下面描述中，符合結構化程序設計風格的是(a)

a.使用順序、選擇和重復(循環)三種基本控制結構表示程序的控制邏輯

b.模塊只有一個入口，可以有多個出口

c.注重提高程序的執行效率

d.不使用goto語句

(5)下面概念中，不屬于面向對象方法的是(d)

a.對象

b.繼承

c.類

d.過程調用

(6)在結構化方法中，用數據流程圖(dfd)作為描述工具的軟件開發階段是(b)

a.可行性分析

b.需求分析

c.詳細設計

d.程序編碼

(7)在軟件開發中，下面任務不屬于設計階段的是(d)

a.數據結構設計

b.給出系統模塊結構

c.定義模塊算法

d.定義需求并建立系統模型

(8)數據庫系統的核心是(b)

a.數據模型

b.數據庫管理系統

c.軟件工具

d.數據庫

(9)下列敘述中正確的是(c)

a.數據庫是一個獨立的系統，不需要操作系統的支持

b.數據庫設計是指設計數據庫管理系統

c.數據庫技術的根本目標是要解決數據共享的問題

d.數據庫系統中，數據的物理結構必須與邏輯結構一致

(10)下列模式中，能夠給出數據庫物理存儲結構與物理存取方法的是(a)

a.內模式

b.外模式

c.概念模式

d.邏輯模式

(11)算法的時間復雜度是指(c)

a.執行算法程序所需要的時間

b.算法程序的長度

c.算法執行過程中所需要的基本運算次數

d.算法程序中的指令條數

(12)算法的空間復雜度是指(d)

a.算法程序的長度

b.算法程序中的指令條數

c.算法程序所占的存儲空間

d.算法執行過程中所需要的存儲空間

(13)設一棵完全二叉樹共有699個結點，則在該二叉樹中的葉子結點數為(b)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉數的特點可求出

a.349

b.350

c.255

d.351

(14)結構化程序設計主要強調的是(b)

a.程序的規模

b.程序的易讀性

c.程序的執行效率

d.程序的可移植性

(15)在軟件生命周期中，能準確地確定軟件系統必須做什么和必須具備哪些功能的階段是(d)注：即第一個階段

a.概要設計

b.詳細設計

c.可行性分析

d.需求分析

(16)數據流圖用于抽象描述一個軟件的邏輯模型，數據流圖由一些特定的圖符構成。下列圖符名標識的圖符不屬于數據流圖合法圖符的是(a)

a.控制流

b.加工

c.數據存儲

d.源和潭

(17)軟件需求分析階段的工作，可以分為四個方面：需求獲取、需求分析、編寫需求規格說明書以及(b)注：p66

a.階段性報告

b.需求評審

c.總結

d.都不正確

(18)下述關于數據庫系統的敘述中正確的是(a)

a.數據庫系統減少了數據冗余

b.數據庫系統避免了一切冗余

c.數據庫系統中數據的一致性是指數據類型的一致

d.數據庫系統比文件系統能管理更多的數據

(19)關系表中的每一橫行稱為一個(a)

a.元組

b.字段

c.屬性

d.碼

(20)數據庫設計包括兩個方面的設計內容，它們是(a)

a.概念設計和邏輯設計

b.模式設計和內模式設計

c.內模式設計和物理設計

d.結構特性設計和行為特性設計

(21)下列敘述中正確的是(a)

a.線性表是線性結構

b.棧與隊列是非線性結構

c.線性鏈表是非線性結構

d.二叉樹是線性結構

(22)下列關于棧的敘述中正確的是(d)

a.在棧中只能插入數據

b.在棧中只能刪除數據

c.棧是先進先出的線性表

d.棧是先進后出的線性表

(23)下列關于隊列的敘述中正確的是(c)

a.在隊列中只能插入數據

b.在隊列中只能刪除數據

c.隊列是先進先出的線性表

d.隊列是先進后出的線性表

(24)對建立良好的程序設計風格，下面描述正確的是(a)

a.程序應簡單、清晰、可讀性好

b.符號名的命名要符合語法

c.充分考慮程序的執行效率

d.程序的注釋可有可無

(25)下面對對象概念描述錯誤的是(a)

a.任何對象都必須有繼承性

b.對象是屬性和方法的封裝體

c.對象間的通訊靠消息傳遞

d.操作是對象的動態性屬性

(26)下面不屬于軟件工程的3個要素的是(d)

a.工具

b.過程

c.方法

d.環境

(27)程序流程圖(pfd)中的箭頭代表的是(b)

a.數據流

b.控制流

c.調用關系

d.組成關系

(28)在數據管理技術的發展過程中，經歷了人工管理階段、文件系統階段和數據庫系統階段。其中數據獨立性最高的階段是(a)

a.數據庫系統

b.文件系統

c.人工管理

d.數據項管理

(29)用樹形結構來表示實體之間聯系的模型稱為(b)

a.關系模型

b.層次模型

c.網狀模型

d.數據模型

(30)關系數據庫管理系統能實現的專門關系運算包括(b)

a.排序、索引、統計

b.選擇、投影、連接

c.關聯、更新、排序

d.顯示、打印、制表

計算機二級vb題型篇九

1.在窗體上畫一個名稱為text1的文本框，一個名稱為command1的命令按鈕，然后編寫如下事件過程和通用過程：

private sub command1_click( )

n = val()

if n2 = n/2 then

f = f1(n)

else

f = f2(n)

end if

print f; n

end sub

public function f1(byref x)

x=x*x

f1=x+x

end function

public function f2(byval x)

x=x*x

f2=x+x+x

end function

程序運行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(d)(單)

a.72 36

b.108 36

c.72 6

d.27 3

2.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

c = “1234”

for i = 1 to 4

c1 = trim(str( ))

print c1

next i

end sub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內容

1

12

123

1234

則在下劃線處應填入的內容為(b)(單)

(c1,i)

(c1,i)

(c1,i,1)

(c1,i,i)

3.在窗體上畫一個名稱為command1的命令按鈕和一個名稱為text1的文本框，然后編寫如下事件過程：

private sub command1_click( )

n = val()

for i = 2 to n

for j = 2 to sqr(i)

if i mod j = 0 then exit for

next j

if j >sqr(i) then print i

next i

end sub

該事件過程的功能是(c)(單)

a.輸出n以內的奇數

b.輸出n以內的偶數

c.輸出n以內的素數

d.輸出n以內能被j整除的數

4.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下通用過程和命令按鈕的事件過程：

private function f(m as integer)

if m mod 2 = 0 then

f = m

else

f = 1

end if

end function

private sub command1_click( )

dim i as integer

s = 0

for i = 1 to 5

s = s + f(i)

next

print s

end sub

程序運行后，單擊命令按鈕，在窗體上顯示的是(c)(單)

a.11

b.10

c.9

d.8

5.在窗體上畫一個名稱為text1的文本框和一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

dim array1(10, 10) as integer

dim i as integer, j as integer

for i = 1 to 3

for j = 2 to 4

array1(i, j) = i + j

next j

next i

= array1(2, 3) + array1(3, 4)

end sub

程序運行后，單擊命令按鈕，在文本框中顯示的值是(d)(單)

a.15

b.14

c.13

d.12

basic應用程序中標準模塊文件的擴展名是【】(注意不要寫點)。

7.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuedit，visible屬性為false，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuedit相應的菜單。

private sub form_ 【mousedown】 (button as integer, shift as integer, x as single, y as single)

if button=2 then

popupmenu mnuedit

end if

end sub

8.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuedit，visible屬性為false，程序運行后，如果用鼠標右鍵單擊窗體，則彈出與mnuedit相應的菜單。以下是實現上述功能的程序，請填空。

private sub form mousedown (button as integer, shift as integer, x as single, y as single)

if button=2 then

【popupmenu】 mnuedit

end if

9.為了使計時器控件timer1每隔0.5秒觸發一次timer事件，應將timer1控件的【interval】屬性設置為500。

10.為了使計時器控件timer1每隔0.5秒觸發一次timer事件，應將timer1控件的interval屬性設置為【500】。

11.與數學表達式ln(a+b)/(3x)+5 對應的visual basic表達式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

裝入圖片框picture1的語句是

13.在窗體上畫一個名稱為text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數組，名稱為option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據所選擇的單選按鈕切換。

private sub option1_click(index as integer)

select case 【index】

case 0

a = “宋體”

case 1

a = “黑體”

case 2

a = “楷體_gb2312”

end select

me=a

end sub

14.在窗體上畫一個名稱為text1的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數組，名稱為option1，程序運行后，如果單擊某個單選按鈕，則文本框中的字體將根據所選擇的單選按鈕切換。

private sub option1_click(index as integer)

select case index

case 0

a = “宋體”

case 1

a = “黑體”

case 2

a = “楷體_gb2312”

end select

text1.【fontname】=a

end sub

15.在窗體上畫兩個組合框，其名稱分別為combo1、combo2，然后畫兩個標簽，名稱分別為label1、label2。程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽中顯示出來。

private sub combo1_click( )

call showitem(combo1, label1)

end sub

private sub combo2_click( )

call showitem(combo2, label2)

end sub

public sub showitem(tmpcombo as combobox, tmplabel as label)

【tmplabel】.caption =

end sub

16.在窗體上畫兩個組合框，其名稱分別為combo1、combo2，然后畫兩個標簽，名稱分別為label1、label2，程序運行后，如果在某個組合框中選擇一個項目，則把所選中的項目在其下面的標簽中顯示出來。

private sub combo1_click( )

call showitem(combo1, label1)

end sub

private sub combo2_click( )

call showitem(combo2, label2)

end sub

public sub showitem(tmpcombo as combobox, tmplabel as label)

n =【tmpcombo】.text

end sub

17.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：

private sub command1_click( )

n = 5

f = 1

s = 0

for c = 1 to n

f = f*【7】

s = s + f

next c

print s

end sub

該事件過程的功能是計算1!+2!+3!+…+n!的值。

18.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下程序：

option base 1

private sub command1_click( )

dim a(10) as integer

for i = 1 to 10

a(i) = i

next i

call【swap】a( )

for i = 1 to 10

print a(i);

next

end sub

sub swap(b( ) as integer)

n = ubound(b)

for i = 1 to n / 2

t = b(i)

b(i) = b(n)

b(n) = t

n=n-1

next i

end sub

上述程序的功能是，通過調用過程swap，調換數組中數值的`存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

19.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下程序：

option base 1

private sub command1_click( )

dim a(10) as integer

for i = 1 to 10

a(i) = i

next i

call swap(a( ))

for i = 1 to 10

print a(i);

next

end sub

sub swap(b( ) as integer)

n =【ubound(b)】

for i = 1 to n / 2

t = b(i)

b(i) = b(n)

b(n) = t

n=n-1

next i

end sub

上述程序的功能是，通過調用過程swap，調換數組中數值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

20.在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下程序：

option base 1

private sub command1_click( )

dim a(10) as integer

for i = 1 to 10

a(i) = i

next i

call swap(a( ))

for i = 1 to 10

print a(i);

next i

end sub

sub swap(b( ) as integer)

n = ubound(b)

for i = 1 to n / 2

t = b(i)

b(i) = b(n)

b(n) = t

n=【n-1】

next i

end sub

上述程序的功能是，通過調用過程swap，調換數組中數值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。