Visual_Basic程序设计实验指导书实验代码

《Visual_Basic程序设计实验指导书实验代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第一章三、编程题第2题•设计由用户在文本框Ttxtl中输入圆的半径，在文本框Text2和文本框Text3中分别显示圆的周长和面积程序。PrivateSubCommandl_Click()'计算按钮Text3・Text=3.14159*Textl.lextA2Text2.Text=2*3.14159*lextl.TextEndSubPrivateSubCoinniand2_Click()'清除按钮Textl.Text=Text2.Text=Text3・Text=Textl.SetFocus，文本框获得焦点EndSubPrivateSubComniand3_Click()'结束按钮EndEndSu

2、bPrivateSubForm_Load()，也可以在属性窗口设置以下几个属性Labell.Caption=”请输入圆半径计算圆周长和面积"Label2.Caption='*输入圆半径"LabeB.Caption=”圆的周长是”EndSub第3题•在文本框中输入一个字符串，对字符串进行字体的放大或缩小PrivateSubCommandl_Click()'放大按钮Text1.FontSize=30Commandl.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=TrueEndSubPrivateSubComniand2_Click()'缩小按

3、钮Text1.FontSize=6Command2.Enabled=FalseCommand3.Enabled=TrueCommandl.Enabled=TrueEndSubPrivateSubCommand3_Click()'还原按钮Text!.FontSize=9Command3.Enabled=FalseCommandl.Enabled=TrueCommand2.Enabled=TrueEndSub第5题•编一程序，单击“加边框”按钮，在标签框四周加上边框；单击“隐藏”按钮。使边框不可见；单击“移动”按钮，使边框从当前位置向右移动500Twip,向下移动600TwipoPrivateSu

4、bComniandl_Click()'加边框按钮Labell.Visible=TrueLabell.BorderStyle=1EndSubPrivateSubCommand2_Click()'移动按钮Labell.Left=Labell.Left+500Labell.Top=Labell.Top+500•Labell.MoveLabell.Left+500,Labell.Top+600，或者用Move方法进行移动也可。Labell.Visible=TrueEndSubPrivateSubCoinmand3_Click()'隐藏按钮Labell.Visible=FalseEndSub第7题•在文

5、本框中输入正方体的边长，计算正方体的体积，表面积和周长。PrivateSubTextl_Change()Label5.Caption=Val(Text1.TextA3)Label6.Caption=6*Val(Textl.Text)A2Label7.Caption=12*Val(Textl.Text)EndSubPrivateSubTextl_LostFocus()Label5.Caption=Val(Text1.Text)A3Label6.Caption=6*Val(Textl.lext)A2Text2.Text=12*Val(Textl.Text)Label7.Caption=12*Val

6、(Textl.Text)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenLabel5.Caption=Val(Textl.Text)A3Label6.Caption=6*Val(Textl.lext)A2Text2.Text=12*Val(Textl.Text)Label7.Caption=12*Val(Textl.Text)Text1.SetFocusEndIfEndSub第二章・在窗体上使用Print方法显示图2.5所示的界面。然后修改界面和代码，在图形框中用Print方法显示相同的内容。PrivateSu

7、bForm_Click()Forml.Fontltalic=TrueForml.Print'*Italic-＞VisualBasic1*Forml.FontNaine="楷体_gb2312'*Fonnl.Print”楷体・＞程序设计语言”Forml.FontNaine=”隶书”Forml.Print”隶书・＞程序设计语言”Forml.FontName="@黑体"Forml.Print”旋转・＞程序