vb实验指导例题

《vb实验指导例题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、实验AVB环境和可视化编程基础1.(1)运行界面(2)参考代码：PrivateSubCommandl_Click()label3.Caption=text1.TextEndSub2.模仿教材例1.1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。(1)运行界面(2)参考代码：PrivateSubCommandl_Click()Timer1.Interval=0CallmymoveEndSubSubmymove()Label1.MoveLabelI.Left-20IfLabel1.Left=0ThenLabel1.Le

2、ft=Form1.WidthEndSubPrivateSubCommand2_Click()Timer1.Interval=200EndSubPrivateSubTimerl_Timer()CallmymoveEndSub2.编写一程序，在文本框中统计在该窗LI上鼠标单击的次数。(1)运行界面：(2)编写代码：PrivateSubForm_Click()Textl=Val(Textl)+1EndSubPrivateSubForm_Load()Text1.Text=EndSub3.代码：PrivateSubForm_Click()Form1.C

3、aption="鼠标单击"Form1.Picture=LoadPicture("d:l.jpg")EndSubPrivateSubForm_DblClick()Form1.Caption=”就标双击"Form1.Picture=LoadPicture("d:2.jpg")EndSubPrivateSubForm_Load()Form1.Picture=LoadPicture("d:3.jpg")EndSub2.命令按钮、字号、内容和格式的复制练习(1)运行界面(2)参考代码：PrivateSubCommand1_Click()Textl

4、.FontName="黑体”Textl.FontSize=25EndSubPrivateSubCommand2_Click()Text2.Text=Textl.SelTextText2.FontName=Textl.FontNameText2.FontSize=Textl.FontSizeTextl.SetFocusEndSub实验B顺序结构1.编一个平氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。代码：PrivateSubC

5、ommandl_Click()Dimf!，c!f=Val(Textl.Text)c=5/9*(f-32)Text2.Text=Format(c,"0.00")EndSubPrivateSubCommand2_Click()Dimf!，c!c=Val(Text2.Text)f=9/5*c+32Text1.Text=Format(f，H0.00M)EndSub2.(1)运行界面2-2输入有非数字字符,谓重新输入(2)参考代码PrivateSubCommandl_Click()r=Text1.TextLabel1.Caption=Format(3.

6、14*r*r,".00")Textl.SetFocusEndSubPrivateSubCommand2_Click()r=Val(Textl.Text)Label2.Caption=Format(3.14*2*r,".00")Textl.SetFocusEndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfNotIsNumeric(Textl)ThenMsgBox"输入有误，请重输入”Textl.SetFocusTextl.SelStart=0Textl.Sel

7、Length=Len(Textl.Text)EndIfEndIfEndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Textl)ThenMsgBox"输入有非数字字符，请重新输入n，，"2-2Textl.SetFocusTextl.SelStart=0Text1.SelLength=Len(Text1.Text)EndIfEndSub1.我国有13亿人U，按人U增长0.8%计算，多少年后我国人U超过26亿。(1)运行界面(2)参考代码PrivateSubCommand1_Click()a=Int(L

8、og(2)/(Log(l+0.008)))+1Text1.Text=a&n年后，我国人口超过26亿••EndSub2.输入一字符串，分别调用Ucase、Len函数将