VB先有框讓我輸入整數,分別計算出奇數個數和,偶數個數和。請測試好後發上來

2022-10-01 16:40:24 字數 2741 閱讀 8362

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

print

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

print

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 第三步 如果餘數是零,則計算結束,上...