题目内容
（请给出正确答案）
若有如下程序： int sub() {static int n＝1; int x=1； x*=n;n++; return x； } main() {int n，t＝1; for(n＝1；n＜6;n++)t*＝sub(); printf("%d\n"，t); } 则程序运行后的输出结果是()
A．15
B．120
C．34560
D．-30976
如果结果不匹配，请 联系老师 获取答案
更多“若有如下程序：int sub（){static int n＝…”相关的问题
A.d
B.e
C.h
D.b
A.输出的是1
B.输出的是1和-2
C.输出的是3和0
D.是死循环
Private Sub Commandl Click（）
Dim i As Integer, j As Integer
Dim a （10,10）As Integer
For i=1 To 3
For j= i To 3
a（i,j）=（i-1）*3+j
Print a （i,j）;
Next j
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是（）。
设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（）
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "程序设计"
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计
设有如下程序：Private Sub Command1 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循环来计算一个表达式的值，这个表达式是______。
A．1+1/2+2/3+3/4+4/5
B． 1+1/2+1/3+1/4+1/5
C． 1/2+2/3+3/4+4/5
D． 1/2+1/3+1/4+1/5
在窗体上画两个标签和一个命令按钮，其名称分别为Labell、Label2和Command1，然后编写如下程序： Private Sub func(L As Label，ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是 ______。
A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10
在窗体中添加一个命令按钮，编写如下程序： Private Sub Test(p，m，n) p=p+1：m=m+1：n=n+1 Print "Sub: ";p；m；n End Sub Private Sub Command1.Click() a1=1：b=2：c1=3 Call Test((a，b1+3，(c1)) Print "Main："；a1；b1；c1 End Sub 程序运行后，输出结果为
A．Sub： 2 6 4 Main： 2 6 4
B．Sub： 2 6 4 Main： 2 6 4
C．Sub： 2 6 4 Main： 1 2 3
D．Sub： 2 6 4 Main： 2 2 3
在窗体上画一个命令按钮，然后编写如下代码： Private Sub Command1_Click() 0pen "d：\vb\test.txt "For Input As #1 Print LOF(1) Close #1 End Sub 假设文件d:\vb\test.txt的内容为I am a student．，那么程序运行后，单击命令按钮，其输出结果为______.
A．13
B．14
C．15
D．16
设有如下程序：
Option Base 1
Private Sub Command1_Click（）
Dim arr1
Dim Min As Integer, i As Integer
arr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）
Min = ______
For i = 2 To 8
If arr1（i） ＜ Min Then______
Next
Print "最小值是："; Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a * b Loop Print aEnd Sub程序运行后，依次输人数值30，20，10，-1，输出结果为
A．6000
B．-10
C．200
D．-6000
假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub程序运行后，单击命令按钮，输出结果为______ 。
A．5 4
B．1 1
C．1.25 4
D．1.25 1
