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中怎麼將文字框中的內容寫入陣列中
private sub command1 click dim a as string a split text1.text,for i 0 to ubound a print a i next end sub 意思是 將文字框裡面的內容以 逗號 處隔開 輸出到窗體上 先定義一個陣列,再用一個for迴...
中如插入文字框,如何刪除文字框的邊框
呵呵 這個我到常用 你只需對著文字框邊線雙擊，在彈出的話框裡的 顏色和線條 裡 顏色 一處選成白色的即可。在外框上單擊右健，將線條一欄的顏色選為無線條顏色，就ok了。選擇 邊框和底紋 在裡邊進行相關的設定 裝文字框的邊框設定為透明即可 在文字框上右擊 文字框屬性 填充設為無顏色即可 word裡如何刪...
文字框中的文字怎樣才能不隨文字框大續變化
word 不支援此功能 通過文字框的調整，來實現段落自動重排，是 word 的智慧功能 要實現這種效果，只能通過兩種方法間接實現。方法1 手工換行 假設初始狀態如圖 直接拖動文字框後，文字會重新排布，如下圖 如需避免上述結果，可以在需要的位置，加入換行符 注意每行文字最後的標記 就可以了。如下 方法...