123vbWord下载.docx

1、Private Sub Read_Click（） ReadDataPrivate Sub Calc_Click（） Dim S As String Sum = 0 For i = 1 To 100 If Int（Arr（i） / 3） = Arr（i） / 3 Then Sum = Sum + Arr（i） S = S & Str（Arr（i） & Next iText1.Text = SSum = ; SumPrivate Sub Save_Click（） WriteData DataOut.txt, Sum第三十三套二、（1）Private Sub Command2_Click（） Max

2、 = a（1） Min = a（1） For i = 2 To 100 If isnarc（a（i） = True Then If a（i） Max Then Max = a（i） If a（i） Min Then Min = a（i） Text1.Text = Max Text2.Text = Min（2）Private Sub C1_Click（） Dim n As Integer, k As Integer, s As Long n = Val（Cb1.Text） s = 0 For k = n To 5000 If k / n = Int（k / n） Then s = s + k N

3、ext k Text1.Text = s三、1）If which = 1 Then2）ElseIf which = 2 Then3）Text1.Text = Text1 + Text3.Text4）Text2.Text = Text2 + Text3.Text第三十七套二、（1） 1）arrN（i） = Int（Rnd * 1000） 2）Min = arrN（1） 3）If arrN（i） Min Then（2）Function Fun（） For i = 0 To 1000 If i Mod 7 0 Then Y = Y + 1 Fun = YEnd FunctionPrivate Sub

4、 Command1_Click（） d = Fun（） Text1.Text = d SaveData三、Private Sub C1_Click（） ReadData1 ReadData2Private Sub C2_Click（） Dim Arr3（20） As Integer Dim Sum As Integer For i = 1 To 20 Arr3（i） = Arr1（i） - Arr2（i） Sum = Sum + Arr3（i）Sum = taout.txt第三十八套 2）Sum = 0 3）Sum = Sum + arrN（i） 4）Aver = Sum / 20 For i

5、 = 0 To 200 If i Mod 3 = 0 Then Sum = Sum + i Fun = Sum三、Private Sub Command2_Click（） For i = 1 To 12 Sum = a（i, 1） For j = 2 To 10 Sum = Sum + a（i, j） Next j s（i） = Int（Sum / 10）第四十三套二、（1）Private Sub Option1_Click（） Text1.Alignment = 0Private Sub Option2_Click（） Text1.Alignment = 2Private Sub Optio

6、n3_Click（） Text1.Alignment = 1Private Sub Option4_Click（） Text1.FontName = 宋体Private Sub Option5_Click（）黑体 （2）Private Sub Command2_Click（） Timer1.Enabled = False1） For k = 0 To 359 Step 360 / 122） x = radius * Cos（k * 3.14159 / 180） + x03） Line1.Y2 = y0 - len1 * Sin（a * 3.14159 / 180）4） b = b - 30 /

7、 12三、 1） s = a（n, 1） 2）For k = 2 To 7 3）getmark = s * 3 * a（n, 8）Private Sub Command2_Click（） Dim k As Integer maxmark = getmark（1） m = 1 For k = 2 To 5 If maxmark getmark（k） Then maxmark = getmark（k） m = k Text2 = athlete（m） Text3 = maxmark第四十七套二、（1） 1）Timer1.Enabled = True 2）If Shape1.Top = Line2.

8、Y1 Then（2） Function even（） Dim s As Single, n As Integer For k = 1 To 100If a（k） / 2 = Fix（a（k） / 2） Then s = s + a（k） n = n + 1 s = s / n even = CInt（s）Function odd（） If a（k） / 2 Fix（a（k） / 2） Then odd = CInt（s）Function all（） s = s / 100 all = CInt（s） Select Case Combo1.ListIndex Case 0 Text1 = eve

9、n（） Case 1 Text1 = odd（） Case 2 Text1 = all（） End Select三、 1）Dim Mat（M, N） As Integer 2）Open App.Path & &datain.txt For Input As #1 3）Input #1, Mat%（i, j） 4） Mat%（i, 4） = t第四十八套二、（1）Private Sub C1_Click（Index As Integer）Select Case Index Timer1.Enabled = TruePrivate Sub Timer1_Timer（） Text1.Text = T

10、ext1.Text + 1（2） 1） Select Case s 2） Case Is = A And c Z Then j = Asc（c） - Asc（） + 1 a（j） = a（j） + 1 t = Chr（Asc（） For i = 2 To 26 Max Then Max = a（i） + i - 1） Text1.Text = t Text2.Text = Max第四十九套二、（1） 1）tmp = 1 2）tmp = tmp * i 3）xn = tmp 4）z = z + xn（t）（2） 1）arr = Array（第一项, 第二项第三项第四项） 2）Static i A

11、s Integer 3）i = 0Dim i%, j%, temp%, flag As Boolean i = 0 j = 9 temp = Text1（j） flag = True While （i And B$ z B$ = String（1, Asc（B$） - n%） B$ = String（1, Asc（B$） + 32） A$ = A$ + B$ Next k% Text1.Text = A（2） 1）If num a（i） Then Exit For 2）For j = 60 To i Step -1 3）a（j + 1） = a（j） 4）a（i） = num 5）For k

12、= 1 To 61 n = Len（s）: t = Dim word_max As Integer, word_num As Integer, word_len As Integer c = Mid（s, i, 1） If c word_max Then word_max = Len（t） Text1.Text = CInt（word_len + Len（t） / （word_num + 1） Text2.Text = word_max第五十二套二、（1） 1）Text1（0）.Text = Str（Time（） 2）s = s + （m - 3） * 0.15 3）Cmd1.Enabled

13、= True 4）Cmd2.Enabled = False（2）Private Sub Command2_Click（） s（i） = 0 For j = 1 To 10 s（i） = a（i, j） + s（i） s（i） = CInt（s（i） / 10） Text1（i - 1） = s（i） For k = 1 To 5 Shape1（k - 1）.Height = s（k） * 20 m = Line2.Y1 Shape1（k - 1）.Top = m - Shape1（k - 1）.Height Shape1（k - 1）.Visible = True Dim Max_len As

14、 Integer Max_len Then Max_len = Len（t） Max_word = t Text1.Text = Max_len Text2.Text = Max_word第五十三套二、（1） 1）HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.Width 2）VScroll1.Max = Shape2.Height + Shape2.Top - Shape1.Height 3）Shape1.Left = HScroll1.Value 4）Shape1.Top = VScroll1（2） 1）Timer1.Enabled =

15、 True 2）Timer1.Enabled = False 3）d = d - Image1.Top 4）t = t + 1 ia = 1: ib = 1: ic = 1 Do While ia = 30 And ib = 30 If a（ia） b（ib） Then c（ic） = a（ia）: ia = ia + 1 c（ic） = b（ib）: ib = ib + 1 ic = ic + 1 Loop ia = ia + 1: Do While ib ib = ib + 1: For k = 1 To 60 Text3 = Text3 + Str（c（k） + Space（2）第五十四

16、套二、（1） 1）For i = 1 To 5 2）For j = 1 To 2 * i - 1 3）For j = 1 To i + 1 4）For j = 1 To 9 - 2 * i（2）Private Sub Command1_Click（） Timer1 = False 1） Shape2.Top = Shape2.Top + d * 50 2）If Shape2.Top = Shape1.Top + Shape1.Height Then 3）Shape2.Left = Shape2.Left + d * 50三、1）n = n + 12）List1.AddItem ch$ p = 0.3 d = Int（Text1.Text / 500） Select Case d