Visual Basic ?? Visual Basic ????

1
Visual Basic ??Visual Basic ????

• ???????????
• ????

2
??? Visual Basic

• BASIC ??Beginners All-purpose Symbolic
  Instruction Code,????????????
• VB Visual Basic ,???? BASIC ????????(GUI
  Graph User Interface)??????(OOP Object-Oriented
  Programming)??
• VB ??? Windows ??????????????

3
?Server??VB
?? http//140.128.100.1183018
??????? ??????
4
?????????
VB ????
5
????????(Form)

• ???????????
• ???????????,??????????....??
• ????????????,??????????

6
???????
1. ???Activate?
3. ????
2. ?????
7
VB ????
????
??
???
Public A As Integer
??

• VB???????????????????????????????????
• VB?????,???????? FORTRAN ???????,????????
• VB??????????,??????????

Dim B As Integer
Sub Command1_Click() Dim C As Integer
CAB End Sub
??? ??
??
???
Sub ....
???
8
VB ?????????????

• ??Dim ??? As ????,??????????,?????????????(??????
  ???,????????)

9
(No Transcript)
10
(No Transcript)
11
VB ???????

• ?????
• -?????
• ?????
• /???????
• ?????(?Fortran ? )
• \???????(????????,????????????,??????)
• Mod?????(??5 Mod 2 ???? 1,????????,????????????,
  ??????)
• ???????(?? Hello World ???? Hello World

12
????????
???? ???
1 ?? (ab)
2 ?? ab
3 ?? a
4 ???? ab, a/b
5 ???? i\j
6 ?? a Mod b
7 ?? ab, a-b
?????,??????????
13
???????

• ????Print ??, ?? ????????????
• ????InputBox(??) ????????????,????????????
• ??xInputBox(Please input x)

14
??InputBox ? Print
15
??

• 1.1?????,? x2 5x 3 0 ????
• 1.2?????,?? 47.3\6.747.3 Mod 6.7 ??????(p.4-15
  ???)

16
???? IFTHENENDIF

• ???????????????????????,???? IF ????,??? Fortran
  ???

Fortran
VB
If(A gt B) Then Print AgtB ElseIf(AltB) Then
Print AltB Else Print AB Endif
If(A.GT.B) Then Write(,) AgtB Else
If(A.LT.B) Then Write(,) AltB Else
Write(,) AB Endif
17
??
18
??(??)???
VB????? ?? Fortran??
?? .EQ.
gt ?? .GT.
lt ?? .LT.
gt ???? .GE.
lt ???? .LE.
ltgt ??? .NE.
????????????,?????Boolean(True, False)
19
?????
???? ??? ???? ??
1 NOT ? ????,????
2 AND ? ???????
3 OR ? ?????????
4 XOR ?? ????????
5 EQU ?? ????????
6 IMP ?? ????,???????,???
?????????????? Boolean (True, False)
20
???
X Y Not X X AND Y X OR Y X XOR Y X EQV Y X IMP Y
T T F T T F T T
T F F F T T F F
F T T F T T F T
F F T F F F T T
A True
Q???Print (6gt5) XOR (7gt8)??????
21
??????

• ? Fortran ?? DOENDDO ????,VB???? ForNext
• ????????

VB ??
Fortran ??
SUM0 For I1 to 10 SUMSUMI Next I Print
I,SUM
ISUM0 Do I1,10 ISUMISUMI Enddo Write(,)
I,SUM
??11, 55
??????????
22
??

• 1.3 ?????,???????(???????)
• 1.4 ?????,?? ax2bxc0 ??,???????a, b
  ?????,???????(?N???????)