Public Function Value(x)
Me.Cls
For i = 2 To 3
Value = x ^ i
Me.Print Value
Next
End Function
Private Sub Command1_Click()
Value InputBox("")
End Sub
自从用了C,VB很多年没用了,但你这个问题,实在是自己应该动手而已,哎,现在的年轻人啊,不知道应该怎么办了,
Private Sub Command1_Click()
Dim inta, intb As Integer
inta = InputBox("请输入:", "请输入一个数:", "3")
MsgBox "平方数为: " & inta * inta
MsgBox "立方数为: " & inta * inta * inta
End Sub
x=text1.text
for y =2
x=x^y
print x
问题补充:我不是考计算机的,vb是专业课书里的一个章节,可能这些问题对你要考计算机的研究生,在考研的时候就是要应付你所选择的相关计算机专业的考试
虽然我学过vb.net,不过我忘记了