急求一道vb程式設計題答案求幫忙,急求一道VB程式設計題答案!!!!!求幫忙!!!!

2021-03-03 21:21:08 字數 1450 閱讀 1453

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 想想如果僅僅經營自己當地所產的東西,經...