F0值的应用大多限于()
第1题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Privfite Sub Command1_Click()
n=5
f=1
s=0
For i=1 To n
f=f 【 】
s=s+f
Next
Ptint S
End Sub
该事件过程的功能是计算s=1+2!+1/3!+...+1/n!的值。请填空。
第2题:
有如下程序: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1(a,b) End Sub Sub Sub1(x As Single,y As Single) t=X X=t\Y Y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A.0 0
B. 1 1
C.2 2
D.1 2
第3题:
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I >=4
End Sub
第4题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Privme Sub Command1_Click( )
n=5
f=1
s=0
For i=1 To n
f=f【 】
s=s+f
Next
Print s
End Sub
该事件过程的功能是计算
的值。请填空。
第5题:
有如下程序: Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2:b=4 Call CS(a,b)End Sub Sub CS(x As Single,y As Single) t=X x=t\y y=t Mod y End Sub 程序运行后,单击命令按钮,a和b的值分别为
A.0 0
B.1 1
C.0 2
D.1 2
第6题:
A、Pa0/sub2/supsubno<60mHl.PaCO/sub2/supsubno>50mmlg
B、Pa0/sub2/supsubno<60mHgPaCO/sub2/supsubno<45mmg
C、Pa0/sub2/supsubno<60mmHgPaCO/sub2/supsubno>50mmH
D、Pa0/sub2/supsubno<60mHg、PaCO/sub2/supsubno<45mmHg
E、Pa0/sub2/supsubno<60mHg、PaC0/sub2supsubno45mmHg
第7题:
在窗体上画一个命令按钮,命名为CommandI。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程 F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。 能够正确实现上述功能的代码是
A.Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B.Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C.Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function
D.Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
第8题:
在窗体上画一个命令按钮,命名为Command1。程序运行后,如果单击命令按钮,则显示一个输入对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1,在F1中判断所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则F1返回1,否则返回0。能够正确实现上述功能的代码是 。A.Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB.Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC.Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD.Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
第9题:
有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t\y y = t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A.0 0
B.1 1
C.2
D.1 2
第10题:
有如下程序。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call Sub1(a, b)
End Sub
Sub Sub1(x As Single, y As Single)
t=x
x=t \ y
y=t Mod y
End Sub
在调用运行上述程序后,a和b的值分别为
A.0 0
B.1 1
C.2 2
D.1 2