Question

求大神指导一下，VB程序设计题，在线等，急……

求大神指导一下，VB程序设计题，在线等，急……三道题，先写一道也行，不要随便复制粘贴的，希望认真对待，求助！





Answer 1

Private Sub About_Click()
  Text1.Visible = True
End Sub

Private Sub Bold_Click()
  Text1.FontBold = True
End Sub

Private Sub Eliminate_Click()
  Text1.Text = ""
End Sub

Private Sub End_Click()
  End
End Sub

Private Sub Form_Load()
  Text1.Text = "    交互设计师是目前市场需求量大，而设计师数量确比较少的一个职位，就业前景非常乐观。本套课程从交互设计师通常需要产出的信息架构、流程图、线框原型、高保真原型、可交互原型等方面出发，系统讲解移动交互设计师需要学习的工作流程、软件技能以及思维方式。"
  Text1.Visible = False

End Sub

Private Sub Italic_Click()
  Text1.FontItalic = True
End Sub

Private Sub Size_12_Click()
  Text1.FontSize = 12
End Sub

Private Sub Size_8_Click()
  Text1.FontSize = 8
End Sub

菜单设计：

运行效果：