VB语言编程.doc

C+ 程序设计（c+基础） windows程序设计（看几遍能懂就行）深入浅出MFC（VC基础）windows核心编程（简单运算(计算)Dim opt As StringPrivate Sub Command1_Click()opt = +End SubPrivate Sub Command2_Click()opt = -End SubPrivate Sub Command3_Click()opt = *End SubPrivate Sub Command4_Click()opt = /End SubPrivate Sub Command5_Click()Dim a, b, result As Doublea = Text1.Textb = Text2.TextSelect Case optCase +result = Val(a) + Val(b)Case -result = Val(a) - Val(b)Case *result = Val(a) * Val(b)Case /result = Val(a) / Val(b)End SelectText3.Text = resultEnd Sub存放字符Private Sub Command1_Click()Dim ch As String * 1ch = InputBox(输入) If UCase(ch) = A And UCase(ch) = 0 And ch b ThenMsgBox a大于bElseIf b a ThenMsgBox b大于aElseIf b = a ThenMsgBox a等于bEnd IfEnd Sub字符串运算Private Sub Command1_Click()Dim a As Stringa = Text1.TextPrint 你在文本框中输入的是： & aEnd Sub常用内部函数im a As DoublePrivate Sub Command1_Click()a = Val(Text1.Text)MsgBox 函数值为： & Fix(a)End SubPrivate Sub Command2_Click()a = Val(Text1.Text)MsgBox 函数值为: & Abs(a)End SubPrivate Sub Command3_Click()a = Val(Text1.Text)MsgBox 函数值为: & Sgn(a)End SubPrivate Sub Command4_Click()a = Val(Text1.Text)MsgBox 函数值为： & Int(a)End SubPrivate Sub Command5_Click()a = Val(Text1.Text)MsgBox 函数值为: & Sqr(a)End SubLog Sin 等函数的运用Dim a As IntegerPrivate Sub Command1_Click()a = Val(Text1.Text)MsgBox 函数值为： & Log(a)End SubPrivate Sub Command2_Click()a = Val(Text1.Text)MsgBox 函数值为： & Sin(a)End SubPrivate Sub Command3_Click()a = Val(Text1.Text)MsgBox 函数值为： & Cos(a)End SubPrivate Sub Command4_Click()a = Val(Text1.Text)MsgBox 函数值为： & Tan(a)End SubPrivate Sub Command5_Click()a = Val(Text1.Text)MsgBox 函数值为： & Atn(a)End Sub删除空格 之类编程Dim s As StringPrivate Sub Command1_Click()s = Text1.TextMsgBox 函数值为: & Trim(s)End SubPrivate Sub Command2_Click()s = Text1.TextMsgBox 函数值为： & LTrim(s)End SubPrivate Sub Command3_Click()s = Text1.TextMsgBox 函数值为： & RTrim(s)End SubPrivate Sub Command4_Click()s = Text1.TextMsgBox 函数值为： & Left(s, 6)End SubPrivate Sub Command5_Click()s = Text1.TextMsgBox 函数值为： & Mid(s, 2, 6)End SubPrivate Sub Command6_Click()s = Text1.TextMsgBox 函数值为： & Right(s, 6)End Sub大小写转换Dim a As VariantPrivate Sub Command1_Click()a = Text1.TextMsgBox 长度为 & Len(a)End SubPrivate Sub Command2_Click()a = Val(Text1.Text)MsgBox 空格为 & Space(a)End SubPrivate Sub Command3_Click()a = Text1.TextMsgBox 大写 & UCase(a)End SubPrivate Sub Command4_Click()a = Text1.TextMsgBox 小写 & LCase(a)End SubPrivate Sub Command5_Click()a = Val(Text1.Text)MsgBox 字符 & Str(a)End Sub账号密码、Private Sub Form_Load()Text1.Text = Text1.MaxLength = 6Text2.Text = Text2.MaxLength = 4Text2.PasswordChar = *End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox 账号必须为数字, , 警告Text1.Text = Text1.SetFocus End IfEnd SubPrivate Sub commandl1_click()Dim i As IntegerIf Text2.Text Gong Theni = MsgBox(密码错误, 5 + vbExclamation, 警告)If i 4 Then EndElseText2.Text = Text2.SetFocusEnd IfEnd IfEnd Sub重复函数 pring 方法 Private Sub Form_Click()PrintFor i = 1 To 10Print Tab(i); String(10 - i, ); Spc(11); String(i, )Next iEnd Sub格式化Private Sub Form_Click()a = 12.2345b = 12Print a=; Format(a, 0.00); Print a= & Format(a, #.#) & Print a; +; b; =; a + bPrint a & + & b & = & a + bEnd Sub等级 优良Private Sub Command1_Click()Dim m As Integerm = InputBox(输入分数)If m = 90 ThenMsgBox 优, , 等级ElseIf m = 80 And m = 70 And m = 80 ThenMsgBox 中, , 等级ElseIf m = 60 ThenMsgBox 及格, , 等级ElseMsgBox 不及格, , 等级End IfEnd SubASCII对照Private Sub Picture1_Click()Dim a As Integer, i As IntegerPicture1.Print Tab(30); ASC对照表For a = 32 To 126Picture1.Print Tab(9 * i + 2); Chr(a); =; a;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext aEnd Sub乘法表Private Sub Form_Click()Dim s As StringPrint Tab(35); 乘法表Print Tab(35); -For i = 1 To 9For j = 1 To 9s = i & & j & = & i * jPrint Tab(j - 1) * 9 + 1); s;Next jPrintNext iEnd Sub计算人数Private Sub Form_Click()x = 13n = 0y: If x 26 Thenx = x * 1.008n = n + 1GoTo yEnd IfPrint 利用循环求得年数为; n; 人数为; xm = Log(2) / Log(1.008)If Int(m) m Then m = Int(m) + 1Print 对数求得; mEnd Sub判断素数Private Sub Command1_Click()Dim i%, m%m = Val(Text1)For i = 2 To m - 1If (m Mod i) = 0 Then GoTo notMNext iPicture1.Print m & 是素数notM: End SubPrivate Sub Command1_Click()Dim i%, m%, tag As Booleanm = Val(Text1)tag = TrueFor i = 2 To m - 1If (m Mod i) = 0 Then tag = FalseNext iIf tag Then Picture1.Print m & 是素数End Sub求平均成绩Private Sub Form_Click()Dim mark(1 To 100) As IntegerDim p!, n%, i%p = 0For i = 1 To 100mark(i) = InputBox(输入第 & i & 位学生的成绩)p = p + mark(i)Next ip = p / 100n = 0For i = 1 To 100If mark(i) p Then n = n + 1Next iPrint 平均分, p, 高于平均分人数, nEnd SubOption ExplicitDim i As String, j As String, zuo As StringPrivate Sub Command1_Click()i = InStr(Text1, Text2)zuo = Left(Text1, i - 1)j = i + Len(Text2)Text4 = zuo + Text3 + Mid(Text1, j)End SubPrivate Sub Command2_Click()Text4 = Re