1、任何控件都有的屬性是( )。

　　A.BackColor

　　B.Caption

　　C.Name

　　D.BorderStyle

　　2、設(shè)計(jì)數(shù)據(jù)庫(kù)的存儲(chǔ)結(jié)構(gòu)屬于(　　)

　　A.需求分析

　　B.概念設(shè)計(jì)

　　C.邏輯設(shè)計(jì)

　　D.物理設(shè)計(jì)

　　3、某人創(chuàng)建了1個(gè)工程，其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體，并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是(　　)。

　　A.在工程屬性對(duì)話框中把"啟動(dòng)對(duì)象"設(shè)置為Form2

　　B.在Forml 的Load 事件過(guò)程中加入語(yǔ)句Load Form2

　　C.在Form2的Load 事件過(guò)程中加入語(yǔ)句Form2.Show

　　D.把Form2的TabIndex 屬性設(shè)置為l ，把Form1的TabIndex 屬性設(shè)置為2

　　4、設(shè)有如下通用過(guò)程：

　　Public Function Fun(xStr As Stri ng)As Stri ng

　　Di mt Str As Stri ng ，strLAs Integer

　　tStF=""

　　strL=Len(xStr)

　　i =1 Do While i <=strL/2

　　tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)

　　i =i +l

　　Loop

　　Fun =tStr

　　End Function

　　在窗體上畫(huà)一個(gè)名稱為Co mmand1的命令按鈕。然后編寫(xiě)如下的事件過(guò)程：

　　Private Sub Co mmandI_Click()

　　Di mS1As Stri ng

　　S1="abedef"

　　Pri m UCase(Fun(S1))

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是(　　)。

　　A.ABCDEF

　　B.abcdef

　　C.AFBECD

　　D.DEFABC

　　5、下列關(guān)于棧的描述正確的是(　　)。

　　A.在棧中只能插入元素而不能刪除元素

　　B.在棧中只能刪除元素而不能插入元素

　　C.棧是特殊的線性表，只能在一端插入或刪除元素

　　D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素

　　6、下列程序段的運(yùn)行結(jié)果是(　　)。

　　Sub sele(　　)

　　Di mn As Integer

　　i =21：n =3

　　Do While i >n

　　i =i -n

　　Loop

　　Print i

　　End Sub

　　A.2

　　B.4

　　C.5

　　D.3

　　7、復(fù)選框的Value 屬性為0時(shí)，表示該復(fù)選框(　　)。

　　A.未被選中

　　B.被選中

　　C.框內(nèi)有灰色的勾

　　D.操作有誤

　　8、在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組(含4個(gè)復(fù)選框)，還有一個(gè)名稱為T(mén)ext1的文本框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選框，則把所有選中的復(fù)選框后面的方字羅列在文本框中(見(jiàn)圖)。下面能實(shí)現(xiàn)此功能的事件過(guò)程是(　　)。

A.Private Sub Check1_Click(Index As Integer)

　　Text1.Text =""

　　For k =0To 3

　　If Check1(k).value =1Then

　　Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格 End If Next k

　　End Sub

　　B.Private Sub Check1_Click(Index As Integer)

　　For k =0To 3

　　If Check1(k).Value =1Then

　　Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格

　　End If

　　Next k

　　End Sub

　　C.Private Sub Check1_Click(Index As Integer)

　　Text1.Text ="" For k =0To 3 If Check1(k).Value =1Then

　　Text1.Text =Text1.Text &Check1(Index).Caption &""雙引號(hào)中是空格

　　End If

　　Next k

　　End Sub

　　D.Private Sub Check1_Click(Index As Integer)

　　Text1.Text ="" For k =0To 3

　　If Check1(k).Value =1Then

　　Text1.Text =Text1.Text &Check1(k).Caption &""雙引號(hào)中是空格

　　Exit For

　　End If

　　Next k

　　End Sub

　　9、在窗體上添加一個(gè)命令按鈕，名為Co mmand1，其單擊事件中有下列程序段，則事件過(guò)程執(zhí)行后，文本框中輸出

　　(　　)。

　　For i =1To 4

　　For j=1To 3

　　x=3

　　For k =1To 2

　　x=x+3

　　Next k

　　Next j

　　Next i

　　Textl .Text =Str(x)

　　A.3

　　B.6

　　C.9

　　D.12

　　10、下列關(guān)于Sub 過(guò)程的敘述正確的是(　　)。

　　A.一個(gè)Sub 過(guò)程必須有一個(gè)Exit Sub 語(yǔ)句

　　B.一個(gè)Sub 過(guò)程必須有一個(gè)End Sub 語(yǔ)句

　　C.在Sub 過(guò)程中可以定義一個(gè)Function 過(guò)程

　　D.可以用Goto 語(yǔ)句退出Sub 過(guò)程
11、下列敘述中正確的是( )。

　　A.在窗體的Form_Load 事件過(guò)程中定義的變量是全局變量

　　B.局部變量的作用域可以超出所定義的過(guò)程

　　C.在某個(gè)Sub 過(guò)程中定義的局部變量可以與其他事件過(guò)程中定義的局部變量同名，但其作用域只限于該過(guò)程

　　D.在調(diào)用過(guò)程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串

　　12、編寫(xiě)如下兩個(gè)事件過(guò)程：

　　Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)

　　Print Chr(KeyCode)

　　End Sub

　　Private Sub Form_KeyPress(KeyAscii As Integer)

　　Print Chr(KeyAscii)

　　End Sub

　　在一般情況下(即不按住Shift 鍵也未鎖定大寫(xiě)鍵時(shí))運(yùn)行程序，如果按鍵盤(pán)上的"A"鍵，則程序輸出的結(jié)果是(　　)。

　　A.A

　　a

　　B.a

　　A

　　C.A

　　A

　　D.a

　　a

　　13、在窗體上畫(huà)一個(gè)命令按鈕，名稱為Co mmand1，然后編寫(xiě)下列代碼：

　　Option Base 0

　　Private Sub Co mmand1_Click()

　　Di m A1(4)As Integer ，A2(4)As Integer

　　For k =0To 2

　　A1(k +1)=InputBox("請(qǐng)輸入一個(gè)整數(shù)")

　　A2(3-k)=A1(k +1)

　　Next k Print A2(k)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中依次輸入2、4、6，則輸出結(jié)果為(　　)。

　　A.0

　　B.1

　　C.2

　　D.3

　　14、下面語(yǔ)句正確的是(　　)。

　　A.If x<3*y And x>y Then y =x^3

　　B.If x<3*y And x>y Then y =3x

　　C.If x<3*y ：x>y Then y =x^3

　　D.If x<3*y And x>y Then y =x**3

　　15、下面程序的輸出結(jié)果是(　　)。

　　Private Sub Co mmand1_Click()

　　Ch$="ABCDEF"

　　proc ch ：Print ch

　　End Sub

　　Private Sub proc(ch As Stri ng)

　　s =""

　　For k =Len(ch)To 1Step -1

　　s =s &Mid(ch ，k ，1)

　　Next k

　　ch =s

　　End Sub

　　A.ABCDEF

　　B.FEDCBA

　　C.A

　　D.F

　　16、語(yǔ)句Di ma(-3To 4，3To 6)As Integer 定義的數(shù)組元素個(gè)數(shù)是(　　)。

　　A.18

　　B.28

　　C.21

　　D.32

　　17、以下敘述中錯(cuò)誤的是(　　)。

　　A.一個(gè)工程中只能有一個(gè)Sub Main 過(guò)程

　　B.窗體的Show 方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

　　C.窗體的Hide 方法和Unload 方法的作用完全相同

　　D.若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體

　　18、在窗體上先后畫(huà)2個(gè)圖片框，名稱分別為Picture1和banana，banana 中添加了香蕉圖片，如圖1所示，且將banana.Drag Mode 屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana 拖拽到Picture1中，如圖2所示。能實(shí)現(xiàn)此功能的事件過(guò)程是(　　)。

　A.Private Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)

　　banana . Move Picture1 . Left +X，Picture1 . Top +Y

　　End Sub

　　B.Private Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)

　　Source . Move Picture1 . Left +X，Picture 1 . Top +Y

　　End Sub

　　C.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)

　　Source . Move Picture1 . Left +X，Picture1 . Top +Y

　　End Sub

　　D.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)

　　banana . Move banana . Left +X，banana . Top +Y

　　End Sub

　　19、用Print 方法在Forml 窗體中顯示出4個(gè)#號(hào)的正確代碼為(　　)。

　　A.Debug .Print"####"

　　B.Print"####"

　　C.Forml-Print"####"

　　D.Forml .Print"####"

　　20、一個(gè)模塊內(nèi)部各個(gè)元素彼此結(jié)合的緊密程度的度量稱為(　　)

　　A.耦合性

　　B.內(nèi)聚性

　　C.復(fù)雜性

　　D.數(shù)據(jù)傳輸特性
21、函數(shù)值和余弦函數(shù)值，角度為1，2，3，…，90。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　Private Type Ang

　　K As Integer

　　Si nx As Si ngle

　　Cosx As Si ngle

　　End Type

　　Private Sub Form_Click()

　　Di m Y As Si ngle

　　Di mi As Integer

　　Di m Ksc As Ang

　　Open ____________

　　Y =3.14159/180

　　For i =1To 90

　　Ksc .K =i

　　Ksc .Si nx=Si n(i*Y)

　　Ksc .Cosx=Cos(i +Y)

　　________

　　Next i

　　Close #2

　　Elld Stub

　　A."..\Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc

　　B."..\Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc

　　C."..\Datal .txt"For Rando m As #1 Put #1，i ，Ksc

　　D."..\Datal .txt"For Rando m As #1 Put #1，Y ，Ksc

　　22、下列程序運(yùn)行時(shí)輸出的結(jié)果是(　　)。

　　Option Base 1

　　Const a=10

　　Private Sub Form_Click0

　　Di mx(a)As Integer

　　k =-1

　　For i =1To a

　　x(i)=i*k

　　k =(-1)*k

　　Next i

　　For i =1To 10

　　Print x(i)

　　Next i

　　End Sub

　　A.1 3 5 7 9 10

　　B.-1-3-5-7-9

　　C.-1 2-3 4-5 6-7 8-9 10

　　D.1-2 3-4 5-6 7-8 9-10

　　23、某人為計(jì)算n!(O

　　Private Function fun(n As Integer)As Long

　　Di m P As Long

　　P=l

　　For k =n -1To 2Step -1

　　p =p*k

　　Next k

　　fun =p

　　End Function

　　在調(diào)試時(shí)發(fā)現(xiàn)該函數(shù)過(guò)程產(chǎn)生的結(jié)果是錯(cuò)誤的，程序需要修改。下面的修改方案中有3種是正確的，錯(cuò)誤的方案是(　　)。

　　A.把p =1改為p =11

　　B.把For k =n -1To 2Step -1改為For k =1To n -1

　　C.把For k =n -1To 2Step -1改為For k =1To n

　　D.把Fo rk --n -1To 2Step -1改為For k =2To n

　　24、要設(shè)置窗體為固定對(duì)話框，并包含控制菜單欄和標(biāo)題欄，但沒(méi)有大化和小化按鈕，設(shè)置的操作是(　　)。

　　A.設(shè)置BorderStyle 的值為Fi xed Tool Wi ndow

　　B.設(shè)置BorderStyle 的值為Sizable Tool Wi ndow

　　C.設(shè)置BorderStyle 的值為Fi xed Dialog

　　D.設(shè)置BorderStyle 的值為Sizable

　　25、設(shè)在窗體上有一個(gè)文本框，然后編寫(xiě)如下的事件過(guò)程：

　　Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)

　　Const Alt =4

　　Const Key_F2=&H71

　　altdown %=(Shift And Alt)>0

　　f2down %=(KeyCode =Key_F2)

　　If altdown %And f2down %Then

　　Text1.Text ="abl"

　　End If

　　End Sub

　　程序運(yùn)行后，清除文本框中原有內(nèi)容，如果按Shift +F2鍵，則在文本框中顯示的是( )。

　　A.Alt +F2

　　B.abl

　　C.隨機(jī)出幾個(gè)數(shù)

　　D.不發(fā)生變化

　　26、在窗體上畫(huà)兩個(gè)文本框(名稱分別為T(mén)ext1和Text2)和一個(gè)命令按鈕(名稱為Co mmand1)，然后編寫(xiě)下列事件過(guò)程：

　　Private Sub Co mmand1_Click()

　　x=0

　　DO While x<50

　　x=(x+2)*(x+3)

　　n =n +l

　　Loop

　　Text1.Text =Str(n)

　　Text2.Text =Str(x)

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為(　　)。

　　A.1和0

　　B.2和72

　　C.3和50

　　D.4和168

　　27、下列敘述中錯(cuò)誤的是(　　)。

　　A.軟件測(cè)試的目的是發(fā)現(xiàn)錯(cuò)誤并改正錯(cuò)誤

　　B.對(duì)被調(diào)試的程序進(jìn)行"錯(cuò)誤定位"是程序調(diào)試的必要步驟

　　C.程序調(diào)試通常也稱為Debug

　　D.軟件測(cè)試應(yīng)嚴(yán)格執(zhí)行測(cè)試計(jì)劃，排除測(cè)試的隨意性

　　28、一個(gè)工程必須包含的文件的類(lèi)型是( )。

　　A.*.vbp*.frm*.frx

　　B.*.vbp*.cls*.bas

　　C.*.bas*.ocx*.res

　　D.*.frm*.cls*.bas

　　29、在文本框中輸入字符時(shí)，通過(guò)( )事件過(guò)程可以得到字符的ASCII 碼值。

　　A.Change

　　B.GotFocus

　　C.KeyPress

　　D.LostFocus

　　30、在下列關(guān)系運(yùn)算中，不改變關(guān)系表中的屬性個(gè)數(shù)但能減少元組個(gè)數(shù)的是(　　)。

　　A.并

　　B.交

　　C.投影

　　D.笛卡兒乘積
　31、有兩個(gè)關(guān)系R ，S 如下：

由關(guān)系R 通過(guò)運(yùn)算得到關(guān)系S，則所使用的運(yùn)算為(　　)。

　　A.選擇

　　B.投影

　　C.插入

　　D.連接

　　32、一個(gè)棧的初始狀態(tài)為空。現(xiàn)將元素1、2、3、4、5、A、B、C、D、E依次入棧，然后再出棧，則元素出棧的順序是(　　)。

　　A.12345ABCDE

　　B.EDCBA54321

　　C.ABCDEl2345

　　D.54321EDCBA

　　33、在窗體上建立通用對(duì)話框需要添加的控件是(　　)。

　　A.Data 控件

　　B.Form 控件

　　C.Co mmonDialog 控件

　　D.VBComboBox 控件

　　34、在窗體上畫(huà)2個(gè)命令按鈕，名稱分別為Co mmand1、Co mmand2，然后編寫(xiě)下列事件過(guò)程。

　　Const n =5，m=4

　　Di ma(m，n)

　　Private Sub Co mmand1_Click()

　　k =1

　　For i =1To m

　　For j=1To n

　　a(i ，j)=k

　　k =k +1

　　Next j

　　Next i

　　End Sub

　　Private Sub Co mmand2_Click()

　　summ=0

　　For i =1To m

　　For j=1To n

　　If i =1Or i =m Then

　　summ=summ+a(i ，j)

　　Else

　　If j=1Or j=n Then

　　summ=summ+a(i ，j)

　　End If

　　End If

　　Next j

　　Next i

　　Print summ

　　End Sub

　　過(guò)程Command1_Click()的作用是在二維數(shù)組a 中存放1個(gè)m 行n 列的矩陣;過(guò)程Command2_Click()的作用是(　　)。

　　A.計(jì)算矩陣外圍一圈元素的累加和

　　B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和

　　C.計(jì)算矩陣第1列和后一列元素的累加和

　　D.計(jì)算矩陣第1行和后一行元素的累加和

　　35、下列關(guān)于復(fù)選框的說(shuō)法，正確的是(　　)。

　　A.復(fù)選框的Enabled 屬性用于決定該復(fù)選框是否可見(jiàn)

　　B.復(fù)選框的Value 屬性用于決定該復(fù)選框是否被選中

　　C.復(fù)選框的Tabi ndex 屬性用于決定該復(fù)選框在控件數(shù)組中的序號(hào)

　　D.復(fù)選框的Visi ble 屬性用于決定該復(fù)選框是否可用

　　36、按照"后進(jìn)先出"原則組織數(shù)據(jù)的數(shù)據(jù)結(jié)構(gòu)是(　　)。

　　A.隊(duì)列

　　B.棧

　　C.雙向鏈表

　　D.二叉樹(shù)

　　37、當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value 屬性的值是( )。

　　A.3

　　B.2

　　C.1

　　D.0

　　38、已知在4行3列的全局?jǐn)?shù)組score(4，3)中存放了4個(gè)學(xué)生3門(mén)課程的考試成績(jī)(均為整數(shù))�，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，某人編寫(xiě)程序如下：

　　Option Base 1

　　Private Sub Co mmand1_Click(　　)

　　Di msum As Integer

　　Sum=0

　　For i =1To 4

　　For j=1To 3

　　Sum=sum+score(i ，j)

　　Next j

　　Print "第"&i &"個(gè)學(xué)生的總分是：";sum Next i

　　End Sub

　　運(yùn)行此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算正確外，其他人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中正確的是(　　)。

　　A.把外層循環(huán)語(yǔ)句For i =1TO 4改為For i =1To 3內(nèi)層循環(huán)語(yǔ)句For j=1TO 3改為For j=1TO 4

　　B.把sum=0移到For i =1TO 4和For j =1TO 3之間

　　C.把sum=sum+score(i ，j)改為sum=sum+score(j，i)

　　D.把sum=sum+score(i ，j)改為sum=score(i ，j)

　　39、設(shè)有數(shù)組定義語(yǔ)句：Di ma(5)As Integer ，List1為列表框控件。下列給數(shù)組元素賦值的語(yǔ)句錯(cuò)誤的是(　　)。

　　A.a(3)=3

　　B.a(3)=InputBox("i nput data")

　　C.a(3)=List1.ListIndex

　　D.a=Array(1，2，3，4，5，6)

　　40、下列( )標(biāo)識(shí)符不能作為Visual Basic 的變量名。

　　A.ABCabe

　　B.b1234

　　C.28wed

　　D.crud
　二、基本操作題

　　41、(1)在名稱為Form1的窗體上畫(huà)一個(gè)命令按鈕，名稱為Command1，標(biāo)題為"縮小一半"。編寫(xiě)事件過(guò)程，程序運(yùn)行后，如果單擊Command1命令按鈕，則使Command1按鈕的長(zhǎng)度和寬度各縮小到原來(lái)的一半。要求不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖25-1所示。

　圖25-1

　　注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj1.frm，工程文件名為sj1.vbp。

　　(2)在名稱為Form1的窗體上畫(huà)一個(gè)命令按鈕和一個(gè)水平滾動(dòng)條，其名稱分別為Command1和HScroll1。命令按鈕的標(biāo)題為"滾動(dòng)條變長(zhǎng)"。編寫(xiě)適當(dāng)?shù)氖录�過(guò)程，使得程序運(yùn)行后，如果單擊Command1命令按鈕，則使HScroll1水平滾動(dòng)條的Width屬性減小1000，Min屬性為0，LargeChange的屬性為100，SmallChange的屬性為20，且Command1不可用，移動(dòng)滾動(dòng)條，在窗體上顯示滾動(dòng)條的位置值。不得使用任何變量。程序運(yùn)行時(shí)的窗體界面如圖25-2所示。

圖25-2

　　注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj2.frm，工程文件名為sj2.vbp。
　三、簡(jiǎn)單應(yīng)用題

　　42、(1)在窗體上畫(huà)三個(gè)復(fù)選框，名稱分別為Ch1、Ch2和Ch3，標(biāo)題分別為"體育"、"音樂(lè)"和"美術(shù)"，還有一個(gè)命令按鈕，名稱為c1，標(biāo)題為"顯示"。要求程序運(yùn)行后，如果選中某個(gè)復(fù)選框，當(dāng)單擊"顯示"命令按鈕時(shí)，則顯示相應(yīng)的信息。例如，如果選中"體育"和"美術(shù)"復(fù)選框，單擊"顯示"命令按鈕后，在窗體上顯示"我的愛(ài)好是體育美術(shù)"，如圖2-4所示。

圖2-4

　　注意：保存時(shí)必須存放在考生文件夾下，窗體文件名為sj3.frm，工程文件名為sj3.vbp。

　　(2)在考生文件夾中有工程文件sj4.vbp及窗體文件sj4.frm。在名為Form1的窗體上有一個(gè)標(biāo)簽數(shù)組，名為L(zhǎng)ab1，該數(shù)組有4個(gè)控件元素，標(biāo)題分別是Wait、Edit、Aix和Move，如圖2-5所示。

　圖2-5

　　在程序運(yùn)行后，將鼠標(biāo)指針移動(dòng)到各控件元素上，則鼠標(biāo)指針的形狀將變成各控件元素的標(biāo)題所代表的鼠標(biāo)指針形狀;離開(kāi)控件元素，則鼠標(biāo)指針又變成正常情況下的箭頭形狀。本程序不完整，請(qǐng)補(bǔ)充完整，并能正確運(yùn)行。

　　注意：去掉程序中的注釋符"'"，把程序中的問(wèn)號(hào)"?"改為正確的內(nèi)容，

　　使其實(shí)現(xiàn)上述功能，但不得修改程序的其他部分。后，按原文件名并在原文件夾中保存修改后的文件。
　四、綜合應(yīng)用題

　　43、在考生文件夾中有工程文件sj5.vbp及其窗體文件sj5.frm，該程序是不完整的，請(qǐng)?jiān)谟??"的地方填入正確內(nèi)容，然后刪除"?"及代碼前的所有注釋符(即'號(hào))但不能修改其他部分。存盤(pán)時(shí)不得改變文件名和文件夾。

　　本題描述如下：

　　在名稱為 Form1的窗體上有一個(gè)文本框，名稱為T(mén)ext1，MultiLine屬性為T(mén)rue，ScrollBars屬性為2;兩個(gè)命令按鈕，名稱分別為Command1和Command2、標(biāo)題分別為"讀入數(shù)據(jù)"和"計(jì)算保存"，運(yùn)行界面如圖1-5所示。要求程序運(yùn)行后，如果單擊"讀入數(shù)據(jù)"按鈕，則讀入"in.txt"文件中的50個(gè)整數(shù)，放入一個(gè)數(shù)組中(數(shù)組下界為1)，同時(shí)在文本框中顯示出來(lái);如果單擊"計(jì)算保存"按鈕，則先進(jìn)行升序排列，計(jì)算前25個(gè)數(shù)的和與后25個(gè)數(shù)的和的差，并把求得的結(jié)果在文本框Text2 中顯示出來(lái)，同時(shí)把該結(jié)果存入考生文件夾中的文件"out.txt"中。(在考生文件夾下的標(biāo)準(zhǔn)模塊mode.bas中的writedata過(guò)程可以把結(jié)果存入指定的文件)


　圖1-5

　　注意：文件必須存放在考生文件夾下，窗體文件名為sj5.frm，工程文件名為sj5.vbp，計(jì)算結(jié)果存入out.txt文件，否則沒(méi)有成績(jī)。