UC知道简单VB题，帮帮忙
来源：百度知道 编辑：UC知道 时间：2024/05/31 15:01:43
1、有以下数列：1，1，2，3，5，8，13，21，...，的规律是从第3个数开始，每个数是它前面两个数之和。请编写程序输出前100项的和。
2、小红今年12岁，她父亲比她大30岁，编程计算她的父亲在几年后比她年龄大一倍，以及那时小红的年龄。
3、输出10~200间的所有素数（质数）。
4、在[200，900]范围内同事满足以下两个条件的十进制数；问这样的数有多少个？
（1）其个位数字与十位数字之和和除以10所得的余数是百位数字；
（2）该数是素数（质数）。
5、将一张1元钞票换成一分、二分和五分硬币，每种至少8枚，问有多少种方案？
这几道题各位高手们写出程序后先在VB6.0上运行一下，可以运行了再复制给我，谢谢了！如果全都对可以另加高分！谢谢！急~
2、小红今年12岁，她父亲比她大30岁，编程计算她的父亲在几年后比她年龄大一倍，以及那时小红的年龄。
3、输出10~200间的所有素数（质数）。
4、在[200，900]范围内同事满足以下两个条件的十进制数；问这样的数有多少个？
（1）其个位数字与十位数字之和和除以10所得的余数是百位数字；
（2）该数是素数（质数）。
5、将一张1元钞票换成一分、二分和五分硬币，每种至少8枚，问有多少种方案？
这几道题各位高手们写出程序后先在VB6.0上运行一下，可以运行了再复制给我，谢谢了！如果全都对可以另加高分！谢谢！急~
1.Private Sub Command1_Click()
Dim s(100) As Double
Dim n
n = 0
For i = 1 To 100
If i <= 2 Then
s(i - 1) = 1
Debug.Print "s(" & i - 1 & ")=" & s(i - 1)
Else
s(i - 1) = s(i - 3) + s(i - 2)
Debug.Print "s(" & i - 1 & ")=" & s(i - 1)
End If
Next
For i = 1 To 100
If (i - 1) Mod 10 = 0 Then
Print
End If
Print s(i - 1) & " ";
Next
End Sub
2。
Private Sub Command1_Click()
Dim a As Integer '小红的年龄
Dim b As Integer '父亲的年龄
Dim n As Integer 'n年后父亲年龄是小红的2
Dim flag As Boolean '循环控制变量
a = 12
Do While flag = 0
a = a + 1
b = 30 + a
If b = 2 * a Then flag = 1
Loop
n = a - 12
Print "多少年后父亲红年龄是小年龄的2倍： " & n
Print "父亲年龄： " & a
End Sub
3。
Private Sub Command1_Click()
Dim f