这个学期刚学VB.今天老师给我们布置了一道题哦,但是看来看去都不是很懂,不知道怎么定义100内的正整数..我现在把题发上来希望大家能帮我解答一下.谢谢大家了..

1.编制一个程序,实现以下功能,输入一个小于100的正整数,如果超出范围则弹出"你必须输入一个小于100的正整数"的提示信息,然后计算其平方根并在消息框中输出.要求使用输入对话框来进行输入和输出,执行结果如图所示:

大概就是这样了,不知道有没有大哥大姐能帮一下小弟呢.小弟万分感激!!!实在怎么想都想不明白啊．．

有时我也喜欢帮人写作业:(楼主好好学习,下不为例!)
a = InputBox("请输入小于100的正整数:", "输入")
If a > 0 And a < 100 And Int(-a) = Fix(-a) Then
s = MsgBox(Str(a) & "的平方根是" & Str(a ^ (1 / 2)), vbOKOnly, "工程1")
Else
s = MsgBox("请输入一个小于100的正整数", vbOKOnly, "工程1")
End If

[CODE] a = InputBox("请输入小于100的正整数:", "输入")
If a > 0 And a < 100 And Int(-a) = Fix(-a) Then
s = MsgBox(Str(a) & "的平方根是" & Str(a ^ (1 / 2)) & "和 -" & Str(a ^ (1 / 2)), vbOKOnly, "工程1")
Else
s = MsgBox("请输入一个小于100的正整数", vbOKOnly, "工程1")
End If[/CODE]
正整数有2个平方根。

[IMG]http://baike.baidu.com/pic/23/11733215973850743_small.jpg[/IMG]

嗯,的确如此,但要是LZ这都不会的话,那我也没办法.

要么是老师太菜（那和我一起来学VB吧） 要么就是上课没听。既然老师能做出例程那估计是他上课没认真听……

1.±
2.士
3.土
随便挑一个加上

不过还好,会截图

嗯 好主意

round(rnd(100))
随机的一百以内整数～