1樓：匿名使用者
if (len(txtsend) mod 3 = 0) or ((len(txtsend) + 1) mod 3 = 0) and len(txtsend) <> 0 then '檢驗16進製制字串長
next
if mscomm1.portopen = true thenmscomm1.output = sj
else
mscomm1.portopen = trueshape1.fillcolor = vbgreenmscomm1.output = sj
end if
else
msgbox ("格式不對!")
end if
這段**根本沒用啊，而且你把end sub上一條的end語句刪除就可以
2樓：匿名使用者
把**中的最後的那個end去掉，再看看
就是end
end sub
中，第一行的那個end
關於基本不等式,有一部不知道是自己算錯了,還是理解錯了
2sin 根號 3cos cos sin sin cos 根號7,其中cos 2 根號7,sin 根號3 根號7 2sin 根號3cos sin 內根號7 根據和角公容式 sin 1 2sin 根號3cos sin 根號7 根號7根號3 2sin 根號3cos 根號3 根號7 高中數學題,關於基本不...
有一首歌最近很火，但是不知道名字，求助各位大俠
歌曲 你是我今生最愛的人 歌手 宇桐非 與你同飛 你是我今生最愛的人 無法形容我愛你多深 每次酷型每個眼神 都為你而沉淪 你是我今生最愛的人 付出在多也不覺過份 每一句話都已深深注入 我靈魂 記得那次旅行 我們同處險境 本來陌生的心 變得那麼熟悉 感謝那崇雨 成全了我和你 怎能忘記堅挺的說著永遠不分...
我有個朋友最好的朋友走了想送一段話不知道說什麼好
莫愁前路無知己，天下誰人不識君。朋友你今天就要遠走，記下我的 人生何處不相逢，有緣自會再相聚。只願離別後的日子你能一切安好。閒來亦無事，別來常思君，不要忘了我這個老朋友。以後我混的好了 你來找我，你混的好了也希望你能拉我一把，含淚惜別，但願他日相逢。朋友要走了，說什麼話好呢 祝福,這個時候你只有祝福...