str = Mid(str, 1, Length) '获得第n行的内容 Length = InStr(str, "-") - 1 '返回"-"分隔符的位置 str3 = Mid(str, 1, Length) '保存等待匹配的内容 If str3 = Text2.Text Then Length = Length + 4 str = Mid(str, Length + 1)Text3.Text = Mid(str, 1, InStr(str, ...
直接双击Text1，在Text1_Change里加入一行Text2.Text = Text1.Text就行了
意思就是以字符串的方式获取网页(地址为text1.text中的值)的源码，源码返回到text2.text中 其中：icstring为获取源码的方式。有icstring=0 和icbytearray=1 两种方式 icbytearray为字节数组的方式获取源码，下载文件是可用该方式。但注意保存成文件时想对应，应该用 binary 写文件 ...
楼上几个哥们输入0的方式用循环太复杂了 用string函数就可以实现了 Private Sub Command1_Click()Text2.Text = String(Val(Text1.Text),"0")End Sub 而你另一个提问的问题用replace函数 Private Sub Command1_Click()Text2.Text = Replace(Text1.Text,"","0")End Sub Replace(expression,find...
text4.text = 5 text3.text = text1.text / text2.text if text3.text = text4.text then text3.text = text4.text if text3.text > text4.text then text2.text = text4.text - text3.text text3.text = text4.text
private sub command1_click()if left(text1.text,1)="0" then text2.text=right(text1.text,len(text1.text)-1)else text2.text=text1.text end if
vb text1.text和text2.text里没有文字 if text1.text="" and text2.text="" then x=msgbox("请输入正确的账号和密码",vbInformation, "提示")end if vb text1.text或text2.text里没有文字 if text1.text="" or text2.text="" then x=msgbox("请输入正确的账号和密码",vbInformation, ...
（2）写操作 将数据写入磁盘文件所用的命令是：Write# 或Print#。语法格式：1） Print #文件号，[输出列表]例： Open “D:\SJ\TEST.DAT” For Output As #1 Print #1,Text1.Text '把文本框的内容一次性写入文件 Close #1 2）Write #文件号，[输出列表]其中的输出列表一般指用逗号，分隔的...
双精度的英文有误，应为double 另外，a=text1.text最好改成a=val(text1.text)还有在VB中最好在对变量进行强制声明.在通用中输入option explicit b=text2.text同样改写成b=val(text2.text)因为text2.text为文本类型，把它改写成数值再赋值更好。val将字符型数据转换为数值型数据。
Text2.Text = "优秀" Case Is > 80 Text2.Text = "良好" Case Is > 70 Text2.Text = "中等" Case Is > 60 Text2.Text = "及格" Case Else Text2.Text = "不及格" ___ End Sub 3、飞机票的标准价格是1000元/张,1月或3-6月 ,每张打6折。9-11月每张打7折,7,8两个月每张打8折。其...