End if End sub Private Sub Check2 Click If check2 value=l Then Textl.(I1=brEd Else Textl.(11-vbBlack End lif 如果选中单选框1,则文本字体为宋体,如果选中单选框2,则文本字体为黑体。 其代码如下 Private Sub Option Click() Textl. FontName= (12) Private Sub Option2 Click() Tex1 FontName=”黑体” End sub (11) (12) 六、编程题。(5题中选3题做,共3分) (如果地方不够,可以写在试卷背面,请注明题号) 1.在窗体上画一个标签标签框的边框风格属性值为1( Borderstyle属性值为 1- Fixed Single,单击窗体时在标签框中显示”Ⅴ ISUAL BASIC”字样。(11 分) 2.窗口的下部有3个命令按钮,其中左边按钮中标有“单击”,中间按钮中标有 清屏″,右边按钮中标有“结束"。当单击鼠标左边按钮时,屏幕上部的文本框 中显示“欢迎使用ⅴB6.0″,若单击中间按钮,清除文本框中的内容,若单击右 边的按钮,则程序结束。(11分) 3.利用标签和计时器设计电子钟。(11分) 4.用 InputBox输入球体的半径,然后计算球体的体积。(11分) 5.试编程将学生的百分制成绩转换成等级制,90分以上为“A"等,8089分 为“B"等,70-79分为“C″等,60分以下为D等。(11分)End If End Sub Private Sub Check2_Click( ) If Check2.Value=1 Then Text1. (11) =vbRed Else Text1. (11) =vbBlack End If End Sub 如果选中单选框 1，则文本字体为宋体，如果选中单选框 2，则文本字体为黑体。 其代码如下： Private Sub Option1_Click( ) Text1.FontName= (12) End Sub Private Sub Option2_Click( ) Text1.FontName=”黑体” End Sub (10) (11) (12) 六、 编程题。（ 5 题中选 3 题做， 共 33 分） （如果地方不够，可以写在试卷背面，请注明题号） 1. 在窗体上画一个标签,标签框的边框风格属性值为 1( BorderStyle 属性值为 1—Fixed Single ),单击窗体时,在标签框中显示”VISUAL BASIC” 字样。（11 分） 2．窗口的下部有 3 个命令按钮，其中左边按钮中标有“单击”，中间按钮中标有 “清屏”，右边按钮中标有“结束”。当单击鼠标左边按钮时，屏幕上部的文本框 中显示“欢迎使用 VB6.0”，若单击中间按钮，清除文本框中的内容，若单击右 边的按钮，则程序结束。（11 分） 3．利用标签和计时器设计电子钟。 （11 分） 4. 用 InputBox 输入球体的半径，然后计算球体的体积。（11 分） 5．试编程将学生的百分制成绩转换成等级制，90 分以上为“A”等，80—89 分 为“B”等，70--79 分为“C”等，60 分以下为 D 等。（11 分）