求解VB代码1．在窗体上添加一个文本框Txt1，分别添加一个组合框Com1和一个列表框Lst1，Txt1中的内容为“沈阳农业大学；在组合框中添加“宋体”、“楷体”和“黑体”；在列表框中添加12、2

Question

求解VB代码
1．在窗体上添加一个文本框Txt1，分别添加一个组合框Com1和一个列表框Lst1，Txt1中的内容为“沈阳农业大学；在组合框中添加“宋体”、“楷体”和“黑体”；在列表框中添加12、24、36、48，则应在窗体的Load事件中添加如下代码： 2．当单击组合框中的某项时，使文本框中内容变成相应的字体，则应该在组合框的Click事件中分别添加如下代码：    3．当单击列表框中的某项时，使文本框中内容变成相应的大小，则应该在列表框的Click事件中分别添加如下代码：

Answer 1

Private Sub Form_Load()
   Txt1.Text = "沈阳农业大学"
   Com1.AddItem "宋体"
   Com1.AddItem "楷体"
   Com1.AddItem "黑体"
   Com1.Text = "宋体"
   Lst1.AddItem "12"
   Lst1.AddItem "24"
   Lst1.AddItem "36"
   Lst1.AddItem "48"
End Sub
Private Sub Com1_Click()
   Txt1.FontName = Com1.Text
End Sub
Private Sub Lst1_Click()
   Txt1.FontSize = Val(Lst1.Text)
End Sub