Question

vb如何获得TEXT中的内容

Private Sub Command1_Click()
Dim hello As Variant
upbound = InputBox("enter avalue", "number", "")
lowbound = InputBox("enter avalue", "number", "4")
upbound = Val(upbound)
lowbound = Val(lowbound)
ReDim hello(1 To upbound, 1 To lowbound)
hello(1, 1) = zhangdegong
hello(1, 2) = man
hello(1, 3) = 24
hello(1, 4) = university
hello(1, 5) = hebei
hello(2, 1) = lidesheng
hello(2, 2) = man
hello(2, 3) = 30
hello(2, 4) = university
hello(2, 5) = beijin
hello(3, 1) = wanli
hello(3, 2) = woman
hello(3, 3) = 25
hello(3, 4) = "graduate student"
hello(3, 5) = hebei
If Text1.Text = zhangdegong Then
Text2.Text = hello(1, 1)
Text3.Text = hello(1, 2)
Text4.Text = hello(1, 3)
Text5.Text = hello(1, 4)
Else
If Text1.Text = lidesheng Then
Text2.Text = hello(2, 1)
Text3.Text = hello(2, 2)
Text4.Text = hello(2, 3)
Text5.Text = hello(2, 4)
Else
If Text1.Text = wanli Then
Text2.Text = hello(3, 1)
Text3.Text = hello(3, 2)
Text4.Text = hello(3, 3)
Text5.Text = hello(3, 4)
Else
msg1& = "no this man"
msg2& = "nis man"
r = MsgBox(msg1&, 34, msg2&)
Print r
End Sub
编译不通过,怎么办?
帮忙改下可以不?ZHRX?

Answer 1

文件的读写

1. 文件的有关概念

记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。

文件：记录的集合，相当于一张表。

文件类型：顺序文件、随机文件、二进制文件。

访问模式：计算机访问文件的方式，VB中有顺序、随机、二进制三种访问模式。

2. 顺序访问模式

顺序访问模式的规则最简单，指读出或写入时，从第一条记录“顺序”地读到最后一条记录，不可以跳跃式访问。该模式专门用于处理文本文件，每一行文本相当于一条记录，每条记录可长可短，记录与记录之间用“换行符”来分隔。

顺序文件的写入步骤：打开、写入、关闭； 读出步骤：打开、读出、关闭。

（1）打开文件

打开文件的命令是Open，格式为：

Open “文件名” For 模式 As [#] 文件号 [Len=记录长度]

说明：

1）文件名可以是字符串常量也可以是字符串变量

2）模式可以是下面之一：

OutPut：打开一个文件，将对该文件进行写操作

Input：打开一个文件，将对该文件进行读操作

Append：打开一个文件，将在该文件末尾追加记录

3） 文件号是一个介于1-511之间的整数，打开一个文件时需要指定一个文件号，这个文件号就代表该文件，直到文件关闭后这个号才可以被其他文件所使用。可以利用FreeFile（）函数获得下一个可以利用的文件号。

例： Open "D:\sj\aaa" For Output As #1

意思是：打开D:\SJ下aaa文件供写入数据，文件号为#1

（2）写操作

将数据写入磁盘文件所用的命令是：Write# 或Print#。语法格式：

1） Print #文件号，[输出列表]

例： Open “D:\SJ\TEST.DAT” For Output As #1

Print #1,Text1.Text '把文本框的内容一次性写入文件

Close #1

2）Write #文件号，[输出列表]

其中的输出列表一般指用逗号，分隔的数值或字符串表达式。Write #与Print #的功能基本相同，区别是Write #是以紧凑格式存放，在数据间插入逗号，并给字符串加上双引号。

（3） 关闭文件

结束各种读写操作后，必须将文件关闭，否则会造成数据丢失。关闭文件的命令是Close。

Close [#]文件号[，[#]文件号]……

例： Close #1，#2，#3

（4） 读操作

1） Input #文件号，变量列表

作用：将从文件中读出的数据分别赋给指定的变量。

注意：与Write #配套才可以准确地读出。

2）Line Input #文件号，字符串变量

用于从文件中读出一行数据，并将读出的数据赋给指定的字符串变量，读出的数据中不包含回车符和换行符，可与Print #配套用。

3）Input$（读取的字符数，#文件号）

该函数可以读取指定数目的字符。

与读文件有关的两个函数：

LOF（）：返回某文件的字节数

EOF（）：检查指针是否到达文件尾。

例：将一个文本文件读入文本框的三种方法。

3.随机访问模式

该模式要求文件中的每条记录的长度都是相同的，记录与记录之间不需要特殊的分隔符号。只要给出记录号，可以直接访问某一特定记录，其优点是存取速度快，更新容易。

（1） 打开与关闭

打开：Open “文件名” For Random As [#] 文件号 [Len=记录长度]

关闭：Close #文件号

注意：文件以随机方式打开后，可以同时进行写入和读出操作，但需要指明记录的长度，系统默认长度为128个字节。

（2）读与写

读操作：Get [#]文件号，[记录号]，变量名

说明：Get命令是从磁盘文件中将一条由记录号指定的记录内容读入记录变量中；记录号是大于1的整数，表示对第几条记录进行操作，如果忽略不写，则表示当前记录的下一条记录。

写操作：Put [#]文件号，[记录号]，变量名

说明：Put命令是将一个记录变量的内容，写入所打开的磁盘文件指定的记录位置；记录号是大于1的整数，表示写入的是第几条记录，如果忽略不写，则表示在当前记录后插入一条记录。

4. 二进制访问模式

打开：Open “文件名” For Binary As [#] 文件号 [Len=记录长度]

关闭：Close #文件号

该模式是最原始的文件类型，直接把二进制码存放在文件中，没有什么格式，以字节数来定位数据，允许程序按所需的任何方式组织和访问数据，也允许对文件中各字节数据进行存取和访问。

该模式与随机模式类似，其读写语句也是Get 和Put，区别是二进制模式的访问单位是字节，随机模式的访问单位是记录。在此模式中，可以把文件指针移到文件的任何地方，刚开始打开时，文件指针指向第一个字节，以后随文件处理命令的执行而一旦。文件一旦打开，就可以同时进行读写。

Answer 2

vb获得TEXT中的内容的方法：
1.Text = zhangdegong Then
1、Dim hello As Variant 定
2、IF语句必须清楚：
IF 条件 THEN
........
ELSE
........
END IF
3、hello(1, 1) = zhangdegong 。
4、 同样If Text1.Text = zhangdegong Then 中的zhangdegong。

Answer 3

你的程序中很多问题我不清楚，比如是变量？变量从那里来？zhangdegong 、 man 、university 、hebei 、lidesheng 、man 、university 、beijin 、wanli 、woman 、hebei等等到底是什么？ If Text1.Text = zhangdegong Then 等你准备是判断什么？因此无法为你修改！

问题很多：
1、Dim hello As Variant 定义了一个变量，但后面用的是数组：hello(1, 1)等等，这就不会通过；
2、IF语句必须清楚：
IF 条件 THEN 必须的！
........
ELSE 可有可无
........
END IF 必须的！
3、hello(1, 1) = zhangdegong 的赋值语句中，不知zhangdegong是不是变量，如果是变量是没有问题的，如果是字符串，就是问题。
4、 同样If Text1.Text = zhangdegong Then 中的zhangdegong是变量吗？但Text1.Text是一个具体的字符串内容，不会是变量的。
等等等等，你再仔细检查吧！

Answer 4

字符串要加引号(""),例如：Text1.Text = "zhangdegong",你的字符串都没加""

还有
If Text1.Text = "zhangdegong" Then
...
ElseIf Text1.Text = "lidesheng" Then
...
ElseIf Text1.Text = "wanli" Then
...
Else
...
End If

Answer 5

esle if 应该在一行,最后少了end if ,当然不会通过.