2009年9月计算机等考二级VB模拟题及解析(3)

　　(9) 下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，如果能则输出该数及平方值。请填空。

　　Private Sub Command1_Click()

　　Dim numX As Integer

　　numX=Val(InputBox("请输入一个整数") )

　　If 【9】 Then

　　Form1.Print 【10】

　　End If

　　End Sub

　　(10) 下列程序计算Sn的值。Sn=a+aa+aaa+…+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的值：")

　　【11】

　　Do

　　Tn=Tn * 10 + a

　　Sn=Sn + Tn

　　Cout=Cout + 1

　　【12】

　　Debug.Print a, n, Sn

　　End Sub