Integer s=new Integer(9); Integer t=new Integer(9); Long u=new Long(9); 判断: (1).s.equ
Integer s=new Integer(9);
Integer t=new Integer(9);
Long u=new Long(9);
判断:
(1).s.equals(t)
(2).s.equals(u)
(3).s==t
(4).s.equals(new Integer(9))
Integer s=new Integer(9);
Integer t=new Integer(9);
Long u=new Long(9);
判断:
(1).s.equals(t)
(2).s.equals(u)
(3).s==t
(4).s.equals(new Integer(9))
下面程序运行后的结果是()。 Private Sub Form_Click() Dim s As Integer,k As Integer,i As Integer,n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A.6
B.72
C.144
D.432
运行下列程序,单击窗体后输出的结果是()。
Private Sub Form_Click()
Dim a
Dim s As Integer, i As Integer
a = Array(1, 2, 3, 4, 5, 6)
s = 1
For i = 5 To 1 Step -2
s = s * a(i)
Next i
Print s
End Sub
A、 15
B、 48
C、 120
D、 720
在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub s(ByVal p As Integer)
p=p*2
End Sub
Private Sub Command1_click()
Dim i As Integer
i=3
Call s(i)
If i>4 Then i=i^2
MsgBox i
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为【 】。
以下程序的输出结果是D)9 12 Option Base 1 Private Sub Command1_Click() Dim s(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
A.33
B.28
C.35
D.37
下列程序为求Sn=a+aa+aaa+……+aa…a(n个a),其中a为一个随机数产生的1~9(包括1、 9)中的一个正整数,n是一个随机数产生的5~10(包括5、10)中的一个正整数,请在空格处填入适当的内容,将程序补充完整。
Private Sub Form_CUCk()
Dima As Integer,n As Intege,S As Double,Sn As Double
a=Fix(9*Rnd)+1
n=Pix(6*Rnd)+5
Sn=0
S=0
Fori
单击命令按钮时,下列程序的执行结果是
Private Sub Command1_Click()
Dima As Integer,b As Integer,c As Integer
a=3:b=4:c=5
Print SecProc(c,b,A)End Sub
Function FirProc(x As Integer,y As Integer,z As Integer)
FirProc=2*x+y+3*z+2
End Function
Function SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y) +x+7
End Function
A.20
B.25
C.37
D.32
单击一次命令按钮,下列程序代码的执行结果为()。 Private Sub Commandl_Click() Dima As Integer,b As Integer,CASInteger a=2:b=3:c=4 PrintP2(c,b,A) End Sub PrivateFunctionPl(X As Integer,y As Intege;z As Integer) P1=2*x+y+3*Z End Function Priva
A.21
B.19
C.17
D.34
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click() Dim m As Integer,n As Integer,p As Integer m=3:n=5:p=O Call Y(m,n,p) Print Str(p)End SubSub Y(ByVal i As Integer,ByVal j As Integer,k As Integer) k=i + jEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是
A.4
B.6
C.8
D.10
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x; End Sub 程序执行后,单击Command1命令按钮,输出的结果是【 】。
下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer,ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数,下面正确的语句是
A.Print ged(8,12),gcd(12,16),gcd(16,8)
B.Print ged(8,12,16)
C.Print gcd(8),gcd(12),gcd(16)
D.Print gcd(8,gcd(12,16))
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!