提问者:钱哆哆f | 浏览次 | 提问时间:2017-02-05 | 回答数量:6
Private Sub Command1_Click() Dim a As Single, b As Single a = Val(Text1.Text) b = Val(Text2.Text) h = Val(Text3.Text) Text4.Text = (a + b) * h / 2End SubPrivate Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End SubPrivate Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text)End SubPrivate Sub Text1_Change() Text4.Text = \"\"End SubPrivate Sub Text2_Change() Text
moujun1
回答数:38 | 被采纳数:148
love沉默yi
回答数:130 | 被采纳数:137
≮迷彀≈
回答数:62 | 被采纳数:43
﹊寿寿寿寿司°
回答数:120 | 被采纳数:149
微凉灬染指°
回答数:200 | 被采纳数:120
李超皇帝
回答数:166 | 被采纳数:137
使用Windows系统要想永远不出问题,就好比我们希望自己出生以后永远不生病一样,几乎不可能做到。那么,要是万一哪天系统出故障了,我们该怎么解决呢。虽然,重装大法看似无所不能,但是...
有些用户反馈在使用Win10系统过程中,突然发现应用商店都不见了,同时一些应用也消失不见,如,“邮件和日历”,“人脉”,“音乐”,“照片”,反正应该是Windows 10自带的这些...
近日微软已经开始推送Win10一周年更新正式版,应为分批推送,可能有些朋友还没收收到推送,当然还有一些是别的原因引起的,不管是什么问题,如果你接收不到更新,那么可以使用下面的一方法...
很多用户在Win10系统中玩坦克世界这款游戏的时候发现输入法是一个大问题,不能选字没有输入框,很多用户只能摸石头过河,盲打,Win10自带的微软拼音、QQ拼音及搜狗都不行,那么哪个...