更多"有下列程序段,单击命令按钮执行程序后,输出结果是( )。 Opti"的相关试题:
[单项选择]有下列程序段,单击命令按钮执行程序后,输出结果为( )。 Option Base 1 Private Sub Command1_Cliek( ) Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)>0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A. 148
B. 40
C. -40
D. 3.7
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=s+a(k)
Next k
Print s
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click( ) Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next j Print d End Sub 程序运行后,单击命令按钮,则在窗体上输出的内容为( )。
A. 10
B. 12
C. 16
D. 20
[单项选择]单击命令按钮时,下列程序段的执行结果为( )。
Private Sub Command1_Click( )
Dim FirstStr As String
FirstStr="abcdef"
Print PickMid(FirstStr)
End Sub
Private Function PickMid(xStr As String)As String
Dim tempStr As String,strLen As Integer
TempStr=" "
strLen=Len(xStr)
i=1
Do While i<=strLen/2
tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1)
i=i+1
Loop
PickMid=tempStr
End Funcfion
A. abcdef
B. fed
C. fedcba
D. defabc
[单项选择]在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序: Option Base 1 Private Sub Command1_Click( ) Dim c As Integer, d As Integer d=0 c=6 X=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If X(i)>c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub
A. 10
B. 12
C. 16
D. 20
[单项选择]在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:
Option Base 1
Private Sub Commandl_Click0
Dim C As Integer, d As Integer
d=0
c=6
X = Array(2, 4, 6, 8, 10, 12)
For i= 1 To 6
If X(i) > c Then
d = d + X(i)
c = X(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后,单击命令按钮,则在窗体上输出的内容为( )。
A. 10
B. 12
C. 16
D. 20
[单项选择]单击命令按钮时,下列程序段的执行结果为( )。
Public Sub Procl(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m/10
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer
x=12;y=34
Call Procl(x,y)
Print x;y
End Sub
A. 12 34
B. 2 34
C. 2 3
D. 12 3
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a( ) As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click( )
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【15】 。
Option Base 1
Private Sub Swap (a( ) As Integ
For I=1 to 10/2
t=a(I)
a(I)=a(10-I+1)
a(10-I+1)=t
Next I
End Sub
Private Sub Form_Click( )
Dim x(10) As Integer
For I=1 to 10
x(I)=I*2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[填空题]下面程序段的运行结果是 【14】 。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10/2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub
[单项选择]下列程序段的执行结果是______。
option base 1
private eommand1_c1ick ( )
Dim A(10)
Dim E(5)
For i = 1 To 10
A(i) = i
Next i
For j = 1 To 5
B(j) = j * 20
Next j
A(5) = B(2)
Print “A(5)=”; A(5)
End sub
A. A(5)=20
B. A(5)=30
C. A(5)=40
D. A(5)=50