Question

嘿，有人可以用一种简单的方式解释这个VB（Visual Basic）代码，每个人都能理解即使是最小到没有编码经验，但仍然解释每个部分，也是昏暗和开放的部分。谢谢！

Dim studentname As String
Dim intMsg As String
Private Sub Command1_Click()
‘To read the file
Text1.Text = ""
Dim variable1 As String
On Error GoTo file_error
Open "D:\Liew Folder\sample.txt" For Input As #1
Do
Input #1, variable1
Text1.Text = Text1.Text & variable1 & vbCrLf
Loop While Not EOF(1) Close #1

Answer 1

声明一个学生名称变量，我们将studentname称为字符串。可以像在代数方程中x和y一样考虑变量。它们只是特定类型的名称。在数学等式中，x和y是数字。字符串基本上是一系列字符，例如单词，数字或任何其他任意数据。 "Moo-Juice"是一个字符串，例如 - 由"个字符分隔。

将名为intMsg的消息声明为字符串。

子程序“Command1_Click”，当用户点击按钮（大概）Command1时调用。子例程是函数，您可以放置要重用的公共代码，也可以放置此类语言，以响应已发生的事件。 GUI应用程序中的事件有各种不同的风格，当用户单击按钮时会调用此类事件。其他人包括MouseMove，KeyUp，KeyDown。响应这些事件可让您的代码做事。

将Text1控件的Text属性设置为空字符串（清除它）。表单上的控件（文本框和按钮都是控件的示例）具有属性。 Text属性是文本框控件在文本框中存储您可以查看的内容的位置。控件通常具有一大堆属性。 Left表示表格在水平位置方面的位置。 Font指定要使用的字体等等。有许多不同的GUI系统，除了VB6之外，在.NET环境中还有Windows Forms和WPF（Windows Presentation Foundation）。在其他语言中，您可以考虑使用尽可能多的GUI系统。

将variable1声明为字符串。

在此子例程（Command1_Click）中，如果发生错误，请转到file_error标签，该标签似乎不在您的代码段中，因此我们可以假设它在循环之外更远。 GoTo完全按照它在锡上所说的那样 - 它跳转到指定的标签并继续执行。 On Error告诉visual basic如果发生错误该怎么做，在这种情况下它会说“如果出现问题就去那里”。

在读取模式下打开指定的文件，为其分配文件句柄#1以供将来参考。文件处理程序与变量一样，是一种识别我们想要执行某些操作的文件的方法。没有文件处理程序（在VB6中）如果我同时打开多个文件，系统如何知道我要写哪个文件？通过说“打开此文件，我将其称为#1”，我们可以告诉系统我们想要在任何特定时间点播放哪个文件。

开始循环。有许多循环结构，VB6（和一般的BASIC）的详细程度允许您查看您正在执行的循环类型。这是一个Do循环。它将执行至少一次，每次迭代都会检查最后的条件。如果该检查返回true，则循环停止。其他循环类型包括For（用于对步骤进行细粒度控制，以及迭代次数。其他语言允许更具表现力的布尔逻辑来确定for循环的确切生命周期），以及While类似于do，但检查是在顶部执行的，因此如果条件立即失败，它可能会运行零次。

从文件句柄#1读入一行到我们的字符串变量variable1。请记住，我们告诉它使用哪个文件句柄，因此系统知道从哪里读取数据。

将此附加到我们之前清空的文本框中，并带有回车符＆amp;换行。鉴于我们正在逐行阅读，我们在将文本放入文本框时保留了行结尾。追加意味着我们会保留那里的内容并添加。

继续这样做，直到我们到达文件的末尾。 EOF()函数接受文件句柄，并说明我们是否已达到* E * nd * O * f * * F * ILE。请记住，如果表达式为 true ，则循环结束。好吧，如果我们到达文件的末尾，EOF()会返回 true 。是时候停止阅读了，你不觉得吗？：）

关闭文件句柄。说够了！：）

总结

此代码段逐行读取文件，并将内容放入文本框中，保留行尾。

<强>问题

intMsg从未使用过。

两者都不是studentname

如前所述，您错过了file_error标签和子例程的结尾（End Sub）。

VB代码说明？

1 个答案: