3.2 信息的编程加工（3）

姓名：

性别：

班级： （从1到40）

[复习]阅读理解下列VB程序代码(命令按钮command的单击事件)：
Private Sub Command1_Click()
Dim A, B As Integer
A = InputBox("A=", "输入A：")
B = InputBox("B=", "输入B：")
C = A
A = B
B = C
Print "Ａ＝"; A, "B＝"; B
End Sub
当程序运行时，输出的结果是（）

[复习]阅读下列VB程序代码：
Private Sub Command1_Click()
Dim x As Single '申明变量x是实数
x = Val(InputBox("请输入x的值", "输入框"))
If x - 2 = 0 Then
MsgBox ("除数不能为０呢！")
Else
y = 1 / (x - 2)
Print y
End If
End Sub
运行程序，当用户输入数字2时，确定后会（）

VB的基本语句及其书写规则（2）
For循环：
For <循环变量>=<初值> To <终值> [Step<步长>]
语句块
Next <循环变量>
阅读理解上面的文本，运行一次下面的程序，屏幕上会输出（）
Dim n, s As Integer
n = 1
s = 0
For n = 1 To 5
s = s + n
Next n
Print s

计算机画函数图像与数学上画函数图像的基本方法与步骤是相似的，步骤是（）

下面是在VB中设计画二次函数y=x^2图像的代码：
Private Sub Command1_Click() ' 确定命令按钮单击事件
Dim x, y As Single ' 定义x,y 两个变量
Picture1.Scale (-10, 25)-(10, -25) ' 定义坐标系
Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255) ' 画横坐标轴
Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255) ' 画纵坐标轴
' 用循环语句描点画函数图像
For x = -10 To 10 Step 0.0001 'x 值从-10 变化到10，每次增量为0.0001
y = x ^ 2 ' 根据表达式y=x ^2 来计算y 值
Picture1.PSet (x, y), RGB(255, 0, 0) ' 根据x,y 的值描点
Next x ' 取下一个增量后的x 值
End Sub ' 结束事件

画出的坐标轴与二次曲线的颜色分别是（）

请用VB设计一个画函数图像的程序，函数由你自己确定。最后将程序编译成可执行的exe文件，并打包上传。