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

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

　　Private Sub Command1_Click()

　　Dim numX As Integer

　　numX=Val(InputBox("請(qǐng)輸入一個(gè)整數(shù)") )

　　If 【9】 Then

　　Form1.Print 【10】

　　End If

　　End Sub

　　(10) 下列程序計(jì)算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一項(xiàng)為n個(gè)。

　　例如： a=5 ， n=4時(shí)，則Sn=5+55+555+5555。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。

　　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("請(qǐng)輸入a的值：")

　　【11】

　　Do

　　Tn=Tn * 10 + a

　　Sn=Sn + Tn

　　Cout=Cout + 1

　　【12】

　　Debug.Print a, n, Sn

　　End Sub