UC知道求几道VB编程题的源代码（有大量加分）
来源：百度知道 编辑：UC知道 时间：2024/09/22 14:28:49
1.已知在同一只笼子里有总数m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？
2.求1到100中所有素数的和。（1不是素数）
3.求m到n中所有“水仙花数”的和。
4.运用循环结构显示出如下图形
DDDDDDDD
CCCCCC
BBBB
AA
5.输入两个数m,n；求其最大公约数和最小公倍数
6.求1000!后面有几个零？
7.输入一组无序数，自动进行排列。
第四题的排列顺序是呈倒三角形的
能回答几道就回答几道
2.求1到100中所有素数的和。（1不是素数）
3.求m到n中所有“水仙花数”的和。
4.运用循环结构显示出如下图形
DDDDDDDD
CCCCCC
BBBB
AA
5.输入两个数m,n；求其最大公约数和最小公倍数
6.求1000!后面有几个零？
7.输入一组无序数，自动进行排列。
第四题的排列顺序是呈倒三角形的
能回答几道就回答几道
1.
dim n as integer,n as integer
m=val(inputbox("输入鸡兔总数："))
n=val(inputbox("输入鸡兔总脚数："))
print "共有鸡";(4*m-n)/2;"只，共有兔";(n-2*m)/2;"只。"
2.
Dim s As Integer, i As Integer, j As Integer, k As Integer
s = 2
For i = 3 To 100
For j = 2 To Sqr(i)
k = 0
If i Mod j = 0 Then
k = 1
Exit For
End If
Next j
If k = 0 Then s = s + i
Next i
Print s
3.
Dim s As Integer, i As Integer, j As Integer, k As Integer, t As Integer, m As Integer, n As Integer
s = 0
m = InputBox("请输入m：")
n = InputBox("请输入n：")
For i = m To n
k = Len(Trim(Str(i)))
t = 0
For j = 1 To k
t = t + Val(Mid(Trim(Str(i)), j, 1)) ^ 3
Next j
If t = i And t <> 1 Then s = s + i
Next i
Print s
4.
Dim S As