扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
用VB程序做以下题目求一个数,它除以三余二,除以五余三,除以七余二,求满足上面要求的最小数
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
Private Sub Form_Load()i = 7DoIf i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Exit Doi = i + 1LoopMsgBox iEnd Sub答案是23
为您推荐：
其他类似问题
扫描下载二维码(window.slotbydup=window.slotbydup || []).push({
id: '2491531',
container: s,
size: '150,90',
display: 'inlay-fix'
VB小题目，帮忙编个代码
题目要求：
⑴运行时出现一个标题为“对象的属性、事件和方法”的窗口，其中包含四个标题分别为“上”、“下”、“左”、“右”的命令按钮；
⑵当窗体大小改变时，四个命令按钮分别自动移动到窗体的“上”、“下”、“左”、“右”四个边的中间位置；
⑶当单击窗体时，显示信息
题目要求：
⑴运行时出现一个标题为“对象的属性、事件和方法”的窗口，其中包含四个标题分别为“上”、“下”、“左”、“右”的命令按钮；
⑵当窗体大小改变时，四个命令按钮分别自动移动到窗体的“上”、“下”、“左”、“右”四个边的中间位置；
⑶当单击窗体时，显示信息“我是窗体，你单击了我”。
里面有源程序和生成的exe文件
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
抱歉，更正一下CommandMove
Private Sub CommandMove()
cmdUp.Top = 0
cmdUp.Left = (Me.ScaleWidth - cmdUp.Width) / 2
cmdDown.Top = Me.ScaleHeight - cmdDown.Height
cmdDown.Left = (Me.ScaleWidth - cmdUp.Width) / 2
cmdLeft.Top = (Me.ScaleHeight - cmdUp.Height) / 2
cmdLeft.Left = 0
cmdRight.Top = (Me.ScaleHeight - cmdUp.Height) / 2
cmdRight.Left = Me.ScaleWidth - cmdUp.Width
里面有源程序和生成的exe文件
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
抱歉，更正一下CommandMove
Private Sub CommandMove()
在执行之前联编的属性称作静态的(static)，而只在执行期间联编的属性是动态的(dynamic)
我感觉应是系统的事，２０００本就不太好用的　，你的电脑配置也应是不太高　，反以才会这样，我以前的电脑有过这样类似的情况
Ctrl＋Alt＋Del打开任务管理器
转到进程选项卡
关闭你想关闭的程序
这样的情况个人建议用360系统急救箱修复，修复后重启电脑就可以正常。
我觉得可能您涉及的函数没有加载。
您可以在工具/加载宏里找到尚未加载的函数类别。
另外 “(F65536)” 需要定义吧？
答: 钓鱼鱼食中的VB2是什么啊？
答: DVB关键技术编辑DVBH技术是DVB和DVBT两种技术的融合，但是如果仅仅依靠上述两种技术是不能完全解决DVBH所面临的问题的
答: 你好，你直接按键盘 vb12 就好了。
销售额：指企业在销售商品、提供劳务及让渡资产使用权等日常活动中所形成的经济利益的总流入。税法上这一概念是不含任何税金的收入。销售额适用于制造业、商业等。
营业额会计上指的是营业收入，税法指的是应税营业收入。营业额属于含税收入，适用于饮食业、运输业、广告业、娱乐业、建筑安装业等 。
1、问：房地产开发企业拆迁补偿费是否也随土地价格一起交纳契税(以房易房部分的)?
答：是的，因为取得土地的成交价格包括：地出让金、土地补偿费、安置补助费、地上附着物和青苗补偿费、拆迁补偿费、市政建设配套费等承受者应支付的货币、实物、无形资产及其它经济利益，而契税中未对房地产企业有相关的减免政策
2、问：如果交,是就补给拆迁户交差价部分交税还是就全部回迁房价格交税?在什么环节,时间交纳?
答：所谓使用回迁房作为拆迁补偿的形式，就是开发商以原地或异地的房屋抵顶拆迁补偿费的一种方法，相当于延期或分期支付拆迁补偿款，而契税条例中规定是：“纳税义务发生时间在纳税人签订土地、房屋权属移交合同的当天，或者纳税人取得其他具有土地、房屋权属转移合同性质凭证的当天。纳税人应在自纳税义务起10日内，向土地、房屋所在地的税收征收机关办理纳税申报，并在税务征收机关核定的期限内缴纳税款。 ”所以需要在取得土地的时候就要缴纳契税，需要全额计税，不能以补偿款计税。
3、问：土地使用税在什么环节交?如何交?税法说确有困难的可以减或缓,各地有具体政策吗?
答：如果原土地属于耕地的，自取得土地后满一年开始征收，如果属于非耕地的，自取得土地之下月征收。
以前的土地使用税一般都予以减免，特殊情况例外，虽然国家税务总局《关于土地使用税若干具体问题的补充规定》，对于基建项目在建期间使用的土地可以免税，但很多地方的税务机关都认为这不适用房地产企业，因为现在国家是控制房地产过热，不属于鼓励范围。
4、问：回迁部分房屋的营业税在什么环节交?
答：在交付回迁房屋或被拆迁户全部支付差价的时候缴纳，如果不需要支付差价的，以成本价格作为计税依据，如果有差价的，不需要支付部分按成本价格计税，差价部分按实际计税。
我个人认为解放后初期的土改，是农民分得了土地，而不是租土地。明确来说，当时的土改就是农民私有。我认为，当时可能是出于对“私有制”的忌讳，所以不敢直接声称是“私有”，而是用“农民的”来代替。
之所以说当时是私有，理由大致如下：
1.土改，准确来说是对生产资料的重新分配。当时参与土改的生产资料，不但包括土地，还包括牛马驴骡、农具等生产资料。而这些都是属于农民私有的。后来合作化运动之前，有些农民就曾经把牛马等牲口杀了吃肉，政府当时也只是批评他们的思想，并没有强力阻止。可见这些生产资料的确是属于私有的。
2.在一些地方的土改总结中，曾经对各阶层的土地分配量进行过汇总。在土改中，也并不是全部重新分配。例如富农和中农的土地都得到了一定保护。因此，可以推断，平均地权后的土地拥有量，仍然不是完全平等的。而如果是土地公有，那么富农中农的土地也应当予以重新分配。
3.合作化运动期间，鼓动农民用土地入股，参与合作组。如果土地不是农民私有的，那么“用土地入股”之说从何谈起？只有土地是农民私有的，才能够用“自愿”和“入股”等口号来鼓动农民。
4.当农业社会主义改造结束后，官方曾经明确认定是：把农民的土地所有制改造为集体所有制。我们知道，集体所有制才是真正具有公有制意义的，既然集体所有制是刚改造成立的，那么此前就不应该是公有制，否则也就没有这么大的政治意义了。所以，被改造之前，应当是私有制。
5.据说薄一波在《若干重大历史问题和回顾》中曾经提到：如果土改结束后，继续实行新民主主义，不急于把私有制改造为公有制，那么可能就没有后来的这么多错误。（原话记不清了，大体是这个意思）可见，当时党内高层，也是把农民所有制认定为私有制。
6.参照当时的工业情况。土改期间的工业依然是存在私有制的。直到合作化运动后，才逐渐兼并了私有企业。工业合作化期间，也曾经采用了“入股”“分红”“自愿”等手法，这和农业合作化方式是一致的。很难想像，如果农村当时真的消灭了私有制，那么这些私人企业家怎么还能够放心生产下去。所以我认为，当时的土改只能是建立了农民私有制，这样才能让私人企业家吃一个定心丸，不至于立马停工逃跑。
土地是否拥有私有权，很大程度上要看土地拥有者是否能够自由买卖土地。但是土改初期，一来，地主的财富基本被瓜分完毕；二来，地主即使留下一点财富，也决计不敢表露自己还藏有私钱；三来，刚分得土地的农民没有钱去购买土地。从而使得当时的地主无地可卖，无地敢买；农民不愿卖地，没钱买地。因此造成几乎没有土地买卖的可能性。既然没有土地买卖，其私有权也相对体现的并不明显。
不过从上述种种理由来看，虽然土地买卖并不明显，但并不能认为当时就不是私有制。土改结束后，农民的劳动积极性大大提高，当年的农业产量得到了大幅增长。在当时没有提出承包概念，没有明确承包年限的情况下，如果不是私有制，很难想像农民会有这么大的劳动积极性。要知道，三中全会后，也是明确了足够的承包年限后，农民才具有较高的积极性。如果建国初期的土改是公有制或集体所有制的，在没有承包年限的承诺下，我不太相信农民会有足够的劳动积极性。
公司为员工租房，属于一种福利，不应该缴纳个人所得税的
租赁协议应该公司与房主统一签订
考虑是由于天气比较干燥和身体上火导致的，建议不要吃香辣和煎炸的食物，多喝水，多吃点水果，不能吃牛肉和海鱼。可以服用（穿心莲片，维生素b2和b6）。也可以服用一些中药，如清热解毒的。
确实没有偿还能力的，应当与贷款机构进行协商，宽展还款期间或者分期归还； 如果贷款机构起诉到法院胜诉之后，在履行期未履行法院判决，会申请法院强制执行； 法院在受理强制执行时，会依法查询贷款人名下的房产、车辆、证券和存款；贷款人名下没有可供执行的财产而又拒绝履行法院的生效判决，则有逾期还款等负面信息记录在个人的信用报告中并被限制高消费及出入境，甚至有可能会被司法拘留。
第一步：教育引导
不同年龄阶段的孩子“吮指癖”的原因不尽相同，但于力认为，如果没有什么异常的症状，应该以教育引导为首要方式，并注意经常帮孩子洗手，以防细菌入侵引起胃肠道感染。
第二步：转移注意力
比起严厉指责、打骂，转移注意力是一种明智的做法。比如，多让孩子进行动手游戏，让他双手都不得闲，或者用其他的玩具吸引他，还可以多带孩子出去游玩，让他在五彩缤纷的世界里获得知识，增长见识，逐渐忘记原来的坏习惯。对于小婴儿，还可以做个小布手套，或者用纱布缠住手指，直接防止他吃手。但是，不主张给孩子手指上“涂味”，比如黄连水、辣椒水等，以免影响孩子的胃口，黄连有清热解毒的功效，吃多了还可导致腹泻、呕吐。
合肥政务区网络广告推广网络推广哪家公司比较好 一套能在互联网上跑业务的系统，被网络营销专家赞为目前最 有效的网络推广方式！
1、搜索引擎营销：分两种SEO和PPC，即搜索引擎优化，是通过对网站结构、高质量的网站主题内容、丰富而有价值的相关性外部链接进行优化而使网站为用户及搜索引擎更加友好，以获得在搜索引擎上的优势排名为网站引入流量。
良工拥有十多位资深制冷维修工程师，十二年生产与制造经验，技术力量雄厚，配有先进的测试仪器，建有系列低温测试设备，备有充足的零部件，包括大量品牌的压缩机，冷凝器，蒸发器，水泵，膨胀阀等备品库，能为客户提供迅捷，优质的工业冷水机及模温机维修和保养。
楼主，龙德教育就挺好的，你可以去试试，我们家孩子一直在龙德教育补习的，我觉得还不错。
成人可以学爵士舞。不过对柔软度的拒绝比较大。　　不论跳什么舞，如果要跳得美，身体的柔软度必须要好，否则无法充分发挥出理应的线条美感，爵士舞也不值得注意。在展开暖身的弯曲动作必须注意，不适合在身体肌肉未几乎和暖前用弹振形式来做弯曲，否则更容易弄巧反拙，骨折肌肉。用静态方式弯曲较安全，不过也较必须耐性。柔软度的锻炼动作之幅度更不该超过疼痛的地步，肌肉有向上的感觉即可，动作(角度)保持的时间可由10馀秒至30-40秒平均，时间愈长对肌肉及关节附近的联结的组织之负荷也愈高。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区一个VB题目_百度知道
一个VB题目
编写过程delestr(s1,s2),将字符串s1中出现的字符串s2删去,结果放在s中.也就是三个text里,第一个text放s1,第二个text放s2,第三个text放s3
下面是我编的,不知道哪里不对劲,请各位指教:
Private Function delestr() As String
Dim s As String, m%, n%, k%
...
恩.我是大一的,没学那么深,一楼的那个我没学过..麻烦再用其他方法试试
我有更好的答案
在你的基础上改的.Private Function delestr(s1 As String, s2 As String) As StringDim n%, k%n = InStr(s1, s2)Do While n & 0k = Len(s2)s1 = Left(s1, n - 1) + Right(s1, Len(s1) - n - k + 1)n = InStr(s1, s2)Loopdelestr = s1End FunctionPrivate Sub form_click()Dim s1 As String, s2 As String, s As Strings1 = Text1.Texts2 = Text2.Texts = delestr(s1, s2)Text3.Text = sEnd Sub
采纳率：50%
直接用Replace函数就行啦.Text3 = Replace(Text1, Text2, &&)'将TEXT1中的TEXT2替换成空字符串返回结果赋值到TEXT3.如果一定要按你的方法,那就这样吧:Private Function delestr(s1 As String, s2 As String) As StringDim s As String, m%, n%, k%m = Len(s2)Do While InStr(1, s1, s2) & 0k = Len(s1)n = InStr(1, s1, s2)s = s & Left(s1, n - 1)s1 = s & Mid(s1, n + m)Loopdelestr = s1End FunctionPrivate Sub form_click()Text3.Text = delestr(Text1, Text2)End Sub
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb题目-土地公文库
。 Dim s As ...
1. 题目：控件的__________确定了当一个事件发生时的执行代码。word/media/image1.wmf函数word/media/image2.wmf事件过程word/media/image1.wmf子程序word/media/image1.wmf通用过程2. 题目：___________的改变可以在设计时和运行时表现出来，而________只有在运行时执行。word/media/image1.wmf控件属性、函数word/media/image2.wmf控件属性、事件过程word/media/image1.wmf事件过程、函数word/media/image1.wmf控件属性、子程序3. 题目：可被一个对象识别的动作称为__________。word/media/image1.wmf过程word/media/image1.wmf属性word/media/image1.wmf方法word/media/image2.wmf事件4. 题目：扩展名为VBP的工程文件中包含有________。word/media/image2.wmf工程中所有模块的有关信息word/media/image1.wmf每个窗体模块中的所有控件的有关信息word/media/image1.wmf每个模块中所有变量的有关信息word/media/image1.wmf每个模块中所有过程的有关信息5. 题目：_________在用户的应用程序执行期间发生，比如鼠标单击或是敲击键盘。word/media/image1.wmf方法word/media/image1.wmf属性word/media/image2.wmf事件word/media/image1.wmf工程6. 题目：窗体模块和标准模块对应的文件的扩展名分别为______。word/media/image1.wmffrm和vbpword/media/image2.wmffrm和basword/media/image1.wmfbas和frmword/media/image1.wmfvbp和bas7. 题目：单击滚动条两端的箭头时，滚动条Value属性值的改变量由________属性值决定。word/media/image1.wmfLargeChangeword/media/image1.wmfMaxword/media/image2.wmfSmallChangeword/media/image1.wmfMin8. 题目：若需要在同一窗体内安排两组相互独立的单选按钮（OptionButton），可使用________控件将它们分隔开。① TextBox ② Picture ③ Image ④ Frameword/media/image1.wmf①②word/media/image1.wmf②③word/media/image2.wmf②④word/media/image1.wmf③④9. 题目：创建应用程序的界面时，在窗体上设置了一个命令按钮，运行程序后，命令按钮没有出现在窗体上，可能的原因是________。word/media/image1.wmf该命令按钮的Value属性被设置为Falseword/media/image1.wmf该命令按钮的Enabled属性被设置为Falseword/media/image2.wmf该命令按钮的Visible属性被设置为Falseword/media/image1.wmf该命令按钮的Default属性被设置为True10. 题目：以下关于方法的叙述错误的是________。word/media/image1.wmf方法是构成对象实体的一个部分word/media/image1.wmf方法是一种特殊的过程或函数word/media/image1.wmf调用方法的一般格式是：对象名.方法名称[参数]word/media/image2.wmf在调用方法时，对象名称是不可缺少的11. 题目：以下控件对象中具有Picture属性的是________。① PictureBox ② Frame ③ OptionButton ④ CommandButton ⑤ ListBox ⑥ CheckBox ⑦ Labelword/media/image2.wmf①③④⑥word/media/image1.wmf①②⑤⑥⑦word/media/image1.wmf①③④⑤⑥word/media/image1.wmf①②③④⑤⑥12. 题目：设s是字符型变量，以下语句正确的是________。word/media/image1.wmfs=List1.Captionword/media/image1.wmfs=Timer1.Captionword/media/image1.wmfs=Text1.Captionword/media/image2.wmfs=Label1.Caption13. 题目：下面________语句，可以将列表框List1中当前选定的列表项的值替换成"ABC"。word/media/image1.wmfList1.AddItem "ABC",List1.ListIndexword/media/image1.wmfList1.Text="ABC"word/media/image2.wmfList1.List(List1.ListIndex)="ABC"word/media/image1.wmfList1.Print "ABC"14. 题目：下面所列的控件属性中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是________。word/media/image1.wmfList1.ListCountword/media/image1.wmfText1.Indexword/media/image1.wmfDir1.Pathword/media/image2.wmfLabel1.Visible15. 题目：在VB中，下列关于控件的属性或方法中搭配错误的有________个。① Timer1.Interval ② List1.Cls ③ Text1.Print ④ List1.RemoveItem ⑤ Vscroll1.Value ⑥ Picture1.Printword/media/image1.wmf0word/media/image1.wmf1word/media/image2.wmf2word/media/image1.wmf316. 题目：对于某对象的SetFocus与GotFocus的描述正确的是__________。word/media/image2.wmfSetFocus是方法，GotFocus是事件word/media/image1.wmfSetFocus是事件，GotFocus是事件word/media/image1.wmfSetFocus是方法，GotFocus是方法word/media/image1.wmfSetFocus是事件，GotFocus是方法17. 题目：若要设置单击滚动条上的空白区域时，滚动条的最大调整值应对其__________属性进行设定。word/media/image1.wmfMaxword/media/image1.wmfWidthword/media/image1.wmfSmallChangeword/media/image2.wmfLargeChange18. 题目：在下列__________控件中可以使用Print方法。word/media/image2.wmfForm和PictrueBoxword/media/image1.wmfListBox和Frameword/media/image1.wmfForm和Labelword/media/image1.wmfPictureBox和TextBox19. 题目：下列数据中_______是Boolean常量。word/media/image1.wmf.True.word/media/image1.wmf#False#word/media/image2.wmfTrueword/media/image1.wmf12320. 题目："设Mys1,Mys2均为字符串型变量，Mys1 ="ABCDEFGHIJKL"、Mys2 ="g"，则下 面关系表达式中结果为True的是____________。"word/media/image1.wmfMid(Mys1, 7, 1) > Mys2word/media/image1.wmfLen(Mys1)
2 * InStr(Mys1, "F")word/media/image2.wmfChr(65) + Right(Mys1, 5) = "AHIJKL"word/media/image1.wmfInStr(Left(Mys1, 6), "C") + 60 > Asc(Ucase(Mys2))
全文分22页阅读VB 一些题目,帮忙答一下
本回答由提问者推荐
var sogou_ad_id=731547;
var sogou_ad_height=160;
var sogou_ad_width=690;