Question

在窗体上画一个文本框，通过菜单命令向文本框中输入信息并对文本框中的文本进行格式

菜单程序含有3个主菜单，分别为“输入”、“输出”、“格式”（3分）
主菜单“输入”含有两个子菜单“输入文字”、“退出”（2分）
主菜单“输出”含有两个子菜单“显示”、“清除”（2分）
主菜单“格式”含有两个子菜单“粗体”、“斜体”（2分）
子菜单“输入文字”的快捷键为CTRL+A, 子菜单“显示”的快捷键为CTRL+B（2分）
“输入”命令的操作为：显示一个输入对话框，在该对话框中输入一段文字（3分）
“退出”命令的操作为：结束程序的运行（2分）
“显示”命令的操作为：在文本框中显示输入的文本（注意：之前输入的文本也要显示出来）（3分）
“清除”命令的操作为：清除文本框中显示的文本（2分）
“粗体”命令的操作为：文本框中的文字用粗体表示（2分）
“斜体”命令的操作为：文本框中的文字用斜体表示（2分）

Answer 1

Dim a As String

Private Sub D1_Click()

a = InputBox("")

End Sub

Private Sub D2_Click()

End

End Sub

Private Sub F1_Click()

Text1.Text = a

End Sub

Private Sub F2_Click()

Text1.Text = ""

End Sub

Private Sub G1_Click()

Text1.FontBold = True

End Sub

Private Sub G2_Click()

Text1.FontItalic = True

End Sub        ；你这个题目叙述有问题，要是详细点的话可以做的更好，比如你要求弹出输入框，此时你却没要求锁定TEXTLOCK属性，很明显这是不合理的。