初中生也能学的编程，不走弯路，先用后学

https://m.toutiao.com/is/dt2Qw7y/?=初中生也能学的编程

(Visual Basic环境)

VB

如果你是初学编程，先用VB（Visual Basic）编个小程序，下载软件VB6.0，因为它好理解，易学，易懂，容易建立自信心。

安装完成VB6.0后，找到安装路径打开VB6.EXE，选择标准EXE：

简洁明了的窗体界面，右边是工程管理窗口，右边下方是属性窗口，可以通过视图显示。

你可以放一个“按钮控件”(commandbutton)和“文本框控件”(textbox)：

通过属性窗口设置基本信息，caption属性就是控件上要显示的内容：

“文本框控件”的属性窗口：

运行程序：

效果：

开始写代码，双击按钮进入程序代码窗口，写入代码时程序会有提示：

运行后，点击按钮：

你如果成功了，那么你就认识Visual Basic环境了。

C#

再来看一下Visual C#的环境，控件的数量、类型和用法有一些不同，Button控件和textbox控件基本相似：

双击“按钮”进入代码编辑区后，发现有程序自动生成的代码，先不用去理解类库和命名空间，直接“干饭”即可，这里面代码结束时要加分号，否则就会报错。

看看运行结果：

Visual Basic要比Visual C#简洁易懂，如果临时用选VB，如果长期发展选C#。

再来看一个实例，求圆和矩形的面积：

Visual Basic

首先，摆控件：

这里一共放了三类控件，label控件、commandbutton控件和textbox控件，可以实现不同功能：

控件简介：

label控件：能够显示静态文本信息。

commandbutton控件：触发编写的程序代码。

textbox控件：与用户交互，可以在文本框输入信息。

控件的属性设置：

这几类控件大同小异，都是通过属性窗口，可以对它们的位置、字体、大小、文本显示方式和显示内容进行设置，caption属性就是显示的文本内容信息。

控件布局设置：

在工具栏空白的位置右键选择窗体编辑器，工具栏上出现了设置布局的一些小图标，你可以利用这些图标对窗体上的各个控件进行布局的设计，可以同时选择多个控件，统一设定它们摆放的位置和对齐方式。

写代码：

双击“计算圆面积”按钮控件：

Dim r, pi, s是对变量进行定义，你可以不用定义变量的类型，让系统自动根据其值分配，字符型、数字型是常用的。

r = Text1.Text，把输入的圆的半径送到变量r中存储。

pi为计算圆面积的常数，可以直接进行赋值。

s = pi * r * r表示圆面积的计算。

Label6.Caption = '圆的面积是：' & s，是将结果显示，你还可以用textbox控件实现显示结果信息。

矩形面积：

在关闭按钮中添加代码“end”，实现的功能是关闭窗口：

运行效果：

输入圆的半径2.65后，点击“计算圆面积”按钮，在label控件显示了圆形面积的计算结果。

输入矩形的长和宽，点击“计算矩形面积”按钮，在label控件显示了矩形面积的计算结果。

美化：

将文本框的backcolor属性改颜色，再将label控件的backcolor属性改颜色，最后将窗体的caption属性改标题。

效果：

用Visual C#来实现：

设计界面布局，Visual C#的界面布局调整要比VB灵活得多，鼠标操作即可完成界面的设计。

属性窗口的设置：

分类灵活，便于你去找相应的属性位置：

代码：

Visual C#需要声明具体的变量类型，这里面用到了double类型，双精度型的。

每一语句结尾要加上“;”，否则就会报错。

文本数字的转换Convert.ToDouble(文本)，将输入到文本框中的文本转换成数字类型后才能参与计算。

label6.Text = '圆形的面积是：' + s，直接可以采用加号变量的写法，在VB中要用到“&”符号连接。

运行：

结束的代码：

Application.Exit()，点击结束程序。

菜单控件

Visual Basic环境下

添加一个新的窗体form2：

双击form2窗体图标：

选择工具中的菜单编辑器：

在标题栏写上“文件”：

继续如此添加:

单击“面积计算”子菜单，键入如下代码：Form1.Show

键入如下代码：Form1.Show

右键工程选属性，将启动对象设置为form2：

运行程序点击“面积计算”：

其实你还可以做一个带图标的程序菜单，利用API函数将图标添加到菜单上。

Visual C#环境下

添加一个新的窗体form2：

在左侧的工具箱内找到MenuStrip控件后，双击自动进入到窗体：

直接在窗体上进行菜单标题的输入和更改，完成后点击面积计算子菜单进入代码窗口，写入如下代码：

Form1 frm1 = new Form1()：将Form1窗体进行实例化，实例化为frm1，也就是给它起个正规名称，这样后面才能够识别它就是代表Form1窗体

frm1.Show ()：将实例化后的frm1进行显示，目的是显示Form1窗体

将启动的窗体改成Form2，怎么改，双击右侧窗口的Program.cs后，将Application.Run(new Form1())改成Application.Run(new Form2())就OK了：

改后：

运行点击“面积计算”：

弹出窗体：

再来看下面：

Visual Basic环境

打开窗体Form2后，从工具栏中打开菜单编辑器后，在文件下插入三个子菜单项，并为它们起个名字

插入后，回到窗体当我们点击文件菜单项时，可以看到弹出了三个子菜单项，这就是刚才我们新插入的子菜单项：

在写代码之前，你需要在窗体上放置一个“对话框控件”控件，实现打开文件：

如果工具栏上找不到这个控件，点击“工程”菜单下的“部件”选中下面的选项即可：

添加代码：

运行程序点击打开：

如果想过滤掉一些文件，只看某个类型的文件，可以加一行代码：

只显示txt文件：

Visual C#环境

在Visual C#环境下，同样在主菜单栏下插入三个子菜单：

加入对话框控件：

默认名是openFileDialog1：

加入代码，这里面用到了对话框的两个属性和一个方法，包括InitialDirectory、Filter属性和ShowDialog()方法：

用途：

InitialDirectory：设置初始路径

Filter：过滤文件类型

ShowDialog()：显示打开文件对话框

运行程序点击“打开”菜单

弹出相应对话框：

温馨提示

在Visual C#环境下，路径是用“\\”来表示的，这和VB有区别，而它的注释块和Visual Basic环境下也是不一样的，这里面注释块用了“//”，这些语句同样在程序代码中不予执

读数据：

Visual Basic环境

双击“打开”子菜单，加入代码：

运行程序，选择打开子菜单，并在弹出的对话框中，选择文本文件：

将文本框text2的几个属性修改一下

Scrollbars属性，该属性是滚动条的设置，你选择最后一项both让水平和垂直都出现滚动条：

Multiline属性，改为true，表示可以接受多行文本内容，为false表示不接受多行文本：

做好这两个属性的设置后运行：

程序代码解释

If cd1.FileName = '' Then：如果没有选择文件，也就是文件名为空

Exit Sub：如果没有选择文件，则退出程序

Else：如果选择了文件

Text2.Text = ''：text2文本框中的内容初始化为空

Text1.Text = cd1.FileName：text1文本框中的内容显示的是文件的路径

Open (cd1.FileName) For Input As #1：打开文件并读取内容

Do While Not EOF(1) ：通过While循环来读取文件内容，直到文件结束

Line Input #1, str1：按行进行读取，将读取的内容赋值到字符串变量str1

Text2.Text = Text2.Text & str1：将文本内容的多行数据连接到一行，显示到text2文本框中

Loop：结束本次循环，进入下一个循环

End If：结束本次条件

End Sub：程序结束

这里面用到了Do…While循环语句，关于该语句的具体用法也是比较简单的，当文件没有到结尾的时候，程序就执行循环中的语句，如果文本结束了，则退出循环，EOF(1)表示文件中的文本已经到结尾了，前面加个Not EOF(1)表示没有内容没有到结尾

那么，如何按照文本已经有的格式显示呢？

程序这样修改一下：
Text2.Text = Text2.Text & str1 & vbCrLf：加了换行功能

再运行程序，看一下效果，可以看到歌词内容是按照文本文件的原有格式进行显示的：

在Visual C#的环境下

要想读取外部文件信息内容，利用File类的OpenRead方法来实现:

双击“文件”菜单下的“打开”子菜单键入代码：

解释：

FileStream fs = File.OpenRead(openFileDialog1.FileName)：以只读方式打开文件并实例化对象

using (StreamReader sr = File.OpenText(openFileDialog1.FileName))：创建StreamReader对象

string s = ''：定义变量s，并赋初始值为空，作用是存放每次循环读取的行数据

string t = ''：定义变量t，并赋初始值为空，存放所有读取的行数据，并以一定格式存放

while ((s =sr.ReadLine ())!=null)：当读取文件内容不为空时，则继续循环

t = t + s + '\r\n'：变量t以一定格式存放文件内容，这里面'\r\n'为转义字符，表示换行存储

textBox1.Text = t：将变量t存放的字符显示在textBox1文本框控件中

运行程序：

打开后，则将文件内容输出到textBox1文本框中：

将信息写入到外部文件

将信息写入到打开的文件，这里面使用了StreamWriter类，看下面这段代码

using (StreamWriter file = new StreamWriter(openFileDialog1.FileName, true))：表示向文件里面追加内容

file.WriteLine(textBox1.Text)：实现文本框的内容，追加到文件当中最末行

运行程序：

点击“文件”菜单下的“打开”子菜单：

打开文件，发现最末一行已经追加了你想要追加的信息，而这个信息正是通过你输入到窗体界面文本框中的信息所添加的，这样就实现了已有文件的写入功能：