1樓:匿名使用者
當i不等於n的時候在s字串最後加上一個“+”號,當輸出最後一個字串,比如22222時候i=5,n=5,這個時候不要再s最後加上“+”號
如果有這句,比如a=2,n=5時候輸出是這樣的:
當a=2時,n=5時,s=2+22+222+2222+22222如果沒有這句if i <> n then s = s + "+" 那麼輸出是這樣的:
當a=2時,n=5時,s=222222222222222或者沒有判斷語句,只有s=s + "+" 那麼輸出是這樣的:
當a=2時,n=5時,s=2+22+222+2222+22222+
2樓:匿名使用者
if i <> n then s = s + "+" 首先s是一個字元型變數 這局話的意思等於如果i不等於n為真的話 s在原先的前提上增加一個加號“+” 比如原先s=“3”完成後等於“3+”
作用因為他用了string關鍵字(這裡的string是關鍵字不是字元型變數)所以每次總能返回迴圈對應的字元數 然後再用判斷語句在後面增加一個“+”號
求sn=a+aa+aaa+aaaa+…+aa…aaa(n個a),其中a是通過滾動條獲得的一個1~9 10
3樓:暗夜聞子規
dim a as integer, n as integer, temp#, sum#, m as string
private sub form_click()
a = int(rnd * 9 + 1)
label1.caption = "a=" & a
hscroll1.value = a
clsprint vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf
print tab(49); a
sum = a
temp = a
m = "sum=" & a
for i = 2 to n
temp = temp * 10 + a
sum = sum + temp
m = m & "+" & temp
print tab(50 - i); temp
next i
print tab(40); "------------------"
print tab(50 - n); sum
print " "; m & "=" & sum
end sub
private sub form_load()
label1.caption = "a=0"
label2.caption = "n=0"
hscroll2.value = 5
hscroll1.value = 1
end sub
private sub hscroll1_change()
a = hscroll1.value
label1.caption = "a=" & a
clsprint vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf
print tab(49); a
sum = a
temp = a
m = "sum=" & a
for i = 2 to n
temp = temp * 10 + a
sum = sum + temp
m = m & "+" & temp
print tab(50 - i); temp
next i
print tab(40); "------------------"
print tab(50 - n); sum
print " "; m & "=" & sum
end sub
private sub hscroll2_change()
n = hscroll2.value
label2.caption = "n=" & n
clsprint vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf
print tab(49); a
sum = a
temp = a
m = "sum=" & a
for i = 2 to n
temp = temp * 10 + a
sum = sum + temp
m = m & "+" & temp
print tab(50 - i); temp
next i
print tab(40); "------------------"
print tab(50 - n); sum
print " "; m & "=" & sum
end sub
c語言題目求sn=a+aa+aaa+aaaa+.....+aaa...a(n個a)之值,其中a是一個數字,n表示a的位數!
4樓:四舍**入
可以參考下面的**:
#include
int main()
printf("%d\n",sum);}
5樓:匿名使用者
#include
main()
int c(int a,int n)
else}
6樓:匿名使用者
int a, sn=a;
for(int i=2;i<=n;i++)
7樓:匿名使用者
#include
int main()
return 0;}
VB串列埠通訊求助,VB串列埠通訊求助
編了乙個小函式,希望能幫你,下面是乙個測試程式function bin2dec byval bin as string as long bin trim bin bitnum len bin for i bitnum to 1 step 1bin2dec bin2dec 2 bitnum i val...
vb設計自動列印,求助 利用VB設計列印複雜報表的問題!
1.你需要安裝企業版,標準版沒那個功能,然後用datareport 設計器。2.在datareport設計器裡有 rpttextbox 控制項,還有線條控制項等,用他們來設計你的報表,設定 rpttextbox 繫結的成員 datamember屬性 在你的列印按鈕裡加入 你的資料來源 如 adodc...
求助一道VB題
private sub form load dim i as long dim x as long dim sum1 dim sum2 dim sum3 for i 1 to 30 x 100000 sum1 sum1 x next debug.print 窮人給富商的錢為 sum1sum2 0.0...