更多"阅读下面程序: Private Function a(load As"的相关试题:
[填空题]阅读下面程序。
Private Function a(load As Integer) As Single
If load < 20 then
money=load / 2
else
money=20+load
end if
a=money
End Function
Private Sub Form Click( )
Dim load As Integer,fee As Single
Load=InputBox("请输入一个数:")
Fee=a(load)
Print fee
End Sub
输入20,运行后的输出结果是 【13】 。
[填空题]阅读下面程序
Private Function a (load As Integer)As Single
If loud<20 then
money=lnad/2
else
money=20+load
end if
a=money
End Function
Private Sub Form_Click( )
Dim load As Integer,fee As Single
Load=InputBox("请输入一个数:")
Fee=a(load)
Print fee
End Sub
运行后的输出结果是 【12】 。
[填空题]阅读下面程序。
Private Function a(load As Integer) As Single
If load < 20 then
money = load / 2
else
money = 20 + load
end if
a = money
End Function
Private Sub Form_Click( )
Dim load As Integer, fee AS Single
Load = InputBox ("请输入一个数: ")
Fee = a(load)
Print fee
End Sub
输入20,运行后的输出结果是 【13】 。
[填空题]阅读下面程序:
Private Function a(load As Integer) As Single
If load <20 then
money = load/2
else
money =20 + load
end if
a = money
End Function
Private Sub Form_Click( )
Dim load As Integer, fee As Single
Load = InputBox("请输入一个数:")
fee= a(loaD)
Print fee
End Sub
输入20,运行后的输出结果是 【6】 。
[填空题]如果存在如下过程:
Private Function FMaxla( ) As Integer)
Dim First As Integer,Last As Integer,i As Integer
First=LBound(a)
Last=UBound(a)
Max=a(First)
For i=First To Last
If a(i)>Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command_Click( )
ReDim m(1 To 4)As Integer
m(1)=20:m(2)=30:m(3)=50:m(4)=100
C=FMax(m)
Print C
End Sub
单击命令按钮,其输出结果为 (8) 。
[单项选择]有如下函数:
Private Function firstfunc(x As Integer, y As Integer) As Integer
Dim n As Integer
Do While n <= 4
x=x +y
n=-+1
Loop
firstfunc = x
End Function
调用该函数的事件过程如下:
Private Sub Command1_lick( )
Dim x As Integer
Dim y As Integer
Dim n As Integer
Dim z As Integer
x=1
y=1
For n = 1 To 3
z = firstfunc(x, y)
Next n
Print z
End Sub
该事件过程的执行结果是 ______。
A. 1
B. 3
C. 16
D. 9
[单项选择]阅读下列程序:
Function func(n As Integer)As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1)* i
Next i
func = Sum
End Function.
Private Sub Command1_Click ( )
Dim a As Integer
a= 5
s = func (
A. 60
B. 70
C. 15
[填空题]如果存在如下过程:
Private Function Fun( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last=UBound (a)
Max = a(First)
For i=First To Last
If a(i)>Max Then Max =a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c =Fun(m)
Print c
End Sub
单击命令按钮,其输出结果为 【10】 。
[填空题]如果存在如下过程:
Private Function FMax(a( )As Integer)
Dim First As Integer,Last As Integer,i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click( )
ReDim m(1 To 4) As Integer
m(1)=20:m(2)=30:m(3)=50:m(4)=100
c=FMax(m)
Print c
End Sub
单击命令按钮,其输出结果为【 】。
[单项选择]请阅读下面程序
publicclassExampleStringBuffer
publicstaticvoidmain(String[]args)
StringBuffersb=newStringBuffer("test");
System.out.println("buffer-,"+sb);
System.out.println("longth="+sb.1ength( ));
程序运行结果中在“length”后输出的值是( )。
A. 10
B. 4
C. 20
D. 30