| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2229 人关注过本帖
标题:[求助]应该怎么定义100以内的正整数呢?
只看楼主 加入收藏
kavi
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-10-8
收藏
 问题点数:0 回复次数:12 
[求助]应该怎么定义100以内的正整数呢?

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

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






大概就是这样了,不知道有没有大哥大姐能帮一下小弟呢.小弟万分感激!!!实在怎么想都想不明白啊..
搜索更多相关主题的帖子: 整数 定义 
2007-10-09 20:17
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 

有时我也喜欢帮人写作业:(楼主好好学习,下不为例!)
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


Repeat  Life=Study;Until (death);
2007-10-09 21:21
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
[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个平方根。
2007-10-09 21:52
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
[IMG]http://baike.baidu.com/pic/23/11733215973850743_small.jpg[/IMG]
2007-10-09 21:53
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
嗯,的确如此,但要是LZ这都不会的话,那我也没办法.

Repeat  Life=Study;Until (death);
2007-10-09 21:54
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
要么是老师太菜(那和我一起来学VB吧) 要么就是上课没听。既然老师能做出例程那估计是他上课没认真听……
2007-10-09 21:56
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
1.±
2.士
3.土
随便挑一个加上

Repeat  Life=Study;Until (death);
2007-10-09 21:57
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
以下是引用multiple1902在2007-10-9 21:56:37的发言:
要么是老师太菜(那和我一起来学VB吧) 要么就是上课没听。既然老师能做出例程那估计是他上课没认真听……

不过还好,会截图


Repeat  Life=Study;Until (death);
2007-10-09 21:58
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
以下是引用缘吇弹在2007-10-9 21:57:04的发言:
1.±
2.士
3.土
随便挑一个加上

嗯 好主意

2007-10-09 22:00
梦心
Rank: 4
来 自:福建平和
等 级:贵宾
威 望:13
帖 子:1910
专家分:0
注 册:2007-5-11
收藏
得分:0 
round(rnd(100))
随机的一百以内整数~

我清高和我骄傲的倔强,在风中大声的唱:我不听,我不听~~做我自己最特别,呼呼~~啦啦~~~
我的博客园地址: [url]http://[/url]
2007-10-09 22:22
快速回复:[求助]应该怎么定义100以内的正整数呢?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027002 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved