循環(huán)結(jié)構(gòu)習(xí)題-資料下載頁
2025-08-15 21:43本頁面
【正文】 ? shuzi = shuzi + 1 ? Case Else ? qita = qita + 1 ? End Select ? Next i ? = zimu： = shuzi： = qita ? End Sub 統(tǒng)計問題（二） 輸入一個字符串，統(tǒng)計其中每個字母（不區(qū) 分大小寫）出現(xiàn)的頻率。 ? Private Sub Text1_KeyPress(KeyAscii As Integer) ? Dim str$, i%, ccstr$ ? Dim n(26) As Integer ? If KeyAscii = 13 Then ? str = ? For i = 1 To Len(str) ? ccstr = UCase(Mid(str, i, 1)) ? n(Asc(ccstr) 65 + 1) = n(Asc(ccstr) 65 + 1) + 1 ? Next i ? For i = 1 To 26 ? If n(i) 0 Then ? Chr(i + 65 1) amp。 出現(xiàn)了 amp。 n(i) amp。 次 ? End If ? Next i ? End If ? End Sub Private Sub Command1_Click() = End Sub ’清屏 是否已經(jīng)按下回車鍵得判斷 文本框得 keypress事件， keyascii為其參數(shù) ? 執(zhí)行下面的程序段后，輸出結(jié)果為 ____。 ? x = 5 ? For I = 1 To 20 Step 2 ? x = x + I \ 5 ? Next I ? Print x, I ? (A) 21 20 (B) 22 20 ? (C) 21 21 (D) 22 21 ? 以下程序段的輸出結(jié)果是 _______。 ? num =0 ? Do Until num2 ? num = num + 1 ? Loop ? Print num
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1