【正文】 處理方法同上，比較結(jié)束后，這 N個數(shù)按從小到大的次序排列好。 實驗步驟： 1． 完善代碼 Private Sub Form_click() Dim rndArray(10) As Integer Dim i As Integer， j As Integer， temp As Integer Randomize ’隨機語句 Print 排序前： For i = 1 To 10 rndArray(i) = Int(90 * Rnd + 10) ’Rnd隨機函數(shù) Print rndArray(i)。 Next i Print End Sub 2． 保存文件， 調(diào)試 運行。 要求 （ 1）按照原字母 ASCII 碼加 2的規(guī)則進(jìn)行加密。（ 3）用 InputBox從鍵盤輸入短語；加密和解密的結(jié)果用 MsgBox輸出。編制代碼時用 IFThenElse 對控件數(shù)組的下標(biāo)（ Index）進(jìn)行判 斷，以便執(zhí)行相應(yīng)的操作。形成控件數(shù)組 ， 見圖 67。說明共用變量 Dim iLen As Integer Private Sub cmdOperate_Click(Index As Integer) 39。 Dim sCurrent As String, sNew As String Dim sDecrypted As String Dim x As Integer If Index = 0 Then sPhrase = InputBox(請輸入短語 , 短語將被加密 ) iLen = Len(sPhrase) 39。變量初始化 For x = 1 To iLen 39。 sNew Next x MsgBox sEncrypted, vbExclamation, 加密的短語 39。解密 sNew = Chr(Asc(sCurrent) 2) sDecrypted = sDecrypted amp。輸出解密結(jié)果 Else Unload Me End If End Sub 4． 保存文件， 調(diào)試運行， 結(jié)果參見圖 68。該怎樣修改程序？ 實驗 實驗任務(wù)： 編 程提供有關(guān)旅游線路、出行方式以及相應(yīng)價格。 要求： 三條旅游線路的選擇用一組選項按鈕（單選按鈕）實現(xiàn)；當(dāng)選中某條線路時，出現(xiàn)與這條線路相關(guān)的兩種出行方式；選中具體的出行方式后，顯示出對應(yīng)的價格。所以將六種出行方式分為三組，每次出現(xiàn)其中的一組，隱藏其它兩組。 3． 放置框架 2（ Frame 控件），在框架中用控件數(shù)組的方式產(chǎn)生一組（兩個）單選按紐，用來提供第一條旅游線路所對應(yīng)的出行方式。將各個控件的屬性設(shè)計好后，把旅游方式三個框架重疊在一起，運行界面效果如圖 610所示 。 圖 69 窗體設(shè)計時的界面 100 4． 屬性設(shè)置 控件 屬性 設(shè)置值 窗體 1 Caption 旅游咨詢 標(biāo)簽框 1 Caption 價格 Font 小四、粗斜體 圖象框 1 Name PctPrice Font 小四、粗體 框架 1 Name FrmRoad Caption 旅游線路 單選按鈕 1（ 0） Caption 南京 青島 大連 Font 小四、斜體、華文彩云 單選按鈕 1（ 1） Caption 南京 三峽 重慶 Font 小四、斜體、華文彩云 單選按鈕 1（ 2） Caption 南京 杭州 普佗 Font 小四、斜體、華文彩云 框架 2（ 0） Name FrmWay Caption 旅游方式 Visible True 框架 2（ 1） Name FrmWay Caption 旅游方式 Visible false 框架 2（ 2） Name FrmWay Caption 旅游方式 Visible false 單選按鈕 2（ 0） Caption 雙臥 6 日游 圖 610 窗體運行時的界面 101 單選按鈕 2（ 1） Caption 單飛 5 日游 單選按鈕 2（ 2） Caption 單 飛 7 日游 單選按鈕 2（ 3） Caption 輪船 12 日游 單選按鈕 2（ 4） Caption 汽車 5 日游 單選按鈕 2（ 5） Caption 雙飛 3 日游 命令按鈕 1 Name cmdExit Caption 退 出 5． 添加代碼 Option Explicit Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 FrmWay(0).Visible = True ’ 按匹配條件選定旅游方式的框架可見 FrmWay(1).Visible = False ’ 不匹配的框架不可見 FrmWay(2).Visible = False ’ 圖象框清屏 Option2(0).Value = False ’ 單選按鈕初始化 Option2(1).Value = False Case 1 FrmWay(1).Visible = True FrmWay(0).Visible = False FrmWay(2).Visible = False Option2(2).Value = False Option2(3).Value = False Case 2 FrmWay(2).Visible = True FrmWay(0).Visible = False FrmWay(1).Visible = False Option2(4).Value = False Option2(5).Value = False End Select End Sub Private Sub Option2_Click(Index As Integer) Select Case Index Case 0 102 1580 元 /人 Case 1