填空题

执行下面的程序，消息框里显示的结果是 【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
<上一题 目录 下一题>
热门 试题

填空题
使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，请填空。 Private Sub Form_Click() Dim i As Integer Dim Sum As Integer Cls For i=1 To 1000 If 【11】 Then Sum=Sum+i Printi End If Next i Print Print Sum= &Sum End Sub
填空题
在模块中执行宏的命令是使用DoCmd对象的 【10】 方法。
相关试题