请教高手：VB编程：将1到10这十个数,按每个记录(每个记录为1行)2个数据的形式存入另一文件文件data1.txt。
来自： 更新日期：早些时候
求VB高手！！！！！帮忙解答一下，谢谢了！！！！！急用！！！！！！~
Open "data1.txt" For Output As #1
For i = 1 To 10 Step 2
Print #1, i, i + 1
Next
End Sub
请教高手：VB编程：将1到10这十个数,按每个记录(每个记录为1行)2个数据的形式存入另一文件文件data1.txt。视频
相关评论：13594156253：请教VB高手一句winsock的问题
宦明岚---发送第一个命令 dim buf(0) as byte ReDim buf(Len("GTTM，1，1，0 ")+2) As Byte buf(0)="G"buf(1)="T"buf(2)="T"...buf(11)=vblf Winsock1.SendData buf ---同样的发送第二个命令 还有我觉得发送命令里可能不应该带"，"号。如下：winsock1.senddate "GTTM110"+vbcrlf...
13594156253：VB初学者 请教基础问题!
宦明岚以输入方式打开选择的文件，起别名为1 do while not eof(1)eof是一个函数，用于判断打开的文件是否已经读完。这句话的意思是如果没有读完文件1，就继续执行 line input #1,inputdata 把文件1的一行读入inputdata变量中 text1.text=text1.text & inputdata & vbCrlf 把读到的行追加到text1.text中...
13594156253：编程问题请教高手
宦明岚综述：方案一适合初涉编程的朋友，它对学习者的要求不高，几乎每个人都可以在一个比较短的时间里学会vB编程，并用VB 做出自己的作品。对于那些把编程当做游戏的朋友来说，VB 是您最佳的选择。Basic\/Visual Basic简介 === 方案二 Pascal语言 & Delphi 优点 （1）Pascal语言结构严谨，可以很好地培养一...
13594156253：VB 编程P-R状态方程,出现“编译错误:要求常数表达式”,请教高手:
宦明岚a(T) As Single T必须为常数，而且必须写a(0 to 5)这样的格式 可以先：dim a() as Single, T as Single 在之后过程中 ：redim a(0 to T) 或 ReDim Preserve a(0 to T)前者之前的数据会被清除，后者则保留之前的数据，你这里两句话差别不大 而且你这里没有涉及到数组，如果是下标，...
13594156253：请教高手,用vb做计算器,那个等号的代码怎么写
宦明岚给你写了个例子，看看就OK了。可以把对应的加号换成其他运算符号。Private Sub Command1_Click()'在文本框 text1.text 中输入的格式需要是 X+Y 这中方式 Dim a As Double Dim b As Double a = Mid(Text1.Text, 1, InStr(Text1.Text, "+") - 1)b = Mid(Text1.Text, InStr(Text1....
13594156253：VB新手求教
宦明岚应该是先按X的值，查到它对应的Y值吧？然后把这个Y乘以3，按这个乘积再在Y值查找，找到后得到对应的X和Z吧？只是真的无法理解你说的“如数值表中Y值有24、27,而3*Y返回值可能是26”是怎么回事了。再谈下查表方法吧。你的描述中只说了X、Y的“查找”，如果X和Y的值域不是很大，可以创建一...
13594156253：请教一下高手,对下面这段VB语句给作一下解释,多谢了?
宦明岚'1.With的用法：对一个对象执行一系列的语句。 '这里就是指对“农电工档案”这个工作表对象。 '参考：http:\/\/doc.51windows.net\/vbscript\/?url=\/vbscript\/html\/vsstmwith.htm '2.Sheets是指工作表，workbooks是工作薄。 'Sheets(“sheetsname”) '3.这里就是说要对“农电工档案”这个...
13594156253：请教VB高手,急!急!急!
宦明岚枚举值可包含一个有限集合，该集合包含的元素都是唯一的整数，每一个整数都在它使用时的上下文当中有其特殊意义。枚举值为在已知数量的选项中做出选择提供了一种方便的方法，例如，black = 0，white = 1 等等。较好的编程作法是使用 Const 语句将每个枚举值定义成常数。在 Microsoft Visual Basic 6 中...
13594156253：请教vb高手们!!!看一下我的代码哪里错了!!!
宦明岚还有myrs.Open 的参数补全，在后面加上 adOpenStatic, adLockOptimistic 即：myrs.Open "select * from ywcj", mycon, adOpenStatic, adLockOptimistic 回答补充：你确定按我的方法改了吗？上面的两个参数加上了吗？（这两个参数很重要）这是修改后的代码，你再试试 Private Sub Command1_Click()Di...
13594156253：请教高手一个VB问题,把text的内容竖行显示。
宦明岚end sub private command1_click()dim i as integer dim tmpstr as string for i=1 to len(text1.text)if tmpstr="" then tmpstr=mid(text1.text,i,1)else tmpstr=tmpstr & vbcrlf & mid(text1.text,i,1)end if next i text1.text=tmpstr end sub 将代码复制过去试试吧，但重要...
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Open "c:\datal.txt" For Append As #1
For i = 1 To 10
Print #1, i, i * i * i
Next i
Close #1
End Sub
没有更多的题目细节了吗。那我猜你想得到的答案是这样的。
（9）一（8）＝（7）一（6）＝（5）一（4）＝（3）一（2）＝（1）一（0）
Open "data1.txt" For Output As #1
For i = 1 To 10 Step 2
Print #1, i, i + 1
Next
End Sub
请教高手：VB编程：将1到10这十个数,按每个记录(每个记录为1行)2个数据的形式存入另一文件文件data1.txt。视频
相关评论：
宦明岚---发送第一个命令 dim buf(0) as byte ReDim buf(Len("GTTM，1，1，0 ")+2) As Byte buf(0)="G"buf(1)="T"buf(2)="T"...buf(11)=vblf Winsock1.SendData buf ---同样的发送第二个命令 还有我觉得发送命令里可能不应该带"，"号。如下：winsock1.senddate "GTTM110"+vbcrlf...
宦明岚以输入方式打开选择的文件，起别名为1 do while not eof(1)eof是一个函数，用于判断打开的文件是否已经读完。这句话的意思是如果没有读完文件1，就继续执行 line input #1,inputdata 把文件1的一行读入inputdata变量中 text1.text=text1.text & inputdata & vbCrlf 把读到的行追加到text1.text中...
宦明岚综述：方案一适合初涉编程的朋友，它对学习者的要求不高，几乎每个人都可以在一个比较短的时间里学会vB编程，并用VB 做出自己的作品。对于那些把编程当做游戏的朋友来说，VB 是您最佳的选择。Basic\/Visual Basic简介 === 方案二 Pascal语言 & Delphi 优点 （1）Pascal语言结构严谨，可以很好地培养一...
宦明岚a(T) As Single T必须为常数，而且必须写a(0 to 5)这样的格式 可以先：dim a() as Single, T as Single 在之后过程中 ：redim a(0 to T) 或 ReDim Preserve a(0 to T)前者之前的数据会被清除，后者则保留之前的数据，你这里两句话差别不大 而且你这里没有涉及到数组，如果是下标，...
宦明岚给你写了个例子，看看就OK了。可以把对应的加号换成其他运算符号。Private Sub Command1_Click()'在文本框 text1.text 中输入的格式需要是 X+Y 这中方式 Dim a As Double Dim b As Double a = Mid(Text1.Text, 1, InStr(Text1.Text, "+") - 1)b = Mid(Text1.Text, InStr(Text1....
宦明岚应该是先按X的值，查到它对应的Y值吧？然后把这个Y乘以3，按这个乘积再在Y值查找，找到后得到对应的X和Z吧？只是真的无法理解你说的“如数值表中Y值有24、27,而3*Y返回值可能是26”是怎么回事了。再谈下查表方法吧。你的描述中只说了X、Y的“查找”，如果X和Y的值域不是很大，可以创建一...
宦明岚'1.With的用法：对一个对象执行一系列的语句。 '这里就是指对“农电工档案”这个工作表对象。 '参考：http:\/\/doc.51windows.net\/vbscript\/?url=\/vbscript\/html\/vsstmwith.htm '2.Sheets是指工作表，workbooks是工作薄。 'Sheets(“sheetsname”) '3.这里就是说要对“农电工档案”这个...
宦明岚枚举值可包含一个有限集合，该集合包含的元素都是唯一的整数，每一个整数都在它使用时的上下文当中有其特殊意义。枚举值为在已知数量的选项中做出选择提供了一种方便的方法，例如，black = 0，white = 1 等等。较好的编程作法是使用 Const 语句将每个枚举值定义成常数。在 Microsoft Visual Basic 6 中...
宦明岚还有myrs.Open 的参数补全，在后面加上 adOpenStatic, adLockOptimistic 即：myrs.Open "select * from ywcj", mycon, adOpenStatic, adLockOptimistic 回答补充：你确定按我的方法改了吗？上面的两个参数加上了吗？（这两个参数很重要）这是修改后的代码，你再试试 Private Sub Command1_Click()Di...
宦明岚end sub private command1_click()dim i as integer dim tmpstr as string for i=1 to len(text1.text)if tmpstr="" then tmpstr=mid(text1.text,i,1)else tmpstr=tmpstr & vbcrlf & mid(text1.text,i,1)end if next i text1.text=tmpstr end sub 将代码复制过去试试吧，但重要...
