VB程序

SIN函授Dim i%, j%Form1.Scale (-10, 3)-(10, -3)Line (-10, 0)-(10, 0)Line (0, 3)-(0, -3)For i = -10 To 10 Step 1Line (i, 0)-(i, 0.2)CurrentX = i - 0.15CurrentY = 0Print iCurrentX = 9: Print "x"CurrentY = 3: Print "y"NextFor j = -3 To 3 Step 1If j <> 0 ThenLine (0, j)-(0.2, j)CurrentX = 0 - 0.25CurrentY = j + 0.1Print jEnd IfNextFor x = -6.28 To 6.28 Step 0.001Line (x, Sin(x))-(x + 0.001, Sin(x + 0.001)) Next乘法口诀表Private Sub Form_Click()Dim i%, j%For i = 1 To 9For j = 1 To 9Print Tab(10 * j); i & "*" & j & "=" & i * j; Next jPrintNext i打印雪花Form1.Print Tab(1); "* * * * *"; Spc(10); "*" Print Tab(2); "* * * *"; Spc(10); "* *"Print Tab(3); "* * *"; Spc(10); "* * *"Print Tab(4); "* *"; Spc(10); "* * * *"Print Tab(5); "*"; Spc(10); "* * * * *购买物品Dim x!, y!x = InputBox("请输入钱数")If x < 1000 Theny = xEnd IfIf x <= 2000 And x >= 1000 Theny = 0.9 * xEnd IfIf x >= 2000 And x <= 3000 Theny = 0.8 * xEnd IfIf x >= 3000 Theny = 0.7 * xEnd IfText1.Text = y"鸡兔同笼Private Sub Command1_Click()Dim m%, n%, x%, y%m = Text1.Textn = Text2.TextIf 2 * m > n Or 4 * m < n Or n Mod 2 = 1 Then MsgBox "输入数据有误，请重新输入", 48 If 2 * m <= n And 4 * m >= n And n Mod 2 = 0 Theny = n / 2 - mx = m - yText3.Text = xText4.Text = yEnd IfEnd Sub2Dim m!, n!, x!, y!, a!r: m = Val(InputBox("请输入头数"))n = Val(InputBox("请输入脚数"))If n Mod 2 = 0 And n >= 2 * m And n <= 4 * m Theny = n / 2 - mx = m - yText1.Text = xText2.Text = yElsea = MsgBox("脚数错误请重新输入", 53)GoTo rEnd If计算周长半径Private Sub Command1_Click()Dim r!, d!, s!Const PI = 3.1415r = Text1.Textd = PI * 2 * rs = PI * r ^ 2Text2.Text = dText3.Text = sEnd Sub界面设置Private Sub M11_Click()Text1 = ClearEnd SubPrivate Sub M12_Click()Unload MeEnd SubPrivate Sub M21_Click()Text1.FontSize = 12End SubPrivate Sub M22_Click()Text1.FontSize = 16End SubPrivate Sub M23_Click()M23.Checked = Not M23.Checked Text1.FontBold = M23.CheckedEnd SubPrivate Sub M24_Click()M24.Checked = Not M24.Checked Text1.FontItalic = M24.CheckedEnd SubPrivate Sub Text1_Change()If Text1.Text = "" ThenM2.Visible = FalseElse: M2.Visible = TrueEnd IfEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 ThenPopupMenu M2End IfEnd Sub界面设置更新Private Sub M11_Click()Text1 = ClearEnd SubPrivate Sub M12_Click()Unload MeEnd SubPrivate Sub M21_Click()M21.Checked = Not M21.CheckedText1.FontSize = 12If M21.Checked = True ThenM22.Checked = FalseEnd IfEnd SubPrivate Sub M22_Click()M22.Checked = Not M22.Checked排序Private Sub Command1_Click()Dim j%, w%For i = 1 To 3For j = i + 1 To 4If a(i) < a(j) Thenw = a(i)a(i) = a(j)a(j) = wEnd IfNext jNext iFor i = 1 To 4Text2 = Text2 & " " & a(i)Next iEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Theni = i + 1a(i) = Val(Text3.Text)Text1 = Text1 & Text3 & " "Text3.Text = " "End IfEnd Sub三视图Private Sub Form_Click()Form1.Scale (-300, 400)-(300, -400) DrawWidth = 2CurrentX = -250: CurrentY = 50 Line -Step(200, 50), , BLine -Step(-30, 200), , BLine -Step(-140, -200), , BLine Step(30, 0)-Step(0, 200)Circle Step(55, -100), 20 DrawWidth = 1DrawStyle = 3Line Step(-48, 0)-Step(96, 0)Line Step(-48, -66)-Step(0, 132)DrawWidth = 2Line (-250, -50)-Step(200, -200), , B Line -Step(-30, 140), , BLine -Step(-110, -140), , BLine -Step(-30, 140), , BLine -Step(0, 60)Circle Step(85, -130), 55, , , , 40 / 110 DrawWidth = 1DrawStyle = 3Line Step(-66, 0)-Step(132, 0)Line Step(-66, -36)-Step(0, 72)Line Step(0, 26)-Step(0, 76)End Sub剩余残料Private Sub Form_Click()Dim i%, j%, r%, a%, b%, c%a = 200For i = 1 To 321 \ 17For j = 1 To 321 \ 27r = 321 - 17 * i - 27 * jIf r >= 0 And r <= 321 ThenIf a >= r Thena = rb = ic = jEnd IfEnd IfNextNextPrint "剩余残料"; aPrint "截得a材料"; bPrint "截得b材料"; c水仙花Private Sub Form_Click() Dim i%, j%, k%, a%For i = 1 To 9For j = 0 To 9For k = 0 To 9a = i * 100 + j * 10 + kIf a = i ^ 3 + j ^ 3 + k ^ 3 ThenPrint aEnd IfNextNextNext通话时间Private Sub Label1_Click()Text1.Text = TimeEnd SubPrivate Sub Label2_Click()Text2.Text = TimeEnd SubPrivate Sub Label3_Click()Dim s As Date, e As DateDim t!s = CDate(Text1.Text)e = CDate(Text2.Text)t = DateDiff("s", s, e) / 60Text3.Text = tDim y!a = Val(Left(Text1.Text, 2))If t <= 3 ThenIf a >= 7 And a <= 19 Theny = 0.5Elsey = 0.25End IfElseIf a >= 7 And a <= 19 Theny = (t - 3) * 0.15 + 0.5Else: y = ((t - 3) * 0.15 + 0.5) * 0.5 End IfEnd IfText4.Text = yEnd Sub统计字符Private Sub Command1_Click()Dim a(1 To 26) As Integer, c As String le = Len(Text1)For i = 1 To lec = UCase(Mid(Text1, i, 1))If c >= "A" And c <= "Z" Thenj = Asc(c) - 65 + 1a(j) = a(j) + 1End IfNextFor j = 1 To 26If a(j) > 0 ThenText2 = Text2 & UCase(Chr(j + 64)) & "=" & a(j) & " "End IfNext j温度转换Private Sub Command1_Click()Dim c!Dim f!f = Text1.Textc = (f - 32) * 5 / 9Text2.Text = cEnd SubPrivate Sub Command2_Click()Dim c!Dim f!c = Text2.Textf = 9 * c / 5 + 32Text1.Text = fEnd Sub选菜vate Sub Command1_Click()Dim i%, item As StringFor i = 0 To List1.ListCount - 1If List1.Selected(i) ThenList2.AddItem List1.List(i)End IfNextEnd Sub学生成绩Private Sub Form_Click()Dim mark() As Single, n%, i%, j%, k%, sum%n = Val(InputBox("输入学生人数"))ReDim mark(1 To n)For i = 1 To nmark(i) = Val(InputBox("输入第" & i & "个学生的成绩"))sum = sum + mark(i)Print "mark(" & i & ") = " & mark(i); ""PrintNextsum = sum \ nPrint "平均数" & "=" & sum;Printk = 0For i = 1 To nIf mark(i) > sum Thenk = k + 1End IfNextPrint "高于平均分的人数" & "=" & kEnd Sub移动标签Private Sub Timer1_Timer()Label1.FontSize = Int(20 + Rnd * 20)Label1.Move Label1.Left - HScroll1.Value, Label1.Top - HScroll1.Value If Label1.Left <= 0 ThenLabel1.Left = 1200Label1.Top = 1500End IfIf Label1.Top <= 0 ThenLabel1.Left = 1200 Label1.Top = 1500 End If。