1樓：匿名使用者
sub ***mand1()
dim tmp as string
dim arr()
tmp=text1.text
tmp=replace(tmp,"－","-") 『預防中英文**混淆
if instr(tmp,"-")=0 then
msgbox "您輸入的格式不對！請重新輸入，要求有區回號"
exit sub
end if
arr=split(tmp,"-")
arr(1)=trim(arr(1)) '預防首尾空格的影答響
arr(1)=right((val(left(arr(1),1))+1),1) & right(arr(1),len(arr(1))-1)'此處預防加1變成10的情形，該情形直接取個位數0
arr(1)=6 & arr(1)
lable1.caption=arr(0) & "-" & arr(1)
end sub
vb程式設計題目 急求答案！！**等！！ 在文字框1中輸入一個正整數，在文字框1中按回車鍵表示結束輸入 10
2樓：兄弟連教育北京總校
private sub ***mand1_click() '呼叫bai實du例zhi
dim str as string
msgbox return_str(5)
end sub
private function return_str(number as integer) as string '通用
dao函回數答
dim str as string
for i = 1 to number
dim str_temp as stringstr_temp = ""
' msgbox str_temp
for j = 1 to i
str_temp = str_temp & cstr(i)next
str = str & str_temp
next
return_str = str
end function
3樓：匿名使用者
dim n as integer
private sub text1_keypress(keyascii as integer)
if keyascii = 13 thenn = 0
dim s as string
s = text1.text
for i = 1 to len(s)
if val(mid(s, i, 1)) mod 2 <> 0 then
n = n + 1
end if
next i
text2.text = n
end if
end sub
一道c語言程式設計題急求答案，一道C語言程式設計題 急求答案
最簡單的排序方法是氣泡排序方法。這種方法的基本思想是，將待排序的元素看作是豎著排列的 氣泡 較小的元素比較輕，從而要往上浮。在氣泡排序演算法中我們要對這個 氣泡 序列處理若干遍。所謂一遍處理，就是自底向上檢查一遍這個序列，並時刻注意兩個相鄰的元素的順序是否正確。如果發現兩個相鄰元素的順序不對，即 輕...
急求一道數學題，急求一道數學題答案！！！
你好用度表示後是13.31 需要掌握理解的是度分秒之間的換算關係。三者之間的換算單位是60.於是36 0.6 18.6 0.31 最後加到一起是13.31 13.31 13.4度 18分 0.3度 36秒 0.1度 急求一道數學題答案！答案 1 解 由已知可得 x 2 x 1 原式 x 2 2 x ...
求一道歷史題答案,急求一道歷史題目的答案！！！
c.從題目中的積蓄可以看出是資本積累。大抵徽商 其所積蓄,則十一在內,十九在外。我試著翻譯一 下 內大多數的徽商.他們的 容積蓄 可以理解為經營的貨物，因為似乎還有上半句講人的，下半句應該對應的是囤積的貨物啦 十分之一來自內部，十分之九來自外部。所以 應該選d 想想如果僅僅經營自己當地所產的東西，經...