1、End If中心问题Private Sub Form_Resize（）Command1.Left = （Form1.ScaleWidth - Command1.Width） / 2Command1.Top = （Form1.ScaleHeight - Command1.Height） / 2Command1.Width = 0.2 * Form1.ScaleWidth曲线问题Private Sub Form_Paint（）Scale （0, 0）-（3000, 3000）Form1.DrawWidth = 5Form1.ForeColor = RGB（255, 0, 0）Line （0, 15
2、00）-（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 x查找a = InStr（1, Text1, Text2）Text1.SelStart = a - 1Text1.SelLength = Len（Text2）Text1.SetFocusPrivate Sub Text1_Change（）改变字体Private Sub Check1_Click（）If
3、 Check1.Value = 1 Then Text1.Font.Name = 隶书宋体 End IfPrivate Sub Check2_Click（）If Check2.Value = 1 Then Text1.Font.Bold = True Text1.Font.Bold = FalsePrivate Sub Check3_Click（）If Check3.Value = 1 Then Text1.Font.Italic = TrueText1.Font.Italic = FalsePrivate Sub Check4_Click（）If Check4.Value = 1 Then
4、Text1.ForeColor = vbRedText1.ForeColor = vbBlue同步Text2 = Text1.TextPrivate Sub Text2_Change（）Text1 = Text2.TextSin函数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 （1
5、000, 0）-（1000, 2000）Circle （1000, 1000）, 50For x = 0 To 2000y = 1000 - 300 * （Sin（x - 1000） * 3.1415926 / 180）考试程序正确 Text1 = 错误Private Sub Form_Load（）复制粘贴查找替换Private Sub Command3_Click（）a = InStr（1, Text1, Text3）Text1.SelLength = Len（Text3）Private Sub Command4_Click（）Text1.SelText = Text4图片路径Private
6、 Sub Dir1_Change（）File1.Path = Dir1.PathPrivate Sub Drive1_Change（）Dir1.Path = Drive1.DrivePrivate Sub File1_Click（）Picture1.Picture = LoadPicture（File1.Path + File1.FileName）改变字体颜色 Text1.Font.Name = Text1.Font.Italic = False Text1.ForeColor = vbBlack兴趣选择Text1 = Text1 & Check1.Caption Check2.Caption
7、 Check3.Caption Check4.Caption1.求三角形的面积代码：Option ExplicitDim a!,b!,c!r,!,s!a = InputBox（a=, 请输入a的数值）b = InputBox（b=请输入b的数值c = InputBox（c=请输入c的数值If a + b c And a + c b And b + c a And a 0 And b 0 And c 0 Then r = 1 / 2 * （a + b + c） s = Sqr（r * （r - a） * （r - b） * （r - c）Label1.Caption = 三角形的面积为 & s Label2.Caption = 输入的数据不能构成三角形
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1
升级会员 