Private Sub Command1_Click()
Dim a%,n%,i%,Sn$
n = InputBox(請輸入n的值)
Randomize
a = Int(9 * Rnd + 1)
Print Tab(30); "n=" & n," a = " & a; ""
Temp = a
Picture1.Print "Sn="; a;
For i = 1 To n - 1
Temp = Temp * 10 + a
Picture1.Print "+"; Temp;
Next
Print
End Sub
（這樣比較合適吧）
編寫VB程序,求Sn=a+aa+aaa+…(n個a)的值,其中n是表示a的個數(shù),a是【1,9】之間的隨機(jī)正整數(shù)
編寫VB程序,求Sn=a+aa+aaa+…(n個a)的值,其中n是表示a的個數(shù),a是【1,9】之間的隨機(jī)正整數(shù)
其他人氣：784 ℃時間：2020-09-30 03:01:07
優(yōu)質(zhì)解答
我來回答
類似推薦
- VB求助：求Sn=a+aa+aaa+aaaa+…+aa…aaa(n個a),
- 編寫程序,求Sn=a+aa+aaa+…(n個a)的值,其中n是表示a的個數(shù),a是【1,9】之間的隨機(jī)正整數(shù).
- 求Sn=a+aa+aaa+...+aa...a(n個a)之值,其中a是一個數(shù)字,n表示a的位數(shù),例如:2+22+222+2222+22222(此時n=5)n由鍵盤輸入.
- C語言編寫：求Sn=a+aa+aaa+…+aa…a n個a之值
- 用vb編寫程序:求s=aa…aa-…-aaa-aa-a(此處aa…aa表示n個a,a和n的值在1至9之間)
- 已知實(shí)數(shù)x,y滿足2x+3y≤14,2x+y≤9,x≥0,y≥0,S=3x+ay,若S取得最大值時的最優(yōu)解有無窮多個,則實(shí)數(shù)a=?
- 請問這種成分還屬301不銹鋼嗎?（C-0.1003；Si-0.2467;Mn-2.2387;p-0.358;S-0.169;Cr-14.6342;Ni-6.0215）
- X=2*3*5*7*11*13*17*19*23*29*.N(N為質(zhì)數(shù)),求證:X+1為質(zhì)數(shù)
- 若√2007n是個非零整數(shù),則最小整數(shù)n是?
- Either I or he （ ）soccer with Tom 四個選項(xiàng) play are plays is
- .the music festival was great!Many famous people （attended） it.
- 如果（M）表示m的全部因數(shù)的和,如（4）=1+2+4=7,則（18）-（21）=（）
猜你喜歡
- 1關(guān)于勇敢面對生活名言.與海倫凱勒、阿炳、司馬遷有關(guān)的.
- 2高適曾用什么詩來表達(dá)對朋友的祝福
- 3六一小記者采訪提綱怎么寫?
- 4小明想知道自己的質(zhì)量,能否用量程為50N的彈簧測力計測量? 輔助器材： 實(shí)驗(yàn)做法包括物理量、重力表達(dá)式
- 5表面積怎么求
- 6Five ___ is thirty英語選擇題
- 7銀杏樹有什么作用?
- 8“得天下英才而教育之”的下一句是什么?
- 9古文句子的句式特點(diǎn)有哪些?以什么為標(biāo)準(zhǔn)?
- 10the o_____ of first is last.
- 11請寫出一個一元一次方程,使得它的根為3
- 12英語翻譯