新填空题新().docVIP

程序改错 1、题目：下面程序的作用是产生100以内的全部素数，并按每行5个数据输出。 Private Function prime(ByVal n As Integer) Dim i As Integer prime = 1 If n = 1 Then prime = 0 **********ERROR********** For i = 2 To n - 1 If n Mod i = 0 Then prime = 0 Next i End Function Private Sub Form_Click() Dim i As Integer, k As Integer k = 0 For i = 1 To 100 If prime(i) = 1 Then **********ERROR********** Print Tab((k Mod 5) * 8); i; k = k + 1 **********ERROR********** If k Mod 5 = 0 Then Print ; End If Next i End Sub 2、题目:列表框应用程序。要求从文本框中输入课程名称，然后按添加按钮，把姓名添加到列表框中；当选择列表框中某一项后，按删除按钮，则从列表框中删除该项；当选择列表框中某一项后，按修改按钮，把列表框中选取的项送往文本框且修改按钮变为修改确认。在文本框的内容修改好后，按修改确认按钮，再把文本框中修改后的信息送到列表框且修改确认按钮变为修改。 Private Sub Form_Load() List1.AddItem 北京-上海 List1.AddItem 北京-广州 List1.AddItem 北京-四川 List1.AddItem 北京-西安 List1.AddItem 北京-哈尔滨 List1.AddItem 北京-沈阳 List1.AddItem 北京-长春 End Sub Private Sub Command1_Click() If Text1.Text Then List1.AddItem Text1.Text 将文本框中的内容加到列表框中 Text1.Text = Else MsgBox 请在文本框中输入信息！ End If End Sub Private Sub Command2_Click() **********ERROR********** If List1.ListIndex = 0 Then Exit Sub List1.RemoveItem List1.ListIndex 删除选定的项目 End Sub Private Sub Command3_Click() If Command3.Caption = 修改 Then Text1.Text = List1.Text Text1.SetFocus Command1.Enabled = False Command2.Enabled = False **********ERROR********** Command3.Caption = 修改确认 Else List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = **********ERROR********** Command3.Caption = 修改 End If End Sub 3、题目：产生30个小于100的成绩随机数，并统计出优、良、中等、及格、不及格数的个数，并计算出成绩属于优秀段的成绩平均分。 Private Sub Form_Click() Dim k%, a%, bjg%, jg%, zd%, lh%, yx As Integer Dim pjf As Integer Randomize pjf = 0 For k = 1 To 30 **********ERROR********** a = Int(R