题目内容（请给出正确答案）

[主观题]

（22 ）窗体上有文本框 Text1 和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单

击 “ 保存 ”菜单项，则把其标题显示在 Text1 文本框中。下面可实现此功能的事件过程是：

（22 ）窗体上有文本框 Text1 和一个菜单，菜单标题、名称如表，结构见图。要

A ） Private Sub save_Click()

Sub save_Click()

Text1.Text=file.save.Caption

ave.Caption

End Sub

B ） Private

Text1.Text=s

End Sub

C ） Private Sub file_Click()

Text1.Text=file.save.Caption

End Sub

D ） Private Sub file_Click()

Text1.Text=save.Caption

End Sub

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“（22 ）窗体上有文本框 Text1 和一个菜单，菜单…”相关的问题

第1题

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。 A．

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。

A．TabStop

B．Enabled

C．Visible

D．TabIndex

点击查看答案

第2题

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程：Private Sub Command1_Clic

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。

A．Basic

B．cisaB

C．BASIC

D．CISAB

点击查看答案

第3题

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（)ShowText1.Text=""Tex

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是______。

A． Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第4题

（12 ）在窗体上有一个文本框控件，名称为 Text1 。同时，窗体加载时设置其计时器间隔为 1 秒、计时器

触发事件过程则实现在 Text1 文本框中动态显示当前日期和时间。请补充完整。

Private Sub Form_Load()

Me.TimerInterval =1000

End Sub

Private Sub 【 12 】

Me!text1 = Now()

End Sub

点击查看答案

第5题

设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是

A.Text1．Maxength=0

B.Text1．Enabled=False

C.Text1．Visible=False

D.Text1．Width=0

点击查看答案

第6题

设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load（） Show Text1.Tex

设窗体上有一个名为Text1的文本框，并编写如下程序：

Private Sub Form_Load（）

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp（Button As Integer, _

Shift As Integer, X As Single, Y As Single）

Print "程序设计"

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

Print "Visual Basic";

End Sub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。

A．Visual Basic

B．程序设计

C．Visual Basic程序设计

D．a程序设计

点击查看答案

第7题

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load（) Show Text1.Text=

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer，_Shift As Integer,X As Single,Y As Single） Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic";End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是。A．Visual BasicB．程序设计C．Visual Basic 程序设计D．a程序设计

点击查看答案

第8题

（19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框Private Sub Command1_Click（

（19 ）窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框

Private Sub Command1_Click()

Text1.Text= ” 程序设计 ”

Text1.SetFocus

End Sub

Private Sub Text1_GotFocus()

Text1.Text= ” 等级考试 ”

End Sub

运行以上程序，单击命令按钮后