循環(huán)結(jié)構(gòu)習(xí)題(參考版)
2024-08-26 21:43本頁面
【正文】 ? num =0 ? Do Until num2 ? num = num + 1 ? Loop ? Print num 。 次 ? End If ? Next i ? End If ? End Sub Private Sub Command1_Click() = End Sub ’清屏 是否已經(jīng)按下回車鍵得判斷 文本框得 keypress事件， keyascii為其參數(shù) ? 執(zhí)行下面的程序段后，輸出結(jié)果為 ____。 出現(xiàn)了 amp。統(tǒng)計(jì)按鈕的事件過程 ? Dim str As String： Dim zimu As Integer： Dim shuzi As Integer ? Dim qita As Integer： Dim i As Integer： Dim ccstr As String * 1 ? zimu = 0： shuzi = 0： qita = 0 ? str = ? For i = 1 To Len(str) ? ccstr = Mid(str, i, 1) ? Select Case ccstr ? Case A To Z, a To z ? zimu = zimu + 1 ? Case 0 To 9 ? shuzi = shuzi + 1 ? Case Else ? qita = qita + 1 ? End Select ? Next i ? = zimu： = shuzi： = qita ? End Sub 統(tǒng)計(jì)問題（二） 輸入一個(gè)字符串，統(tǒng)計(jì)其中每個(gè)字母（不區(qū) 分大小寫）出現(xiàn)的頻率。 號(hào)的得分最高，為 amp。 ? If i Mod 5 = 0 Then Print ? If cj max Then max = cj: maxn = i ? Next i ? Print ? Print 第 amp。 同學(xué)的成績(jī) )) ? Print cj amp。 例如：輸入 85， 74， 62， 37， 98， 77， 65，77， 69， 81 顯示： 5號(hào)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1