Command3.Caption = \修改确认\ End If End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』：
1 If List1.ListIndex = -1 Then Exit Sub 2 Command3.Caption = \修改确认\ 3 Command3.Caption = \修改\
23『Visual Basic——程序改错』
'【程序改错】484
'------------------------------------------------
'题目:使用顺序文件读写方式编写一个简单的记事本应用程序， ' 基本逻辑是：假设在考生目录中有一个名为exam.txt的文 ' 本文件。当点击\打开\按钮(Command1)时，程序将exam.Txt ' 文件中的内容显示在文本框(Text1)中，当点击\新建\按钮
' (Command2)时，清空Text1中的内容；用户可以在Text1中进行 ' 编辑操作，当点击\保存\按钮(Command3)时，将Text1中的内容
' 保存在exam.txt文件中。当点击\退出\按钮(Command4)时关闭本窗体。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim A As String Text1 = \
Open \ Do While Not EOF(1)
'**********FOUND********** Input #0, A
Text1 = Text1 + A
Loop
'**********FOUND********** Close #0 End Sub
Private Sub Command2_Click() Text1 = \End Sub
Private Sub Command3_Click()
Open \ '**********FOUND**********
Input #1, Text1
Close #1 End Sub
Private Sub Command4_Click() Unload Me End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：3张 『答 案』：
1 Input #1, A 或 Input 1, A 2 Close #1 或 Close 1
3 Write #1, Text1 或 Write 1, Text1
24『Visual Basic——程序改错』 '【程序改错】485？
'------------------------------------------------
'题目:创建一个绘图程序。当程序运行时，单击\绘图\按钮， ' 在窗体的Picture控件上画出[-pi， ]即[-3.14,3.14]
' 区间的余弦曲线。要求将图片框的坐标系定义为左上角 ' 为（-4，2），右下角为（4，-2），并在图片框中画出 ' 坐标的x轴和y轴。程序运行界面如图1所示。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click()
'**********FOUND********** Dim i As Integer
'**********FOUND**********
Picture1.Scale (4, 2)-(4, 2) '定义窗体坐标 Picture1.Line (-4, 0)-(4, 0) '画x轴
Picture1.Line (0, 2)-(0, -2) '画y轴 Picture1.CurrentX = 0.2
Picture1.CurrentY = -0.1
Picture1.Print \ ' 标记原点 Picture1.CurrentX = -3.2
Picture1.CurrentY = -0.1
Picture1.Print \π\ '标记\π\ Picture1.CurrentX = 3.3 Picture1.CurrentY = -0.1 Picture1.Print \
Picture1.CurrentX = 0.2 Picture1.CurrentY = 0.9
Picture1.Print \ '标记\ Picture1.CurrentX = 0.2 Picture1.CurrentY = -0.8
Picture1.Print \ '标记\ For i = -3.141 To 3.141 Step 0.001 '**********FOUND********** Picture1.PSet (i, Sin(i)) Next i End Sub
Private Sub Command2_Click() End
End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』：
1 Dim i As Single
2 Picture1.Scale (-4, 2)-(4, -2) 3 Picture1.PSet (i, Cos(i))
25『Visual Basic——程序改错』 '【程序改错】486
'------------------------------------------------ '题目:窗体的左上角坐标（－8，6），右下角坐标为（8，－6）。
' 以厘米为单位，以坐标原点为圆心画圆，程序运行界面如图1所示。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Form_Click()
'**********FOUND********** ScaleMode = 2
Scale (8, 6)-(8, 6)
'**********FOUND**********'自定义坐标系 Line (8, 0)-(8, 0)
'**********FOUND**********
Line (0, 6)-(0, 6)
CurrentX = 0.1: CurrentY = -0.1: Print \ '标记坐标原点 CurrentX = 7.5: CurrentY = -0.2: Print \ CurrentX = 0.2: CurrentY = 5.5: Print \ DrawWidth = 3 Circle (0, 0), 4, vbBlue Circle (0, 0), 4, vbGreen, , , 2.5 End Sub
-------------------------------------------------- 『图片数目』：1张 『文件数目』：2张 『答 案』：
1 ScaleMode = 7 2 Line (-8, 0)-(8, 0)
3 Line (0, 6)-(0, -6)
26『Visual Basic——程序改错』 '【程序改错】487
'------------------------------------------------
'题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆， ' 然后将此图以Test.BMP作文件名存入磁盘。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim X As Integer Dim Y As Integer
Dim I As Integer
'**********FOUND********** Dim rad(10) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 For I = 0 To 9
rad(I) = 500 * Rnd Next I I = 9
'**********FOUND**********
Do Until I < 1
Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) '**********FOUND********** I = I + 1
Loop
SavePicture Pic1.Image, \End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张 『答 案』： 1 Dim rad(9) As Integer 2 Do Until I < 0 3 I = I – 1
27『Visual Basic——程序改错』 '【程序改错】488
'------------------------------------------------
'题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条 ' 控件来控制。
'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub HScroll1_Scroll()
'**********FOUND**********
Timer1.Interval = HScroll1.Min - HScroll1.Value End Sub
Private Sub Timer1_Timer()
'**********FOUND********** If Label1.Left <= Form1.Width Then '**********FOUND********** Label1.Left = Label1.Width Else
Label1.Left = Label1.Left + 100 End If End Sub
-------------------------------------------------- 『图片数目』：0张 『文件数目』：2张
『答 案』：
1 Timer1.Interval = HScroll1.Max - HScroll1.Value 2 If Label1.Left >= Form1.Width Then 3 Label1.Left = -Label1.Width
28『Visual Basic——程序改错』 '【程序改错】489
'------------------------------------------------
'题目:给定三角形的三条边，计算三角形的面积。要求 ' 程序首先判断给定的三条边能否构成三角形。 '------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构