VB小程序源代码

VB小程序复制粘贴Private Sub Command1_Click()Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.SelText = Clipboard.GetTextEnd Sub上海问题Private Sub Command1_Click()If Option3.Value = True ThenText1 = You are rightElseText1 = You are wrongEnd IfEnd Sub中心问题Private Sub Form_Resize()Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2Command1.Width = 0.2 * Form1.ScaleWidthEnd Sub曲线问题Private Sub Form_Paint()Scale (0, 0)-(3000, 3000)Form1.DrawWidth = 5Form1.ForeColor = RGB(255, 0, 0)Line (0, 1500)-(3000, 1500)Line (1500, 0)-(1500, 3000)Circle (1500, 1500), 35For x = 0 To 3000y = 1500 - 200 * (Sin(x - 1500) * 3.1415926 / 180)PSet (x, y)Next xEnd Sub查找Private Sub Command1_Click()a = InStr(1, Text1, Text2)Text1.SelStart = a - 1Text1.SelLength = Len(Text2)Text1.SetFocusEnd SubPrivate Sub Text1_Change()End Sub改变字体Private Sub Check1_Click()If Check1.Value = 1 Then Text1.Font.Name = 隶书Else Text1.Font.Name = 宋体 End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Text1.Font.Bold = TrueElse Text1.Font.Bold = False End IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 Then Text1.Font.Italic = TrueElseText1.Font.Italic = False End IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbRedElseText1.ForeColor = vbBlue End IfEnd Sub同步Private Sub Text1_Change()Text2 = Text1.TextEnd SubPrivate Sub Text2_Change()Text1 = Text2.TextEnd SubSin函数Private Sub Form_Paint()Scale (0, 0)-(2000, 2000)PSet (1000, 1000)Line (1000, 0)-(950, 50)Line (1050, 50)-(1000, 0)Line (1950, 950)-(2000, 1000)Line (1950, 1050)-(2000, 1000)Line (0, 1000)-(2000, 1000)Line (1000, 0)-(1000, 2000)Circle (1000, 1000), 50For x = 0 To 2000y = 1000 - 300 * (Sin(x - 1000) * 3.1415926 / 180)PSet (x, y)Next xEnd Sub考试程序Private Sub Command1_Click()If Option3.Value = True ThenText1 = 正确Else Text1 = 错误 End IfEnd SubPrivate Sub Form_Load()End Sub复制粘贴查找替换Private Sub Command1_Click()Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.SelText = Clipboard.GetTextEnd SubPrivate Sub Command3_Click()a = InStr(1, Text1, Text3)Text1.SelStart = a - 1Text1.SelLength = Len(Text3)Text1.SetFocusEnd SubPrivate Sub Command4_Click()Text1.SelText = Text4End Sub图片路径Private Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Picture1.Picture = LoadPicture(File1.Path + File1.FileName)End SubPrivate Sub Form_Load()End Sub改变字体颜色 Private Sub Check1_Click()If Check1.Value = 1 Then Text1.Font.Name = 隶书ElseText1.Font.Name = 宋体End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 Then Text1.Font.Bold = TrueElse Text1.Font.Bold = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 Then Text1.Font.Italic = TrueElse Text1.Font.Italic = FalseEnd IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbRedElse Text1.ForeColor = vbBlackEnd IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_Change()End Sub兴趣选择Private Sub Command1_Click()Text1 = If Check1.Value = 1 ThenText1 = Text1 & Check1.CaptionEnd IfIf Check2.Value = 1 ThenText1 = Text1 & Check2.CaptionEnd IfIf Check3.Value = 1 ThenText1 = Text1 & Check3.CaptionEnd IfIf Check4.Value = 1 ThenText1 = Text1 & Check4.CaptionEnd IfEnd SubPrivate Sub Form_Load()End Sub1.求三角形的面积代码：Option ExplicitDim a!,b!,c!r,!,s!Private Sub Command1_Click()a = InputBox(a=, 请输入a的数值)b = InputBox(b=, 请输入b的数值)c = InputBox(c=, 请输入c的数值)If a + b c And a + c