UC知道关于vb的一个高一问题
来源：百度知道 编辑：UC知道 时间：2024/05/24 10:35:48
假如我已经创建了一个文件“d:\apple.txt" ,里面的内容是 “苹果 apple 和 椅子 chair ”。如果我输入 苹果或者椅子，分别显示出它们的英文，程序应该怎么编写 。
请尽量用常用也较初级的语句（不要太专业）编写，在每一步旁注释*原因或作用*
请尽量用常用也较初级的语句（不要太专业）编写，在每一步旁注释*原因或作用*
Option Explicit
Private Sub Command1_Click()
Dim s, fn, m, n, i, j, x
s = Trim(Text1.Text)
fn = FreeFile() '取得文件号
Open "d:\apple.txt" For Input As fn '打开文件
Do While Not EOF(fn) '循环读取全部行
Line Input #fn, x '逐行读取文件内容
n = InStr(1, x, s) '查找关键字的位置
If n <> 0 Then '如果找到关键字
For i = (Len(s) + n) To Len(x)
m = Mid(x, i + 1, 1) '从关键字后面开始一个一个截取字符，判断是不是字母
If LCase(m) >= "a" And LCase(m) <= "z" Then '如果是字母，就
j = j & m '连接字符
Else
Exit For '如果不是字母就退出
End If
Next
MsgBox j '显示结果！
End If
Loop
Close #fn
End Sub
使用时注意你的文件的格式，如果格式变，则代码也要变！！
Option Explicit
'控件：text1 text2 command1 三个
'在text1里面输入中文
'在text2里面显示出英文
Private Sub Command1_Click()
Dim strDate As String '记录word.txt的内容
Dim strWord A