vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(參考版)
2025-01-15 20:57本頁面
【正文】 譯碼在“譯文”文本框中顯示 inf = 大寫字母個數(shù)： + Str$(lettercap) + Chr$(13) +chr$(10) + 小寫字母個數(shù)： + Str$(letterlow) + Chr$(13) +chr$(10) + 單詞個數(shù)： + Str$(word + 1) + Chr$(13) +chr$(10)+ 其它字符個數(shù)： + Str$(other) MsgBox inf, 0 + 64, 譯文統(tǒng)計信息 End Sub 。譯碼連接到字符串 tra orip = Mid$(ori, n, 3) 39。其它字符計數(shù) other = other + 3 Else If trap 9 Then other = other + 2 Else other = other + 1２２ 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 End If End If End If End If End If Else trap = orip 39。單詞計數(shù)，因為空格分隔單詞 other = other + 1 39。字符 oripASCII碼值為 0即原值為“ 000” trap = 39。非字母 trap = Asc(orip) 39。計小寫字母的個數(shù) Else If orip = A And orip = Z Then trapn = Asc(orip) 65 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 65 1) lettercap = lettercap + 1 39。確定下一次取字符的位置 If Val(orip) = 0 And Val(orip) = 255 Then 39。去掉“原文”文本框字符串右邊的空格，賦值給變量 ori orip = Mid$(ori, n, 3) 39。 r n = n \ 10 Wend End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 譯碼器 ——密碼檢測窗體設(shè)計 案例 ——譯碼器 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 譯碼器 ——密碼檢測窗體設(shè)計 ?添加窗體：工程 ||添加窗體 ?密碼框?qū)傩裕?PasswordChar * ?代碼 Dim n As Integer ‘ 定義 n為窗體級變量，用于累計驗證密碼的次數(shù) Private Sub cmdok_Click() Const password = 061216 Const name = santa n = n + 1 If n = 3 Then 39。 Next j 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 補充例題 ?譯密碼 : 字母翻譯：按 26個字母排列順序向后移動 n位，若移出了最后一個則移到字母 a或 A并順序往后移 例：今天是 28號， a 向后移動 28位 abcdefghijklmnopqrstuvwxyz 28 25 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 補充例題代碼 If ch = a And ch = z Then asch = Asc(ch) 97 + 1 ‘在 26個小寫字母中的位置 trap = Chr$(( asch + n ) Mod 26 + 97 1) ?求出按規(guī)則轉(zhuǎn)換后的字符 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 補充例題 題目要求：輸入一行數(shù)字，按相反的順序輸出。 Next j Print Next i End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 實例 第 1行： 1個 1， 25 第 2行： 2個 1， 24 第 3行： 3個 1， 23 …… 第 5行： 5個 1 第 個 ， 2~n 第 個 ， 2~n1 第 個 ， 2~n2 ……第 n行： n個 第ｉ行：ｉ個１， 2~n(i1) Yes 打印第 i行 i=n i =i+ 1 打印 1 打印 2~ni+1 For j = 1 To i Print 1。 Next j Print Next i 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 問題 ? 如果是 n行圖形 ，程序應(yīng)如何修改？ ① 每行“ * ”輸出的位置？ ② 奇數(shù)和偶數(shù)輸出的圖形有何不同？ 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計 補充例題 例：請輸入 n值，編寫程序輸出下列圖形（例如 n=5） . 1 2 3 4 5 1 1 2 3 4 1 1 1 2 3 1 1 1 1 2 1 1 1 1 1 第 1行： 1個 1， 25 第 2行： 2個 1， 24 第 3行： 3個 1， 23 …… 第 5行： 5個 1 第 個 ， 2~n 第 個 ， 2~n1 第 個 ， 2~n2 ……第 n行： n個 第一章 第二章 第三章 第四章
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1