1.写一个程序，判断年龄，如果大于18岁，则显示“已成年”
2.请开发一个函数，用于计算一个数的平方，并调用它计算3到20的平方和。
谁知道怎么做的吗？可以加QQ：93009073   

Dim age As Long
age = InputBox(age, "输入年龄")
    If age > 17 Then
        MsgBox "已成年", vbExclamation, "已成年"
            Else
                MsgBox "未成年", vbExclamation, "未成年"
    End If
程度有限，呵呵，只能帮你解答第一个问题了

太感谢了~~~不知道最后的那位高人帮下忙呀~~~
感动遭了~~

OK了，终于做好了

[此贴子已经被作者于2005-9-21 21:28:23编辑过]

冒昧的问一下，你要这个东西有啥用啊

dim i as double
dim num as double
dim k as double

Do Until i > 30
    num = k ^ i
    i = i + 1
Loop

也可以用for 语句
dim i as integer
dim sum as double

sum=0
for i=3 to 20
    sum=sum+i*i
next i

ffsdfdfdfdfdfdfdffd

这个有无实际用途呢？

这一般是老师布置的题目啦。自己翻书就有啦，书也懒得翻