[计算机软件及应用]vb

1、精品文档1表1步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。步骤2：选择【工具】【菜单编辑器】命令，翻开菜单设计器，如表2中的设置建立菜单项。如表2步骤3：翻开代码编辑窗口，编写菜单命令的单击事件过程。Private Sub Shape1_Click() Me.Sha1.Shape = 1End SubPrivate Sub Shape2_Click() Form1.Sha1 = 3End Sub步骤1：翻开考生文件夹下的此题工程文件sjt3.vbp。步骤2：在窗体Form1中参加两个单项选择按钮和两个复选框，分别设置它们的相关属性，属

2、性及其值如表3所示。表3步骤3：翻开代码编辑窗口输入如下代码：参考代码：Private Sub C1_Click() Dim a As String a = "我是" If Op1.Value Then Text1.Text = a & Op1.Caption Else Text1.Text = a & Op2.Caption End If a = "我的爱好是" If Ch1.Value = 1 Then Text2.Text = a & Ch1.Caption a = Text2.Text End If If Ch2.Valu

3、e = 1 Then Text2.Text = a & Ch2.Caption End IfEnd Sub步骤4：按<F5>键运行程序，先选中选中一个单项选择按钮和至少一个复选框，并单击"确定"按钮，然后单击窗体右上角的关闭按钮结束程序。步骤1：翻开考生文件中的此题工程文件sjt4.vbp，通过属性窗口向列表框添加四个工程，分别是："第一项"、"第二项"、"第三项"、"第四项"。步骤2：在代码编辑窗口，去掉程序中的注释符"'"，将问号"?

4、"改为正确的内容。参考代码：i = 0Timer1.Interval = 1000Label1.Caption = List1.List(i)步骤3：按要求将文件保存至考生文件夹中。步骤1：新建一个"标准EXE"工程，如表4在窗体中画出控件并设置其相关属性。表4步骤2：翻开代码编辑窗口，编写相应事件过程。参考代码：Option Base 1Dim sum(6) As IntegerPrivate Sub Command1_Click() Open App.Path & "in5.txt" For Input As #1 Text1.Te

5、xt = Input(LOF(1), #1) Close #1End SubPrivate Sub Command2_Click() For i = 1 To 6 sum(i) = 0 Next i If Len(Text1.Text) = 0 Then MsgBox "请先使用"读数"功能！" Else For i = 1 To Len(Text1.Text) c = LCase(Mid(Text1.Text, i, 1) Select Case c Case "i" sum(1) = sum(1) + 1 Case "j

6、" sum(2) = sum(2) + 1 Case "k" sum(3) = sum(3) + 1 Case "l" sum(4) = sum(4) + 1 Case "m" sum(5) = sum(5) + 1 Case "n" sum(6) = sum(6) + 1 End Select Next i End IfEnd SubPrivate Sub Command3_Click() Open App.Path & "out5.txt" For Output As #1

7、 For i = 1 To 6 Print #1, sum(i) Next i Close #1End Sub步骤3：按要求将文件保存至考生文件夹中。2表1 控件属性设置表2步骤2：在代码编辑窗口编写两个命令按钮的单击事件过程。参考代码：Private Sub Command1_Click() Shape1.FillStyle = 3End SubPrivate Sub Command2_Click() Form1.Shape1.FillStyle = 2End Sub步骤1：翻开考生文件中的此题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容

8、。参考代码：n% = Asc("a") - Asc("A")B$ = String(1, Asc(B$) + 32)Text1.Text = A步骤2：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件中的此题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：If num < a(i) Then Exit ForFor j = 60 To i Step -1a(j + 1) = a(j)a(i) = numFor k = 1 To 61步骤2：按要求将文件保存至考生文件夹中。步骤1：翻开

9、考生文件夹下的此题工程文件sjt5.vbp，如表3所列在窗体上画出控件并设置它们的相关属性。表3步骤2： 翻开代码编辑窗口，在指定位置编写"统计"按钮的单击事件过程。参考代码：Private Sub Command2_Click()'需考生编写 n = Len(s): t = "" Dim word_max As Integer, word_num As Integer, word_len As Integer For i = 1 To n c = Mid(s, i, 1) If c <> " " Then t =

10、 t + c Else word_len = word_len + Len(t) word_num = word_num + 1 If Len(t) > word_max Then word_max = Len(t) End If t = "" End If Next i Text1.Text = CInt(word_len + Len(t) / (word_num + 1) If Len(t) > word_max Then word_max = Len(t) End If Text2.Text = word_maxEnd Sub步骤3：按要求将文件保存至考生

11、文件夹中。步骤4：按<F5>键运行程序，先单击"读数据"按钮，再单击"统计"按钮，最后单击窗体右上角的关闭按钮结束程序。3表1表2步骤2：翻开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：Private Sub HScroll1_Change() Text1.Text = HScroll1.ValueEnd Sub表3步骤2：在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。参考代码：Timer1.Enabled = TrueIf Shape1.Top <

12、;= Lin1.Y1 ThenIf Shape1.Top + Shape1.Height >= Lin2.Y1 ThenPrivate Sub Command2_Click() Select Case Combo1.ListIndex Case 0 Text1 = even() Case 1 Text1 = odd() Case 2 Text1 = all() End SelectEnd SubFunction even() Dim s As Single, n As Integer s = 0 For k = 1 To 100 If a(k) / 2 = Fix(a(k) / 2) T

13、hen s = s + a(k) n = n + 1 End If Next s = s / n even = CInt(s)End FunctionFunction odd() Dim s As Single, n As Integer s = 0 For k = 1 To 100 If a(k) / 2 <> Fix(a(k) / 2) Then s = s + a(k) n = n + 1 End If Next s = s / n odd = CInt(s)End FunctionFunction all() Dim s As Single, n As Integer s

14、= 0 For k = 1 To 100 s = s + a(k) Next s = s / 100 all = CInt(s)End Function参考代码：Dim Mat (M, N) As IntegerOpen App.Path & "" & "datain.txt" For Input As #1Input #1, Mat (i, j)Mat (i, 4) = t4表1 控件属性设置表2步骤2：在窗体上画一个名为Command1，标题为"弹出菜单"的命令按钮，翻开代码编辑窗口，编写"弹出菜单&qu

15、ot;按钮的单击事件过程。参考代码：Private Sub Command1_Click() Form1.PopupMenu menu1End Sub步骤1：翻开考生文件中的此题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：ch = Right$(Text1.Text, 1)Label1.Caption = chLabel2.Caption = n步骤2：按要求将文件保存至考生文件夹中步骤1：翻开考生文件下的此题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：Timer

16、1.Enabled = TrueShape1.FillColor = red_colorShape1.Left = Shape1.Left + 50Shape1.Top = Shape1.Top + 50Shape1.FillColor = blue_color步骤2：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件中的此题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：CommonDialog1.FilterIndex = 2Open CommonDialog1.FileName For Input As #1Text1.Te

17、xt = sCommonDialog1.Action = 2步骤2：按指定位置编写“修改文件的单击事件过程。参考代码：Private Sub Command2_Click()' 考生需要编写的程序 s = "" str_len = Len(Text1) For k = 1 To str_len ch = Mid$(Text1, k, 1) If ch = "E" Or ch = "N" Or ch = "T" Then s = s & LCase(ch) ElseIf ch = "e&qu

18、ot; Or ch = "n" Or ch = "t" Then s = s & UCase(ch) Else s = s & ch End If Next k Text1 = sEnd Sub步骤3：按要求将文件保存至考生文件夹中。步骤4：按<F5>键运行程序，先单击“翻开文件按钮，接着单击“修改内容按钮，然后单击“保存文件按钮。5步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名称为Pic的图片框，并设置其Picture属性为Tu1-1.jpg。步骤2：双击窗体翻开代码编辑窗口，在窗体的Cl

19、ick事件过程中输入代码。参考代码：Private Sub Form_Click() Pic.Print "VB等级考试"End Sub步骤3：按要求将文件保存至考生文件夹中。步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名称为Command1，Caption属性为"命令按钮"的命令按钮。步骤2：选择【工具】【菜单编辑器】命令，翻开菜单设计器，如表1中的设置建立菜单项。步骤3：翻开代码编辑窗口，编写菜单命令的单击事件过程。参考代码：Private Sub subMenu1_Click() Command1.Visible

20、 = TrueEnd SubPrivate Sub subMenu2_Click() Command1.Visible = FalseEnd Sub步骤4：按要求将文件保存至考生文件夹中。参考代码：tmp = 1tmp = temp * ixn = tmpz = z + xn(t)步骤2：按<F5>键键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击“计算按钮。步骤3：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件中的此题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：arr = Array(&q

21、uot;第一项", "第二项", "第三项", "第四项")Static i As IntegerLabel1.Caption = arr(i)i = 0步骤2：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件中的此题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：j = 9temp = Text1 (j)While (i < j)If Text1 (j) Mod 2 = 1 Then步骤2：按要求将文件保存至考生文件夹中。6表-1步骤1：新建一个&qu

22、ot;标准EXE"工程，选择【工程】【部件】命令，在弹出的"部件"对话框的列表中选中"MicroSoft Common Dialog Control6.0"工程，单击"确定"按钮。步骤2： 在窗体Form1上画一个通用对话框和一个命令按钮，其相关属性设置如表2所示。步骤3：翻开的代码编辑窗口中，编写命令按钮的单击事件过程。Private Sub Command1_Click() CommonDialog1.Action = 2'或 CommonDialog1.ShowSaveEnd Sub表2步骤4：按要求将文件保存

23、至考生文件夹中。步骤1：翻开此题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：Line1.Y2 = YLine1.X2 = Line1.X1Line1.Y2 = y0 - 750Label1.Caption = "鼠标位置不对"步骤2：按要求将文件保存至考生文件夹中。参考代码：s = 1f = s步骤2：双击“计算按钮，编写该按钮的单击事件过程。参考代码：Private Sub Command2_Click() Dim s As Long, k As Integer'考生应编写的程序 s = 0 For

24、 k = 1 To n s = s + f(k) Next Text1 = sEnd Sub步骤3：按<F5>键键运行程序，单击“输入数据按钮，通过输入框输入一个812之间的整数，然后单击“计算按钮计算结果，最后单击“存盘按钮保存结果。步骤1：翻开考生文件中的此题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：'-注册窗体Form2-n = n + 1ElseIf finduser(Trim$(Text1) > 0 ThenForm1.Label1.Caption = "注册成功！"&#

25、39;-登录窗体Form3-If k = 0 ThenElseIf Trim$(Text2) <> users(k, 2) Then步骤2：按要求将文件保存至考生文件夹中。7表1表2步骤3：编写两个命令按钮的Click事件，参加下面的代码：参考代码：Private Sub Command1_Click() CD1.ShowOpen'或 CD1.Action = 1End SubPrivate Sub Command2_Click() CD1.ShowSave'或 CD1.Action = 2步骤1：翻开考生文件中的此题工程文件sjt3.vbp，将组合框的Style属

26、性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：Select Case Combo1.ListIndexMsgBox Str(x) & f1(x)MsgBox Str(x) & f2(x)Private Function f2(ByVal x As Integer) As StringIf x Mod 7 = 0 Then步骤3：按要求将文件保存至考生文件夹中。第2小题步骤1：翻开考生文件中的此题工程文件sjt4.vbp，将Shape1控件的Shape属性设置为3，BackColor属性设置为&H000000FF&

27、amp;。步骤2：在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：Private Flag As BooleanShape1.Top = Shape2.Top + Shape2.Height - Shape1.HeightShape1.Left = Shape2.Left + Shape2.Width - Shape1.Width步骤3：按要求将文件保存至考生文件夹中。、步骤1：翻开考生文件夹下的此题工程文件sjt5.vbp，翻开代码编辑窗口，在指定位置编写代码。参考代码：Private Sub find(x() As Integer, t As TextB

28、ox)'=以下为考生编写的程序=Max = x(1)For i = 2 To UBound(x) If x(i) > Max Then Max = x(i) End IfNextt.Text = Max=考生编写的程序结束=End SubPrivate Sub Command2_Click()=以下为考生编写的程序=For i = 1 To UBound(a) c(i) = a(i) + b(i)Next=考生编写的程序结束=Open App.Path & "out51.txt" For Output As #1 For i = 0 To 9 Prin

29、t #1, c(i) Next Close #1End Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：按<F5>键运行程序，先单击“读数据按钮，再单击“合并数组按钮，最后单击“找最大值按钮。8表1步骤2：翻开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Command1_Click()End Sub步骤1：翻开考生文件夹下的此题工程文件sjt3.vbp，翻开代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：st = st & chc = Mid(st, k, 1)word = ""步骤2：按要求

30、将文件保存至考生文件夹中。步骤1：翻开考生文件夹中的此题工程文件sjt4.vbp，将计时器Timer1的Enabled属性设置为False，Interval属性设置为100。步骤2：翻开代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容并编写两个命令按钮的单击事件过程。参考代码：Private Sub C1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub C2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() P1.Move P1.Left + 20

31、End Sub步骤3：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件中的此题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：参考代码：Dim i As IntegerDim n As Integern = Val(Text1.Text)If n Mod 2 <> 0 Then MsgBox "请输入偶数！" Exit SubEnd IfFor i = 3 To n / 2 If IsPrime(i) And IsPrime(n - i) Then Label1.Caption = i Label2.Caption = n - i Exit

32、For End IfNext步骤2：按要求将文件保存至考生文件夹中。步骤3：按<F5>键运行程序，在文本框中输入23456，单击“分解为按钮。9步骤1：新建一个"标准EXE"工程。步骤2：在窗体Form1中参加一个列表框和一个标签，并分别如表1设置它们的相关属性。表1步骤1：新建一个"标准EXE"工程，如表2在窗体中画出控件并设置其相关属性。步骤2：翻开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码：Private Sub Cmd1_Click()Image1.Picture = LoadPicture("图片.jpg&qu

33、ot;)End SubPrivate Sub Cmd2_Click() Image1.Picture = LoadPicture()End Sub步骤1：翻开考生文件夹下的此题工程文件sjt3.vbp，去掉程序中的注释符"'"，将问号"?"改为正确的内容。参考代码：If x = m 2 Thenis_square = flagIf a(k) > max ThenText1.Text = maxText2.Text = num步骤2：按要求将文件保存至考生文件夹中。步骤2：在代码编辑窗口，去掉程序中的注释符"'"，

34、将问号"?"改为正确的内容。参考代码：List1.AddItem "a0001"For i = 0 To List1.ListCount - 1List1.ListIndex = iList1.AddItem Text1.TextEnd步骤1：翻开考生文件夹中的此题工程文件sjt5.vbp， 在窗体上画两个命令按钮，属性及其值如表3所示。表3步骤2：在代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。参考代码：a(i) = Fix(Rnd * 99 + 1)For j = 1 To i -

35、 1i = i - 1If a(i) = num ThenIf i > 10 Then步骤3：按要求将文件保存至考生文件夹中。10步骤1：新建一个"标准EXE"工程，选择【工程】【部件】命令，在弹出的"部件"对话框的列表中选中"MicroSoft Common Dialog Control6.0"工程，单击"确定"按钮。步骤2： 在窗体Form1上画一个通用对话框，其相关属性设置如表1所示。表1步骤3：编写Form1的Load事件，参加下面的代码：CD1.ShowSave步骤4：按要求将文件保存至考生文件夹中

36、。步骤1：新建一个"标准EXE"工程，翻开VB菜单设计器设计菜单，各菜单项及属性设置如表2所示。表2步骤2： 翻开代码编辑窗口，编写"上一菜单项可用"命令的Click事件过程。参考代码：Private Sub menu2_Click() menu1.Enabled = TrueEnd Sub步骤1：翻开考生文件夹下的此题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码： If Option1.Value = True Then If a(i) >= x Then x = a(i) End

37、If ElseIf a(i) < y Then y = a(i) End If步骤2：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件夹中的此题工程文件sjt4.vbp，代码编辑窗口，去掉程序中的注释符“'，将问号“?改为正确的内容。参考代码：L2.AddItem L1.List(L1.ListIndex)L1.RemoveItem L1.ListIndexFor i = 0 To List1.ListCount - 1Call MoveItem(List1, List2)步骤2：按要求将文件保存至考生文件夹中。步骤1：翻开考生文件夹下的此题工程文件sjt5.vbp，在代码编

38、辑窗口的指定位置编写以下代码：参考代码：For k = 1 To N Sum = Sum + a(k, k) If a(k, k) / 3 = Int(a(k, k) / 3) Then Counter = Counter + 1 End If If k <> N - k + 1 Then If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then Counter = Counter + 1 End If End IfNextlblSecond.Caption = SumlblFirst.Caption = Counter步骤2：按

39、<F5>键运行程序，然后单击“计算按钮。步骤3：按要求将文件保存至考生文件夹中。73步骤2：双击窗体Form1中的"输入"按钮，在翻开的代码编辑窗口中，输入如下代码：Private Sub Command1_Click() Text1.Text = InputBox("请输入身高") Text2.Text = InputBox("请输入体重")End Sub步骤2：翻开代码编辑窗口，分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。Private Sub Command1_Click() VScrol

40、l1.Min = 100 VScroll1.Max = 2400 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20End SubPrivate Sub VScroll1_Change() Picture1.Height = VScroll1.Value步骤2：翻开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。List1.AddItem Text1.TextFor i = 0 To List1.ListCount - 1If List1.List(i) = Text1.T

41、ext ThenList1.RemoveItem i参考代码：Start = LBound(a)Finish = UBound(a)Max = a(Start)If a(i)> Max Then Max = a(i)arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text), Val(Text4.Text)arr2(i) = CInt(arr1(i)M = FindMax(arr2)表4步骤2：在窗体Form1中画一个文本框，其相关属性及值如表5。表5步骤3：在代码编辑窗口，分别编写三个菜单项的Click事件过程。参考代码：Dim

42、 Sum As IntegerPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 100 If i Mod 2 <> 0 Then Sum = Sum + Arr(i) S = S & Str(Arr(i) & " " End If Next i Form1.Text1.Text = S Me.Print "Sum = " SumEnd SubPrivate Sub Save_

43、Click() WriteData "Dataout.txt", SumEnd Sub74步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。Private Sub Command1_Click() PrintText1.Text;",现年"Text2.Text;" 岁"End Sub步骤2：翻开代码编辑窗口，分别编写命令按钮的Click事件过程和水平滚动条的Change事件程Private Sub Command1_Click() HScroll1.Min = 100 HScroll1.Max = 1500 HScroll1.

44、LargeChange = 100 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd Sub步骤2：翻开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。参考代码：List1.AddItem Text1.TextFor i = 0 To List1.ListCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem i参考代码：

45、Start = LBound(a)Finish = UBound(a)Min = a(Start)If a(i)> Min Then Min = a(i)M = FindMin(arr2)步骤2：按要求将文件保存至考生文件夹中步骤2：在窗体Form1中画一个文本框，其相关属性及值如表5。步骤3：在代码编辑窗口，分别编写三个菜单项的Click事件过程。Dim Sum As IntegerPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 1

46、00 If i Mod 2 = 0 Then Sum = Sum + Arr(i) S = S & Str(Arr(i) & " " End If Next i Text1.Text = S Print "Sum = " SumEnd SubPrivate Sub Save_Click() WriteData "Dataout.txt", SumEnd Sub75步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。Private Sub Command1_Click() Form1.Caption = Text1

47、.Text & ", 作者 " & Text2.TextEnd Sub步骤2：双击窗体Form1上的水平滚动条，翻开代码编辑窗口，输入以下代码：Private Sub HScroll1_Change() Width = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change() Height = VScroll1.Value步骤2：翻开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。参考代码：List1.AddItem Text1.TextFor i

48、 = 0 To List1.ListCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem i参考代码：Start = LBound(a)Finish = UBound(a)Sum = 0Sum = Sum + a(i)Average = Sum / FinishAver = Average(arr2()步骤2：在窗体Form1中画一个文本框，其相关属性及值如表75-5。步骤3：在代码编辑窗口，分别编写三个菜单项的Click事件过程。Dim Sum As IntegerPrivate Sub Read_Click() ReadDa

49、taEnd SubPrivate 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) & " " End If Next i Text1.Text = S Print "Sum = " SumEnd SubPrivate Sub Save_Click() WriteData "Dataout.txt", Su

50、mEnd Sub76步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。Private Sub Command1_Click() Label1.Visible = 0 Text1.Visible = 0 Print Text1.TextEnd Sub步骤2：双击窗体Form1上的水平滚动条，翻开代码编辑窗口，输入以下代码：Private Sub HScroll1_Change() Text1.FontSize = HScroll1.ValueEnd Sub步骤2：利用菜单设计器，如表4中的设置建立菜单项。步骤3：翻开代码编辑窗口，去掉程序中的注释符"'"，将问

51、号"?"改为正确的内容。List1.AddItem Text1.TextFor i = 0 To List1.ListCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem i参考代码：Start = LBound(a)Finish = UBound(a)For i = UBound(a) To 2 Step -1For j = 1 To i - 1If a(j) > a(j + 1) Then77步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。Private Sub Command1_Clic

52、k() Label1.Visible = True Label1.Caption = Text1.Text Text1.Visible = FalseEnd Sub步骤2：双击窗体Form1上的水平滚动条，翻开代码编辑窗口，输入以下代码：Private Sub HScroll1_Change() Text1.Width = HScroll1.Value * 1.2End Sub步骤2：翻开代码编辑窗口，去掉程序中的注释符"'"，将问号"?"改为正确的内容。List1.AddItem Text1.TextFor i = 0 To List1.Lis

53、tCount - 1If List1.List(i) = Text1.Text ThenList1.RemoveItem i参考代码：Start = LBound(a)Finish = UBound(a)For i = Finish To 2 Step -1For j = 1 To i - 1If a(j) < a(j + 1) Then表4步骤2：在窗体Form1中画一个文本框，其相关属性及值见表77-5。表77-5步骤3：在代码编辑窗口，分别编写三个菜单项的Click事件过程。参考代码：Dim Sum As IntegerPrivate Sub Read_Click() ReadDataEnd SubPrivate Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 100 If Arr(i) < 50 Then Sum = Sum + Arr(i) S = S & Str(Arr(i) & " " End If Next i Text1.Text = S Print "Sum = " SumEnd SubPrivate Sub Save_Click() WriteData "