Visual Basic

目录

一，Visual Basic

二，控制台程序

三，可视化程序

1，IDE

2，实例——加法计算器

---

一，Visual Basic

Visual Basic是可视化的Basic，简称VB

VB是第一个可视化编程语言。

二，控制台程序

用visual studio可以创建VB的控制台工程，先填一个Hello world：

Module Module1

    Sub Main(args As String())
        Console.WriteLine("Hello, world!")
    End Sub

End Module

VB的控制台程序员也可以打断点、单步调试。

以atcoder的Contest 229的A - First Grid为例：

Problem Statement

We have a grid with 22 horizontal rows and 22 vertical columns.
Each of the squares is black or white, and there are at least 22 black squares.
The colors of the squares are given to you as strings S_1S1​ and S_2S2​, as follows.

• If the j-th character of Si​ is #, the square at the i-th row from the top and j-th column from the left is black.
• If the j-th character of Si​ is ., the square at the i-th row from the top and j-th column from the left is white.

You can travel between two different black squares if and only if they share a side.
Determine whether it is possible to travel from every black square to every black square (directly or indirectly) by only passing black squares.

Constraints

• Each of S1​ and S2​ is a string with two characters consisting of # and ..
• S1​ and S2​ have two or more #s in total.

---

Input

Input is given from Standard Input in the following format:

S1​
S2​

Output

If it is possible to travel from every black square to every black square, print Yes; otherwise, print No.

---

Sample Input 1 

##
.#

Sample Output 1 

Yes

It is possible to directly travel between the top-left and top-right black squares and between top-right and bottom-right squares.
These two moves enable us to travel from every black square to every black square, so the answer is Yes.

---

Sample Input 2 

.#
#.

Sample Output 2 

No

It is impossible to travel between the top-right and bottom-left black squares, so the answer is No.

首先用C++水一下：

#include <iostream>
#include <string>

using namespace std;

int main()
{
  string s1,s2;
  cin>>s1>>s2;
  if(s1=="#."&&s2==".#")cout<<"No";
  else if(s2=="#."&&s1==".#")cout<<"No";
  else cout<<"Yes";
  return 0;
}

然后用Visual Basic来写：

Imports System.IO

Module Module1

    Sub Main(args As String())
        Dim s1 As String
        Dim s2 As String
        s1 = Console.ReadLine()
        s2 = Console.ReadLine()
        If s1 = ("#.") And s2 = (".#") Then
            Console.WriteLine("No")
        ElseIf s2 = ("#.") And s1 = (".#") Then
            Console.WriteLine("No")
        Else
            Console.WriteLine("Yes")
        End If

    End Sub

End Module

这个代码可以AC

三，可视化程序

1，IDE

visual studio也可以做VB的可视化程序，但是我没看明白咋用。

我记得高中用的应该也是visual basic 6.0，所以在继续用这个IDE

 资源分享汇总

新建工程会有个默认窗口

左边是常用控件，如DirListBox，直接放一个在窗口里运行就可以访问本地文件，非常方便。

2，实例——加法计算器

首先放控件，3个文本框，1个按钮

 然后双击按钮，自动创建函数Check1_Click，填补函数

Option Explicit

Private Sub Check1_Click()
Text3.Text = CSng(Text1.Text) + CSng(Text2.Text)
End Sub

运行即可