下述代码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”
下述代码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”
参考解析
略
相关考题：
下面可以正确定义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
以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 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和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”