【单选题】设有如下程序: Sub f(x As Integer, ByVal y As Integer) x = 2 * x y = y + x End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = 6: b = 35 Call f(a, b) Print a, b End Sub 程序运行后,单击命令按钮 Comma...
【单选题】设有如下程序: Private Sub Cimmandl_Click. Dim sum As Double, x As Double Sum=0 n =0 For i =1 To 5 x =n/i n =n +1 sum =sum +x Next i End Sub 该程序通过For 循环来计算一个表达式的值,这个表达式是
【单选题】设有如下程序: Private Sub Form_C1ick() Dim s As Long,f As Long Dim n As Integer,i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后,单击窗体,输出结果是
【单选题】设有如下程序: Option Base 1 Private Sub Form. Click( ) Dim a(5)As String,i As Integer For i=1 To 5 a(i)=Chr(Asc('A')+i) Call f(a,i) Next i End Sub Sub f(ta( )As String,n As.Integer) Dim i As Integer For i=1...
【单选题】设有如下程序: private sub form_click() dim s as long,f as long dim n as integer,i as integer f=1 n=4 for i=1 to n f=f*i s=s+f next i print s end sub 程序执行后,结果是()