下列程序运行时，消息框显示的内容是（）。 Private Sub Command1_Click（） MsgBox CStr（123+321） End SubA、444B、123321C、123+321D、显示出错信息

下列程序运行时,消息框显示的内容是( )。

Private Sub Command1_Click()

MsgBox CStr(123 + 321)

End Sub

A、 444

B、 123321

C、 123+321

D、 显示出错信息

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

在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程：

Private Sub Form_C1ick()

Textl.Text="VB Programming"

End Sub

Private SubText1_change()

Picture1.Print"VB程序设计"

End SUb

程序运行后，单击窗体，则在文本框中显示的内容是______，而在图片框中显示的内容是______。

窗体上有名称为Command1的命令按钮和名称为Textl的文本框 Private Sub Command1 Click（ ） Text1．Text="程序设计" Text1．SeFocus End Sub Private Sub Text1 GotFocus（ ） Text1．Text="等级考试" End Sub 运行以下程序，单击命令按钮后（ ）。

A.文本框中显示的是"程序设计"，且焦点在文本框中

B.文本框中显示的是"等级考试"，且焦点在文本框中

C.文本框中显示的是"程序设计"，且焦点在命令按钮上

D.文本框中显示的是"等级考试"，且焦点在命令按钮上

在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是

A．23BCD

B．ABC

C．!@#ABC

D．123abc

下列事件过程：Private Sub Command1_ Click() MsgBox Str (123+123)End Sub运行时，信息框中出现的结果是______。

A．123+123

B．123

C．246

D．显示出错信息

执行下面的程序，消息框里显示的结果是 【 】 。

Private Sub Form_Click()

Dim Str As String， K As Integer

Str="ab"

For k=Len(Str) TO 1 Step-1

Str=Str & Chr(Asc(Mid(Str，k，1))+k)

Next k

MsgBox Str

End Sub

在窗体上画一个名称为List1的列表框，一个名称为Labell的标签，在列表框中显示若干项内容。当单击列表框中的某项内容时，该项内容能在标签中显示出来。下列能够正确实现上述功能的程序是

A．Private Sub List1_Click() Labell．Caption=List1．ListIndex End Sub

B．Private Sub List1_Click() Labell．Name=List1．ListIndex End Sub

C．PrivateSubListl click() Labell．Name=List1．Text End Sub

D．Private Sub List1_Click() Labell．Caption=List1．Text End Sub

（ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。

Private Sub cmdTest_Click()

Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）

If Answer=vbOK Then

cmdDisplay.Visible= 【 15 】

Else

Docmd.Close

End If

End Sub

在窗体上添加一个按钮(cmd) ，编写如下程序：

Private sub crud_click( )

Dim s, i

Fori = 1 to 10

s=s+i

Next

Msgbox s

End sub

程序运行后，单击按钮，在消息框中显示的信息为 【 】 。

窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt，当单击测试按钮时，弹出一个消息框，消息框中包括“确定”和“取消”按钮，若单击“确定”按钮则在文本框中显示“显示”，若单击“取消”按钮则在文本框中显示“取消”。单击退出按钮关闭窗体。试将程序补充完整。

Private sub cmdtest_click()

answer=msgbox("显示钮按", vbOkCancel)

If 【 】 then

txt="显示"

Else

txt="取消"

End If

End sub

Private sub cmdexit_click()

【 】

End sub

执行下面的程序，消息框里显示的结果是_______。

Private Sub Form_Click()

Dim Str As String

Str=""

S="Access"

Fori=Len(S)To 1 Step-l

Str=Str&Mid(S，i，1)

Next i

MsgBox Str

End Sub

在窗体上绘制一个文本框和一个图片框，然后编写如下两个事件过程：

Private Sub Form_Click()

Text1.Text="VB程序设计"

End Sub

Private Sub Text1_Change()

Picmml.Print"VBProgramming"

End Sub

程序运行后，单击窗体，则在文本框中显示的内容 [9] ，而在图片框中显示的内容是 [10] 。

以下程序运行时连续单击4次窗体，则第4次单击窗体后消息框中的输出结果为【 】。

PRIVATE FORM_CLICK( )

STATIC A AS INTEGER

DIM B AS INTEGER

B=A+B+1

A=A+B

MSGBOX A&"," &B

END SUB

运行下列程序： Private Sub Command1_Click() x = 0 Do While x＜10 x=x * x + 1 y=y+x Loop MsgBox y End Sub 单击Command1命令按钮后，弹出的消息对话框中会显示

A．5

B．8

C．26

D．34

执行下面的程序，消息框里显示的结果是( )。

Private Sub Form_Click()

Dim Str As String,S As String,k As Integer

S=Str

For k=Len(Str) To 1 Step -1

S=S & (Mid(Str,k,1)

Next k

End Sub

在窗体上画一个文本框和一个图片框，然后编写口下两个事件过程：

Private Sub Form_Click()

Text1.Text="VB程序设计"

End Sub

Private Sub Text1_Change()

PicturePrint"VB programming"

End Sub

程序运行后，单击窗体，则在本框中显示的内容是【 】，而在图片框中显示的内容是【 】。