Study several DEMO
The first lecture should be basic grammar, but it seems too boring to speak seriously. Here are a few examples.
Dim YourName ' dimension the variable YourName = InputBox("Hello! What is your name?") ' ask for the user's name MsgBox "Hello " & YourName & " ! Pleased to meet you." ' display a greeting;
Dim is the keyword used to declare variables.
In English, the separator is a comment symbol, followed by the comment content.
InputBox() is a built-in function that pops up an input dialog box. The characters in brackets are the output content of the dialog box. At the same time, a text editing box is automatically generated below to input content. The input content will be assigned to the defined argument "YourName";
MsgBox is a built-in function. It doesn't matter whether you use parentheses or not. That's why VB is simple.
"&" is a connector used to connect strings. The parameter immediately following Msgbox is the first parameter, which will be displayed in the message dialog box in the future.
Dim SomeNumber SomeNumber = 999 SomeNumber = SomeNumber + 2 SomeNumber = SomeNumber + 999 MsgBox SomeNumber
First, a variable, Some Number, is defined. Before assignment, no one knows what type the variable is. This is the characteristic of VB: use it casually.
Until an integer 999. Some Number is assigned below, it becomes an integer. After calculation, somnumber becomes 2000; Output through the message dialog box.
Dim SomeNumber SomeNumber = 999 SomeNumber = SomeNumber + 2 SomeNumber = SomeNumber + 999 SomeNumber = "The shore of Wen River" MsgBox SomeNumber
At first, SomNumber is an integer, and then it becomes a string. Debugging will be troublesome in the future. Vbsctrip only supports one data type - Variant, and there is no need to specify variables and functions as some data type.
Dim YourName Dim Greeting YourName = InputBox("Hello! What is your name?") If YourName = "" Then Greeting = "OK. You don't want to tell me your name." Else Greeting = "Hello, " & YourName & ", great to meet you." End If
Here comes the judgment branch structure
// A do BLOCK IF XXX THEN SSSSS Else SSSSS END IF
Indentation is not necessary in VBS, but it is better for the readability of the program.
Dim Greeting Dim YourName Dim TryAgain Do TryAgain = "No" YourName = InputBox("Please enter your name:") If YourName = "" Then MsgBox "You must enter your name to continue." TryAgain = "Yes" Else Greeting = "Hello, " & YourName & ", great to meet you." End If Loop While TryAgain = "Yes" MsgBox Greeting
// A CODE BLOCK DO SSSS Loop While XXXX
SSSS is executed at least once. When XXX meets the conditions, SSSS will always be executed; There are many circular sentence structures about VBS. It's clear to see them in the reference book.
Dim Counter MsgBox "Let's count to ten. Ready?" For Counter = 1 to 10 MsgBox Counter Next MsgBox "Wasn't that fun?"
This example is also very simple, that is, the simple loop structure is the same as other grammars.
Dim Counter Dim WordLength Dim InputWord Dim WordBuilder InputWord = InputBox ("Type in a word of phrase to use") WordLength = Len(InputWord) 'Len() Built in function to find the string length For Counter = 1 to WordLength MsgBox Mid(InputWord, Counter, 1) WordBuilder = WordBuilder & Mid(InputWord, Counter, 1) Next MsgBox WordBuilder & " contains " & WordLength & " characters."
Mid(Words,m,n) built-in function to take the n characters starting from the m-th character in the string Words.
Dim PartingGreeting Dim VisitorName VisitorName = PromptUserName 'A function is called here. If VisitorName <> "" Then PartingGreeting = "Goodbye, " & VisitorName & ". Nice to have met you." Else PartingGreeting = "I'm glad to have met you, but I wish I knew your name." End If MsgBox PartingGreeting Function PromptUserName 'Definition of function Function start ' This Function prompts the user for their name. ' It incorporates various greetings depending on input by the user. Dim YourName Dim Greeting YourName = InputBox("Hello! What is your name?") If YourName = "" Then Greeting = "OK. You don't want to tell me your name." ElseIf YourName = "abc" Then Greeting = "That's not a real name." ElseIf YourName = "xxx" Then Greeting = "That's not a real name." Else Greeting = "Hello, " & YourName & ", great to meet you." If YourName = "Fred" Then Greeting = Greeting & " Nice to see you Fred." End If End If MsgBox Greeting PromptUserName = YourName End Function
In VBS, functions do not need to define input and output parameters, and the function name can be used as parameters. It's really eye opening.