實驗6數(shù)組程序設計(編輯修改稿)
2025-07-11 17:36 本頁面
【文章內(nèi)容簡介】 ion 輸入短語 Font 小四、粗體 命令按鈕 1（ 1） Name cmdOperate Caption 加 密 Font 小四、 粗體 命令按鈕 1（ 2） Name cmdOperate Caption 解 密 圖 67 加密解 密 窗體界面 97 Font 小四、粗體 命令按鈕 1（ 3） Name cmdOperate Caption 退 出 Font 小四、粗體 3． 添加代碼 Option Explicit Dim sPhrase As String, sEncrypted As String 39。說明共用變量 Dim iLen As Integer Private Sub cmdOperate_Click(Index As Integer) 39。其中 Index參數(shù)是命令按鈕下標，系統(tǒng)會自動產(chǎn)生。 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。計算長度 ElseIf Index = 1 Then sEncrypted = 39。變量初始化 For x = 1 To iLen 39。加密 sCurrent = Mid(sPhrase, x, 1) sNew = Chr(Asc(sCurrent) + 2) sEncrypted = sEncrypted amp。 sNew Next x MsgBox sEncrypted, vbExclamation, 加密的短語 39。輸出加密結(jié)果 ElseIf Index = 2 Then For x = 1 To iLen sCurrent = Mid(sEncrypted, x, 1) 39。解密 sNew = Chr(Asc(sCurrent) 2) sDecrypted = sDecrypted amp。 sNew Next x MsgBox sDecrypted, vbExclamation, 解密的短語 39。輸出解密結(jié)果 Else Unload Me End If End Sub 4． 保存文件， 調(diào)試運行， 結(jié)果參見圖 68。 98 圖 68 輸入、加密、解密對話框 思考： 若要使 YZ和 yz加密變?yōu)?AB和 ab， 即 最后兩個字母加密變成前兩個字母而不是其它的符號，解 密與此反之即可。該怎樣修改程序？ 實驗 實驗任務： 編 程提供有關旅游線路、出行方式以及相應價格。旅游線路有三條，每一條旅游線都提供兩種出行方式，且對應的價格不同，具體數(shù)據(jù)見下表。 要求： 三條旅游線路的選擇用一組選項按鈕（單選按鈕）實現(xiàn)；當選中某條線路時，出現(xiàn)與這條線路相關的兩種出行方式；選中具體的出行方式后，顯示出對應的價格。 旅游線路 出行方式 價格（元 /人） 南京 青島 大連 雙臥 6日游 1580 單飛 5日游 1880 南京 三峽 重慶 單飛 7日游 1880 輪船 12日游 1280 南京 杭州 普 陀 汽車 5日游 780 雙飛 3日游 1080 99 提示： 由于 三條旅游線路共對應六種出行方式，當選中某條線路時，只能出現(xiàn)與這條線路相關的兩種出行方式，另外四種出行方式要隱藏起來。所以將六種出行方式分為三組，每次出現(xiàn)其中的一組，隱藏其它兩組。 實驗步驟 ： 1． 在窗體上放置一個標簽框，一個圖象框（ PictureBox）和一個命令按鈕； 2． 放置框架 1（ Frame 控件），在框架中用控件數(shù)組的方式產(chǎn)生一組（三個）單選按紐，用來提供旅游線路。 3． 放置框架 2（ Frame 控件），在框架中用控件數(shù)組的方式產(chǎn)生一組（兩個）單選按紐，用來提供第一條旅游線路所對應的出行方式。選 中 框架 2，對其進行兩次復制、粘貼操作（框架中的單選按鈕會一同被復制），既產(chǎn)生一組（三個）框 架控件數(shù)組；這三個框架中的六個單選按鈕，也自動形成一組控件數(shù)組（ 圖 69） 。將各個控件的屬性設計好后，把旅游方式三個框架重疊在一起，運行界面效果如圖 610所示 。 注意，通過對框架 2控件數(shù)組的可見性（ Visible）屬性的不同設置，就可以控制某一個框架出現(xiàn)，而另兩個隱藏起來。 圖 69 窗體設計時的界面 100 4． 屬性設置 控件 屬性 設置值 窗體 1 Caption 旅游咨詢 標簽框 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 ’ 按匹配條件選定旅游方式的框架可見 Frm
畢業(yè)設計相關推薦
鄂ICP備17016276號-1