为您找到"
vb中Text2.Text = Text2.Text & y(c + 1) & x(k - 1 + i)
"相关结果约100,000,000个
Text1.Text = ""Text2.Text = ""Open "G:\x.txt" For Input As #1 Do While Not EOF(1)Line Input #1, strs aa = aa + 1 If aa = 1 Then Text1.Text = Text1.Text + strs + ff If aa >= 3 Then Text2.Text = Text2.Text + strs + ff Loop Close #1 End Sub ...
dim strTmp as String strTmp=Text1.text Text1.text=Text2.text Text2.text=strTmp
回答:'本人写的代码只是提供一种思路并不完整,但可以实现 几几点几几 这种形式的转换,需要更全面的转换还得你自己研究修改代码,不好意思Public Sub change(k As Integer) If k = 1 Then Text2.Text = Text2.Text + "壹" If k = 2 Then Text2.Text = Text2.Text + "贰" If k = 3 ...
图2中的代码,表示当文本框1中输入字符时,文本框2中同步加入小写字母;文本框3中同步加入大写字母(非字母则不变)。
text2是一个文本框,text2.text指这个文本框中的文字。
能给你估计下了:1,从而造成变量C可能被赋值为大于10的数值、text1框中有a到F的字母、Val转化之后是单精度型的数,如果你的text中字符的长度小于是就是出错,建议在VAL前面价格CINT函数 2,这些字母会被认为是16进制的数一起被带入到程序中。3 再看看别人怎么说的。
有的话(比如是form2)就能直接在这个窗体里面处理了 private sub text2_keypress(keyascii as integer)if (text2.text= "43234")then '你可以用一个文件保存这个密码,然后读入到一个字符串变量 ‘psw中,再做比较:if(text2.text =psw )then form1.label1.visible=true form2.hide end if e...
&在VB中是字符串连接 '' "双引号括起来的是字符串 没有括的是变量 而num是一个integer变量,由于没有带双引号 因此不是直接取其地址引用这个字符串 而是作为变量 先对其求值 再引用 简单的来说 就是 字符串是通过地址引用的 而双引号括起来的"字符串" 就是一个直接的地址 变量也是一个地...
才做同步动作 Form2.text2.Text = Text1.Text '这儿直接用第二个窗体的名子来调用 Exit Sub End If Next End Sub 如果变动比较频繁,这个效率可能比较低,如果你能保证2个窗体都始终存在,那可以去掉判断 Private Sub Text1_Change()Form2.text2.Text = Text1.Text End Sub ...
val就是将字符串转为数值型,如果不用val转换,你的a+b这种表达式就会被系统理解为两个字符串的合并,比如text1输入2,text2输入2,那a+b结果就是22而不是你要的4 要进行测试的话,你可以再添加一个commandbutton按钮,双击它加入下面代码 Private Sub Command2_Click()MsgBox Text1 + Text2 MsgB...