vb中我想在文字框中輸入某個數,然後按enter鍵之後,呼叫function

時間 2021-08-30 10:29:12

1樓:聽不清啊

private sub command1_click()dim x as long

x = text1

yes = true

for i = 2 to sqr(x)

if x mod i = 0 then

yes = false

exit for

end if

next i

if yes then

label1.caption = x & " 是一個素數"

else

label1.caption = x & " 不是一個素數"

end if

end sub

private sub text1_keypress(keyascii as integer)

if keyascii = 13 thencall command1_click

end if

end sub

2樓:數學與計算機程式設計

private sub command1_click()

if int(val(text1.text)) <> val(text1.text) or val(text1.

text) <= 0 or val(text1.text) > 2147483647 then

msgbox "資料錯誤!"

elseif val(text1.text) = 1 then

label1.caption = text1.text + "不是素數。"

else

if isprimenumber(val(text1.text)) then

label1.caption = text1.text + "是素數。"

else

label1.caption = text1.text + "不是素數。"

end if

end if

text1.setfocus

end sub

private function isprimenumber(byval n as long) as boolean

isprimenumber = true

for i = 2 to sqr(n)

if n mod i = 0 then

isprimenumber = false

exit for

end if

next i

end function

private sub form_load()

command1.default = true

end sub

vb程式設計題目 急求答案!!**等!! 在文字框1中輸入一個正整數,在文字框1中按回車鍵表示結束輸入 10

3樓:兄弟連教育北京總校

private sub command1_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

4樓:匿名使用者

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

vb程式設計,設計一個程式,在文字框裡輸入一個三位數,單擊窗體,在窗體中輸出這個三位數的個位數十位數百

5樓:匿名使用者

dim str as string = ""

dim n as integer

dim gewei, shiwei, baiwei as integer

n = val(text1.text)

gewei = n mod 10

shiwei = (n \ 10) mod 10baiwei = n \ 100

str = "這個數的個位數字是 " & gewei & " 十位數字是 " & shiwei & " 百位數字是 " & baiwei

text2.text = str

執行結果:

這個數的個位數字是 3 十位數字是 2 百位數字是 1

6樓:岔路程式緣

private sub form_click()dim a as integer, b as integer, i as integer

if text1 <> "" then

a = val(text1)

if a < 100 or a > 999 then goto 1234

else

1234

msgbox "請在文字框中輸入一個三位數字!", vbokonly + vbcritical

text1.text = ""

text1.setfocus

exit sub

end if

b = a

form1.cls

print "個位數、十位數、百位數分別是:"

for i = 1 to 3

print b mod 10; space(5);

b = b \ 10

next

end sub

已經執行過。

執行結果:

c#:在文字框中輸入資訊後,按回車鍵,怎樣使游標跳到下一個文字框中

7樓:匿名使用者

監控下keydown事件,在此事件中檢測如果按下了回車鍵,則textbox2.focus();

8樓:軒轅海鋒

贊同樓上的。如果是伺服器控制元件的話,還可以直接設定控制元件屬性

在VB中,如何使文字框能夠使輸入多行文字

在vb中,設定文字框的multiline 屬性為true,就能使使文字框能夠輸入多行文字。multiline 屬性 返回或設定一個值,該值指示 textbox 控制元件是否能夠接受和顯示多行文字。在執行時是隻讀的。 中原一點紅先生 僅僅設定multiline屬性是沒用的。還要在輸出的時候用控制符設定...

vb系統中,在兩個文字框中輸入範圍,計算該範圍中3的倍數有幾個

private sub command1 click if val text1.text val text2.text then t text2.text text2.text text1.text text1.text t for i val text1.text to val text2.tex...

中怎麼刪除文字框,而不刪除文字框中的文字

格式 文字框樣式 形狀輪廓 無輪廓,有圖可以看,這位主要是把輪廓刪除了 由穎 您的目的好像是要插入文字但卻不顯示文字框。可以右擊文字框,設定形狀格式 線條顏色 無線條。這樣的話,文字框就看不見啦 a真相背後 樓主的意思是,文字框中的文字可見,而文字框的邊界不可見,對不對呢?其實,那不叫刪除,而是隱藏...