3.2 信息的编程加工(3)

[教学评融合:问题引领 先学后教 深度学习] 今天的任务是继续熟悉VB编程技术,主要掌握VB的基本语法规则的循环结构For循环语句的使用,阅读教材P46-47,然后用30分钟完成下列任务:
* 姓名:
* 性别:
* 班级: (从1到40)
*1.
[复习]阅读理解下列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="; A, "B="; B
End Sub
当程序运行时,输出的结果是()
*2.
[复习]阅读下列VB程序代码:
Private Sub Command1_Click()
Dim x As Single '申明变量x是实数
x = Val(InputBox("请输入x的值", "输入框"))
If x - 2 = 0 Then
MsgBox ("除数不能为0呢!")
Else
y = 1 / (x - 2)
Print y
End If
End Sub
运行程序,当用户输入数字2时,确定后会()
*3.
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
*4.
计算机画函数图像与数学上画函数图像的基本方法与步骤是相似的,步骤是()
*5.
下面是在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 ' 结束事件

画出的坐标轴与二次曲线的颜色分别是()
*6.
请用VB设计一个画函数图像的程序,函数由你自己确定。最后将程序编译成可执行的exe文件,并打包上传。
加载中...
如果由于网络原因导致此框一直不消失,请重新刷新页面!