Dim x As Integer,n As Integer
x=1
Do
x=x+3
n=n+1
Loop Until x=______
MsgBox"n="&n
Private Sub Command1_Click()
Dim i As Integer,s As String
s="首都经济贸易大学"
For i=1 To b Step 2
Text1=Text1&Mid(s,i,1)
Next i
End Sub
窗体运行后,单击命令按钮Command1,Text1中显示的是______。
Private Sub Form_Load()
Me.TimerInterval=1000
i=0
End Sub
Private Sub Form_Timer()
______
If i=30 Then
DoCmd.CloSe
End If
End Sub
A.i=i+1 B.i=i-1
C.i=i+30 D.i=i-30
Public Sub p()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^ 2
MsgBox i
End Sub
Public Sub S(ByVal P As Integer)
P=P*2
End Sub
A.3 B.4 C.5 D.6
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!