2009年9月計算機等考二級VB模擬題及解析(3)

　　(9) 下面程序的作用是用InputBox函數(shù)輸入一個整數(shù)，然后判斷能否同時被2，5和7整除，如果能則輸出該數(shù)及平方值。請?zhí)羁铡?/P>

　　Private Sub Command1_Click()

　　Dim numX As Integer

　　numX=Val(InputBox("請輸入一個整數(shù)") )

　　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。請在空白處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。

　　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