66问答网
所有问题
当前搜索:
vb把数据读入数组
vb
中怎么
把读入
的
数据
放入
数组
中
答:
1、在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用"栏;选择Microsoft Excel 12.0 Object Library(EXCEL2007),然后选择"确定"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象:Dim xlApp As Excel.Application Dim xlBook As Excel.WorkBook Dim xlSheet As ...
vb
中怎么
将数据
文件
读入
到
数组
中
答:
如果需要
读入
不定个数,那就在程序中再加一句输入n的语句,或添加一text1,其中内容表示元素个数。private sub form_click()dim a(1 to 10000)as integer,n as integer n = inputbox("请输入
数组
元素个数","输入框")'n=val(text1.text)open "e:\
vb
program\input\0.txt"for input as 1 f...
vb
如何
读取
txt中的
数组
答:
Dim MyString, MyNumberOpen "TESTFILE" For Input As #1 ' 打开输入文件。Do While Not EOF(1) ' 循环至文件尾。 Input #1, MyString, MyNumber '
将数据读入
两个变量。 Debug.Print MyString, MyNumber ' 在立即窗口中显示数据。LoopClose #1 ' 关闭文件。
VB读
文件
将
其
读入数组
中
答:
如果需要
读入
不定个数,那就在程序中再加一句输入n的语句,或添加一text1,其中内容表示元素个数。private sub form_click()dim a(1 to 10000)as integer,n as integer n = inputbox("请输入
数组
元素个数","输入框")'n=val(text1.text)open "e:\
vb
program\input\0.txt"for input as 1 f...
vb
中怎么
将数据
文件
读入
到
数组
中
答:
如
数据
粘贴在c:\1.txt中 dim ins$,i%,data_ins(1000) as single ,temp_data() as single,new_data(1000,1000)为了保证
读取
全,定义大
数组
。也可前面先读一次获取行列数,然后按照读取的行列数定义数组(这里略掉)open "c:\1.txt" for input as #1 do until eof(1)line input #1,ins...
vb
从文件
读取数据
到
数组
答:
dim temp,mat(1 to 5,1 to 5)这一句的意思就是把变量 temp 定义成了字符串(string)型,把二维
数组
mat(1 to 5,1 to 5)定义成了字符串型.“Input #1, temp” 当然就是以字符串的形式取数了,你说的对,是字符串型的.“mat(i, j) = temp ”上面说了temp是一个字符串型,而且那个...
VB读
文件
将
其
读入数组
中
答:
Next i Close #1 End Sub Private Sub Command2_Click()Dim 满分人数 As Integer For i = 1 To 5 If 成绩(i) = 100 Then 满分人数 = 满分人数 + 1 Next i Text1 = 满分人数 End Sub Private Sub Form_Load()Command1.Caption = "
读入
成绩"Command2.Caption = "满分人数"End Sub ...
请问用怎样用
VB
编写一个程序,能从文本文件中
读取数据
到
数组
中
答:
Private Sub Command1_Click()Dim a(3)As Integer//定义一个
数组
Dim var1 Dim i As Integer Open "c:\data.txt"For Input As 1 Do While Not EOF(1)///开始循环 Line Input 1,var1 a(i)= var1 //赋值给数组 Debug.Print a(i)///显示数组之中的
数据
Print a(i)i = i + 1...
vb
如何把txt文档中的数
读入
到
数组
,文档中是每行有三个数,用逗号隔开...
答:
#1 '文件名自己改Do Until EOF(1) Input #1, n1, n2, n3 If n1 > 0 And n1 < 11 Then x(n1, 1) = n2 x(n1, 2) = n3 End IfLoopClose #1For n1 = 1 To 10 '这是输出
数组
的例子 Print x(n1, 1), x(n1, 2)NextEnd Sub ...
VB
编程
如何将
*.txt文件中的
数据读入
到
数组
?
答:
Public Function openfile(ByVal filepath As String) As String Dim s As String Open filepath For Input As #1 While Not EOF(1)Line Input #1, sline s = s & sline & vbCrLf Wend Close #1 openfile = s End Function 如果是按一行一行
读取
进
数组
你可以用 dim a a = split(open...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb把文本框数据读入数组中
vb中把数存入数组里
vb如何对数组里面的数据排序
vb数组去除重复数据
VB中怎么将一个数据存入数组
vb怎么将数组中重复的数去掉
vb二维数组赋值
vb中数组排序的方法
vb中数组内容怎么显示出来