1樓：匿名使用者
好幾個空哦.
下面是除錯好的程式(直接從vb裡複製過來的):
private sub command1_click()
dim *** as boolean, i%, j%, m%
for i = 10 to 1000 '第乙個要填的 空
m = int(sqr(i)) '取i的平方根整數
for j = 2 to m ' 判斷是否為素數
if i mod j = 0 then exit for '不是,下乙個i
next j
if j > m then 'i是素數,判斷是不是回文數
call hws(i, ***) '第二個要填的空
if *** then text1 = text1 & i & vbcrlf
'這裡輸出會連在一起,分不出數字的,如果自己執行的話,最好改為text1 & i & " "&vbcrlf,在每個數字間加乙個空格
end if
next i
end sub
private sub hws(n as integer, bz as boolean)'判斷所給n是不是回文數,
是的話,bz返回true,否返回false
dim j%, k%, m$
bz = true
m = cstr(n) ' 將數值轉為字元
k = len(m) ' 求字元m的長度,這是第三個要填的 空
for j = 1 to k \ 2 ' 判斷回文數
if mid(m, j, 1) <> mid(m, k - j + 1, 1) then '從數字兩邊依次判斷是否相同,相同,是回文數,不同,不是
'上面這行mid(m,j,1)是第四個要填的 空
bz = false
exit for
end if
next j
end sub
2樓：_昕0昕
i = 10 to 1000
k = m.length
vb程式找出10-1000以內的回文數
3樓：網海1書生
for x = 10 to 1000
if left(x, 1) = right(x, 1) thenprint x;
if currentx >= scalewidth then print
end if
next
用VB編寫簡單的過程，用於求100以內所有奇數的和，通過函式名稱返回
function jiafa n as integer as long for i 1 to n step 2s s i next i jiafa s end function private sub form click he jiafa 100 print he end sub private ...
求c語言一百以內所有偶數的階乘之和
流13氓2兔 我這有乙個算100的階乘的程式，你可以看一下100的階乘是多少 數值太大了，你的longdouble根本裝不下，可能是你超過了它的取值範圍，本來數的符號位也被進製了，所以系統判定為負數 include int main int bits1 1 int i,j,n printf 請輸入乙...
vb中計算10以內偶數的乘積的程式設計
我tm不管 private sub form click a 1 for i 1 to 10 if i mod 2 0 then a a i end if next print a end sub 不用算，0也是偶數，所以結果是0。vb程式設計 1到m之間偶數之積 10 網海1書生 m val in...