填空题

运行下面的程序,单击Cmd1,窗体上显示的第一行是(),第二行是() ,最后一行是()。
Option Explicit
Private Sub Cmd1_Click()
Dim A As Integer
A=3
Call Sub1(A)
Print A
End Sub
Private Sub Sub1(X As Integer)
X=X*2+1
If X<10 Then
Call Sub1(X)
End If
X=X*2+1
Print X
End Sub

【参考答案】

31;63;63
<上一题 目录 下一题>
热门 试题

填空题
运行下面程序,单击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
填空题
执行下面程序,单击按钮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
相关试题
  • 本程序的功能是查找一组数据中的众数。所谓...
  • 本程序的功能是将汉字的区位码转换成以十六...
  • 本程序的功能是找出一组连续的整数,它们的...
  • 本程序的功能是,利用下列公式求函数cos(x...
  • 执行下面程序,在文本框Text1中输入 21...