4.3.1 合乎规范地发布信息教学设计(第二课时)

程序的基本元素

程序 解释

Private Sub Form_Click()

Xm1$= “刘”

Xm2$=“丽”

Dm1=Asc(Xm1$)

Dm2=Asc(Xm2$)

Print

“字符”，

Print

“机内代码是”

Print

Xm1$,

Print

Dm1

Print

Xm2$,

Print

Dm2

Print

Dm1+Dm2 End

SUB 一、画正弦函数图像

Private Sub Form_Click() A=5 B=0 C=0.01 Cls Scale (-10,10)-(10,-10) Line (-9,0)-(9,0) Line (0,-8)-(0,8) CurrentX=0.5 CurrentY=9 赋值语句

赋值语句

赋值语句

赋值语句

打印语句

打印语句

打印语句

打印语句

打印语句

打印语句

打印语句

程序专有语句

字符型变量

字符型变量

数值型变量

数值型变量

字符型常量

字符型常量

函数表达式

函数表达式

字符型常量

字符型常量

字符型变量

数值型变量

字符型变量

数值型变量

一般表达式

程序专有语句

Print “y”

CurrentX=9 CurrentY=-0.5 Print “x”

For x=-8 To 8 Step 1

Pset (x,0.1) Next x For y=-6 To 6 Step 1

Pset (0.1,y) Next y For x=-8 To 8 Step C

Y=A*Sin(x)+B

PSet (x,y) Next x End Sub 二、求解“韩信点兵”问题的程序《算法与程序设计》

设计一程序，求解“韩信点兵”的问题，程序界面如下。输入士兵总人数在某个数以内，单击“点点看”按钮后，正确输出士兵的总人数。

Private Sub Form_Click() n = Text1.Text For i = 1 To n If i Mod Text2.Text = Text3.Text Then

If i Mod Text4.Text = Text5.Text Then

If i Mod Text6.Text = Text7.Text Then

Text8.Text = i

End If

End If

End If Next i End Sub

当然可以用逻辑运算符and合并条件，具体程序代码如下：

For i = 1 To val(Text1.Text)

If i Mod val(Text2.Text) = val(Text3.Text) and i

Mod val(Text4.Text) = val(Text5.Text) and i Mod

val(Text6.Text) = val(Text7.Text) Then

Text8.Text = i

End If Next i End Sub

三、鸡兔同笼问题

一个笼子里有鸡和兔，现在只知道里面一共有40个头，脚，鸡兔各有多少只？试设计一个程序求解。

vb代码：

Private Sub Form_Click()

Dim nChick As Integer, nRabbit As Integer

For nChick = 1 To 40

nRabbit = 40 - nChick

If nChick * 2 + nRabbit * 4 = 100 Then

Print nChick, nRabbit 只100

Exit For

End If

Next End Sub 四、解一元二次方程程序设计

axbxc0vb代码如下：

Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim d As Single, x1 As Single, x2 As Single a = InputBox("请输入一元二次方程的系数a") b = InputBox("请输入一元二次方程的系数b") c = InputBox("请输入一元二次方程的系数c") If a = 0 Then 2

a = InputBox("因为a≠0，你输入的a＝0，请重新输入系数a") End If d = b * b - 4 * a * c If d >= 0 Then

x1 = (-b + Sqr(d)) / (2 * a)

x2 = (-b - Sqr(d)) / (2 * a)

Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x1

Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x2

Else

Print "此方程在实数范围内无解"

End If

End Sub

循环语句（程序）

For i=a to b step c 初值

终值

语句组

Next

1.

step 步长值

2.

当C为正数，a＜b 3.

当c为负数，a＞b 4.

每循环一次变量i加c 5.

当步长值为1时可以省略。

6.

循环结束i=b+c

axbxc02

Input a,b,c

input键盘赋值

D=b^2-4*a*c

^

乘方4ac 

4*a*c

If d>=0 then X1=(-b+sqr(d))/(2*a) X2=(-b-sqr(d))/(2*a) Print x1,x2

输出结果

Else Print Endif

“无解”