以下试题来自：
单项选择题在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是【
】A．Private Sub Command1_Click()
Text1.Left=100
End SubB．Private Sub Command1.Click() Text1.Left=Text1l.Left-100
C．Private Sub Cornmand1_Click()Text1.Move Text1.Left+100
End SubD．Private Sub Command1_Click()Text1.Move Text1.Left
为您推荐的考试题库
你可能感兴趣的试题
1A． AlignmentB． CaptionC． VisibleD． BorderStyle2A． 4 3B． 1 1C． 3 0D． 2 63A．报表只能输入数据B．报表只能输出数据C．报表可以输入和输出数据D．报表不能输入和输出数据4A． 打开Visual Basic主窗体的“文件”菜单，执行其中的“退出”命令B． 按快捷键Alt+Q退出C． 单击Visual Basic主窗体右上角的“关闭”按钮D． 按快捷键Alt+E退出5A．语句"Dim a,b As Integer"声明了两个整型变量B．不能在标准模块中定义Static型变量C．窗体层变量必须先声明,后使用D．在事件过程或通用过程内定义的变量是局部变量
热门相关试卷
最新相关试卷VB的form1里command1单击一次n=n+1,在unload form1之后，要在form2.label1.caption读取n的值。_百度知道
VB的form1里command1单击一次n=n+1,在unload form1之后，要在form2.label1.caption读取n的值。
大家注意 form1是unload的！！！求代码！！！谢谢!!!
我有更好的答案
为了一个计数变量用一个模块；太浪费！在Form1上写上如下代码：Private&Sub&Command1_Click()& & Me.Tag&=&Int(Val(Me.Tag))&+&1End&SubPrivate&Sub&Form_Click()& & Form2.ShowEnd&SubPrivate&Sub&Form_Unload(Cancel&As&Integer)& & Form2.Label1&=&Me.TagEnd&Sub&
采纳率：59%
来自团队：
'form1Option ExplicitPrivate Sub Command1_Click()
Form2.Label1 = n
If n = 3 Then Unload MeEnd SubPrivate Sub Form_Load()
Form2.ShowEnd Sub'-------------------------'Module1Option ExplicitPublic n As Long
本回答被网友采纳
必须设置一个module，将n作为该module的public变量。 如果n是form1的变量，程序本身不会出错，但unload form1之后，如果form2读取 form1中的变量，会自动引起 form1的加载(load)，这时form1中的n应该是初始值。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb 如何每次单击一次按钮变量x加1？_百度知道
vb 如何每次单击一次按钮变量x加1？
我有更好的答案
VB可在按钮的Click事件中用Static语句声明一个变量或在窗体的通用模块中声明变量。Static 语句，在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用 Static 语句声明的变量的值。模块的代码开始运行后，使用 Static 语句声明的变量会一直保持其值，直至该模块复位或重新启动。可以在非静态的过程中使用 Static 语句显式声明只在该过程内可见，但具有与包含该过程定义的模块相同生命期的变量。Statlc语句代码实例：Private&Sub&Command1_Click()&&&&Static&i&As&Long&&&&i&=&i&+&1&&&&Text1&=&iEnd&Sub窗体的通用模块代码实例：Option&Explicit&&&&Dim&i&As&LongPrivate&Sub&Command1_Click()&&&&i&=&i&+&1&&&&Text1&=&iEnd&Sub注意后者在窗体的生命期内，该值变量始终保持按钮事件改变的值。
dim x as integerprivate sub command1_click()clsx= x+1print xend sub
cls是什么意思？
Cls是清除窗体上打印的内容，我只是举个例子，为了在窗体显示方便，在显示下个数字前把上次显示的数字清除掉
本回答被提问者和网友采纳
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB同一个窗体中，有command1、command2两个按钮，在command2语句中，如何调用command1刚用到的参数a？a是command1定义并计算了的参数,谢谢了
在这个窗体的“通用”--“声明”这里定义变量a，就可以用了。
在过程里定义的变量，只在本过程里有效；
在窗体的声明部分里定义的变量，在本窗体(或称本模块)内有效；
用Public关键字定义变量或过程，则其他窗体也可以引用；
在模块(Module)内定义的变量或过程，整个工程都可以引用。
您可以在第一个Form中写一个方法，用于传递变量，在另一个Form中new一下第一个Form，使用其中的那个方法就会获得变量值了。回答完毕，祝您好运。
就算您做出了修改，还是全是错误。
此又为何意?
因此,输出结果是:
输出结果是:...
Temp是系统临时文件的暂存文件夹，这里的文件可以毫无保留的删除,删除后应该就没有这个提示了。
给你上传一个清理工具，下载后双击运行即可清除
在Form1的头文中声明，在具体文件中实例化，再在Form2中引入头文件，在Form2的具体文件中声明引入。
在模块中用Global定义的变量为全局变量。
如新建一个module1.bas
在里面写上
global a as integer
答: 1.一个VB应用程序可以包含几个.vbp文件？（
）2.Visual Basic是一种面向对象的可视化编程语言，采取了（
事件驱动 ）的编程机...
答: Rapid development in the Internet today, many people in the use of new network t...
答: VBA（Visual Basic for Applications，Visual Basic应用程序设计语言）是Visual Basic和许多可编程软件应用程序...
B.20世纪上半叶，人类经历了两次世界大战，大量的青壮年人口死于战争；而20世纪下半叶，世界基本处于和平发展时期。
“癌症的发病率”我认为这句话指的是:癌症患者占总人数口的比例。
而B选项说是死亡人数多，即总体人数下降了，但“癌症的发病率”是根据总体人总来衡量的，所以B项不能削弱上述论证
餐饮业厨房产生的油烟，顾名思义，废气中主要污染物为油烟，一般采用静电除油。
液化气属较清洁能源，废气污染程度不高，主要含二氧化碳一氧化碳吧。
柴油属石油类，废气含二氧化硫和氮氧化物，二氧化硫碱液喷淋即可去除，氮氧化物主要以一氧化氮为主，要催化氧化成二氧化氮才能被碱吸收，造价成本非常高，一般的柴油发电机尾气难以治理，除非大型发电厂。
煤炭废气含二氧化硫多，一般常用的脱硫工艺即可。
根本就没有正式的国际驾照，如果到国外开车，正式的程序：
1、到公证处办理驾照的公证书，可以要求英文或者法文译本（看看到哪个国家而定）；
2、拿公证书到外交部的领事司指定的地点办理“领事认证”，可以登录外交部网站查询，北京有4、5家代办的，在外交部南街的京华豪园2楼或者中旅都可以。
3、认证后在公证书上面贴一个大标志；
4、有的国家还要到大使馆或者领事馆盖章一下。
偶前几天刚刚办过。
铝属于两性金属，遇到酸性或碱性都会产生不同程度的腐蚀，尤其是铝合金铸件的孔隙较多，成分中还含有硅和几种重金属，其防腐蚀性能比其他铝合金更差，没有进行防护处理的铝铸件只要遇到稍带碱性或稍带酸性的水，甚至淋雨、水气、露水等就会受到腐蚀，产生白锈。
解决的办法。
铝铸件完成铸造后，在机械加工前，先要进行表面预处理，如预先对铸件进行喷砂，涂上一道底漆（如锌铬黄底漆），在此基础上再进行机械加工，以避免铸铝件在没有保护的情况下放久了被腐蚀。
患者在此期间一定要禁烟禁酒，不可再次饮酒，容易使眼睛状况加大，患者要多听从医生的建议。不要乱用一些眼药水，患者一定要保持眼睛的干净卫生。不要用手去揉搓眼睛。因为我们的手一般都含有大量的病菌，容易再次感染。患者也要多注意自己的饮食。不要食用一些辛辣，油腻类的食物，患者要多食用一些清淡的食物。多食用一些新鲜的瓜果蔬菜。多喝一些白开水。这样可以提高眼部的干燥情况，避免出现上火的情况。患者可以做一些眼部的健操，患者也可以多松弛一下眼部的肌肉，缓解眼部的疲劳，也可以多看一些绿色的植物，出门时要戴上眼镜这样可以避免紫外线照射。不要长时间地坐在电脑旁玩电脑。患者要多注意休息，合理的安排自己的作息时间。不要长时间熬夜，不要长时间坐在电视或电脑旁。不要目不转睛的看一些书或者是别的事物。不要让眼睛过度多的劳累疲劳。患者一定要禁烟禁酒，切记不可饮酒吸烟。
单纯的色盲患者分为遗传性的和后天形成的。一般都是在体检时才会发现自己色盲。导致色盲的原因，遗传的色盲是不好完全根治的，但是如果是部分的红绿色盲，再加上是由于后天的发现而造成的。也还是有治愈或者消除的可能性。目前世界上的医疗手段，是不能完全医治好红绿色盲的，因为色盲是基因出现了问题。不过我们可以加强自身的素质，也许后天造成的红绿色盲是能够根治病情的。患有红绿色盲患者的家人，应该多多鼓励患者，不要让他们产生悲观的心情。色盲患者平时可以加强体育锻炼，多去医院做色彩校正。希望患者能有一个积极的态度来治疗自己的疾病。患上色盲是很常见的，重要的是患者要拥有一颗多姿多彩的心，只有心情变得愉悦了，病情才会有所好转的。市场上有卖一些色盲矫正的眼睛，患者在购买时，一定要擦亮眼睛。真假的货真的很难分辨出来，劣质的眼镜只会让病情适得其反啊。一定要慎重选择。
一般手术比较干脆。需要根据慢性副鼻窦炎患者病情的严重程度来决定手术的选择方式。手术的治疗方式相对疗效药好一些，治疗鼻窦炎比较直接的一种治疗方式就是用手术进行治疗，但是手术的风险肯定是有的。药物治疗比较安全。但效果因人而异。选择采用清热解毒的中草药治疗比较合适。但是不要乱用药物造成没有必要的伤害，一定要重视!一般鼻窦炎的治疗可以用药物进行治疗，药物的治疗一般用中药比较好，需要注意的是药物肯定得遵循专科医生的指导。慢性副鼻窦炎的患者生活中一定要避免不良的习惯，不能抽烟喝酒，不能熬夜，要注意多休息。平时要保持鼻腔的清洁通畅卫生。注意多喝水，可以吃新鲜的水果蔬菜，保持好自己的心情愉快，不要有思想负担。我们在平时的生活中一定要注意自我的保养，不要忽视鼻窦炎的存在，鼻窦炎的危害还是很大的，一经发现一定要及时的处理，接受全面的检查治疗很重要。
肝胆湿热通常是肝胆功能失常导致的，常期湿热的环境或者不健康的饮食（如过量饮酒、过量食用甘肥厚味）是肝胆湿热的主要原因。肝炎的原因很多，最常见的是病毒造成的，此外还有自身免疫造成的，酗酒也可以导致肝炎。肝胆湿热在家中自己就可调理好，主要利湿清热，清肝利胆为主。经常食用螺蚌肉有清热利湿及止痛之效祛除肝胆湿热。还可配清热利湿食疗辅助治疗，选择一些凉性的水果食用可有效降肝火。发现肝炎后，应立即去医院进行专业的手术治疗。青年人、中年人易发生肝胆湿热。长期迁延不治疗，就会诱发风湿性关节炎，前列腺炎、胆囊炎等病，从而发生阳痿早泄、腰膝冷痛、膝软筋痿等症状。病毒性肝炎如果不及时治疗，会导致很严重的后果，如肝硬化，原发性肝癌等疾病。保持乐观的心态，注意休息好，避免过量运动，戒酒，少吃辛辣、油腻及甜食等。肝胆湿热注意饮食调节，肝炎要及时上医院进行治疗。
看一看周围有没有传染源。一般这是有感染习惯的啊，而且啊，医生又给儿子问了一些问题，像是有没有经常用脏手揉眼睛啊；有没有适当的眼部清洁啊等等，后来啊医生就给我儿子开了些氯霉素眼药水，让他经常滴一滴，以防眼睛干痒又用手去揉，这样子会让病菌感染，加重沙眼症状。平时要多注意休息，休息好了才能治好啊，要不就会越发展越厉害，你应该做最好多闭眼睛。有时候特别痒，但是也不能用手搓，我都有时候痒的不行了，也忍着，实在坚持不住，用卫生棉签擦一下。应该尽量保持眼睑卫生，一般就是眼睛不卫生造成的呢，局部使用0.1%的利福平滴眼剂。不要揉眼，平时多吃点蔬菜水果，多锻炼，增强抵抗力，减少感冒。
我们厂里的打标机是汇泽的，用用蛮好的，楼上的 有私信你
我看见很多都在问激光打标机是不是电磁辐射，其实我们必须防水的不是激光打标机打标的激光，而是产生激光的装置。电磁辐射一般来讲，已经被金属外壳屏蔽。合格的产品电磁辐射必定是安全的。防电磁波电磁辐射衣服对电磁波的屏蔽原理也是与金属外壳屏蔽一样。电磁辐射与核辐射是几乎的两类，不能误解。电磁辐射一般不必防辐射衣服。
所以大家可以安心所以激光打标机。不要太担忧激光打标机电磁辐射的问题，以上是尚拓激光技术人员共享，大家可以理解下。
沈师傅的残疾人矫正鞋制作中心，专门给孩子定做矫正鞋，要根据孩子的问题，程度，病因，取模来定做。
“环保袋不环保”，并非名人一己之感觉，这相差无几在公众中都快得到共识了。当然，还可以经过树立诸如“环保袋循环流通机制”这种更为积极的处理办法以更大限度地成功实现环保袋的社会形态价值：由小区物业、居委会或成立专门机构回停止营业民骈枝的环保袋，将他们集中起来，这么既可以再发放给需求环保袋的私人或家子，也易于进做善事处。
监视管理部门要增强市场管理，对出产和定购环保袋的厂商施行监督，明确罚责。由此看来，无纺布袋较可回收、易粉碎再造的正规分子化合物塑料袋更不环保。
正在加载...
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415下列VB程序运行时，在文本框Text1中输入数据-25，在文本框Text2中输入数据-100，单击命令按钮Command1后，文本框Text3中显示的内容是______。Private Sub Command1_Click( )Dim a As Integer, b As integer, c as integera = Val(Text1.Text)b = Val(Text2.Text)If a&b and a&0 Then c="sqr(a)" else c=sqr(abs(b))Text3.Text = str(c)End Sub提示：下载试题将会占用您每日试题的下载次数，建议加入到试题篮统一下载（普通个人用户：3次/天）【知识点】&&&& 类题推荐类、对象、属性、方法、事件和事件处理的概念程序填空题，以下程序需要完成的功能是：输入a,b三个整数，输出最小数（3分）Dim a as integer, b as integer, min as integera=Val(InputBox(“”))b=Val(InputBox(“”))___________________________min=bElsemin=aEnd ifLabel1.Caption=_____________现要求编写VB程序，实现下列功能：计算一个大写字母在26个字母中的位次。程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字母中的位次。1图(1)在进行应用程序界面设计时，需要添加“计算”按钮，可使用如第2图所示的“控件工具箱”中的&&&&&&(填写相应编号)，并在如第12题－3图所示的“属性窗口”中，将&&&&&&属性值设置为“计算”。(2)该程序的源代码如下，请根据题意将代码补充完整，使程序能正常运行。Private Sub Command1_Click()Dim ch As String, pos As Integer&（3）&＝Text1.Textpos＝Asc(ch) – 64Label2.&&&（4）&&＝”第”＋Str(pos)＋”个字母”End Sub编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母的字符串，单击“统 计”按钮Commandl，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如1图所示。 1图&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 2图（1）在设计应用程序界面时，应使用2图所示“控件工具箱”中的___①___（填写相应编号）添加“统计”按钮。（2）为实现上述功能，请在划线处填入合适代码或选项。Private Sub Commandl_Click()Dim s As String，c As StringDim i As Integer，n As Integer，num As Integers = ____②___(填程序代码）num = 0n = Len(s)__③__'(填字母:从下列A、B、C三个选项中选取一项）__④___'(填字母:从下列A、B、C三个选项中选取一项）If& c&= "0" And c&= "9"& Thennum =" num" + 1End IfNext& iLabell. Caption = str(num)End Sub划线③、④的选项：A. Do While i &=" n" B. c =" Mid(s,i,1)" C. For i =" 1" To n试题点评评分：0评论：暂时无评论暂时无评论末页使用过本题的试卷同步试卷暂无数据相关知识点组卷网 版权所有}