更多"以下程序运行后的输出结果是 【11】 。 Private Sub F"的相关试题:
[填空题]以下程序运行后的输出结果是 【11】 。
Private Sub Form _ Click( )
i=10 :j=0
Do
j=j+1
i=i-1
Loop while i>2
Print j;
End Sub
[单项选择]程序运行后,单击窗体,屏幕显示的结果是( )。
Private Sub Form_Click( )
num1="乙"
num2=76
Select Case numl
Case"甲"
If num2>=80 Then
Print"德艺优秀"
Else If num2>=60 Then
Print"德优秀,艺普通"
End If
Case"乙"
If num2>=80 Then
Print"德艺双佳"
Elselfnum2>=60 Then
Print"德艺普通"
End If
End Select
End Sub
A. 德艺双佳
B. 德艺普通
C. 德优秀,艺普通
D. 德艺优秀
[单项选择]以下程序运行后,单击按钮输出结果是
Private Sub Commandl_Click( )
Dim x As Integer,y As Integer,z As Integer
X=4:y=2: Z=3
Call Gopd(x,x,z)
Print x;X;Z
Call Gopd(x,y,y)
Print x;y;y
End Sub
Private Sub Gopd(x As Integer,y As Integer,z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click( )
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
[单项选择]下面程序段,运行后的结果是
Private Sub Command1_Click( )
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i) =i
Next
t=Tof(b( ) )
Print"t=";t,
End Sub
Function Tof(a( ) As Integer)
Dim t#,i%
t=1
For i=2 To UBound(
[单项选择]下面程序段,运行后的结果是 Private Sub Command1_Click( ) Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b( ) ) Print "t ="; t, End Sub Function Tof(a( ) As Integer) Dim t#, i% t=1 For i =2 To UBound(a) t=t * a(i) Next Tof = t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[填空题]下列程序的运行机结果是 【15】 。
Private Sub Form_ Click( )
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k<=n
Print m
End Sub
[单项选择]下面程序运行后输出是 ______。
Private Sub Form_Click( )
for i=1 to 4
x=1
for i=1 to 3
x=3
for k=1 to 2
x=x+6
next k
next j
next i
print x
End Sub
A. 7
B. 15
C. 157
D. 538
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click( )
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
[单项选择]设有以下程序:
Private Sub Form_Click( )
x =50
For i = 1 To 4
y = InputBox( "请输入一个整数" )
y = Val(y)
lf y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为( )。
A. 100
B. 50
C. 120
D. 70
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k <= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。
[单项选择]下面程序执行时,输出的结果是( )。
Private Sub Form_Click( )
DimiASInteger,j As Integer
i=10
Do
i=i+j
forj=10 toistep-3
i=i+j
nextj
Loop Whilei<50
Printi;j
End Sub
A. 50 10
B. 50 9
C. 57 10
D. 59 9
[单项选择]下面程序段,运行后的结果是( )。
Private Sub Commandl_Click( )
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i)=i
Next i
t=Tof(b( ) )
Print"t=";t,
End Sub
Function Tof(a( ) As Integer)
Dim t#,i%
t=1
For i=2 To UBound(a)
t=t * a(i)
Next i
Tof=t
End Function
A. t=18
B. t=24
C. t=30
D. t=32
[填空题]执行下面的程序,消息框里显示的结果是 【13】 。
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
[填空题]阅读以下程序:
Private Sub Form_click( )
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k <= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是 【4】 。