1樓:匿名使用者
這些問題並不難,簡直可以說是死
但真的很麻煩,第200章人回答
真的想要的答案不妨學學,我相信你是認真的閱讀一小時這些問題都可以做
vb編寫乙個關於階乘的程式,
2樓:寒林夢沙
來不及寫,教你怎麼做吧
先把文字框的讀取轉存成整數
對這個整數用if判斷
不滿足條件用msgbox提示
滿足條件的話,呼叫函式,引數就是那個整數,返回值就是結果。
3樓:melody丶丨
剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1_click()dim dat1 as variant
dim sum as variant
dim i as integer
dat1 = val(text1.text)sum = 1
if dat1 <= 0 then
msgbox "請重新輸入", vbexclamation + vbokonly, "提示"
else
for i = 1 to dat1
sum = sum * i
next i
text2.text = cstr(sum)end if
end sub
private sub command2_click()endend sub
private sub form_load()label1.caption = "輸入資料"
label2.caption = "階乘"
command1.caption = "計算"
command2.caption = "退出"
text1.text = ""
text2.text = ""
end sub
vb程式設計:編寫乙個窗體程式,窗體中有乙個文字框,要求在文字框中只能輸入整數 30
4樓:匿名使用者
這段**你參考下吧 這是只能輸入數 連小數點也不輸入喲 經過驗證是沒有問題的 在**裡加入以下一段 其中txtscore改為你的text控制項的名字
private sub txtscore_change() 'text框的change事件裡
dim str as string
str = txtscore.text
for i = len(txtscore.text) to 1 step -1
if asc(mid(txtscore.text, i, 1)) < asc("0") or asc(mid(txtscore.text, i, 1)) > asc("9") or asc(mid(txtscore.
text, i, 1)) = asc(".") then
str = replace(str, mid(txtscore.text, i, 1), "")
end if
next
txtscore.text = str
txtscore.selstart = len(str)
end sub
vb程式設計問題:程式執行時,在文字框text1中輸入1個字串,單擊命令按鈕command1時,程式能統計出輸入
5樓:萬能導師
1.首先,在表單中新增乙個文字框,如下圖。
2.點選文字框,設定文字框的屬性在屬性視窗中,空的文字內容,並設定文字框的啟用屬性為false,如下圖所示。
3.雙擊「獲取資訊」命令按鈕編寫特殊的程式**,如下圖所示。在提取資訊時,您需要使用相關函式擷取字串,如左、右,中期,等等。您還需要使用instr函式找到字元,如下所示。
4.雙擊「清除」命令按鈕,編寫程式**,如下圖。
5.雙擊「exit」命令按鈕,編寫程式**,如下圖。
6.當你最終輸入乙個字串,輸入完成後,如下所示。
6樓:匿名使用者
1、首先,在窗體上面新增乙個文
本框。2、單擊文字框,在屬性視窗設定文字框的屬性,清空文字內容,將文字框的enabled屬性設定為false。
3、雙擊「提取資訊」命令按鈕,編寫程式的**,如下圖所示。提取資訊時,需要使用擷取字串相關的函式,如left,right,mid等。本題還需要使用instr函式查詢字元。
4、雙擊「清空」命令按鈕,編寫程式的**。
5、雙擊「退出」命令按鈕,編寫程式的**。
6、最後輸入字串時,就可以出輸入了。
7樓:黎洪璋
需要新建乙個使用者窗體userform1,在窗體上建立text1、text2、text3和text4文字框,然後再建立乙個命令按鈕,在命令按鈕裡輸入**: userform1.textbox2.
value = userform1.textbox1.value
具體怎麼判斷字母個數和字元個數可以從網上查查,我現在沒時間查了,就隨便寫一句吧。呼叫窗體的命令是userform1.show
8樓:
可以依次取出每個字元,將其轉化為ascii值,這樣判斷語句會簡單些
9樓:匿名使用者
俺是會的人,沒寫**,能說一下思路麼?
10樓:匿名使用者
private sub command1_click()text2.text = 0
text3.text = 0
text4.text = 0
for i = 1 to len(text1.text)if mid(text1.text, i, 1) like "[a-z]" or mid(text1.
text, i, 1) like "[a-z]" then
text3.text = val(text3.text) + 1elseif mid(text1.text, i, 1) like "[0-9]" then
text2.text = val(text2.text) + 1else
text4.text = val(text4.text) + 1end if
next
end sub
vb程式設計題,跪求大神解答...急,**等....高分求答案,可加分。。。 100
11樓:匿名使用者
你把問題發到shifu.la 這個程式設計師**,那邊有專門的程式設計師值班免費回答vb程式設計問題
12樓:ifyou橙色
通過keypress事件做,keyascii是ascii嗎,通過按下鍵盤系統會檢測到他的ascii值,再把它轉換成你想要替換的就行了,很簡單,不想幫你寫,自己動手豐衣足食吧。
vb程式設計,設計乙個程式,在文字框裡輸入乙個三位數,單擊窗體,在窗體中輸出這個三位數的個位數十位數百
13樓:匿名使用者
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
14樓:岔路程式緣
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
已經執行過。
執行結果:
vb設計程式:程式設計完成下面功能:在窗體上設定2文字框,要求在文字框text1中輸入乙個0~6的整數
15樓:匿名使用者
private sub form_click()dim n as integer
if isnumeric(text1.text) thenn = val(text1.text)
select case n
case 0
text2.text = "sunday"
case 1
text2.text = "monday"
case 2
text2.text = "tuesday"
case 3
text2.text = "wednesday"
case 4
text2.text = "thursday"
case 5
text2.text = "friday"
case 6
text2.text = "saturday"
case else
msgbox "請輸入數字0-6"
end select
else
msgbox "請輸入數字0-6"
end if
end sub
有10名學生的英語和計算機成績,編寫VB程式求出英語和計算機最高分成績的姓名
剛才的那位,無法處理最高分並列情況,因此需要改進如下 option explicit private sub command1 click const count 10 dim stu 1 to 10,1 to 3 dim i,j,max,min as integer dim maxname as ...
vb中怎樣編寫,vb中怎樣編寫「1 1 2 1 2 3 1 2 3 4 。。。。。。」程式
private sub command1 click dim i,j,n,sum1,sum2 as integern inputbox 請輸入n sum1 0 sum2 1 for i 1 to n for j 1 to i sum1 sum1 j next j sum2 sum2 sum1 nex...
用vb語言編寫程式,用VB語言編寫程式
我用兩個文字框和乙個命令按鈕來實現 其中文字框 text1 用來存放 輸入資料 text2用來存放處理後的結果 用command1實現以上功能 private sub command1 click text2.text val text1.text 10end sub 你把要求說的不太詳細,我只是按...
VB中如何編寫加密程式,VB中如何編寫乙個加密程式
還可以用api函式來呼叫出來加密 有個加密的演算法 在裡面 如把a加上乙個值可以變成b一樣的加密方法 怎樣用vb編寫乙個檔案加密程式?vb 加密與解密的程式 5 加密 private function jiami byval varpass as string as string 引數varpass...
用vb編寫一段分段函式的程式,用vb編寫一段計算分段函式
建text1,text2,command1.如下。private sub command1 click dim x as single,y as singlex csng text1.text select case x case is 2 y 3 x 1 1 xcase is 1 y sin x ...