填空题

运行下面程序,单击CmdRun,在窗体上显示a的值是（）;b的值是（）;i的值是（）。
Option Explicit
Private Sub CmdRun_Click()
Dim i As Integer,a As Integer,b As Integer
a=1:b=10
For i=a To b Step a+1
a=a+1
b=b+1
i=i+1
Next i
Print a,b,i
End Sub

【参考答案】

5；14；13

<上一题目录下一题>

热门试题

填空题

执行下面程序,单击按钮CmdRun,窗体上显示的第一行结果是（）,UBound(a)的值为（）,其中a(1)的值为（）. Option Explicit Private Sub CmdRun_Click() Dim St As String,i As Integer Dim a() As String,j As Integer,k As Integer St= abcd Call Sub1(St) Print St For i=1 To Len(St) For j=i+1 To Len(St) If Mid(St,i,1)=Mid(St,j,1) Then Exit For Next j If j>Len(St) Then k=k+1 ReDim Preserve a(k) a(k)=Mid(St,i,1) Print a( ;k; )= ;a(k) End If Next i End Sub Private Sub Sub1(S As String) Dim i As Integer For i=1 To Len(S) 2 Mid(S,i,1)=Mid(S,Len(S)-i+1,1) Next i End Sub

填空题

执行下面程序,单击Command1,数组元素a(3,2)的值是（）,a(1,2)的值是（）,a(2,3)的值是（） Option Explicit Option Base 1 Private Sub Commandl_Click() Dim n As Integer,i As Integer,j As Integer Dim a(3,3)As Integer,k As Integer n=3:k=1 i=n:j=(n+1) 2 a(i,j)=k For k=2 To n*n i=i+1:j=j+1 If i>n And j<=n Then i=1 ElseIf i<=n And j>n Then j=1 ElseIf i>n And j>n Then i=i-2:j=j-1 ElseIf i<=n And j<=n And a(i,j)<>0 Then i=i-2:j=j-1 End If a(i,j)=k Next k For i=1 To n For j=1 To n Pic1.Print Right( &Str(a(i,j)),3); Next j Pic1.Print Next i End Sub

相关试题