如下图所示的两个窗体：要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End SubB．Private Sub Command1_Click() Show 1 End Sub Private S

题目

如下图所示的两个窗体：

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是

A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End Sub

B．Private Sub Command1_Click() Show 1 End Sub Private Sub Conunand2_Click() End End Sub

C．Private Sub Conmmand1_Click() Show 1 End Sub Private Sub Command2_Click() End End Sub

D．Private Sub Command1_Click()Show 1， Form2 End SubPrivate Sub Command2_Click() End End Sub

相似考题

1.工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是（ ）。A．Private Sub Command1_Click（ ）Form2.ShowEnd SubB．Private Sub Command1_Click（ ）Form2.VisibleEnd SubC．Private Sub Command1_Click（ ）Load Form2End SubD．Private Sub Command1_Click（ ）Form2.LoadEnd Sub

2.窗体上添加有3个命令按钮，分别命名为Command1、Command2和Command3。编写 Command1的单击事件过程，完成的功能为：当单击按钮Command1时，按钮Command2 可用，按钮Command3不可见d以下正确的是________。A．Private Sub Command1_Click() Command2.Visible=True Command3.Visible=False End SubB．Private Sub Command1_Click() Command2.Enabled=True Command3.Enabled=False End SubC．Private Sub Command1_Click() Command2.Enabled=True Command3.Visible=False End SubD．Private Sub Command1_Click() Command2.Visible=True Command3.Enabled=False End Sub

3.工程中有两个窗体，名称分别为Form1、Form2，Fonn1为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是 ______。A．Private Sub Command1_click() Foma2.Show End SubB．Private Sub Command1_Click() Form2.Visible End SubC．Private Sub Command1_Click() Load Form2 End SubD．Private Sub Command1_click() Form.Load EndSub

4.在窗体上画1一个名称为Command1的命令按钮，并编写以下程序Private Sub Command1_Click（）Print fun（“ABCDEFG”）End SubFunction fun（st As String） As Stringstlen=Len（st）temp=””For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是（ ）。A．ABCDEFGB．AGBFCEC．GFEDCBAD．AGBFCED

更多“如下图所示的两个窗体：要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来结束程序的运行(两个按钮名称为Command1和Command2)。则以下选项中，对这两个命令按钮编写的事件过程正确的是A．Private Sub Command1 Click() Form2．Show 1 End Sub Private Sub Command2_Click()End End SubB．Private Sub Command1_Click() Show 1 End Sub Private S”相关问题

  • 第1题：

    在窗件上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a=12345 Print Format S(a, "000. 00") End Sub 程序运行后，单击命令按钮，窗体上显示的是______。

    A．123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B
    解析：在使用Format函数使数值按“格式字符串”指定的格式输出时，符号“#”和“0”都是用于数字的输出，其个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示，但这两个功能的区别在于，“#”显示的多余的位不补0，“0”显示的多余的位以0补齐。

  • 第2题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。

    A．8

    B．2

    C．5

    D．11


    正确答案：A
    解析：因为Subl过程的形参都是传值传送，所以在其内的所有计算结果都不将返回，并不影响对应的实参值，变量a的值并没有改变，仍然是8。

  • 第3题：

    在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：Private sub Command1_Click() Text1.text="AB"End SubPrivate Sub Command2_Click() Text1.Text="CD"End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示 。A．AB B．CD C．ABCD D．CDAB


    正确答案：B
    【解析】本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。

  • 第4题：

    窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

    A.Private Sub Form1 Click（ ）

    End Sub···

    B.Private Sub Form1. Click（ ）

    End Sub···

    C.Private Sub Command1 click（ ）

    End Sub···

    D.Private Sub Command Click（ ）

    End Sub···


    正确答案：B
    B。【解析】窗体单击事件为Form—Click事件。

  • 第5题：

    在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1 Click() Text1.Text="AB" End Sub Private Sub Command2 Click() Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示

    A．AB

    B．CD

    C．ABCD

    D．CDAB


    正确答案：B
    解析：本题意在考查考生对文本框Text的理解。当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的属性变为CD，故选择B，不能选C，更不能选D。

  • 第6题：

    窗体上添加有3个命令按钮，分别命名为Command1、Command2和Command3，编写Command1的单击事件过程，完成的功能为：当单击按钮Command1时，按钮 Command2可用，按钮Command3不可见。以下事件过程中正确的是( )。

    A．Private Sub Command 1 Click() Command2.Visible＝True Command3.Visible＝False End Sub

    B．Private Sub Command1 Click() Command2.Enabled＝True Command3.Visible＝False End Sub

    C．Private Sub Command1_Click() Command2.Enabled＝True Command3.Visible＝False End Sub

    D．Private Sub Command1 Click() Command2.Visible＝True Command3.Enabled＝False End Sub


    正确答案：C
    解析：本题考查控件的可见和可用属性韵知识，在 VBA中，要想使某个控件可用：则使其Enabled属性为Tree；要想使某个控件可见，则使其Visible属性为Tree。所以本题的正确答案为C。

  • 第7题：

    在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

    Private Sub Command1_Click()

    Dim a()

    a＝Array("机床"，"车床"，"钻床"，"轴承")

    Print a(2)

    End Sub

    程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

    A．机床

    B．车床

    C．钻床

    D．轴承


    正确答案：C
    解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。

  • 第8题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是

    A． 11

    B．10

    C．9

    D．8


    正确答案：C
    解析：本题的结果取决于函数f，而f的作用是如果参数为偶数返回实值，如果为奇数则返回1。

  • 第9题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x * x+ y * y End Sub Private Sub Command1_Click() Dim a As Integer a = 8 Call sub1(1, 2,A)Print a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

    A．8

    B．2

    C．5

    D．11


    正确答案：A
    解析：因为sub1过程的形参都是传值传送，所以在其内的所有计算结果都将不返回，并不影响对应的实参值，变量a的值并没有改变，仍旧是8。

  • 第10题：

    在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示

    A．AB

    B．CD

    C．ABED

    D．CDAB


    正确答案：B
    解析：当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的Text属性变为CD。

  • 第11题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

    Private Sub Command1_Click（）

    a = 12345

    Print Format$（a, "000.00"）

    End Sub

    程序运行后，单击命令按钮，窗体上显示的是（ ）。

    A．123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B

  • 第12题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞Then m=m+n\3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。

    A．15

    B．18

    C．21

    D．24


    正确答案：C
    解析：本题考查的是For...Next循环语句。For...Next循环执行时，先将初始值赋给循环变量，判断是否超过终值，若未超过则执行循环体，遇到Next语句后，循环变量增加一个步长(默认值为1)，再判断是否超过终值，若未超过则继续执行循环体，如此重复直到循环变量超过终值，退出循环。本题中的循环变量为n，步长为1，当n=20时，再执行Nextn，则n=21，此时n大于终值20，退出循环。

  • 第13题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。

    A．5

    B．120

    C．153

    D．160


    正确答案：C
    解析：由于参数y、w是ByRef的参数，称为“引用”，所以在过程Subl中改变的值是带回到调用的地方的，因此Sum结果是5次Subl计算结果的和，即sum=(1+2+6+24+120)=153。本题答案为153。

  • 第14题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。

    A．VVV

    B．Vis

    C．sic

    D．11


    正确答案：A
    解析：函数string(n，字符串)的功能是返回由n个指定“字符串”中第一个字符组成的字符串。本题中的字符串“VisualBasic”的第一个字符为“V”，所以返回3个“V”，即String函数返回的字符为“VVV”。

  • 第15题：

    在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

    Private Sub f(ByVal x As Integer)

    x=x+4

    End Sub

    Private Sub Command1_Click()

    i=3

    Call f(i)

    If i＞4 Then i=i*2

    End Sub

    窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。


    正确答案：3
    3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完callf(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。

  • 第16题：

    在窗体上画一今名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。

    A．79

    B．340

    C．97

    D．死循环


    正确答案：C
    解析：Do…Loop While循环采用的是先执行循环体再判断条件的做法。所以代码先执行了一次循环体，使得 s=9，a=7，再判断条件a=0为假，则终止循环。

  • 第17题：

    窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件的事件过程是

    A．Private Sub Forml_Click() … End Sub

    B．Private Sub Form_Click() … End Sub

    C．Private Sub Commandl_Click() … End Sub

    D．Private Sub Command_Click() … End Sub


    正确答案：B

  • 第18题：

    在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是

    A．6

    B．7

    C．8

    D．9


    正确答案：B
    解析：本题考查通用过程的调用以及Mod函数的用法。“Mod”表示取模，fun过程的功能是当m可以被2整除时，返回2，否则返回1。程序利用了一个For,循环来调用该过程，最后的输出结果是1+2+1+2+1=7，选项B正确。

  • 第19题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a = 12345 Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是

    A． 123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B
    解析：对于符号“0”，实际数字小于符号位数时，数字前后加0；大于时，若要显示数值表达式的整数部分位数多于格式字符串的位数，按实际数值显示。若小数部分的位数多于格式字符串的位数，按四舍五入显示。

  • 第20题：

    在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub sl() x=x+20 End Sub Private Sub s2() Dim x As Integer x=x+20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

    A．10

    B．30

    C．40

    D．50


    正确答案：B
    解析： 本题考查变量作用域的知识。在整个程序中定义了一个全局变量x，在命令按钮的单击事件中对这个x赋值为10，然后依次调用s1和s2；在s1中对x自加了20；在s2中用Dim定义了一个局部变量x，按照局部覆盖全局的原则，在s2中的操作都是基于局部变量x而不是全局变量x。故此最终的输出结果为30。

  • 第21题：

    在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Command1)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“Access模拟”。以下能实现上述操作的事件过程是( )。

    A．Private Sub Command1_Click() Caption="Access模拟" End Sub

    B．Private Sub Text1_Click() Command1.Caption="Access模拟" End Sub

    C．Private Sub Command1_Change() Caption="Access模拟" End Sub

    D．Private Sub Text1_Change() Command1.Caption="Access模拟" End Sub


    正确答案：D

  • 第22题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是

    A．6

    B．7

    C．8

    D．9


    正确答案：B
    解析：本题中的通用过程fun(ByValmAsInteger)作用是判断参数m，如果m为偶数则函数返回2，如果m为奇数则函数返回1。在i=1To5的fun(ByValmAsInteger)调用中，共有偶数两个，奇数三个，所以最后结果为7。

  • 第23题：

    在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

    Private Sub Command1_Click（）

    x = -5

    If Sgn（x） Then

     y = Sgn（x ^ 2）

    Else

     y = Sgn（x）

    End If

    Print y

    End Sub

    程序运行后，单击命令按钮，窗体上显示的是（ ）。

    A．-5

    B．25

    C．1

    D．-1


    正确答案：C

相关内容