VB判断相关的问题思路是这样的,判断TEXT1.TEXT里的内容,当TEXT1.TEXT=111,则执行Timer1.I

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/04 05:48:30

VB判断相关的问题
思路是这样的,
判断TEXT1.TEXT里的内容,
当TEXT1.TEXT=111,则执行
Timer1.Interval = 1000
Timer1.Enabled = True
当TEXT1.TEXT=222,则执行
Timer2.Interval = 1000
Timer2.Enabled = True
当TEXT1.TEXT=333,则执行
Timer3.Interval = 1000
Timer3.Enabled = True
以此类推,无限的循环着使用,请问代码应该怎么写?

代码很容易啊：Private Sub Command1_Click()
If IsNumeric(Text1) = False Then Text1 = "": Text1.SetFocus: Exit Sub
Select Case CInt(Text1)
Case 111
Timer1.Interval = 1000: Timer1.Enabled = True
Case 222
Timer2.Interval = 1000: Timer2.Enabled = True
Case 333
Timer3.Interval = 1000: Timer3.Enabled = True
...
End Select
End Sub 但是你要无限循环,这不是直接死机了么...

VB判断相关的问题思路是这样的,判断TEXT1.TEXT里的内容,当TEXT1.TEXT=111,则执行Timer1.I vb中定义的d为双精度变量,设d=text1.text,text1.text里输入的是12.3625 为啥运行时d=36 VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.te 在VF中alltrim(thisform.text1.value)与thisform.text1.text是等价的吗? text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数 a(i) = Mid(Text1.Text,i, 在VB当中 1.Text1.Text = Text1.Text & x & "+" & y & "=( )" & Chr VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2. VB中data="&H" & 其中c=Text1.text,data也是一个已经定义好的变量, 在VB 语句中 x = Val(Text1.Text) Val VB代码问题“ Text1.Text="**"&cht(13)&chr(10)"****"是什么意思? VB中, text1=1和text1.text=1有没有区别?