- 1、本文档共43页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB实验代码填空
【实验2-3】
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2
Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2
Label2.Left = Label1.Left + 60
Label2.Top = Label1.Top + 40
End Sub
【实验2-4】
Private Sub Command5_Click()
Text1.FontStrikethru = Not Text1.FontStrikethru
End Sub
Private Sub Command6_Click()
Text1.FontBold = Not Text1.FontBold
End Sub
Private Sub Command7_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Command9_Click()
Text1.FontSize = Text1.FontSize - 5
End Sub
【实验3-1】
Private Sub Command1_Click()
Const pi = 3.1415926535898
Dim h As Single, r As Single
h = Val(Text1.Text)
r = Val(Text2.Text)
Text3.Text = Format(pi * r ^ 2, 0.000)
Text4.Text = Format(2 * pi * r * h, 0.000)
Text5.Text = Format(pi * r ^ 2 * h, 0.000)
End Sub
【实验3-2】
Private Sub Timer1_Timer()
Label1.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10))
Label2.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10))
Label3.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10))
Label4.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10))
Label5.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10))
Label6.Caption = Format(Int(Rnd * 10)) Format(Int(Rnd * 10))
End Sub
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
【实验3-3】
Private Sub Timer1_Timer()
Text1.Text = Year(Now)
Text2.Text = Month(Now)
Text3.Text = Day(Now)
Text4.Text = Hour(Now)
Text5.Text = Minute(Now)
Text7.Text = DateDiff(d, Now, 2008-08-08 20:00:00)
Text8.Text = DateDiff(h, Now, 2008-08-08 20:00:00)
End Sub
【实验3-5】
Private Sub Command1_Click()
Dim s1 As String, s2 As String, location As Integer
s1 = Trim(Text1.Text)
s2 = Trim(Text2.Text)
location = InStr(1, UCase(s1), UCase(s2))
Label3.Caption = s2 first occurs in position Str(location)
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength
您可能关注的文档
- 【高中数学必修4学习课件】——人教A版3-2简单的三角恒等变换.ppt
- iptables规则链详细介绍.doc
- CentOS上最小化安装Oracle 10gR2.docx
- 【数学】1.2.2《组合(四)》课件(新人教A版选修2-3).ppt
- 高中数学2.1.3-4直线与平面、平面与平面的位置关系课件课件新人教A版必修.ppt
- 数学:2.1.3-2.1.4《直线与平面、平面与平面的位置关系》课件(新人教版A必修2)好用.ppt
- 用iptables构建Linux防火墙.doc
- 高中数学新人教A版必修四课件:3.1.3二倍角的正弦、余弦、正切公式.ppt
- 高中数学新人教A版必修四课件:3.2-4简单的三角恒等变换.ppt
- 人教版 成才之路数学A版选修(2-2)3-4.ppt
文档评论(0)