更多"下列程序为求Sn=a+aa+aaa+……+aa…a(n个a)，其中a为"的相关试题:
[填空题]
下列程序为求Sn=a+aa+aaa+……+aa…a(n个a)，其中a为一个随机数产生的1～9(包括1、
9)中的一个正整数，n是一个随机数产生的5～10(包括5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。
Private Sub Form_CUCk（ ）
Dima As Integer,n As Intege,S As
Double，Sn As Double
a=Fix(9*Rnd)+1
n=Pix(6*Rnd)+5
Sn=0
S=0
Fori=1 To [5]
S=S+a*10^(i-1)
[6]
PrintSn
Nexti
End Sub
[简答题]本题程序的功能是随机产生一个1～10的随机数，根据提示，用户可以猜这个随机数。例如程序随机产生的随机数是7，如果输入8，则提示“Try smaller…”并继续提示输入；如果输出6，则提示“Try bigger…”并继续提示输入；如果输入7，则会输出“Great!”并退出程序。请将下述程序补充完整(注意：不得改动程序的结构，不得增行或删行)。
import java.io.*;
public class basic
public static void main(String[] args)
InputStreamReader it;
Bur feredReader in;
Ir = new InputStreamReader(System.in)
In = new BufferedReader(ir);
int ranNum = ______;
int guessNum = -1;
String str;
while (______)
System.out.print ("Please Input:");
try
______;
guessNum = Integer.parseInt(str);
catch (Exception e)
if(guessNum ＞ ranNum)
System.out.println("Try smaller...");
else
System.out.println("Try bigger...");
System.out.println ("Great ! ");
[填空题]下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click（ ）
Dim an(10)As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)= 【10】
Next
max=an(1)
For i%=2 to 10
if an(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
[填空题]下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click（ ）
Dim an(10)As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)= 【10】
Next
max=an(1)
For i%=2 to 10
if an(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
[填空题]下列程序计算Sn的值。Sn=a+aa+aaa+…a，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click( )
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout = 1
Sn =0
Tn =0
a = InputBox("请输入a的值:" )
【9】
Do
Tn =Tn * 10 + a
Sn = Sn + Tn
Cout = Cout + 1
【10】
Debug. Print a, n, Sn
End Sub
[填空题]下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Dim a As Integer,n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值：")
(12)
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
(13)
Debug.Print a，n，Sn
End Sub
