幫我寫乙個程式！ 很緊急！！

在表單中放置乙個按鈕和 2 個文字框，執行時在 text1 中輸入資訊，單擊按鈕後在 text2 中檢視輸出結果。

private sub command1_click()dim sfor i = 1 to len(text1)n = asc(mid(text1, i, 1))if n >= asc("a") and n <= asc("z") then s = s & chr(n - 32) else _

if n >= asc("a") and n <= asc("z") then s = s & chr(n + 32) else s = s & "*"

nexttext2 = s

end sub

只需新增乙個文字框

然後你可以直接在裡面輸入它來檢視效果。

private sub text1_keypress(keyascii as integer)

if keyascii >= 97 and keyascii <= 122 then

keyascii = keyascii - 32elseif keyascii >= 65 and keyascii <= 90 then

keyascii = keyascii + 32elsekeyascii = 42

end if

end if

end sub

試試我的！ 將文字控制項新增到窗體中，並在其按鍵事件下寫入以下內容

private sub text1_keypress(keyascii as integer)

select case keyascii

case 97 to 122: keyascii = keyascii - 32 'lowercase to capital

case 65 to 90: keyascii = keyascii + 32 'capital to lowercase

case else: keyascii = asc("*") 'else all out "*"

end select

end sub

新增文字框。

dim m, i, n as stringprivate sub text1_keypress(keyascii as integer)

m = cstr(keyascii)

if m >= 65 and m <= 90 thenm = m + 32

n = chrw(m)

print n;

elseif m >= 97 and m <= 122 thenm = m - 32

n = chrw(m)

print n;

elseprint "*";

end if

end if

end sub

如果你不明白，或者不能來找我。 ）

幫我寫乙個程式！ 很緊急！！

賞金積分：30 - 14 天 23 小時，直到問題結束。

編寫大寫和小寫字母自動轉換程式，輸入小寫字母時會自動轉換為大寫字母，輸入大寫字母時會自動轉換為小寫字母，輸入其他字元時顯示“*”

這麼晚了我還在做功課。

解：設 a 為 x，則 b 為 40 x。

有兩種方案：7x 3 （40 x） 226 和 4x 10 （40 x） 250

由等式1：x，即野磨總和為26整塊，西紅柿需要224kg A和244kg B;

由等式 2 可循：x 25，A 需要 226kg，B 需要 250kg;

也就是說，A26片和B14片的解決方案很好，因為任務完成，原材料節省，成本會低。

知道專家組成員會為您解答！ 舉手表達你的感激和關注！

在此表示衷心的感謝！

祝你在學業上取得進步，夢想成真！

由 yanjunmin888 自豪地製作。