设计一个vb程序,输入两个正整数,求它们的大公约数并输出_家居产品问答- 一起装修问答
短信快捷登录
请输入密码
您还可以使用合作账号登录网站：
还没有一起网帐号？10秒钟,
微信扫码&快速登录
验证即登录，未注册将自动创建一起网帐号
获取动态密码
微信账号登陆
微信扫一扫绑定/登录
设计一个vb程序输入两个正整数求它们的大公约数并输出
微信公众平台：搜索“一起装修网”或扫描下面的二维码：
你的装修预算约 ? 万元
整体橱柜、马桶、瓷砖等
人工费+施工辅材
设计费：?元4999（测量、设计、报价）
一个vb程序输入两个正整数求它们的大公约数并输出
浏览89次 悬赏： 0
一个vb程序,输入两个正整数,求它们的最大公约数并输出
回答该问题即可获得 2 经验值，问题被采纳即可获得 2 经验值！
我来回答&&
装修从哪入手？
从免费户型设计开始…
全部回答(0 )
A：一台数字电视机顶盒一般不能同时连接两台电视机，因为在同一时间，机顶盒只能输出一种节目信号，没办法同时输出到两台电视机上；建议一台电视机配备一台机顶盒使用
A：1户型是非常关键的，首先选择户型很关键的一点就是起居室的了，首先是宽敞的明亮的才是关键的，因为呢，采光比例不适宜少于七分之一的，而且呢客厅必须是长方形才好的2卧室的选择必须是看一些长宽比的，宽度不适宜小于三米的，面积大于十二平方米为好的，但是如果是带了卫生间的话，那么此卫生间必须为主卧的附近才好3餐厅的话，餐厅的选择一般是和客厅的独立开来的，这样功能性更强一点的
A：你这样是可以的， 但是隔音效果不好，建议用墙隔开，上方安隔音的玻璃窗，有需要时可以打开通风。上层做顶柜、可平开门，下层做对应的几扇衣柜门，空间够的话做平开的，不够可做推拉门，柜面颜色尽量与卧室一致；客厅一面可处理成一面墙的效果，也可处理成古董柜、装饰架、背景墙之类，尽量掩饰不要让人看出是一面衣柜。
A：对于床上用品来说，在一开始的时候，可能对床罩和床单的区别不是很清楚。下面就介绍下床罩和床单的区别!首先，我们通常说的床单，就是睡觉的时候，垫在床下的那个长方形的布料。床单是很简单的，就是一个长方形的布料，然后四边处理了下。普通的床单就是简单的折了下边，好点的床单会加下花边或者做个圆角什么的。总之，床单基本就是一个长方形的布料，主要是盖在床上的。其次，床罩最主要的特征就是可以牢牢在罩在床上，且靠床头的那两个角有橡筋，可以扣紧席梦思。通常是多宽的床就需要使用多大的床罩。床罩的作用也和床单一样，但主要的好处是床罩罩在床上，睡觉的时候不容易滑动，而床单就比较容易滑动。如果是一个不怎么会睡觉的人，床单睡起来可能会卷成一团。不舒服，而使用床罩就不会有这样的问题!.以上对床罩和床单介绍，你家适合哪种你可以参考看看的，希望我的回答可以帮助到你，谢谢。
A：小客厅的烦恼可是真不少呀，面积、采光、收纳样样都是烦恼，但电视背景墙可不能省，大的有大的装法，小的有小的设计，这一道客厅新亮点，它在“众目睽睽”之下把主人的爱好、品位告诉大家。今天就给您个支招，怎样按照你家的烦恼对症下药，设计出实用又有品味的电视背景墙。合并在一起真的挺好的，我感觉贴壁纸比较合适哦！
A：这得看你家的墙的情况了。两个卧室中间的那一面墙如果是承重墙就不能打通，要弄成一个卧室就很难的。首先你就得研究好隔着两个卧室的那面墙哪些地方是可以打通的。有的只是两头不能动。如果可以的话，可以采用玻璃隔断。例如做一个木质的框架，但是要通透感很强的，在阳台那个隔断上可以采用纱帘 线帘，解决它的私密性。白天的时候留意层纱帘就可以啦，不用影响采光，我以前做过很多，希望对你有所帮助！
抢免费设计名额
每天限50个
请放心填写您的隐私将被严格保密
7年服务700万用户，中国家装十大电商平台
重复报名！
亲，您已经报过名啦，给别人留点机会呗
我们还有更多精彩活动，
向帮助了您的知道网友说句感谢的话吧!
提问期内，追加悬赏一次，可延长问题的有效期3天。悬赏越高，会吸引到越多的关注。
追加悬赏:&请教vb6.0对txt文件进行读写操作问题有两个txt文件A和B，从A中读取数据并进行判断，如果符合判断条件则写入B文件中，我用了以下的程序，不进行IF判断时是可以正常读写操作的，为何加入IF语句后在B文件中就没有输出结果了呢？
Dim & TStr & As & String
Dim & intext & As & String
Private & Sub & Command1_Click()
& Open & ( &c:\test1.txt &) & For & Input & As & #1
& Do & While & Not & EOF(1)
& Line & Input & #1, & intext
& TStr & = & TStr & + & intext & + & Chr(13) & + & Chr(10)
& Close & #1
& Open & ( &c:\test2.txt &) & For & Output & As & #2
& If & Trim(TStr) & = & Trim( &asd &) & Then &
'对读取的数据进行判断
& Print & #2, & TStr &
'如果符合判断条件则在test2中加入数据
& Close & #2
& End & If
& Text1.Text & = & TStr
回答1：Open ( &c:\test2.txt &) For Output As #2
If Trim(TStr) = Trim( &asd &) Then
'对读取的数据进行判断
Print #2, TStr
'如果符合判断条件则在test2中加入数据
-------------
如果If语句条件成立,那你什么时候关闭#2文件啊
回答2：改改试下
if tstr= &asd & then
open ( &c:\text2.txt &) for output as #2
print#2,tstr
回答3：Line Input 之后，自动到下一行。
print 后自动到下一行。
Dim intext As String
Private Sub Command1_Click()
&c:\test1.txt & For Input
&c:\test2.txt & For Output As #2
do while not EOF(1)
Line Input #1, intext
If intext =
&asd & Then
'对读取的数据进行判断
Print #2, intext
'如果符合判断条件则在test2中加入数据 &欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 5510 人关注过本帖
标题：请教一个问题，VB编译的程序在WIN7中运行出错。
等　级：新手上路
&&已结贴√
&&问题点数：20&&回复次数：6&&&
请教一个问题，VB编译的程序在WIN7中运行出错。
最近在一个软件的时候，发现一个VB的程序，在Win7中运行会报错，有时是英文的提示，或者是中文提示“未预期错误；退出”。
在安装的过程中，为了找出原因，新装过WIN7系统，再安装网上下载的VB运行库，可以成功运行。软件也不再报错，于是我为了证明到底是什么情况，对WIN7使用了系统还原以后。再运行该VB程序，再次报错，奇怪的是，现在在安装VB运行库后，还是报错了。。不知道有没有朋友愿意施以援手，帮我看看，再给个确定的方法，好吗？
附上我这个出错的程序，和VB运行库截图。
就是这个程序运行会报错，WIN7
以下是我在网上下载的运行库截图。麻烦了。
附件: 您没有浏览附件的权限，请
搜索更多相关主题的帖子:
等　级：版主
威　望：167
帖　子：3834
专家分：23356
&&得分:20&
Win7 完全支持 VB6 写的程序。
另外，WIN7中，运行库不能把DLL放到程序一起，也不能放到 SYSTEM32，然后注册。
在WIN7中，运行库，必须要使用安装程序进行安装才能使用。
这个应用，你打个安装包吧。找不到打包的程序，就用 VB6 自带的 打包程序也可以的。
授人于鱼，不如授人于渔
早已停用QQ了
等　级：新手上路
回复 2楼 风吹过b
感谢你的意见。我先操作试一下。
等　级：新手上路
回复 2楼 风吹过b
麻烦再多问一下。如何来对这个程序进行打包呢？ 是在XP中打包，还是在WIN7中打包好？ 麻烦了。不好意思。
也就是说，对已经生成的EXE文件，在没有源码的情况下，如果打包？
等　级：版主
威　望：167
帖　子：3834
专家分：23356
没有源码，就到 XP 里打包吧。在 WIN7 下面很可能打包失败。
有源码，就不论哪边都可以。
授人于鱼，不如授人于渔
早已停用QQ了
等　级：侠之大者
帖　子：136
专家分：409
可我就是用VB6自带的打包程序在winXP下打包的，但在win7下安装时出现下图所示，安装失败，请版主指教该如何办？
附件: 您没有浏览附件的权限，请
等　级：新手上路
我也遇到过这样的问题
版权所有，并保留所有权利。
Powered by , Processed in 0.101997 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved请教大神一个高级vb编程问题
谢谢_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：100,500贴子：
请教大神一个高级vb编程问题
窗体有2个text
2个command
单击command1
一个txt文件中100个0~999数字读取到a数组中
单击command2
找出这100数字中的水仙花数
并且判断这些水仙花数中的最值分别显示在2个text中
求代码谢谢
或者帮我改下我写的代码！Private Function h(k() As Integer)Open &E:\abc.txt& For Input As #1For i = 1 To 100Input #1, k(i)k(i) = (Int(k(i) / 100)) ^ 3 + (Int(k(i) / 10) - a * 10) ^ 3 + (k(i) Mod 10) ^ 3Nexth =End FunctionPrivate Sub Command1_Click()Dim max%, min%max = -1min = 1000For i = 1 To 100If h(a(i)) ThenIf max &= a(i) Then max = a(i)If min &= a(i) Then min = a(i)End IfNextText1 = maxText2 = minEnd SubPrivate Sub Command2_Click()Open &E:\abc.txt& For Output As #1For i = 1 To 100a(i) = Int(Rnd * 999)Print #1, a(i)NextClose #1End Sub
上海vb,&达内&讲师1对1辅导,0基础入学,10大全真项目实战,120天入门到精通,达内美国上市公司,就业后付款,终身推荐就业.
详细代码我就不看了，你的按钮2的导出功能题目需要求，多此一举，而真正按钮2的功能却写在按钮1中。。。帅哥，要是考试的话你这样做不得分的。
同学，你错的有点离谱。。。题目是让你读。。。。你应该用input，line input, Get去读。。。不是让你生成，保存。第2题，是让你在读取的数据中找水仙花数。。。看到你的源码，老师估计气的不轻。。。
应该是，Open FileName For InPut As #1
Option Base 1Dim a(100) As IntegerPrivate Function h(k() As Integer) As BooleanOpen &E:\abc.txt& For Input As #1For i = 1 To 100Input #1, k(i)If k(i) = (Int(k(i) / 100)) ^ 3 + (Int(k(i) / 10) - a * 10) ^ 3 + (k(i) Mod 10) ^ 3 Thenh = TrueElseh = FalseEnd IfNextEnd FunctionPrivate Sub Command1_Click()Dim max%, min%max = -1min = 1000For i = 1 To 100If h(a(i)) ThenIf max &= a(i) Then max = a(i)If min &= a(i) Then min = a(i)End IfNextText1 = maxText2 = minEnd SubPrivate Sub Command2_Click()Open &E:\abc.txt& For Output As #1For i = 1 To 100a(i) = Int(Rnd * 999)Print #1, a(i)NextClose #1End Sub
各位大神难道就没会的吗
必粉你·呀！！！
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或