填空题

执行下面的程序段，x的值为【 】。　　 Private Sub Command1_Click() 　　　For i=1 To 9 　　　　　a=a + i 　　　Next i 　　　x=Val(i) 　　　MsgBox x 　　End Sub

【参考答案】

J
<上一题 目录 下一题>
热门 试题

填空题
下列程序计算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 IntegerDim Sn As Long，Tn As LongCout=1Sn=0Tn=0a=InputBox( 请输入a的值： )【 】 DoTn=Tn * 10 + aSn二Sn + TnCout=Cout+1【 】 Debug．Print a，n，SnEnd Sub
填空题
下列事件过程的功能是：通过Form _ Load事件给数组赋初值为35、48、15、22、67，Form_ Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。Dim Arr ( )Private Sub Form _ Load( )【 】 End SubPrivate Sub Form _ Click( )【 】 If Int(x 3)=x 3 ThenPrint xEnd IfNext xEnd Sub
相关试题