【单选题】在窗体中添加一个名称为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 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
【单选题】在窗体中有一个标签Labele,标题为“测试进行中”:有一个命令按钮Commandl,事件代码如下: Private Sub Commandl_Click() Labele.Caption=“标签” End Sub Private Sub Form_Load() Form.Caption=“举例” Commandl.Caption=“移动” End Sub 打开窗体后,单击命令按钮,屏幕显示( )...
【单选题】已知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...
【单选题】单击命令按钮之后,下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S: End Sub
【单选题】设有如下程序: Private Sub Form. Click( ) Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后,单击窗体,则在窗体上显示的是( )。