2021VB实验指导例题.docxVIP

下载本文档

5
0
约2.43万字
约 41页
2021-01-12 发布于天津
举报
版权申诉

2021VB实验指导例题.docx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

实验A VB环境和可视化编程基础 1. (1 (1 )运行界面 (2)参考代码： Private Sub Comma nd1_Click() label3.Capti on = text1.Text End Sub 也要考虑文字出窗体边模仿教材例1.1,将事件过程中自上而下移动改为自右向左移动, 界的情况。也要考虑文字出窗体边 (1 )运行界面 (2)参考代码： Private Sub Comma nd1_Click() Timer1.I nterval = 0 Call mymove End Sub Sub mymove() Label1.Move Label1 .Left - 20 If Labell .Left = 0 Then Labell.Left = Forml.Width End Sub Private Sub Comma nd2_Click() Timerl.I nterval = 200 End Sub Private Sub Timer1_Timer() Call mymove End Sub 编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 (1)运行界面： (2)编写代码： Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1.Text = End Sub 4?代码: Private Sub Form_Click() Form1.Caption =鼠标单击 Form1.Picture = LoadPicture(d:\1.jpg) End Sub Private Sub Form_DblClick() Form1.Caption =鼠标双击 Form1.Picture = LoadPicture(d:\2.jpg) End Sub Private Sub Form_Load() Form1. Picture = LoadPicture(d:\3.jpg) End Sub 5.命令按钮、字号、内容和格式的复制练习 (1 )运行界面 (2)参考代码： Private Sub Comma nd1_Click() Textl.FontName =黑体 Text1.Fo ntSize = 25 End Sub Private Sub Comma nd2_Click() Text2.Text = Text1.SelText Text2.Fo ntName = Text1.Fo ntName Text2.Fo ntSize = Text1.Fo ntSize Text1.SetFocus End Sub 实验 B 顺序结构 1．编一个华氏温度与摄氏温度之间转换的程序，要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度；同样，单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。代码： Private Sub Command1_Click() Dim f!, c! f = Val(Text1.Text) c = 5 / 9 * (f - 32) Text2.Text = Format(c, 0.00) End Sub Private Sub Command2_Click() Dim f!, c! c = Val(Text2.Text) f = 9 / 5 * c + 32 Text1.Text = Format(f, 0.00) End Sub 2． ( 1)运行界面 (2 )参考代码 Private Sub Comma nd1_Click() r = Text1.Text Label1.Caption = Format(3.14 * r * r, .00) Textl.SetFocus End Sub Private Sub Comma nd2_Click() r = Val(Textl.Text) Label2.Caption = Format(3.14 * 2 * r, .00) Textl.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As In teger) If KeyAscii = 13 Then If Not IsNumeric(Textl) Then MsgBox 输入有误，请重输入” Textl.SetFocus Textl.SelStart = 0 Textl.SelLe ngth = Len (Textl.Text) End If End If End Sub Private Sub Text1_LostFocus() If Not IsNumeric(Textl) The n Ms