更多"运行下列程序，单击Command1，在窗体上显示的第一行内容是（）,第"的相关试题:
[填空题]运行下列程序，单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 (14) 和 (15) 。
Private Sub Command1_Click( )
t = 1: x = 2: y = 3: z = 4
If t > 0 Or t = x And x ＜＞ y Or y ＞ z Then
t = fun1(t， z)
Print t
Else
t = fun1(x， y)
Print t
End If
Print x
Print y
End Sub
Function fun1(ByVal x As Integer， ByVal y As Integer)As Integer
Do While y ＜＞ 0
t = x / y
x = y
y = t
Loop
fun1 = x
End Function
[填空题]
执行下面的程序，单击command1,窗体上显示的第一行是（），第二行是（）,第四行是（）,最后一行是（）
Option Explicit
Private Sub Command1_Click（ ）
Dim n As Integer
n=5
Call test(n)
Print n
End Sub
Private Sub test(ByVal n As Integer)
Dim i As Integer,S As String
If n>0 Then
For i=l To n
S=S & CStr(i)
Next i
Print S
Call test(n-2)
Else
Print "0VER"
EndIf
EndSub
[填空题]
执行下面程序,单击命令按钮Command1,窗体上显示的第一行内容是（）,第二行内容是（）,第三行内容是（）.
Option Explicit
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer, i As Integer
a = 1
b = 5
For i = b To a Step -1
a = a + i
b = b + a
If b > 30 Then Exit For
Print a, b
Next i
Print a, b
End Sub
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click（ ）
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Option Base 1
Private Sub Command1_Click（ ）
Dim i As Integer
Dim x(3，3)As Integer
For i=1 To 3
For j=1 To 3
x(i,j)=(i-1)*3+j
Next j
Next i
For i=1 To 3
Print x(i,4-i)；
Next i
End Sub
A. 1 5 9
B. 1 4 7
C. 3 5 7
D. 3 6 9
[单项选择]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click（ ） Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A. 32
B. 28
C. 30
D. 36
[填空题]单击窗体上的命令按钮Command1, 【10】
Private Sub Command1_Click（ ）
a= "10"
b=20
c=Val(a) +b
Print c
End Sub
[填空题]在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open"c:/test.dat"For Output As#1
Fori=1 to Len(Text1.Text)
(12)
Next
Close# i
End Sub
[单项选择]在窗体上画一个名为Text1的文本框和一个名为Command1的命令按钮。要求：程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件Test.dat中，如图所示。请在空格处填上适当的内容，则在以下横线处合适的语句是( )。
Private Sub Command1_Click（ ）
Open "c:/test.dat"For______As#1
For i=1 To Len(Text1.Text)
Next i
Close #1
End Sub
A. Input Print#1,Mid(Text1.Text,i,1)
B. Output Print#1,Mid(Text1.Text,i,1)
C. Output Print#1,Left(Text1.Text,i,1)
D. Output Input#1,Mid(Text1.Text,i,1)
[单项选择]在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i,"*")
Print x
Next i
End Sub
Private Sub Command1_Click（ ）
p1(3)
End Sub
A. ***
B. *
C. *
D. ******
[单项选择]在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为 ( )。
Private Sub p1(n As Integer)
For i=n To 1 Step-1
x=String(i, "*")
Print x
Next i
End Sub
Private Sub Command1_Click（ ）
p1 (3)
End Sub
A) * * *
* *
*
B) *
* *
* * *
C) *
*
*
D) * * * * * *
