更多"以下程序运行时,单击窗体后,在窗体上输出的结果是 ______。 P"的相关试题:
[单项选择]以下程序运行时,单击窗体后,在窗体上输出的结果是 ______。
Private SubForm_Click( )
Dim a As Integer,b As Integer
a=10 :b=20
Call ff(a,B)
Print a,b
End Sub
Private Sub ff(x As Integer,y As Integer)
x=x+y
y=x+y
End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)<a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8
[单项选择]执行下面的程序,单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click( ) Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next I Print Str3End Sub
A. EeFF
B. eEfF
C. EEFF
D. eeFF
[单项选择]执行下面的程序,单击窗体后窗体消息框内显示结果是( )。
PRIVATE SUB FORM_CLICK( )
DIM STR AS STRING, K AS INTEGER
STR="AB"
FOR K = LEN(STR) TO 1 STEP -1
STR=STR&CHR(ASC(MID(STR, K, 1)) +K)
NEXT K
MSGBOX STR
END SUB
A. ABCE
B. ABCD
C. ABDB
D. ABFB
[填空题]以下程序运行时连续单击4次窗体,则第4次单击窗体后消息框中的输出结果为 【12】 。
PRIVATE FORM_CLICK( )
STATIC A AS INTEGER
DIM B AS INTEGER
B=A+B+1
A=A+B
MSGBOX A&"," &B
END SUB
[填空题]当运行下列程序,单击窗体后,分别输入72和24,信息框上显示的结果是 【13】 。
Private Sub Form_Click( )
Dim x As Integer,y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=fun1(x,y)
MsgBox Str(Z)
End Sub
Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer
Do
r=a Mod b
a = b
b = r
Loop Until r=0
funl=a
End Function
[填空题]当运行下列程序,单击窗体后,分别输入72和24,信息框上显示的结果是 【13】 。
Private Sub Form_Click( )
Dim x As Integer,y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=fun1(x,y)
MsgBox Str(Z)
End Sub
Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer
Do
r=a Mod b
a = b
b = r
Loop Until r=0
funl=a
End Function
[填空题]以下是某个窗体的模块代码,请分析单击窗体后程序运行至"*"号位置时变量X、Y和Z的值分别是 【15】 。
DIM X AS INTEGER
DIM Y AS INTEGER
PRIVATE SUB FORM_CLICK( )
DIM X AS INTEGER
X=1
Y=1
CALL AA(Y+1)
Z=BB(X)
’* * * * * * *
MSGBOX "X="&X&"/Y="&Y&"/Z="&Z
END SUB
PRIVATE SUB AA(BYVAL Z AS INTEGER)
Y=Z+X
Z=X+Y
END SUB
PRIVATE FUNCTION BB(BYREF Y AS INTEGER
Y=Y+1
BB=X+Y
END FUNCTION
[单项选择]下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click( )
Dim x (10)As Integer,y(5)As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
D. 不确定的值
[单项选择]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click( ) Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i); NextI End Sub
A. 3 7 11 45 19
B. 17 13 9 5 1
C. 1 3 5 7 9
D. 不确定的值
[填空题]当下列程序运行,单击窗体后,分别输入72和24,信息框上显示的结果是______。
Private Sub Form_Click( )
Dim X As Inte9er, y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=funl(x,y)
MsgBox Str(z)
End Sub
Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer
Do
r=a Mod b
a=b
h=r
Loop Until r=0
funl=a
End Function
[单项选择]下列程序运行时输出的结果是( )。
Private Sub Form_Click( )
Dim a( )
a=Array(“天天向上”,“清华大学”,“天长地久”,“程序设计”)
for I=Lbound(a,1) to Ubound(a,1)
if ieft(a(I),1)="天”then print a(I);
next I
End Sub
A. 天天向上
B. 天天向上天长地久
C. 出错信息
D. 天天向上清华大学天长地久程序设计