一个类是（1）。在定义类时，将属性声明为private的目的是（2）。空白（1）处应选择（）

在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签，一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程，使程序运行后，在文本框中输入严计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise31.vbp，窗体文件名为execise31.frm。

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗V1中把窗体的KeyPreview属性设置为True，然后编写如下程序：

Dim S1 As String，S2 As String

Private Sub Form_Load()

Text1．Text=””

Text2．Text=””

TeXt1．Enabled=False

Text2．Enabled=False

End Sub

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

S2=S2&Chr(KeyCode)

End Sub

Privtee Sub Form_KeyPress(KeyAscii As Integer)

S1=S1&Chr(KeyAscii)

End Sub

Pfivtee Sub Command 1_Click()

Text1．Text=S1

Text2．Text=S2

S1=””

S2=””

End Sub

程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。

A．abc和ABC

B．空白

C．ABC和abc

D．出错

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

OptionBase1

PrivateSubCommand1_Click()

DimcolorAsVariant

color=Array("红色","绿色","白色","黑色")

Printcolor(2)

EndSub

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

A、空白

B、错误提示

C、绿色

D、白色

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Diln S1 As String，S2 As String Private Sub Form. Load（ ） Text1．Text="" Text2．Text="" Text1．Enabled=False Text2．Enabled=False End Sub Private Sub Form. KeyDown(KeyCode As Integer，Shift As Integer) S2=S2＆Chr(KeyCode) End Sub Pri vate Sub Form. KeyPress(KeyAscii As Integer) S1=S1＆Chr(KeyAscii) End Sub Private Sub Command1 Click（ ） Text1．Text=S1 Text2．Text=S2 S1="" S2="" End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。

A.abc和ABC

B.空白

C.ABC和abc

D.出错

在窗体上有一个命令按钮和一个文本框，其名称分别为Command1和text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivatesubCommand1_click()A=inputbox(“Enteraninteger”)B=inputbox(“Enteraninteger”)Text1.text=b+aEndsub程序运行后，单击命令按钮，如果在输入对话框里输入8和10，则文本框中显示的内容是()。

A.108

B.18

C.810

D.出错

下面是一个类的定义，根据程序功能，在指定的空白处填上适当的语句或语法成分，使程序完整。 Class ______ //定义名为myclass的类 { static int var=666； static int get var() { return var； } }

有一个窗体Form1，要求该窗体只能运行30s，时间一到则窗体将自动关闭。程序空白处应填写(  )。

  Private Sub Form_Load()

  Me.TimerInterval=1000

  i=0

  End Sub

  Private Sub Form_Timer()

  ______

  If i=30 Then

    DoCmd.CloSe

  End If

  End Sub

  A．i=i+1  B．i=i-1

  C．i=i+30  D．i=i-30

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

A．空白

B．错误提示

C．北京

D．上海

窗体上有一个命令按钮Conunand1，其Click事件过程如下。

  Private Sub Command1_Click()

   Dim c As String，n As Integer

   c="ABCDEF"

   For n=1 To 5 Step 2

    Debug.Print______

   Next n

  End Sub

  程序运行后，单击命令按钮，要求在立即窗口输出如下内容，则程序的空白处应填入(  )。

  F

  DEF

  BCDEF

  A．left(c，n)  B．right(n，C)  C．Right(c，n)D．mid(c，n，n)

简述鉴别试验的空白试验的定义。做空白试验的目的是什么？