『图片数目』：0张
『文件数目』：2张 『答 案』：
1 If Len(strPws) = 0 Then Exit Sub 或 If 0 = Len(strPws) Then Exit Sub 2 MsgBox \恭喜,密码正确\验证\
3 If Not (KeyAscii >= 48 And KeyAscii <= 57) Then 或 If Not (KeyAscii > 47 And KeyAscii < 58) Then
18『Visual Basic——程序改错』 '【程序改错】479
'------------------------------------------------
'题目:下面的程序用“冒泡”法数组a中的10个整数按升 ' 序排列，请修正程序中错误。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim a
Dim i As Integer, j As Integer, a1 As Integer a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 1 To 9
'**********FOUND********** For j = i To 9
'**********FOUND********** If a(j) >= a(i) Then a1 = a(i) a(i) = a(j)
'**********FOUND********** a(j) = a(i) End If Next j Next i For i = 0 To 9 Print a(i) Next i End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张
『答 案』：
1 For j = i + 1 To 9 或 For j = 1 + i To 9 2 If a(i) >= a(j) Then 3 a(j) = a1
19『Visual Basic——程序改错』 '【程序改错】480
'------------------------------------------------
'题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+??)
' 的值。其中，a是一个0-9的数字，总共累加a项。列如， ' 当a=3时,s=3+33+333 (共累加3项)。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Public Function Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a
'**********FOUND********** t = 1
For i = 2 To a
'**********FOUND********** t = t + a s = s + t Next i Calc = s Print s End Function
Private Sub Command1_Click() Dim i As Integer
i = InputBox(\请输入数字（0-9）:\ '**********FOUND********** Calc (i)
End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』：
1 t = a
2 t = t * 10 + a 或 t =★t * 10★+★a 或 t =★t★*★10★+★a 3 Calc i 或 Call Calc(i)
20『Visual Basic——程序改错』 '【程序改错】481
'------------------------------------------------
'题目:下面程序的功能是将一个整数转化为数值字符串， ' 列如123，转化为\转化为“-123”
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Function NtoC(ByVal n As Single)
Dim sign As Boolean, i%, a%, count%, temp%(100) Dim strc As String sign = False
'**********FOUND********** If n < 0 Then sign = False n = Abs(n)
Do While n > 0
'**********FOUND********** a = n / 10 n = n \\ 10
'**********FOUND********** count = 1
temp(count) = a Loop
If sign Then strc = \ For i = count To 1 Step -1
strc = strc + Chr(Asc(\ Next i
NtoC = strc End Function
Private Sub Command1_Click() Print NtoC(-123)
End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』：
1 If n < 0 Then sign = True 2 a = n Mod 10
3 count = count + 1 或 count = 1 + count
21『Visual Basic——程序改错』
'【程序改错】482
'------------------------------------------------
'题目:请根据下列描述编写购物优惠程序。某商场为了 ' 加速促成商品流通，采用购物打折的优惠办法，每 ' 位顾客一次购物（1）在100元以上者，按九五折优惠； ' （2）在200元以上者，按九折优惠；（3）300元以上 ' 者，按八折优惠；（4）500元以上者按七折优惠。在窗体
' 上添加两个文本框和一个命令按钮，要求在Text1中输入 ' 购物商品总金额，单击命令按钮，在Text2中输出优惠价。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then
'**********FOUND********** x = y Else
If x < 200 Then y = 0.95 * x Else
If x < 300 Then y = 0.9 * x Else
If x < 500 Then y = 0.8 * x Else
y = 0.7 * x
'**********FOUND********** else If End If End If End If
'**********FOUND********** Text2.Text = x End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』：
1 y = x 2 End If
3 Text2.Text = y 或 Text2 = y
22『Visual Basic——程序改错』 '【程序改错】483？
'------------------------------------------------
'题目:列表框应用程序。要求从文本框中输入课程名称， ' 然后按\添加\按钮，把姓名添加到列表框中；当选 ' 择列表框中某一项后，按\删除\按钮，则从列表框
' 中删除该项；当选择列表框中某一项后，按\修改\' 按钮，把列表框中选取的项送往文本框且\修改\按 ' 钮变为\修改确认\。在文本框的内容修改好后，按 ' \修改确认\按钮，再把文本框中修改后的信息送到列 ' 表框且\修改确认\按钮变为\修改\。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ 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 <> \
List1.AddItem Text1.Text '将文本框中的内容加到列表框中 Text1.Text = \
Else
MsgBox \请在文本框中输入信息！\ End If End Sub
Private Sub Command2_Click()
'**********FOUND**********
If List1.ListIndex = 0 Then Exit Sub
List1.RemoveItem List1.ListIndex '删除选定的项目 End Sub
Private Sub Command3_Click()
If Command3.Caption = \修改\ Text1.Text = List1.Text Text1.SetFocus
Command1.Enabled = False Command2.Enabled = False '**********FOUND********** Command3.Caption = \修改\ Else
List1.List(List1.ListIndex) = Text1.Text Command1.Enabled = True Command2.Enabled = True Text1.Text = \
'**********FOUND**********