常用标准控件作业答案

《常用标准控件作业答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1、编写如下图所示的程序。PrivateSubCommandl_Click()，显示按钮IfOptionl.Value=TrueThenTextLFontName="宋体"IfOption2.VaIue=TrueThenTextLFontName=”隶书”IfOption3.Value=TrueThenTextl.FontName=”楷体_GB2312HIfCheckl.Value=1ThenTextl.FontBold=TrueElseTextl.FontBold=FalseEndIfIfCheck2.Value=1ThenTextl

2、.Fontltalic=TrueElseTextl.Fontltalic=FalseEndIfIfCheck3.Value=1ThenText1.FontUnderline=TrueElseTextl.FontUnderline=FalseEndIfIfOption4.Value=TrueThenTextl.FontSize=12IfOptionS.Value=TrueThenTextl.FontSize=16IfOption6.Value=TrueThenTextl.FontSize=20IfOption7.VaIue=TrueThe

3、nTextl.ForeColor=vbRedIfOption&Value=TrueThenTextl.ForeColor=vbGreenIfOption9.Value=TrueThenTextl.ForeColor=vbBlueEndSubPrivateSubCommand2_Click()，结束按钮EndEndSub2、编写如下图所示的程序：在文木框TEXT1屮输入姓名，选择职称和性别，在文木框TEXT2中输出姓名、性别和职称。PrivateSubCommandl_Click()，确定按钮DimxmAsString,zcAsStrin

4、g,xbAsStringxm=Textl.TextIfOption1.Value=TrueThenzc=”教授”ElselfOption2.Value=TrueThenzc=**gj教授”ElselfOption3.Value=TrueThenzc=”讲师”Elsezc=”助教”EndIfIfOptionS.Value=TrueThenxb=”男“Elsexb=H女“EndIfText2.Text=xm+n,n+xb+H,H+zcEndSubPrivateSubCommand2_Click()，退出按钮EndEndSub3、创建下图所示

5、界面的VB程序，程序启动运行后，文本框屮白动显示文字“计算机科学”，字号为10；单击“对齐方式”单选按钮，可以改变文木框屮文字的对齐方式；拖动水平滚动条滑块的位置，使文本框中文字的字号在10〜50之间变化。PrivateSubForm_Load()Textl.Text=”计算机科学“Textl.FontSize=10HScrolll.Max=50HScrolll.Min=10EndSubPrivateSubHScrolll_Change()Textl.FontSize=HScrolll.ValueEndSubPrivateSubOpti

6、onl_Click()IfOptionl.Value=TrueThenTextl.Alignment=0EndSubPrivateSubOption2_Click()IfOption2.VaIue=TrueThenTextl.Alignment=2EndSubPrivateSubOption3_Click()IfOption3.Value=TrueThenTextl.Alignment=1EndSub4、计算0~100内任意一个整数的平方，数据由滚动条获得。Max属性为100,Min属性为0,Value初值为0,SmallChange属

7、性为1,LargeChange属性为3PrivateSubHScrolll_Change()DimsAsDoubles=()n=HScrolll.Values=n*nLabel2.Caption=n&"的平方="LabeB.Caption=sEndSub5、用列表框实现歌Illi列表的管理，实现从所有歌单列表屮选择白己爲欢的歌Illi,添加到己点歌曲列表中。窗体组成：2个标签框；3个命令按钮；2个列表框,Style属性分别设置为1和0茉莉花开荷塘月色□千方百计只因为愛"天长地久9玩等世界已韓曲我很悽旷爱&跡心中的花玩转世•*-'北京钦迎

8、你PrivateSubCommandl_Click()，选择按钮IfList1.Text<>HHThenList2.AddItemListl.TextEndSubPrivateSubCommand2_Cli