VB编程问题，答的好加分~~

来源：百度知道 编辑：UC知道 时间：2024/06/23 16:36:42
在名称为FORM1的窗体上画一个文本框（名为TEXT1，TEXT属性为“国”，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），在属性窗口对滚动条设置如下属性:Min 10; Max 100; LagerChange 5; SmallChange 2。程序运行时，如果移动滚动条上的滚动框，，则可扩大或缩小文本框中的“国”字，要求程序中不得使用变量。
另：如果在上述基础上再添加一个列表框，程序运行时，单击“国”字，能将目前字号大小添加入列表框中显示，该如何编程？
请注明编写的是否有加列表框的内容，若2个都编对，有加分~~

添加List1，Text1，HScroll1
双击滚动条，将click事件改为scroll，然后输入代码：
text1.fontsize=hscroll1.value
双击text1，change事件改为click，输入代码：
list1.additem text1.fontsize
搞定！
等待加分