运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息

题目

运行下列程序：

Private Sub Form_Click( )

a$ = 2

b$ = 1

Call abcd(a, b, c$, d$)

Print c; d

End Sub

Private Sub abcd(x$, y$, z$, s$)

z = x + y

s = x - y

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.3 1

B.1 3

C.211

D.显示出错信息

相似考题

1.执行下列程序后，鼠标单击窗体，输出结果为 。Private Sub Form_Click（）Print "Click";End SubPrivate Sub Form_MouseDown（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print "Donw"End SubPrivate Sub Form_MouseUp（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print " Up"End Sub（ ）。A．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownClick

2.下列程序，当单击窗体时s的值是( )Private Sub Form_Click()s = 11 \ 3 + 11 Mod 3Print sEnd SubA.3B.4C.5D.6

3.下列程序，当单击窗体时s的值是( )Private Sub Form_Click()Dim s As Integers = Not 2 * 5Print sEnd SubA. TrueB. FalseC.1D.0

4.设有如下程序：Private Sub Form_Click（）Dim n As Integer, s As Integern = 8s = 0Dos = s + nn = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是______。程序运行后，单击窗体，输出结果为______。

更多“运行下列程序:Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd ”相关问题

  • 第1题：

    下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub

    A．123

    B．3

    C．5

    D．579


    正确答案：C

  • 第2题：

    （ 8 ）有如下程序：

    Private Sub Form_Click （）

    n=10

    i=0

    Do

    i=i+n

    n=n-2

    Loop While n>2

    Print i

    End Sub

    程序运行后，单击窗体，输出结果为 【 10 】 。


    正确答案：

  • 第3题：

    有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：A

  • 第4题：

    下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum ＋ i End If Next i Print sum End Sub

    A. 12

    B. 18

    C. 24

    D. 30


    参考答案：A 

  • 第5题：

    编写如下事件过程： Private Sub Form_Click() k=2 Ifk＞=1 Then A=3 Ifk＞=2 Then A=2 Ifk＞=3 Then A=1 Print A End Sub 程序运行后，单击窗体，输出的结果为 ______。

    A．1

    B．2

    C．3

    D．出错


    正确答案：B
    解析：单击窗体后，变量k值为2。由于Form_Click()过程中有3个与k有关的单行If语句，故A的值取决于能执行为A赋值的最后一条If语句，即Ifk＞=2ThenA=2。因此输出为2。

  • 第6题：

    下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub

    A．1

    B．12

    C．11

    D．32


    正确答案：C
    解析：本题主要是对Do...Loop Until循环语句的考查。当Loop Until后的条件不成立时，即退出循环。该题在k为1、2、3、 4、5时，都执行了循环语句，故一共执行了五次，同时m＝m+2也执行了五次，最后m的值增加了10，故运行结果为11。

  • 第7题：

    执行下列程序后，鼠标单击窗体，输出结果为

    Private Sub Form_Click()

    Print "Click"；

    End Sub

    Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)

    Print "Donw"

    End Sub

    Private Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)

    Print "Up"

    End Sub

    A．DownUpClick

    B．ClickDownUp

    C．DownClickUp

    D．UpDownCliek


    正确答案：A
    解析：鼠标单击时，依次引发MouseDown、MouseUp和Click事件，即Click事件包含鼠标按下和放开事件。

  • 第8题：

    下列程序 Private Sub form_Click() score=Int(Rnd * 10)+80 Select Case score Case Is＜60:a$＝"F" Case 60 To 69:a$＝"D" Case 70 To 79:a$＝"C" Case 80 To 89:a$="B" Case Else:a$＝"A" End Select Print a$ End Sub 运行时输出的结果是

    A．F

    B．D

    C．C

    D．B


    正确答案：D
    解析：本题计算score用的表达式是Int(Rnd*10)+80，由于Rnd产生0到1之间的随机数，该随机数含。但不含1，乘10取整后其值是。到9之间的整数，加80后值是80到89之间的整数，多分支入口select Case score，测试表达式是score，从上到下检查Case中的表达式列表是否满足条件，本题中Case 80 To 89表达式满足条件，因此执行a $＝"B"，a$的值执行后为字符B，退出多分支后，输出字符B。

  • 第9题：

    有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1 Click（ ） Dim a As stu X="ABCD" Y=12345 Print a End Sub 程序运行时出现错误，错误的原因是（ ）。

    A.Type定义语句没有放在标准模块中

    B.变量声明语句有错

    C.赋值语句不对

    D.输出语句Print不对


    正确答案：D
    D。【解析】本题程序的含义是，定义了一个stu类型，此类型包含有两个变量X和Y，当单击Command控件时，定义一个类型为stu类型的变量a，其中a．X的值为“ABCD”，a．Y的值为12345，再输出a。其中输出语句是错误的，此时输出只能标准输出可以输出a．X或者a．Y。

  • 第10题：

    执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Up" End Sub

    A．DownUpClick

    B．CfickDownUp

    C．DownClickUp

    D．UpDownClick


    正确答案：A

  • 第11题：

    运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x

    运行下列程序：

    Private Sub Form_Click( )

    Dim y As Integer, x As Integer

    Do Until x > 20

    x = x + 10

    y = y + x

    If x > 20 Then Exit Do

    Loop

    Print x, y

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.10 20

    B.30 60

    C.10 30

    D.20 60


    正确答案：B

  • 第12题：

    9）设有如下程序：

    Private Sub Form_Click( )

    Cls

    a$="ABCDFG"

    For i=1 To 6

    Print Tab(12-i); 【9】

    Next i

    End Sub

    程序运行后，单击窗体，结果如图所示，请填空。


    正确答案：

    （9）【答案】Right(a $,i)
    【解析】Right函数用于从字符串右边返回指定数目的字符。格式为：Right（string,length）.其中，参数string 为字符串表达式，其最右边的字符被返回。

  • 第13题：

    下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

    A．36

    B．25

    C．1

    D．出错信息


    正确答案：D

  • 第14题：

    有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。

    A．Private Sub Form_Click() PopupMenu cut End Sub

    B．Private Sub Command1_Click() PopupMenu edit End Sub

    C．Private Sub Form_Click() PopupMenu edit End Sub

    D．Private Sub Form_Click() PopupMenu cut End Sub


    正确答案：C
    解析：PopupMenu方法用来显示弹出式菜单，其格式为：[对象．]。PopupMenu菜单名[，Flags] [，X，Y，][BoldCommand]。根据题意，为了显示菜单，所以要把PopupMenu方法放到Form. Click事件中，菜单名为edit，所以选c。

  • 第15题：

    （10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程： Private Sub Form_Click() Text1.Text="VB Programming" End Sub Private Sub Text1_Change() Picture1.Print"VB程序设计" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是 。


    正确答案：VB Programming、VB 程序设计
    【解析】单击窗体触发Form的Click事件，执行“Text1.Text="VB Programming"”语句，在文本框Text1中显示“VB Programming”；此时文本框Text1的Text属性发生了变化，因此触发Text1的Change事件，执行“Picture1.Print"VB程序设计"”语句，在图片框中显示“VB程序设计”。

  • 第16题：

    下面程序运行的结果为

    1

    11 12

    21 22 23

    31 32 33 34

    请在画线处填上适当的内容使程序完整。

    Private Sub Form_Click()

    Call [13]

    End Sub

    Private Sub Pl6()

    End Sub

    Private Sub p16()

    ForI=1 to 4

    Forj=1 to I

    a= [14]

    Print Tab(j-


    正确答案：p16(I-1)*10+j
    p16,(I-1)*10+j

  • 第17题：

    下列程序的运行结果是______。

    Sub abcd(ByValn As Integer)

    n=n+5

    End Sub

    Private Sub Form_Click()

    nx%=3

    Callabcd(nx%)

    Printnx%

    End Sub


    正确答案：3
    3

  • 第18题：

    有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：C
    解析：纵观题目可以看出，本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2，4，8，10，所以和是24，故本题的正确答案是选项C。

  • 第19题：

    有如下程序：

    Private type stu

    X as string

    Y as integer

    End type

    Private Sub Command1_Click()

    Dim a as stu

    a.x=”ABCD”

    a.Y=12345

    print a

    End Sub

    程序运行时出现错误，错误的原因是

    A)Type定义语句没有放在标准模块中

    B)变量声明语句有错

    C)赋值语句不对

    D)输出语句print不对


    正确答案：D
    【答案】：D
    【知识点】：结构体类型变量的定义及使用
    【解析】结构体类型的变量只能单独引用它的每一个成员，而不能整体使用。故本题选D。

  • 第20题：

    以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click() Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub

    A．20

    B．441

    C．400

    D．出错信息


    正确答案：D
    解析：本题定义A是一个一维数组，数组元素的下标范围允许为1～20。在循环中，将下标变量的平方赋给该数组的每个元素。当循环结束后，输出A数组的第K个元素的值，但此时K的值是21，A数组无此元素，故产生下标越界的错误。

  • 第21题：

    下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub

    A．***** *** *

    B．* *** *****

    C． * *** *****

    D． * *** *****


    正确答案：A

  • 第22题：

    编写如下程序： Private Sub Command1_Click() x="abcd" y="1234" For i=1 To 4 z=z+Mid(x，i，1)+Left(y，1) Next i Print z End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．abcd1234

    B．a1b2c3d4

    C．a1b1c1d1

    D．1234abcd


    正确答案：C
    解析：在4次循环过程中，利用Mid函数从x字符串中逐个获取的是a、b、c、d，Left函数从y字符串中逐个获取的是1、1、1、1，用“+”号将它们连接起来，就得到了答案C。

  • 第23题：

    运行下列程序:Dim bPrivate Sub Form_Click( )a = 1: b = 1Call fun1(a)Print "X = &quo

    运行下列程序：

    Dim b

    Private Sub Form_Click( )

    a = 1: b = 1

    Call fun1(a)

    Print "X = "; a; ",Y = "; b

    End Sub

    Private Sub fun1(a)

    b = 2 * a

    a = 3 * b

    End Sub

    单击窗体后，则在窗体上显示的结果是( )。

    A.X = 1，Y = 1

    B.X = 2，Y = 6

    C.X = 6，Y = 2

    D.X = 6，Y = 1


    正确答案：C

相关内容