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真相背後 樓主的意思是,文字框中的文字可見,而文字框的邊界不可見,對不對呢?其實,那不叫刪除,而是隱藏...