VB编程的程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 18:40:39
1、在窗体上画一个文本框，把它的Multiline属性设置为True，通过菜单命令向文本框中输入信息并对文本框中的文本进行格式化。按下述要求建立菜单程序：
（1）菜单程序含有3个主菜单，分别为“输入信息”、“显示信息”和“格式”。
 “输入信息”包括两个菜单命令：“输入”、“退出”。
 “显示信息”包括两个菜单命令：“显示”、“清除”。
 “格式”包括5个菜单命令：“正常”、“粗体”、“斜体”、“下划线”和“font20”。
（2）“输入”命令的操作是：显示一个输入对话框，在该对话框中输入一段文字。
（3）“退出”命令的操作是：结束运行程序。
（4）“显示”命令的操作是：在文本框中显示输入的文本。
（5）“清除”命令的操作是：清除文本框中所显示的内容。
（6）“正常”命令的操作是：文本框中的文本用正常字体（非粗体、非斜体、无下划线）显示。
（7）“粗体”命令的操作是：文本框中的文本用粗体显示。
（8）“斜体”命令的操作是：文本框中的文本用斜体显示。
（9）“下划线”命令的操作是：给文本框中的文本加上下划线。
（10）“font20”命令的操作是：把文本框中文本字体的大小设置为20。
要求：新输入的文本添加到原有文本的后面。

dim x as string
Private Sub shuru_Click()
x=inputbox
end sub
Private Sub tuichu_Click()
end
end sub
Private Sub xianshi_Click()
text1=text1+x 'x=inputbox"请输入信息"
end sub
Private Sub qingchu_Click()
text1=""
end sub

以下如上即可！

Dim jl As String

Private Sub ct_Click()

Text1.FontBold = True

End Sub

Private Sub qc_Click()

 Text1.Text = ""

End Sub

Private Sub sl_Click()

jl = InputBox("请输入相关信息", "输入信息")

End Sub

Private Sub tc_Click()

End

End Sub

Private Sub xhx_Click()

Text1.FontUnderline = True

End Sub

Private Sub xs_Click()

Text1.Text = jl

End Sub

Private Sub xt_Click()