用整数10创建一个Integer的类的对象,下列语句中,能完成上述功能的一个是:()
B.Integer o =10
C.int i =10
D.Integer i = Integer(10)
B.Integer o =10
C.int i =10
D.Integer i = Integer(10)
第1题
A. Integer i=new Integer(10);egerLUE
B. Integer i=10;
C. int i=10;
D. Integer i=Integer (10);
第2题
有如下程序(其中chr(13)表示换行)。以下关于程序功能的叙述中,正确的是( )。
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中
第3题
第4题
第5题
在窗体上建立名称为了ext1、Text2和Text3的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为Command1的命令按钮,单击它将得到数M从右边起的第N位数字,并把该数字显示在Text3文本框中,如图20-15如示。请填空。
Private Function digit(ByVal m As Integer,ByVal n As Integer)As Integer Dim i As Integer For i=1 To n-1 m=m\10 Next i digit=【 】 End Function Private Sub Command1_Click() Dim m As Integer,n As Integer,k As Integer m=Val(Text1.Text) n=Val(TextText) k=【 】 TextText=Str(k) End Sub
第6题
运行下列程序: Dim t As Integer Private Sub Form_Click() t = 2 x=Val(InputBox("输入一个整数5")) Print funl(x); t End Sub Private Function fun1(y) If y>0 Then fun1 = 1: t=10 Else If y=0 Then fun1 = 0: t=20 Else fun1 = -1: t=30 End If End Function 从键盘为变量x输入数据5,输出的结果是【 】。
第7题
若用如下的SQL语句创建一个表S:
CREATE TABLES S(ID CHAR(6)NOT NULL,SNAME CHAR(8)NOT NULL,SEX CHAR(2),AGE INTEGER)
向S表插入如下行时,______可以被插入。
A) ('554231','四明',男,21) B) ('723654','陈刚',NULL,25.6)
C) (NULL,'金山','男','19') D) ('773211',NULL,'女',20)
第8题
A.将MinimumValue设置为30,Type属性为String
B.将MinimumValue设置为18,Type属性为Integer
C.将MinimumValue 设置31,Type属性为Integer
D.将MinimumValue 设置17,Type属性为Integer
第10题
第11题
下列程序是判断一个整数(>=3)是否为素数,请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i<=k And swit=0 If n Mod i=0 Then 【 】 Else 【 】 End If Wend If swit=0 Then Print n;"是一个素数。" Else Print n;"不是一个素数。" End If