text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数,下面是全部代码Private Sub Command12_Click().我在此行用print 输出text1.text = 123.4a = Val(Text1.Text) .然后在此行print输出a

Text1.Text = Text1.Text + CStr(a(i)) + a(i) = Mid(Text1.Text,i, If Text1.Text = Then s_id = % Else s_id = Text1.Text End If,中的%是什么意思? VB中Text1.text=text1.text+CStr(a(i))+ If i=4 then text1.text=text1.text+chr(13)+chr(10)VB中Text1.text=text1.text+CStr(a(i))+ If i=4 then text1.text=text1.text+chr(13)+chr(10)中1, 2,chr(13)+chr(10)是不是ASCII的代码, text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数,下面是全部代码Private Sub Command12_Click().我在此行用print 输出text1.text = 123.4a = Val(Text1.Text) .然后在此行print输出a If text1.text then... Text1.Text 里面的. a = Mid(Text1.Text,i,1)表示什么啊? Private Sub Text1_Click() If Text1.Text = 请输入 Then Text1.Text = End Sub这条语句的作用是什么Private Sub Text1_Click()If Text1.Text = 请输入 Then Text1.Text = End Sub text1.text.enable=true 有什么作用啊? VB中, text1=1和text1.text=1有没有区别? 下列代码中为什么要写成 a=Val(Text1.Text),而不是直接写成 a=Text1.Text 还是不明白哪里出错了,可以帮我看看吗?Private Sub Command1_Click()Dim strsql As StringIf Text1.Text ThenAdodc1.Recordset.CloseIf Val(Text1.Text) > 0 Thenstrsql = select * from name where name=' & Trim(Text1.Text) & 'End IfAdodc1 vb中定义的d为双精度变量,设d=text1.text,text1.text里输入的是12.3625 为啥运行时d=36.2500, VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2.Text) = Len(Text2.Text) - 1 End If 缺缺标识符,不会回答别乱答.浪费时间 VB 条件语句＋限制文本框输入 条件语句问题：如果Text1.texe = A 则 text6.text = 10 '国文如果Text1.texe = A+ 则 text6.text = 12如果Text1.texe = B 则 text6.text = 14如果Text1.texe = C 则 text6.text = 16如 VB判断相关的问题思路是这样的,判断TEXT1.TEXT里的内容,当TEXT1.TEXT=111,则执行Timer1.Interval = 1000Timer1.Enabled = True当TEXT1.TEXT=222,则执行Timer2.Interval = 1000Timer2.Enabled = True当TEXT1.TEXT=333,则执行Timer3.Inter dim strsql as stringIf Text1.Text ThenAdodc1.Recordset.CloseIf Val(Text1.Text) 0 Thenstrsql = select * from name where name= & Trim(Text1.Text) 'Trim去掉前后空格Elsestrsql = select * from name where name=' & Trim(Text1.Text) & 'End IfA