a = Mid(Text1.Text,i,1)表示什么啊?

a(i) = Mid(Text1.Text,i, a = Mid(Text1.Text,i,1)表示什么啊? Text1.Text = Text1.Text + CStr(a(i)) + 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=text1&a(i)& 如何在VB 中使用datediff计算某开始日期到结束日期之间的月数,并均分到每年在text1中输入200803-200907kssj = Left(Me.Text1.Text,4) & - & Mid(Me.Text1.Text,5,2) '开始时间jssj = Mid(Me.Text1.Text,8,4) & - & Mid(Me.T 下列代码中为什么要写成 a=Val(Text1.Text),而不是直接写成 a=Text1.Text vb,我想要问的是我要在文本框输入一串英文句子,然后按单词分解到列表框中!该怎么办?我写了一段代码：Dim midd As StringFor i = 1 To Len(Text1.Text)If mid(Text1.Text,i,1) = ThenList1.AddItem cc = Elsec = c + vb编程:单词分解怎么编?Private Sub Command1_Click() Dim s As String,a() As String,i As Integer s = Text1.Text Call aword(s,a) List1.AddItem p End Sub Private Sub Command2_Click() Text1.Text = List1.Clear Text1.SetFocus End Sub Private Sub vb中这句话“If e = + Or - Or × Or ÷ ”为什么是错的啊?d = Len(Text1.Text) - 1e = Mid(Text1.Text,d,1)If e = + Or - Or × Or ÷ ThenText2.Text = 1ElseText2.Text = Text2.Text & 1End Ifdim d%,dim e as string If Text1.Text = Then s_id = % Else s_id = Text1.Text 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如 text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数,下面是全部代码Private Sub Command12_Click().我在此行用print 输出text1.text = 123.4a = Val(Text1.Text) .然后在此行print输出a VB程序当中,Mid(text1.Text, text1.SelStart + text1.SelLength + 1)什么意思?是mid函数格式不是mid（string , n ,m ) 不是从字符串第n个开始向右取m个字符吗?谢谢 VB 怎样定义A&B=C D&E=CPrivate Sub Form_Load()怎样定义A&B=C D&E=CEnd SubPrivate Sub Command1_Click() If Text1.Text & Text2.Text = C Then MsgBox XXX当在Text1.Text 输入A Text2.Text 输入B时 那么MSGBOX或当在Text1.Text 输入D Text2.Te If text1.text then... Text1.Text 里面的. Private Sub Text1_Click() If Text1.Text = 请输入 Then Text1.Text = End Sub这条语句的作用是什么Private Sub Text1_Click()If Text1.Text = 请输入 Then Text1.Text = End Sub