一、VB輸入和輸出及基本函數(shù)

1、VB一、輸入和輸出一、輸入和輸出（一）、輸入：（Dim a As Integer Dim a%） 定義變量a的類型1. Private Sub Command1_Click() a = 6: b = 6a = 6: b = 6print aprint b End Sub 注意：同一行連續(xù)寫時(shí)，需要用“：”隔開。2. Private Sub Command1_Click() a = Val(text1.Text): b = Val(text2.Text)a = Val(text1.Text): b = Val(text2.Text) Print a; b End Sub3. Private Su

2、b Command1_Click() a = Val(InputBox(“ ) a = Val(InputBox(“ ) b = Val(InputBox(“ ) b = Val(InputBox(“ ) MsgBox (a): MsgBox (b) End Sub(二)、輸出：1. Private Sub Command1_Click() a = Val(InputBox() b = Val(InputBox() MsgBox (a): MsgBox (b)MsgBox (a): MsgBox (b) End Sub2. Private Sub Command1_Click() a = Va

3、l(Text1.Text): b = Val(Text2.Text) Text3.Text = a: Text4.Text = bText3.Text = a: Text4.Text = b End Sub 注意：在使用時(shí)一定要注意操作過程中是否拉了文本框控件。3. Private Sub Command1_Click() a = 9: b = 6 Print a, bPrint a, b End Sub注意:“，”代表同一行隔8個(gè)字符輸出 Private Sub Command1_Click() a = 6: b = 6print aprint aprint bprint b End Sub

4、“print a后沒有任何符號(hào)”代表換行輸出 Private Sub Command1_Click() a = Val(text1.Text): b = Val(text2.Text) Print a; bPrint a; b End Sub“；”代表同一行中緊挨著輸出二、基本函數(shù)二、基本函數(shù)1. c=sqr(a) 開方2. c=a mod 5 求余3. c=a5 求商4. c=len(a) 求文本中的字符數(shù) eg. Private Sub Command1_Click() a = Text1.Text c = Len(a) MsgBox (c) End Sub5. c=mid(a,2,3) 文本a中從左邊第二個(gè)字符開始截取后面三個(gè)字 符eg. Private Sub Command1_Click() a = Mid(Text1Text, 2, 3) MsgBox (a) End Su