亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

1． 要使窗體Form1顯示出來，應(yīng)使用（ 【55】 ）

�。ˋ）Load Form1　（B）Form1 Load�。–）Show.Form1　（D）Form1.Show

2． 在使用通用對話框之前要先將（ 【56】 ）添加到工具箱中。

�。ˋ）Active X　�。˙）ComboBox　　（C）CommonDialog　�。―）Color

3． 用Open語句打開文件時，若省略For子句，則隱含打開文件的存取方式為（ 【57】 ）

　（A）Binary　　　（B）Random　　�。–）Input　　　（D）OutPut

4． 設(shè)有以下循環(huán)結(jié)構(gòu)

Do

循環(huán)體

Loop While <條件>

則以下敘述中錯誤的是

（A）“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)

（B）循環(huán)體中可以使用Exit Do語句

（C）若“條件”是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體

（D）如果“條件”總是為True，則不停地執(zhí)行循環(huán)體

5． 要獲得打開文件的長度（字節(jié)數(shù)）應(yīng)用使用（ 【58】 ）函數(shù)。

�。ˋ）FileLen　　�。˙）Len　　　�。–）Loc　　　　（D）Lof

6． 給文件改名的VB語句正確的是（ 【59】 ）

�。ˋ）Name 原文件名 To 新文件名       （B）Rename 原文件名 To 新文件名

（C）Name 原文件名 As 新文件名       （D）Rename 原文件名 As 新文件名

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

Option Base 1

Private Sub Command1_Click( )

      Dim a(10) As Integer

      For i = 1 To 10

        a(i) = i

      Next

      Call Swap 【5】

      For i = 1 To 10

        Print a(i);

      Next

End Sub

Sub Swap(b() As Integer)

   n=【5】

   For i = 1 To n / 2

     t = b(i)

     b(i) = b(n)

     b(n) = t

     【5】

   Next

End Sub

上述程序的功能是，通過調(diào)用過程Swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。請?zhí)羁铡?/P>

8． 在窗體上畫一個標(biāo)簽（名稱為Label1）和一個計時器（名稱為Timer1），然后編寫如下幾個事件過程：

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 【5】

End Sub

Private Sub Form_Click()

Timer1.Enabled = 【6】

End Sub

Private Sub Timer1_Timer()

Label1.Caption = 【7】

End Sub

程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔1秒鐘變換一次（見圖）。請?zhí)羁铡?/P>

9． 下面程序用選擇法將數(shù)組a中的10個整數(shù)按升序排列。算法是：從數(shù)組中找出最小的值，將該數(shù)與第1個數(shù)交換，這樣第1個數(shù)組元素是最小的數(shù)。再從第2個數(shù)開始，找出其后各數(shù)組元素中最小的數(shù)，將該數(shù)與第2個數(shù)交換位置，這樣第2個數(shù)是次小的數(shù)。如此重復(fù)上述過程，即可將數(shù)組排序。請完善以下的程序：

　　Option Base 1

　　Private Sub Command1_Click( )

　　　Dim a (1 To 10 ) As Integer , i As Integer , j As Integer , k As Integer

　　　For i=1 To 10

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

　　　Next i

　　　For i = 1 To 9

　　　　 【60】

　　　　For j = i + 1 To 10

　　　　　If  a ( k )  【61】  a ( j )  Then k = j

　　　　Next j

　　　　Temp = a (i )  :  【62】　:  a ( k ) = Temp

　　　Next i

　　　For i = 1 To 10

　　　　Print a ( i ) ,

　　　Next i

　　End Sub

【60】（A）k = 0　　　   （B）k = 1　　  　（C）k = i　　   �。―）k = j

【61】（A）=　　　　    （B）< >　　　   （C）<　　　　    （D）>

【62】（A）a (i) = a (j)　�。˙）a (j) = a (i)　　（C）a (k) = a (i)　　（D）a (i) = a (k)

10．   設(shè)有程序：

Option Base 1

Private Sub Command1_Click()

Dim arr1, Max as Integer

arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)

【12】 = arr1(1)

For i = 1 To 8

If arr1(i) > Max Then 【13】

Next i

Print "最大值是: "; Max

End Sub

以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。請?zhí)羁铡?/P>