[计算机软件及应用]vb.doc

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中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其值如表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.Value = 1 Then Text2.Text = a & Ch2.Caption End IfEnd Sub步骤4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击确定按钮，然后单击窗体右上角的关闭按钮结束程序。步骤1：打开考生文件中的本题工程文件sjt4.vbp，通过属性窗口向列表框添加四个项目，分别是：第一项、第二项、第三项、第四项。步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：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.Text = 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 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 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，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：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：打开考生文件夹下的本题工程文件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 = 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：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先单击读数据按钮，再单击统计按钮，最后单击窗体右上角的关闭按钮结束程序。3表1表2步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码：Private Sub HScroll1_Change() Text1.Text = HScroll1.ValueEnd Sub表3步骤2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Timer1.Enabled = TrueIf Shape1.Top = 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) Then 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 = 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，标题为弹出菜单的命令按钮，打开代码编辑窗口，编写弹出菜单按钮的单击事件过程。参考代码：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，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：Timer1.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.Text = 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 Or ch = n Or ch = t Then s = s & UCase(ch) Else s = s & ch End If Next k Text1 = sEnd Sub步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先单击“打开文件”按钮，接着单击“修改内容”按钮，然后单击“保存文件”按钮。5步骤1：新建一个标准EXE工程，在窗体Form1中画一个名称为Pic的图片框，并设置其Picture属性为Tu1-1.jpg。步骤2：双击窗体打开代码编辑窗口，在窗体的Click事件过程中输入代码。参考代码：Private Sub Form_Click() Pic.Print VB等级考试End Sub步骤3：按要求将文件保存至考生文件夹中。步骤1：新建一个标准EXE工程，在窗体Form1中画一个名称为Command1，Caption属性为命令按钮的命令按钮。步骤2：选择【工具】【菜单编辑器】命令，打开菜单设计器，如表1中的设置建立菜单项。步骤3：打开代码编辑窗口，编写菜单命令的单击事件过程。参考代码：Private Sub subMenu1_Click() Command1.Visible = TrueEnd SubPrivate Sub subMenu2_Click() Command1.Visible = FalseEnd Sub步骤4：按要求将文件保存至考生文件夹中。参考代码：tmp = 1tmp = temp * ixn = tmpz = z + xn(t)步骤2：按键键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：arr = Array(第一项, 第二项, 第三项, 第四项)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：新建一个标准EXE工程，选择【工程】【部件】命令，在弹出的部件对话框的列表中选中MicroSoft Common Dialog Control6.0项目，单击确定按钮。步骤2： 在窗体Form1上画一个通用对话框和一个命令按钮，其相关属性设置如表2所示。步骤3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。Private Sub Command1_Click() CommonDialog1.Action = 2或 CommonDialog1.ShowSaveEnd Sub表2步骤4：按要求将文件保存至考生文件夹中。步骤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 k = 1 To n s = s + f(k) Next Text1 = sEnd Sub步骤3：按键键运行程序，单击“输入数据”按钮，通过输入框输入一个812之间的整数，然后单击“计算”按钮计算结果，最后单击“存盘”按钮保存结果。步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：-注册窗体Form2-n = n + 1ElseIf finduser(Trim$(Text1) 0 ThenForm1.Label1.Caption = 注册成功！-登录窗体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属性设置为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&。步骤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 TextBox)=以下为考生编写的程序=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 Print #1, c(i) Next Close #1End Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。8表1步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Command1_Click() Text2.Text = Form1.Text1.SelLengthEnd Sub步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码：st = st & chc = Mid(st, k, 1)word = 步骤2：按要求将文件保存至考生文件夹中。步骤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 + 20End 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 For End IfNext步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，在文本框中输入23456，单击“分解为”按钮。9步骤1：新建一个标准EXE工程。步骤2：在窗体Form1中加入一个列表框和一个标签，并分别如表1设置它们的相关属性。表1步骤1：新建一个标准EXE工程，如表2在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码：Private Sub Cmd1_Click()Image1.Picture = LoadPicture(图片.jpg)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：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：List1.AddItem a0001For 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 - 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：按要求将文件保存至考生文件夹中。步骤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 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，在代码编辑窗口的指定位置编写以下代码：参考代码：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：按键运行程序，然后单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。73步骤2：双击窗体Form1中的输入按钮，在打开的代码编辑窗口中，输入如下代码：Private Sub Command1_Click() Text1.Text = InputBox(请输入身高) Text2.Text = InputBox(请输入体重)End Sub步骤2：打开代码编辑窗口，分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。Private Sub Command1_Click() VScroll1.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.Text 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 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_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.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参考代码：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 100 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.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 = 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() ReadDataEnd 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, SumEnd 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：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。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_Click() Label1.Visible = True Label1.Caption = Text1.Text Text1.Visible = FalseEnd Sub步骤2：双击窗体Form1上的水平滚动条，打开代码编辑窗口，输入以下代码：Private Sub HScroll1_Change() Text1.Width = HScroll1.Value * 1.2 Text1.Height = Me.HScroll1.ValueEnd Sub步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。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 = 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 St