VB求助 求Sn a aa aaa aaaaaa aaa n個a

時間 2021-07-01 01:15:21

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...