【单选题】有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t/y y = t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
【简答题】设有如下程序 Private Sub Search(a( )As Variant,ByVa1 key As Variant,index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load( ) Show D...
【单选题】有如下程序: Private Type stu X As String Y As Integer End Type Private Sub Command1 Click( ) Dim a As stu X='ABCD' Y=12345 Print a End Sub 程序运行时出现错误,错误的原因是( )。
【单选题】有如下程序。 Private Sub Command1_Click() Dim a As Single Dim b As Single a=5: b=4 Call Sub1(a, b) End Sub Sub Sub1(x As Single, y As Single) t=x x=t / y y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
【单选题】有如下程序: Private Sub Commandl_Click( ) a$='A WORKER IS HERE' x=Len(a$) For i=1,To x-1 b$=Mid$(a$,i,3) If b$='WOR' Then S=S+1 Next Print S End Sub 单击命令按钮,程序运行结果为
【单选题】有如下程序: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single,y As Single) t=X X=t/Y Y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为