End If
End Sub
Private Sub Form_Click() FindMidNum End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』：
1 If x < y Then 或 If y > x Then 2 If y >= z Then 或 If z <= y Then 3 ElseIf x >= z Then 或 ElseIf z <= x Then
7『Visual Basic——程序改错』 '【程序改错】468？
'------------------------------------------------
'题目：编写一程序，实现对文本框里的文字查找并清除某 ' 一字符串，直到文本框中不再存在它。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Function StringClear(sSource As String, sSearch As String) As String Dim j As Integer, res As String '**********FOUND********** res = sSearch
'**********FOUND********** Do While Mid(res, sSearch) j = InStr(res, sSearch)
'**********FOUND********** res = Left(res, j) & Mid(res, j + 2) Loop
StringClear = res End Function
Private Sub Command1_Click() Dim Searchstr As String
If Text1.Text <> \
Searchstr = InputBox(\ Text1.Text = StringClear(Text1.Text, Searchstr) End If
End Sub
-------------------------------------------------- 『图片数目』：0张
『文件数目』：2张 『答 案』：
1 res = sSource
2 Do While InStr(res, sSearch)
3 res = Left(res, j - 1) & Mid(res, j + 2)
8『Visual Basic——程序改错』
'【程序改错】469
'------------------------------------------------
'题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法 ' 在图片框中显示其图形。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Const pi = 3.14159
Private Sub Command1_Click()
'**********FOUND********** Dim x As Integer
Picture1.Scale (-pi, -1200)-(pi, 1200) '**********FOUND********** For x = -pi To pi Step pi
'**********FOUND**********
Picture1.PSet (x, 1000 * pi * Sin(x)), vbRed Next x End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』： 1 Dim x As Single
2 For x = -pi To pi Step pi / 180
3 Picture1.PSet (x, 1000 * Sin(x)), vbRed
9『Visual Basic——程序改错』 '【程序改错】470
'------------------------------------------------
'题目:在窗体上有两个命令按钮和一个文本框，名称分别为 ' cmdstart（\开始\）、cmdend（\结束\）和Text1。
' 文本框Text1中的字符个数不超过200个。程序刚开始 ' 运行时，\结束\按钮成灰色，单击\开始\按钮后，将 ' 文本框Text1.text中的字符按其ASCII码值由大到小自 ' 左而右重新组合，并在窗体上输出 重组后的字符串，同 ' 时使\结束\按钮能响应而\开始\按钮不能响应。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_load()
'**********FOUND********** Cmdend.Enabled = True End Sub
Private Sub Cmdstart_click()
Dim n As Integer, I As Integer, j As Integer, p As Integer Dim a(200) As String * 1, str1 As String, t As String str1 = Text1.Text n = Len(str1)
For I = 1 To n
a(I) = Mid(str1, I, 1) Next I
'**********FOUND********** For I = 0 To n - 1 p = I
For j = I + 1 To n
'**********FOUND********** If a(p) < a(j) Then j = p
Next j
If p <> I Then t = a(I): a(I) = a(p): a(p) = t Next I
For I = 1 To n Print a(I); Next I
Cmdend.Enabled = True Cmdstart.Enabled = False End Sub
Private Sub Cmdend_click() End
End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：3张 『答 案』：
1 Cmdend.Enabled = False 2 For I = 1 To n - 1 3 If a(p) < a(j) Then p = j
10『Visual Basic——程序改错』 '【程序改错】471
'------------------------------------------------
'题目:本程序将一个大于100的偶数n分解为两个素数之和, ' 其中nflag逻辑函数用于判断自然数x是否为素数. '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click()
Dim n As Integer, x As Integer, y As Integer n = Val(InputBox(\请输入一个大于100的偶数\输入数据\ For x = 3 To n \\ 2 Step 2
'**********FOUND********** If x = 0 Then y = n - x
'**********FOUND********** If nflag(x) Then
Form1.Print n; \ Exit For End If End If Next x End Sub
Function nflag(x As Integer) As Boolean Dim flag As Boolean Dim k As Integer Dim m As Integer k = 2: m = Int(Sqr(x)) flag = True
Do While k <= m
'**********FOUND********** If x Mod k = 0 Then flag = True k = k + 1 Loop nflag = flag End Function
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张
『答 案』：
1 If nflag(x) Then 或 If nflag(x) = True Then 2 If nflag(y) Then 或 If nflag(y) =True Then 3 If x Mod k = 0 Then flag = False
11『Visual Basic——程序改错』 '【程序改错】472
'------------------------------------------------
'题目:本程序功能用于将学生学过的单词在列表框中显示出来。现要完成： ' （1）单击\增加单词\按钮，将文本框Text1.Text中的单词添加到列表框 ' 中并显示列表框中的单词数；
' （2）单击\删除单词\按钮，删除列表框中被选中的项并显示列表框中的单词数； ' （3）单击\全部清除\按钮，删除列表框的全部选择项并显示列表框中的单词数； ' （4）单击\退出\按钮，结束程序。
' 请修正程序中存在的错误。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Load()
Label1.Caption = \请输入单词\ Label2.Caption = \单词数\ Command1.Caption = \增加单词\ Command2.Caption = \删除单词\ Command3.Caption = \全部清除\ Command4.Caption = \退出\ List1.AddItem \ List1.AddItem \ List1.AddItem \
List1.AddItem \List1.AddItem \List1.AddItem \Text1.Text = \
Text2.Text = CStr(Me.List1.ListCount) End Sub
Private Sub Command1_click() List1.AddItem Text1.Text Text2.Text = Str(List1.ListCount) Text1 = \End Sub
Private Sub Command2_click() Dim sy As String sy = List1.ListIndex
'**********FOUND********** If sy > 0 Then
'**********FOUND********** List1.RemoveItem
Text2.Text = Str(List1.ListCount) End If End Sub