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樓：
用一個一維陣列a就可以解決了
奇數:ai mod 2 =1,則加1
偶數:10-i
vb程式設計題:任意輸入10個整型數，顯示其中奇數和偶數的個數,求詳細步驟...
任意輸入10個整數，輸出其中的偶數，和偶數的個數
3樓：匿名使用者
#include
void main()
for(i=0;i<10;i++)
printf("總和為：%d\n",sum);
printf("偶數的個數為：%d\n",count);
printf("奇數為：\n");
for(i=0;i<10;i++)}
vb用陣列結構編寫程式，輸入10個整數，統計奇數之和及偶數之和，謝謝
vb怎樣查詢並判斷數字是否為連續
本想寫出 由於樓主太小氣不給分，就只寫出思路 用for迴圈至文字長，再用mid擷取，再比較兩個數值差是1即為連續數，呵呵，如果按這思路還寫不出來的話，下次問問題時一定記住要給分。a split text1.text,for i lbound a to ubound a 1for j i 1 to u...
用vb編寫程式，把輸入的資料逆序顯示，如輸入4321，輸出
第一種 你可以將你輸入的數字或者轉換成一個陣列，然後使用迴圈倒著迴圈出來即可！第二種 轉換為數字後，使用資料的物件呼叫reverse 可實現資料的反轉 倒敘取出即可 private sub form click dim a as string,i as integer,s as string a i...
求編vb程式任意輸入數,找出其中的最大值
dim max i t a t inputbox 請輸來入三個數源,中間 bai用空格 du隔開zhi a split t,for i 0 to ubound a if a i max then max a i next msgbox t 中最大值是dao vbcrlf max max val in...