1樓：
private sub command1_click()dim a asstring, b as integer, c as integer
a =inputbox("請輸入乙個字母", , "a")b = asc(a)
if b > 65 and b < 87 thenc = b + 4
elseif b >= 87 and b <= 90 thenc = 65 + (90 - b - 3)elseif b >= 97 and b < 119 thenc = b + 4
elseif b >= 119 and b <= 122 thenc = 97 + (122 - b - 3)end if
print chr(c)
end sub
變數a要接受的是字元，不能宣告成integer，還有輸入框也是要把字元變數賦值給a，故去掉val。
2樓：匿名使用者
你好!噯氣是由於脾胃濕熱,導致濁氣上逆所致,建議你用傳統中藥黑礬,黑棗,核桃仁,梔子,當歸,砂仁,厚朴,三稜,穿山甲, 寸曲,麥芽,上甲,下甲,紅花,海南沉,鐵膽粉,蜂膠,蜂蜜,蜂蠟**,可以快速**不**.這些藥物你在當地藥店即可買到,省錢,方便,奇效,實用.
希望你正確**,早日**!
你好，胃脹和肚子脹氣多是消化不良，胃腸運動慢造成的，也也許是胃炎的現象。建議服用葵花胃康靈，葵花胃康靈緩解胃部酸、脹、痛等不適症狀，又快又好，堅持服用可避免發展為老胃病。土豆芋頭粉絲粉條紅薯等涼粉等少食多餐定時進餐不要吃過於堅硬和不消化的食物.
病情分析：
女 17 噯氣七天 多見於胃部受涼 或者反流性食管炎造成膈肌痙攣.
明確** 合理**
也可暫時性考慮針對性的藥物**
如 抑制胃酸分泌和反流的藥物 奧美拉唑
一直迷走神經的藥物或者暫時性鎮靜藥物 舒樂安定
同時也可以針灸或者按揉內關穴 等
指導意見：
建議：避免胃部受寒受涼 忌食辛辣食物如生蔥 蒜等 也可以暫時性吃些生薑或者熬成薑汁
病情分析：
嗎丁啉.
很多人的噯氣是一種不良的習慣
指導意見：
並沒有什麼疾病.**可以參考神經衰弱.
有些人有胃病,主要 是注意保養.
病情分析：
還有其他感覺嗎?比如腹痛腹脹什麼的?
指導意見：
如果沒有,可能與近期產氣較多有關.吃些促進胃動力的藥吧,如嗎丁啉或莫沙比利.少吃產氣的食物,如栗子,地瓜什麼的.可以喝些酸奶,調節菌群,減少產氣.
病情分析：
噯氣乃口反食氣之病.又名噫氣.噯氣之病機,主要是脾胃不和,胃氣上逆所致.
胃為水谷之海,無物不受,若因飲食不調,起居不時,致脾胃陰陽不和,脾之清陽不公升,胃之濁陰不降,或胃中生痰生火,或脾胃虛衰,致使胃氣上逆而為噯氣.
指導意見：
飲食要定時定量,不宜過飽,避免辛辣,過鹹食物以及濃茶,濃咖啡等飲料,牛奶,豆漿不宜多飲
平時可以煲點湯喝：(潤肺,清熱,化痰：雪梨,銀耳,南北杏,豬骨湯).
(養胃,健脾去溼：薏公尺,茨實,百合煲骨頭).要少吃煎炸的食物,多吃新鮮的青菜和水果.
但不要吃一些濕熱助火的水
生活護理：
噯氣的注意事項：
1,患者當很好療養.避免暴怒多思,亦不得感受風寒.
2,飲食宜吃易消化食物.忌吃生冷粘膩及硬固食品.
VB橫排輸出數字
dim i as integer i 1 do while i 5500 print i i i 1 loop 這樣就可以 至於複製不太可能 因為窗體上的文字都是畫上去的 你要能複製 你不如將內容 放入text文字框中 列印到窗體上 無法複製 dim i as integer i 1 do whil...
怎樣讓字串按ASCII碼排序
聊芳敬帥 ascii碼採用7位二進位制位元編碼，可以表示128個字元。最小的ascii碼是0000000 二進位制 最大的是1111111 二進位制 在你需要的地方呼叫如下過程,如 string newstring mysort 引數 private string mysort string str...
如何在vb中計算所有字元的ascii碼之和並顯示
網海1書生 都怪提問者沒有把問題說清楚，按我的理解，提問者的意思是拿出一段文字，然後計算這段文字中所有字元的ascii碼之和，如果只是計算所有字元的ascii碼之和，那麼只要用個簡單迴圈就可搞定，我想提問者不會連這點都不懂吧？所以樓上兩位都可能理解錯了。ss 這裡是一段要計算ascii碼總和的文字a...