【单选题】程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer,k As Integer Dim a(9) As Integer,p(2)As Integer k=5 For i=0 To 9 a(i)=i Next i For i=0 To 2 p(i)=a(i*(i+1)) Next i...
【单选题】在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序: Public x As Integer Private Sub Command1_Click x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1 x=x+20 End Sub Private Sub s2 Dim x As Integer x=x+20 End Sub 窗体打...
【单选题】程序代码如下,当单击窗体上的Command1控件时,窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer,I As Integer Dim A(7)As Integer Y=18:I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y/2 Loop Until Y<1 For j=I-1 To 0 Step-1 Print A(...
【单选题】程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer,a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5);a(8) End Sub
【单选题】程序代码如下,当单击窗体上的Command1控件时,在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3,3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i,j)=i*4+j+1 Next j Next i For i...
【单选题】已知c:/1.txt是一个非空文件,其程序代码如下。 Private Sub Command1_Click() Dim MaxSize,NextChar,MyChat Open'c:/1.txt'For Input As#1 MaxSize=LOF(1) For NextChar=MaxSize To 1 Step-1 Seek #1,NextChar MyChar=Input(1,#1) Nex...