单项选择题

阅读下列程序： 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+r 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
<上一题 目录 下一题>
热门 试题

单项选择题
下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为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,Ksc
C．"..\Data1.txt" For Random As #1 Put #1,i,Ksc
D．"..\Data1.txt" For Random As #1 Put #1,Y,Ksc
单项选择题
有如下的函数过程： Function Func2(a As Integer,b As Integer) ’As Integer Static m As Integer,i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim p AS Integer,k As Integer,m As Integer k=4 m=1 p=Func2(k,m) Print k; m p=Func2(k,m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为( )。
A．3 6＜CR＞3 6
B．3 6＜CR＞3 11
C．3 11＜CR＞3 6
D．3 11＜CR＞3 11
相关试题