1樓：_弒灬月
私有次級ezhh_click ()
picture1.cls
text4.text = 「二值化中」
for x0 = 0對picture3.width
for y0 = 0對picture3.height
c = picture3.point (x0， y0)
red = (c和&hff)
green = (c和65280)/256
blue = (c和&hff0000)/65536
graycolor = (紅色+綠色+藍色)/3
if graycolor < 147然後
t = 0
else
t = 255
end，如果
picture4.pset (x0， y0)， rgb (t， t， t)
doevents
next
next
text4.text = 「二值化完畢」
end潛水艇
private次級gyh_click ()
picture2.width = 2023年
picture2.height = 2023年
picture2.paintpicture picture1.picture， 0， 0， picture5.
width， picture5.height， 0， 0， picture1.width， picture1.
height
text2.text = 「歸一化完畢」
end潛水艇
private次級hdh_click ()
text3.text = 「灰度化中」 作為整數的dim紅色 作為整數的dim綠色 作為整數的dim藍色
dim c作為長期
dim graycolor作為長期 作為整數的dim x0 作為整數的dim y0
for x0 = 0對picture2.width
for y0 = 0對picture2.height
c = picture2.point (x0， y0)
red = (c和&hff)
green = (c和65280)/256
blue = (c和&hff0000)/65536
graycolor = (紅色+綠色+藍色)/3
picture3.pset (x0， y0)， rgb (graycolor、graycolor， graycolor)
doevents
next
next
text3.text = 「灰度化完畢」
end潛水艇
private次級open_click ()
text2.text = 「歸一視窗」
text3.text = 「灰度視窗」
text4.text = 「二值視窗」
text5.text = 「識別視窗」
on其次錯誤簡歷
commondialog1.dialogtitle = 「開啟檔案」
commondialog1.filter = 「所有支援的格式
commondialog1.showopen 然後if commondialog1.filename ""
if然後犯錯32755 作為串的dim openfilename
openfilename = commondialog1.filename
picture1.picture = loadpicture (openfilename)
end，如果
end，如果
text1.text = 「開啟**」
if image.height 1935然後
image.height = 2023年
end，如果
if image.width 1695然後
image.width = 2023年
end，如果
end潛水艇
2樓：vb綠手
為何不發到vb裡去？
高分求助！幫忙翻譯一下這段vb程式**的中文意思
誰幫我翻譯一下下面這個vb程式每一部的意思？
3樓：孫阿武
public h as long
private sub c0_click()a = val(c0.caption)
fac(a)
end sub
private sub c1_click()a = val(c1.caption)
fac(a)
end sub
private sub c2_click()a = val(c2.caption)
fac(a)
end sub
private sub c3_click()a = val(c3.caption)
fac(a)
end sub
private sub c4_click()a = val(c4.caption)
fac(a)
end sub
private sub c5_click()a = val(c5.caption)
fac(a)
end sub
private sub c6_click()a = val(c6.caption)
fac(a)
end sub
private sub c7_click()a = val(c7.caption)
fac(a)
end sub
private sub c8_click()a = val(c8.caption)
fac(a)
end sub
private sub c9_click()a = val(c9.caption)
fac(a)
end sub
'點選以上按鈕,會將以上按鈕傳遞給t1或t2文字框的未尾.
private sub cheng_click()js.caption = cheng.captiont1.enabled = false
end sub
private sub chu_click()js.caption = chu.captiont1.enabled = false
end sub
private sub command1_click()form4.hide()
end sub
private sub dengyu_click()x = val(t1.text)
y = val(t2.text)
'將兩個文字框的內容轉換為兩個數值.
if js.caption = "×" thens = x * y
t3.text = s
elseif js.caption = "+" thens = x + y
t3.text = s
elseif js.caption = "-" thens = x - y
t3.text = s
elseif js.caption = "÷" thenif y = 0 then
msgbox "被除數不能為「0」"
else
s = x / y
end if
t3.text = s
end if
'根據運算子的情況,將結果值填充.
'並且初始化運算環境.準備進行下一步的運算.
h = val(t3.text)
js.caption = ""
t1.enabled = true
t1.text = ""
t2.text = ""
end sub
'點選點按鈕,加上小數點.
private sub dian_click()a = dian.caption
if t1.enabled = true thent1.text = t1.text + aelse
t2.text = t2.text + aend if
end sub
'點選加減運算子,可以將運算子送到運算子標題上.
private sub jia_click()js.caption = jia.captiont1.enabled = false
end sub
private sub jian_click()js.caption = jian.captiont1.enabled = false
end sub
'用以將資料按鈕的值新增到已經有的資料未尾.
function fac(byval a as double)if t1.enabled = true thent1.text = t1.text + trim(a)else
t2.text = t2.text + trim(a)end if
end function
'轉移數值到二進位制.
public function dectobin(byval dec as long) as string
dectobin = ""
do while dec > 0
dectobin = (dec mod 2) & dectobindec = dec \ 2
loop
end function
'將二進位制轉移為十進位制.
public function dectooct(byval dec as long) as string
dectooct = ""
do while dec > 0
dectooct = (dec mod 8) & dectooctdec = dec \ 8
loop
end function
'清除按鈕,對環境進行初始化.
private sub qc_click()t3.text = ""
t1.text = ""
t2.text = ""
end sub
'進行移位操作,清除最後乙個輸入的內容.
private sub sc_click()if t1.enabled = true thent1.text = trim(val(t1.text) \ 10)else
t2.text = trim(val(t2.text) \ 10)end if
end sub
請幫忙翻譯一下這段日語吧，請幫忙翻譯一下這段日語。。。
去面試了。首先要從1月到3月在學校工作。可是學校讓我做了我完全不懂的足球部顧問。說真的有點不安。但是，也在努力，那麼我也努力去做好了。你的身體變好了呢，我很高興。的努力我是知道的，所以更加愉快的這樣做下去吧。即使入秋了也是很熱呢，現在也是天熱的時候。在日本今天稍微有點冷。明天也會有些冷吧 我在下週二...
幫忙翻譯一下這段英語，幫忙翻譯一下這段日文
據我所知，老外們對這句話，有下面這兩種較常見的理解 1.最多老外認為這是與 有關。他們認為句中的 black 是指黑人，而 never come back 就是指不再願意跟自己原來族群的人交往。所以句子的意思是 你一旦跟黑人好過，便再難滿意其他人的表現。若要淡化這方面的含意，可以把它譯為 你一旦嚐過...
幫忙翻譯一下這段文字，幫忙翻譯一下這段文字
翻譯了好久 0 如下 很久沒來空間寫日記了。要說的太多，不知道從何說起。最近有很多麻煩，見到很多人。也許生活就是這樣，這樣一天天地過去。我從沒想到自己為什麼常常憂慮，也許我錯了，生活應該是美好的，快樂的 突然發覺我和一些人的改變是對過去的不忠，大概是生活在改變我們。時間真的會讓一切改變，而我沒有知道...