填空题

执行下面的程序，消息框里显示的结果是【13】。 Private Sub Form_Click() Dim Str As String， K As Integer Str="ab" For k=Len(Str) TO 1 Step-1 Str=Str & Chr(Asc(Mid(Str，k，1))+k) Next k MsgBox Str End Sub

【参考答案】

abdb

<上一题目录下一题>

热门试题

单项选择题

下面显示的是查询设计视图的“设计网格”部分，从此部分所示的内容中可以判断出要创建的查询是( )。

A．删除查询
B．生成表查询
C．选择查询
D．更新查询

填空题

执行下面的程序，消息框的输出结果是【15】。Option BaselPrivate Sub Commandl Click()Dim a(10)，P(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3P(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iMsgBox kEnd sub

相关试题