单项选择题

下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub

A．0
B．3
C．6
D．9
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_ KeyPress(KeyAscii As Integer) Dim char As String char = Chr(KeyAscii) KeyAscii = Asc(Ucase(char)) Print String(6, KeyAscii)End Sub 程序运行后，如果在键盘上输入字母a，则窗体上显示的内容为______。
A．a
B．A
C．aaaaaa
D．AAA
单项选择题
下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = * : b＄ = ＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd Sub
A．*** ** ***
B．*＄*＄*＄
C．1*＄2*＄3*＄
D．＄＄＄＄＄＄＄＄＄
相关试题