Access97を使用しております。
現在↓のような形で禁止文字を設定しておりますが、大英字全角のAでも
小英字半角のaでも全て禁止文字として認識されてしまいます。
>>たぶんUnicodeのせいだと・・・(泣)
これを例えば小半角英字の「a」のみを禁止文字として認識させるにはどの
ような方法があるのでしょうか?ご教授お願い致します。
Dim R As Integer
Dim strChk As String
Dim strMoji As String
'禁止文字チェック
strMoji = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
Me.txtMsg = ""
For R = 1 To Len(Me.内容)
strChk = Mid$(Me.内容, R, 1)
If InStr(strMoji, strChk) <> 0 Then
Me.txtMsg = "入力禁止文字「 " & strChk & " 」が使用されています。"
Exit Sub
Exit For
End If
Next R
cobol言語のスクールにかよっていますがわからないのでおしえてください。
素数判定プログラムなのですが(ある数が割り切れたとき、素数ではない
割り切れなければ素数)
途中から
PERFOM KEISAN UNTIL OWARI = "N".
DISPLAY SPACE.
STOP RUN.
KEISAN.
MOVE SPACE TO H-ATAI.
ACCEPT H-ATAI AT 0436.
MOVE H-ATAI TO ATAI.
PERFORM KEISAN2 VARYING N
FROM 2 BY 1 UNTIL N > ATAI - 1.
<==ここに1回でも割り切れたとき
DISPLAY KOTAE AT 0535. 判定する言語をおしえて
ACCEPT OWARI AT 1045. この文だと全部「素数」と、
KEISAN2. 出てしまうのですが。
DIVIDE ATAI BY N GIVING HENSU REMAINDER AMARI.
IF AMARI = 0
MOVE "素数ではありません" TO KOTAE
ELSE
MOVE "素数です"TO KOTAT.
お願いします。
cobol言語のスクールにかよっていますがわからないのでおしえてください。
素数判定プログラムなのですが(ある数が割り切れたとき、素数ではない
割り切れなければ素数)
途中から
PERFOM KEISAN UNTIL OWARI = "N".
DISPLAY SPACE.
STOP RUN.
KEISAN.
MOVE SPACE TO H-ATAI.
ACCEPT H-ATAI AT 0436.
MOVE H-ATAI TO ATAI.
PERFORM KEISAN2 VARYING N
FROM 2 BY 1 UNTIL N > ATAI - 1.
<==ここに1回でも割り切れたとき
DISPLAY KOTAE AT 0535. 判定する言語をおしえて
ACCEPT OWARI AT 1045. この文だと全部「素数」と、
KEISAN2. 出てしまうのですが。
DIVIDE ATAI BY N GIVING HENSU REMAINDER AMARI.
IF AMARI = 0
MOVE "素数ではありません" TO KOTAE
ELSE
MOVE "素数です"TO KOTAT.
お願いします。
cobol言語のスクールにかよっていますがわからないのでおしえてください。
素数判定プログラムなのですが(ある数が割り切れたとき、素数ではない
割り切れなければ素数)
途中から
PERFOM KEISAN UNTIL OWARI = "N".
DISPLAY SPACE.
STOP RUN.
KEISAN.
MOVE SPACE TO H-ATAI.
ACCEPT H-ATAI AT 0436.
MOVE H-ATAI TO ATAI.
PERFORM KEISAN2 VARYING N
FROM 2 BY 1 UNTIL N > ATAI - 1.
<==ここに1回でも割り切れたとき
DISPLAY KOTAE AT 0535. 判定する言語をおしえて
ACCEPT OWARI AT 1045. この文だと全部「素数」と、
KEISAN2. 出てしまうのですが。
DIVIDE ATAI BY N GIVING HENSU REMAINDER AMARI.
IF AMARI = 0
MOVE "素数ではありません" TO KOTAE
ELSE
MOVE "素数です"TO KOTAT.
お願いします。