一、开发环境

语言环境：Microsoft.NET Framework 4.6 SDK
IDE：Microsoft Visual Studio Community 2015

二、代码及配置

1、Form1

Public Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'点击按钮后跳转到 Form2 窗体并且隐藏 Form1 窗体Form2.Show()Me.Hide()End Sub
End Class

窗体的背景、文字及图标等属性可以直接在右侧编辑区可视化配置，配置后效果如下图所示。

2、Form2

Public Class Form2Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load'给下拉框添加上值ComboBox1.Items.Add("001")ComboBox1.Items.Add("002")ComboBox1.Items.Add("003")ComboBox1.Items.Add("004")ComboBox1.Items.Add("005")End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click'定义一个变量用来存放（标记）下拉框所选择的内容Dim selectedNum As StringselectedNum = ComboBox1.Text'判断下拉框选择的内容是否是 Form1 窗体中文本框输入的三个学号之一，如果是则 PictureBox
中加载相应的照片If selectedNum = Form1.TextBox1.Text Or selectedNum = Form1.TextBox2.Text Or selectedNum = 
Form1.TextBox3.Text ThenPictureBox1.Image = Image.FromFile("C:\Users\xxx\Desktop\vb\projects\" & 
selectedNum & ".jpg")End If'判断下拉框选择的内容是否不是 Form1 窗体中文本框输入的三个学号之一，成立则弹出
MsgBox 提示If selectedNum <> Form1.TextBox1.Text And selectedNum <> Form1.TextBox2.Text And 
selectedNum <> Form1.TextBox3.Text ThenPictureBox1.Image = Image.FromFile("C:\Users\xxx\Desktop\vb
\projects\none.jpg")MsgBox("找不到这个同学的照片，请重新选择！", vbOKOnly, "友情提示！")End IfEnd Sub
End Class

窗体的背景、文字及图标等属性可以直接在右侧编辑区可视化配置，配置后效果如下图所示。

三、小结

通过 Microsoft Visual Studio 开发的程序编译后由于其属于微软的生态体系中，可以简单的直接在 widows 上运行。vb 由于其面向对象性，语句语法也较好理解并使用，而半可视化的编程也使得开发的难度降低。之前未接触过 vb，但是由于其具有类似 Java 的面向对象性，学习理解起来也就较容易。而其前端的配置，例如背景图标文字等，跟 web 的 css 在设计上有相同的思想