大整数类BigInteger中的compareTo方法是()。
A.重写了Object类的compareTo方法
B.大整数类自己的新方法
C.实现了Comparable接口中的compareTo方法
D.和Object类中的compareTo方法构成重载
A.重写了Object类的compareTo方法
B.大整数类自己的新方法
C.实现了Comparable接口中的compareTo方法
D.和Object类中的compareTo方法构成重载
Dim x As Integer, a As Integer, b As Integer, i As Integer
For i=1 T0 10
x=InputBox("请输入一个整数:")
If Int(x/2)=x/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox"a="&a&chr(13) &"b="&b
A.对输入的10个数求累加和
B.对输入的10个数分别统计奇数和偶数的累加和
C.对输入的10个数分别统计奇数和偶数的个数,其中奇数的个数保存在变量a中
D.对输入的10个数分别统计奇数和偶数的个数,其中偶数的个数保存在变量a中
Private Sub run34_Enter()
Dim num As Integer,a As Integer,b As Integer,i As Integer
For i=1 To 10
num=InputBox(“请输入数据:”,“输入”)
If Int(num/2)=num/2 Then
a=a+l
Else
b=b+1
End if
Next i
MsgBox(“运行结果:a=“&Str(a)&”,b=”&Str(b))
End Sub
运行以上事件过程,所完成的功能是()。
A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数,然后再进行累加
C.对输入的10个数据分别统计奇数和偶数的个数
D.对输入的10个数据分别统计整数和非整数的个数
A.result(x)=“偶数”
B.result(x)
C.result(x)=“奇数”
D.NOT result(x)
Function fun(a As Integer,b As Integer)
Dim c As Integer
If a
c=a:a=b:b=C
End IF
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数,则函数返回的是()。
A.a、b的最大公约数
B.a、b的最小公倍数
C.a除以b的余数
D.a除以b的商的整数部分
Function result(ByVal x As Integer)As Boolean
If x Mod 2=0 Then
result=True
ElSe
result=False
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox("请输入一个整数"))
If______Then
Textl=Str(x)&"是偶数."
ElSe
Text1=Str(x)&"是奇数."
End If
End Sub
程序运行后单击命令按钮,在输入对话框中输入19,则在Text1中显示“19是奇数”。那么程序的空白处应填写( )。
A.result(x)="偶数" B.result(x)="奇数"
C.result(x)D.NOT result(x)
A.12
B.11
C.10
D.9
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!