通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。Private Sub Combo1_Cliek()TextFontName=ComboList(ComboListlndex)End SubPrivate Sub Form_Load()With CombolAddltem"宋体"Addltem"隶书"Addltem"黑体"Addltem"楷体_GB2312""Listlndex＝0End WithText1.【 】30Textl. 【 】=Combol.List(0)End Sub
通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek()
TextFontName=ComboList(ComboListlndex)
End Sub
Private Sub Form_Load()
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
&8226;Addltem"楷体_GB2312""
&8226;Listlndex＝0
End With
Text1.【 】30
Textl. 【 】=Combol.List(0)
End Sub
相关考题：
在窗体上添加一个命令按钮(名为Commandl) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事件代码： Private Sub Commandl_click() m＝2.17 n＝Len(Str$(m) +Space(5) ) Me!Text1＝n End Sub 打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10
窗体上有一个文本框，其Name属性为Text1，如图1所示，并有如下事件过程：上述程序的运行结果是（ ）。A. 在文本框Text1中输出55B. 在文本框Text1中输出0C. 语法错误D. 在文本框Text1中输出不定值
在窗体上添加一个文本框Text 1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end subA． 在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在名为Form1的窗体上绘制一个文本框，其名称为Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：(1)在文本框中可以显示多行文本；(2)在文本框中显示垂直滚动条。(3)文本框中显示的初始信息为“计算机等级考试”。(4)文本框中显示的字体为三号规则黑体。(5)窗体的标题为“设置文本框属性”。完成设置后的窗体如下图所示。注意：不编写任何代码：文件必须存放在考生文件夹中，工程文件名为execise71.vbp，窗体文件名为execise71.frm。
在窗体上添加一个文本框，名为text1，然后编写如下的load事件过程，则程序的运行结果是( )。 Private Sub Form_Load Text1.Text=" " Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错
在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() TextText= " " TextSetFocus For i=1 To 10 Sum=Sum+i Next i TextText=Sum End Sub 上述程序的运行结果是 ______。A．在文本框Text1中输出55B．在文本框Text1中输出0C．出错D．在文本框Text1中输出不定值
在窗体上添加一个文本框Text1，然后编写如下的Load事件过程，则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End SubA．在文本框中显示120B．文本框中仍为空C．在文本框中显示1D．出错