在text1.selstart文本框中输入距离s米、Text2文本框中输入时间t秒, 计算小车速度，判断车速是否超过22米/秒(约80公里

来源：蜘蛛抓取(WebSpider) 时间：2012-06-09 13:14 标签： text1.selstart
第12课 求解一元二次方程_图文_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
第12课 求解一元二次方程
上传于||文档简介
&&浙​教​版​《​算​法​与​程​序​设​计​》​课​件​!
大小：473.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢VB高手帮忙：在文本框中输入小时，分，秒，计算共几秒。怎么输入代码啊？？？_百度知道
VB高手帮忙：在文本框中输入小时，分，秒，计算共几秒。怎么输入代码啊？？？
'刚写的代码虽然我是学Delphi的,VB也稍微知道点,希望对楼主有用'新建三个文本框,分别用来输入时分秒,(name)属性就用默认'新建一个结果标签Label,属性全部默认'再新建一个按钮,属性全部默认Private Sub Command1_Click()If (Val(Text1.Text) & 穿憨扁窖壮忌憋媳铂颅0 And Val(Text1.Text) & 24) And (Val(Text2.Text) & 0 And Val(Text2.Text) & 60) And (Val(Text3.Text) & 0 And Val(Text3.Text) & 60) Then
Label1.Caption = Val(Text1.Text) * 60 * 60 + Val(Text2.Text) * 60 + Val(Text3.Text)Else
MsgBox &请检查输入是否有误&, 16, &错误&End IfEnd SubPrivate Sub Form_Load()Text1.Text = &&Text2.Text = &&Text3.Text = &&Label1.Caption = &&End Sub
其他类似问题
为您推荐：
其他3条回答
Dim h As IntegerDim m As IntegerDim s As Int穿憨扁窖壮忌憋媳铂颅egerh = Val(Text1.Text)m = Val(Text2.Text)s = Val(Text3.Text)If h &= 23 And h &= 0 And m &= 60 And m &= 0 And s &= 60 And s &= 0 ThenPrint (&总共的秒数为：& & h * 3600 + m * 60 + s)ElsePrint (&日期格式非法&)End If
在文本框离开事件中判断是否在限制范围内，如果不是则提醒。再按楼上的算法算就OK了
一个时间怎么计算呢？如果有时间段，你可以先得用运算得到多长时间，小时*3600+分钟*60+秒就等于你想要的了
高手帮忙的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁2011年1月选修1《算法与程序设计》模块上机题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
2011年1月选修1《算法与程序设计》模块上机题
上传于||文档简介
&&福​建​省01​年月​选​修《​算​法​与​程​序​设​计​》​模​块​上​机​题​.​d​o​c
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩12页未读，继续阅读
你可能喜欢程序的功能是：在文本框Text1中输入一行字符串，单击“计算”按钮，统计Text1中小写字母的个数并在Text2中_百度知道
程序的功能是：在文本框Text1中输入一行字符串，单击“计算”按钮，统计Text1中小写字母的个数并在Text2中
& &quot.DAT&quot.Path & &\行小写字母的个数为：&&quot.Text)
Text2;PROGOUT;*********end*********End FunctionPrivate Sub Command1_Click()
d = Fun(Text1;********begin********'第&小写字母的个数为：& & i & &quot.DAT&&quot, s
Print #2, & For Output As #2
For i = 1 To 5
Input #1.Text = &PROGIN; & &\ & Fun(s)
Close #2End SubFunction Fun(s As String)&#39Option Base 1Sub SaveData()
Dim s As String
Open A For Input As #1
Open App.Path & &quot
提问者采纳
i,1)&lt,i;96 and mid(s,1)&gtfor i =1 to len(s)if mid(s;123 then
For i = 1 To Len(s)If Asc(Mid(s, i, 1)) & 96 And Asc(Mid(s, i, 1)) & 123 ThenFun = Fun + 1End IfNext呵呵 这才是正确答案！那也谢谢啦！
提问者评价
其他类似问题
为您推荐：
小写字母的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Vb编程题中：通过文本框输入一个整数x, 判断x能否被2整除，判断结果在标签中显示。怎么用标签显示_百度知道
Vb编程题中：通过文本框输入一个整数x, 判断x能否被2整除，判断结果在标签中显示。怎么用标签显示
通过文本框输入一个整数x。怎么用标签显示Vb编程题中,判断x能否被2整除，判断结果在标签中显示
输入错误&quot.Click
Dim num As Integer
num = CInt(TextBox1.Text = &quot.Text = &quot.Text = &quot.Text)
Label1.Text = ex.O 0 And num Mod 2 = 1 Then
ElseIf num &gt.EventArgs) Handles Button1;偶数&quot, ByVal e As S 0 And num Mod 2 = 0 Then
Label1Private Sub Button1_Click(ByVal sender As S奇数&
Catch ex As Exception
其他类似问题
为您推荐：
整除的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 text1.selstart 的文章

 

随机推荐