网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)
下述代码A和B正确的值是() Dim X As String = "123"  Dim Y As Integer = 123  Dim A As String = X + Y  Dim B As String = X & Y

A“246”,“123123”

B246,“123123”

C“123123”,“123123”

D123123,“123123”


参考答案

参考解析
更多 “下述代码A和B正确的值是() Dim X As String = "123"  Dim Y As Integer = 123  Dim A As String = X + Y  Dim B As String = X  YA“246”,“123123”B246,“123123”C“123123”,“123123”D123123,“123123”” 相关考题
考题 下面可以正确定义2个整形变量和1个字符串变量的语句的是( )。A.Dim n,m AS Interger,s AS StringB.Dim a%,b$,c AS StringC.Dim a AS Integer,b,c AS StringD.Dim x%,y AS Integer,z AS String

考题 下面可以正确定义两个整型变量和—个字符串变量的语句是______。A.Dim n,m As Integer,s As StringB.Dim a%,b$,c As StringC.Dim a As Integer,b,c As StringD.Dim x%,y As Integer,z As String

考题 ( 11 )下面可以正确定义 2 个整形变量和 1 个字符串变量的语句的是( )A ) Dim n,m AS Interger,s AS StringB ) Dim a%,b$,c AS StringC ) Dim a AS Integer,b,c AS StringD ) Dim x%,y AS Integer,z AS String

考题 设有如下程序:Private Sub Form_Click()Dim i As Integer,x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x,i,i)+yNext iPrint yEnd Sub程序运行后,单击窗体,输出结果为A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG

考题 单击命令按钮时,下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End SubA.21B.19C.17D.34

考题 有如下程序,其运行结果为 ______。 Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date "X+Y:之和", 300, 200. 613 EndA.X+Y:之和 501B.X+Y之和 500.613C.X+Y: 501D.X+Y: 500.613

考题 设有如下程序: Private Sub Form. Click( ) Dim i As Integer,x As String,y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X,i,i)+y Next i Print y End Sub 程序运行后,单击窗体,输出结果为( )。A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG

考题 以下定义数组或给数组元素赋值的语句中,正确的是A.Dim x%(2) x(1)="等级考试"B.Dim x(3), y(3)As Integer x(0)=1:y=xC.Dim x x=Array(0,1,2)D.Dim x(3)As Integer x=Array(0,1,2)

考题 有如下程序: Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer,m As String Static y,n X=X + 1 y=y + 1 m=m "*”:n=n"#" Print x,y,m,n End Sub 程序运行后,输出的结果是A.1 1 * #B.1 1 * #C.1 1 * # 1 1 * # 1 2 * #D.1 1 * # 1 1 * ## 1 2 * ##

考题 有以下函数过程: Function Gys (ByVal x As Integer, ByVal y As Integer) As Integer Do While y<>0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a,B)Print x End SubA.0B.10C.50D.100

考题 编写如下事件过程: Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i>= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后,单击窗体,则窗体上显示的内容是A.rehcaetB.tahreeeC.themeeD.eerthea

考题 执行语句Dim X,Y As Integer后( )

考题 以下程序运行后,单击命令按钮,窗体显示的结果是 ______。 Private Function p1(x As Integer,y As Integel,z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer,y As Integer,z As Integer) p2=p1(2,y,x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c,b,A)End SubA.19B.21C.22D.23

考题 有如下函数: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.1B.3C.16D.9

考题 窗体中有命令按钮Commandl,事件过程如下: PublicFunction f(x As Integer)As Integer Dim Y AsInteger X=20 y=2 f= X *Y End Function PrivateSub Commandl_Click( ) Dim y As Integer static x As Integer x=10 y=5 y=f(x) Debug.Print x;y End Sub 运行程序,单击命令按钮,则立即窗口中显示的内容是( )A.10;5B.10;40C.20;5D.20;40

考题 阅读下面的程序; Function Func(x As Integer,y As Integer)As Integer Dim n As Integer Do While n < = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer,z As Integer x=1 y=1 For n = 1 To 6 z=Func(x,y) Next n Print z End Sub 程序运行后,单击命令按钮,输出的结果为.A.16B.21C.26D.31

考题 下列数组说明语句正确的是A.Dim g(0,-5)As SingleB.Dim h(100 To 100,100)As StringC.Dim x(5)As Integer ReDim x(10)As IntegerD.Dim y() ReDim y

考题 有如下函数过程: Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y<>0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b)Print x End SubA.0B.25C.50D.100

考题 单击命令按钮时,下列程序的执行结果为 Private Sub Command1_Click Dim x As Integer, y As Integer x=12:y=32 Call Proc(x,y. Print x; y End Sub Public Sub Proc(n As Integer, ByVal m As Integer. n=n Mod 10 m=m Mod 10 End SubA.1232B.232C.23D.123

考题 运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后,则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345

考题 设有如下程序: Private Sub Form. Click( ) Dim i As Integer,x As String,y As String x=ABCDEFGFor i=4 To 1Step-1y=Mid(X,i,i)+yNext iPrint yEnd Sub程序运行后,单击窗体,输出结果为( )。A.ABCCDEDEFGB.AABBCDEFGC.ABCDEFGD.AABBCCDDEEFFGG

考题 以下是某个窗体的模块代码,请分析单击窗体后程序运行至"*"号位置时变量X、Y和Z的值分别是【 】。DIM X AS INTEGERDIM Y AS INTEGERPRIVATE SUB FORM_CLICK()DIM X AS INTEGERX=1Y=1CALL AA(Y+1)Z=BB(X)'* * * * * * *MSGBOX "X="X"/Y="Y"/Z="ZEND SUBPRIVATE SUB AA(BYVAL Z AS INTEGER)Y=Z+XZ=X+YEND SUBPRIVATE FUNCTION BB(BYREF Y AS INTEGERY=Y+1BB=X+YEND FUNCTION

考题 在VB中,使用变量前一般应对变量进行定义。以下变量定义语句错误的是()。A、Dim  x As IntegerB、Dim  x As Integer,y As SingleC、Var  x,y:IntegerD、Dim  x As Integer,y As Integer

考题 在VB语言中,下列定义变量语句格式正确的是()。A、Dim As String xuehaoB、Dim xuehao As StringC、Dim String As xuehaoD、Const xuehao As String

考题 下述代码A和B正确的值是() Dim X As String = "123"  Dim Y As Integer = 123  Dim A As String = X + Y  Dim B As String = X  YA、“246”,“123123”B、246,“123123”C、“123123”,“123123”D、123123,“123123”

考题 以下声明语句中错误的是()。A、Const var1=123B、Dim var2=’ABC’C、Dim x_y_z%D、Static var3 As Integer

考题 单选题下述代码A和B正确的值是() Dim X As String = "123"  Dim Y As Integer = 123  Dim A As String = X + Y  Dim B As String = X  YA “246”,“123123”B 246,“123123”C “123123”,“123123”D 123123,“123123”