1樓:岔路程式緣
dim a(10) as double, u as singledim i as integer, jg as integer, og as integer
private sub command1_click()form1.autoredraw = trueif i = 0 then
form1.cls
print "輸入的10個數是:";
end if
if not isnumeric(text1.text) thenmsgbox ("請先在框中輸入數字!")exit sub
else
u = val(text1.text)
if int(u) <> u then
msgbox ("請在框中輸入整數!")
exit sub
else
i = i + 1
a(i) = u
print a(i);
end if
end if
if i = 10 then
for i = 1 to 10
if a(i) mod 2 = 0 thenog = og + 1
else
jg = jg + 1
end if
next
print "偶數個數是:"; og
print "奇數個數是:"; jg
i = 0
end if
end sub
private sub form_load()text1.text = "在此輸入數字"
command1.caption = "輸入"
end sub
執行過了。
2樓:匿名使用者
nhionhionhinininininini
vb用陣列結構編寫程式,輸入10個整數,統計奇數之和及偶數之和,謝謝
求問~!怎樣隨機生成10個整數並分別求出其中偶數和奇數的個數???(☆_☆)vb題目,求解答!!很
3樓:匿名使用者
我發你資訊,拜讀就是豬,說我帶非法字元
4樓:匿名使用者
private sub command1_click()dim i as integer,n as integer,st as string
dim n1 as integer,n2 as integerfor i=1 to 10
n=int(rnd*90)+10
st=st & str(n)
if n mod=0 then
n1=n1+1
else
n2=n2+1
endif
next i
text1.text=st
text2.text=n1
text3.text=n2
end sub
private sub command2_click()text1.text=""
text2.text=""
text3.text=""
end sub
private sub command3_click()endend sub
vb 連續輸入10數字,顯示其中奇數的個數和偶數的個數
5樓:岔路程式緣
奇數的個數 和 偶數的個數,如下:
dim a(10) as double, u as singledim i as integer, jg as integer, og as integer
private sub command1_click()form1.autoredraw = trueif i = 0 then
form1.cls
print "輸入的10個數是:";
end if
if not isnumeric(text1.text) thenmsgbox ("請先在框中輸入數字!")exit sub
else
u = val(text1.text)
if int(u) <> u then
msgbox ("請在框中輸入整數!")
exit sub
else
i = i + 1
a(i) = u
print a(i);
end if
end if
if i = 10 then
for i = 1 to 10
if a(i) mod 2 = 0 thenog = og + 1
else
jg = jg + 1
end if
next
print "偶數個數是:"; og
print "奇數個數是:"; jg
i = 0
end if
end sub
private sub form_load()text1.text = "在此輸入數字"
command1.caption = "輸入"
end sub
已經執行過。
6樓:
用一個一維陣列a就可以解決了
奇數:ai mod 2 =1,則加1
偶數:10-i
vb輸入一個正整數程式設計判斷奇數還是偶數
如何讓文字框輸入時只能輸入數字09和符號
這些方法是可來以只源允許輸入 0 9 和 這樣我們可以輸入0 9等,但是我們有用的是要求只能輸入正常的數值,這樣判斷不是比較麻煩是不是隻能這麼寫,isnum str string boolean 自定義函式,判斷一個string是不是數值,內容省略procedure tform1.edit1keyp...
QT怎麼讓文字框只能輸入數字,C 文字框只能輸入數字
設定正規表示式.類似下面的 qregexp 這裡的用法就是用來檢測qstring等字串錯誤的,例如檔名裡面最好就不出現 等,所以可以如下定義qregexp rx a za z0 9 25就是所輸入的字串個數 a z當然就是a z,你也可以abcdefghijklm.等等.就是 好了,現在可以把這個r...
vb程式設計從鍵盤上輸入兩個正整數m和n求m和n的最
你明白這種求公因數演算法的思路就理解了。這是輾轉相除法 比如求 18 和 48 的最大公因數 第一部 大數除以小數取餘數 48 18 2 12第二部 餘數是零,結束運算,小數即為最大公因子 餘數不是零,繼續利用輾轉相除法,小數除以餘數再取餘數 18 12 1 6 第三步 如果餘數是零,則計算結束,上...