求解VB程式設計題(初學者),請教一道VB陣列程式設計題(大學初學者),謝謝!!!

2022-02-19 10:47:41 字數 1945 閱讀 3268

1樓:匿名使用者

恕我直言,要查錯遠遠比解題麻煩多了.

所以,如果可以,請把題目補充出來,晚一點我再看回來.

祝好運.

我也貼一段**:

function ishuiwen(n as double) as boolean '判斷是否迴文數

ishuiwen = false

dim m, i as double

m = 0

i = n

while i > 0

m = 10 * m + i mod 10i = i \ 10

wend

if n = m then ishuiwen = trueend function

'以下是修改lz的 command1的事件的。

private sub command1_click()dim a as integer, b as integerdim i as integer

a = val(text1.text)

b = val(text2.text)

for i = a to b

if ishuiwen(i) then

text3.text = text3.text & str(i) & vbcrlf

endif

next i

end sub

清除/退出事件不用改

2樓:

我給你改一下吧,省去了許多**

private sub command1_click()dim a as integer, b as integerdim n as integer

a = val(text1.text)

b = val(text2.text)

for n = a to b

if trim(str(n)) = strreverse(trim(str(n))) then

text3.text = text3.text & n & vbcrlf

end if

next

end sub

private sub command2_click()text1.text = ""

text2.text = ""

text3.text = ""

text1.setfocus

end sub

private sub command3_click()endend sub

3樓:匿名使用者

text3.text = text3.text & str(x) & "=>"

4樓:

不知道你的題目是什麼,但是程式沒有響應,肯定是你的3個迴圈當中有的跳不出來,另外,調程式不能只看結果,應該設好斷點,監控好關鍵變數才行

請教一道vb陣列程式設計題(大學初學者),謝謝!!!

5樓:

dim a(1 to 10)

randomize

for i=1 to 10

a(i)=int(rnd*151)+50

if maxsum/10 then print a(i);

next

6樓:孤翼單行

int a[10];

for(int i=0;i<10;i++)最大值可以在for迴圈裡兩個對比取最大值的方法得出,然後累加,除以10輸出,然後在用for迴圈輸出大於平均值的數

我對c,c++懂點,沒接觸過vb,不過我感覺應該差不多

7樓:匿名使用者

作業吧?大學裡的畜生

求簡單的vb入門程式設計例項教程

8樓:

求一道C語言題,我是初學者,希望越詳細越好

首先在執行int k 011這一步抄的時候實際賦值是9 因為在c語言中支援三種整數,十進位制的就直接寫,16進位制的前面加0x,8進位制的前面加0,這題屬於第三種,而對於下一步中實際是k 和 k的理解,其中k 是每次必須把當前需要k的操作用k的原值進行結束後才能自己 1,如果是 k則是k先自己 1然...

c 初學者的一道小小的問題

for語句,如果之後沒有 就預設將其後的第一條語句,作為迴圈體的一部分 也就是說 for int i 1 i 2 i for int j 1 j 2 j cout 相當於for int i 1 i 2 i 一般是先執行第3個表示式後,然後在第二個表示式進行判斷,當j 2時,執行完畢,執行 j結果j ...

請教一道歷史題,求解析,一道歷史題,求解析

甲 曾下令 京夜市,宜令禁斷。說明已經有夜市了,才要禁斷。乙 長安崇仁坊 一街輻輳,遂傾兩市,盡夜喧呼,燈火不絕。長安志 卷八 說明出現夜市,但並沒有說 鼓勵。所以選b。得到結論一般有歸納 演繹 類比的方法。歸納就是一般到特殊,演繹就是特殊到一般,類比就是以此物比彼物。這裡所用的是歸納法。而歸納法需...