单项选择题

若有如下程序：
Private Sub Command1_Click()
Dim i As Integer, k As Integer
k=2
For i = 1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Function
单击命令按钮，执行程序，输出结果是( )。

A．2 3 4
B．3 4 5
C．5 6 7
D．3 5 6

<上一题目录下一题>

热门试题

单项选择题

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整( )。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Dim i As Integer Dim Ksc As Ang Open ______ Y = 3.14159 180 For i = 1 To 90 Ksc. K = i Ksc. Sinx = Sin(i * Y) Ksc. Cosx = Cos(i * Y) ______ Next i Close #2 End Sub

A．"..\Data1.txt" For Random As #1 Len = 10 Put #1, i, Ksc
B．"..\Data1.txt" For Random As #1 Len = 10 Put #1, Y, Kse
C．"..\Data1.txt" For Random As #1 Put #1, i, Ksc
D．"..\Data1.txt" For Random As #1 Put #1, Y, Ksc

单项选择题

运行下述语句后，输出的结果是( )。 Option Base 1 Dim a i=1 a = Array(1,-2,9,0,-1,9) Do k = a(i) For m = 10 To k Step -2 n=k+m Next m Print n + m i=i+1 Loop While Abs(m + n)＜＞27

A．3 27-8
B．3-8 27
C．-8 27 3
D．-8 3 27

相关试题