WORD格式整理
b = Text1.Text c = Text2.Text x = b * b – 4 * c Text3.Text = x End Sub
必修1_17、编程计算 s=1-2+3-4+5-……+99-100 程序：
Private Sub Form Click()
Dim s As Integer '定义变量s为整型变量 Dim i As Integer '定义循环变量 s = 0
For i=1 To 100
if int(i/2) <> i/2 Then s = s + i Else
s = s - i End Next i
Print \End Sub
必修2_17、编写程序，求I+2+…+n>=500中最小的n 程序：
Private Sub Form_Click( ) Dim s As Integer Dim n As Integer s = 0 n = 0 Do
n = n + 1 s = s + n
Loop Until s > 500 Print “n=”;n End Sub
必修3_17、编程计算s = 1*2+2*3+3*4+……+n*(n+1)的值，其中n =10 Private Sub Form_Click() Dim s As Single Dim i As Integer s = 0
For i = 1 To 10
s = s + i * (i +1); Next i
专业资料 值得拥有
WORD格式整理
Print “s=”;s End Sub
必修1_18、编程求:鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只? 程序：
Private Sub Form Click() Dim Ji As Integer '鸡 Dim Tu As Integer '兔 Dim Leg As Integer '腿数 Dim Head As Integer '头数 For Ji=1 To 50 For Tu=1 To 25
Leg = Ji*2 + Tu*4 '计算腿 Head= Ji + Tu '计算头
If Leg = 100 And Head = 40 Then
Print \鸡=\只\兔=\只\ End If Next Tu Next Ji End Sub
必修2_18、编写递归函数求5!的值。
Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else
s=n * s(n-1) End If
End Function
Private Sub Form_Click() Print “s(5)=”;s(5) End Sub
必修3_18、编写递归函数求10!的值。
Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else
s=n * s(n-1) End If
End Function
Private Sub Form_Click() Print “s(10)=”;s(10) End Sub
专业资料 值得拥有
WORD格式整理
专业资料值得拥有
