End Sub
'------------------------------------------------- '题目：(事件)单击窗体。
' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。输出s 应为 1.291286 '------------------------------------------------- Private Sub Form_Click()
Dim s As Single
'************* Program ************** Dim i As Integer s = 0
For i = 1 To 10
s = s + 1 / (i ^ i) Next Print (s)
'************* End ************** End Sub
'------------------------------------------------- '题目： (事件)单击窗体。
' (响应)求sum=1+1+2+3+5+8+13+...+144的和,请将sum结果值输出到窗体上。 使用 do...loop语句完成程序 输出sum 应为 376 '------------------------------------------------- Private Sub Form_Click() Dim sum As Long
'***************** Program ************** Dim i As Integer Dim s1 As Integer Dim s2 As Integer i = 1
s1 = 1: s2 = 1
Sum = Sum + s1 + s2 Do
If s2 = 144 Then Exit Do End If
s1 = s1 + s2 s2 = s1 + s2
Sum = Sum + s1 + s2 Loop Print Sum
'*************** End ************************* End Sub
'-------------------------------------------------
'题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值:
' y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) 例如：若m=9，则应输出：1.168229 '要求：函数中用到的中间变量必须声明为Single类型。 '------------------------------------------------- Private Function Fun(m As Integer) As Single
'********** Program ********* Dim y As Double Dim i As Integer For i = 0 To m
y = y + 1 / (i + 5) Next Fun = y
'********** End ************* End Function
Private Sub Form_Load() Show
Print Fun(9) End Sub
四.数字关系
'-------------------------------------------------
'题目：编写函数fun其功能是:
判断一个整数w的各位数字平方之和能否被5整除 , 可以被5整除则返回1 , 否则返回0 '-------------------------------------------------
Private Function fun(w As Integer) As Boolean
'********** Program ********* Dim k As Integer, s As Integer Do
s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w <> 0 If s Mod 5 = 0 Then k = 1 Else
k = 0 End If fun = k
'********** End ************* End Function
Private Sub Form_Load() Show
Print fun(50) '输出True Print fun(51) '输出False End Sub
'-------------------------------------------------
'题目：(事件)双击窗体。
' (响应)写程序解决百钱买百鸡问题：公鸡3元1只，母鸡5元1只，小鸡一元3只，
怎样用100元买100只鸡。
把结果输出到窗体上。将答案数存放在变量N中。 输出
'------------------------------------------------- Private Sub Form_dblClick()
Dim n As Integer n = 0
'******** Program ******* Dim i, j, k As Integer For i = 1 To 20 '母鸡 For j = 1 To 33 '公鸡
For k = 3 To 100 '小鸡
If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next
'************ End *********** End Sub
'------------------------------------------------- '题目： (事件)单击窗体。
' (响应)输出所有的三位数，它满足该数中有某两位为相同的数， 且该数是一个完全平方数。
' 求出所有这些数的和，并将结果存入变量SUM中。 输出 '------------------------------------------------- Private Sub Form_Click() Dim sum As Integer
'***************** Program ************** dim a as integer,b as integer
dim b3 as integer,b2 as integer,b1 as integer for a=10 to 31 b=a*a b3=b\\100
b2=(b\\10) mod 10 b1=b mod 10
if b1=b2 or b1=b3 or b2=b3 then ? a,b
sum=sum+b end if next a
Print sum
'*************** End ************************* End Sub
'------------------------------------------------- '题目：(事件)单击窗体。
' (响应)求出1000-9999之间具有如下特点的四位数字， 它的平方根恰好就是它中间的两位数字，
例如，2500开平方为50，恰为2500的中间两位， 输出 找出所有这样的四位数。并求出所有这样的数的和存入SUM中 '------------------------------------------------- Private Sub Form_Click()
Dim sum As Integer sum = 0
'******** Program ******* Dim i As Integer Dim j As Integer For i = 1000 To 9999
j = Val(Mid(Trim(Str(i)), 2, 2)) If j ^ 2 = i Then Print i,
sum = sum + i End If Next
'********** End ********** End Sub
'------------------------------------------------- '题目： (事件)单击窗体。
' (响应)求一个数,它除3余2，除5余3，除7余2，
' 请将满足上面条件的最小数保存到sum变量中。 ' 使用for...next语句完成程序
'------------------------------------------------- Private Sub Form_Click() Dim sum As Integer
'***************** Program ************** Dim i As Integer For i = 2 To 1000
If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End If Next i sum = i
'*************** End ************************* End Sub
输出 sum 应为23
五.递推
'------------------------------------------------- '题目：编写函数fun，函数的功能是：
当x的初值为10，每年增长率为百分之一，计算多少年以后x的值能达到y，
'并显示所需年数的值（变量名必须为n）。
' 要求使用Do ... Loop Until语句来实现。 当y为15时， n应该为41 '------------------------------------------------- Private Function fun(y As Single) As Long
Dim x As Single, n As Long
'**********Program********** x = 10 n = 0
Do While x < y x = x * 1.008 n = n + 1 Loop fun = n
'********** End ********** End Function
Private Sub Form_Load() Show
Print fun(15) End Sub
'-------------------------------------------------
'题目：已知，猴子吃一堆桃子，每天吃桃子总数的一半多一个。到第n天时，桃子只剩一个。
编写函数fun，函数的功能是: '求出开始桃子的数量并显示。如：' n为7时，则显示\ '要求使用For语句来实现。 要求使用Do Until ... Loop语句来实现 '------------------------------------------------- Private Function fun(n As Long) As String
'**********Program********** x = 1 i = 1
Do Until i = n x = (x + 1) * 2 i = i + 1 Loop fun = x
'********** End ********** End Function
Private Sub Form_Load() Show
Print fun(7) End Sub
'---------------------------------------------------------------