《VB程序设计课堂例题总结.docVIP

《VB程序设计》课堂例题总结 消息对话框的使用 Private Sub Command1_Click() If Not IsNumeric(Text1) Then i% = MsgBox(你输入的不是数字!, 5 + vbQuestion, 警告) If i = 4 Then Text1.SetFocus Else End Else MsgBox 你好, , 欢迎 End If End Sub 求圆的周长与面积 Private Sub Form_Click() Dim r!, s!, c! Const pi = 3.14159 ‘用户声明常量 r = InputBox(请输入园的半径：) s = pi * r * r c = 2 * pi * r MsgBox 园的周长为： c 面积为： s End Sub 计算三角形的面积 Private Sub Command1_Click() Dim a%, b%, c%, s#, area# Dim str1$ a = Val(InputBox(a:)) b = Val(InputBox(b:)) c = Val(InputBox(c:)) s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) str1 = area= area MsgBox str1 Print str1 End Sub 字体的放大与缩小 随机放大1~3整数倍：Text1.FontSize = Text1.FontSize * Int(Rnd()*3+1) 缩小的比例为任意：Text1.FontSize = Text1.FontSize * Rnd() 连接与求和 Private Sub Command1_Click() Text3.Visible = True Text3.Text = Text1.Text Text2.Text 也可以用Text1.Text + Text2.Text Command1.Enabled = False End Sub Private Sub Command2_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub 字符串的替换 方法一：（多个函数） Private Sub Command1_Click() i = InStr(Text1, Text2) 在Text1中查找出现Text2内容的位置 k = i + Len(Text2) 定位右子串的起始位置 Ls = Left(Text1, i - 1) 取左子串 Text4 = Ls + Text3 + Mid(Text1, k) 左子串连接替换为子串连接右子串实现替换 也可以将上面两步合并为 Text4 = Left(Text1, i - 1) + Text3 + Mid(Text1, k) End Sub 方法二：（Replace函数） Private Sub Command2_Click() Text4 = Replace(Text1, Text2, Text3) End Sub 身份证的查找 Private Sub Command1_Click() Dim a As String, nl%, yue%, ri%, b%, xb$ a = Text1.Text nl = 2010 - Val(Mid(a, 7, 4)) nl = Year(Now()) - Val(Mid(a, 7, 4)) yue = Mid(a, 11, 2) ri = Mid(a, 13, 2) b = Val(Mid(a, 17, 1)) If b Mod 2 = 1 Then xb = GG Else xb = MM Label3.Caption = nl Label5.Caption = yue 月 ri 日 Label7.Caption = 你是 xb End Sub 电话号码升位：将原来任意一个带区号的7位电话号码升到8位，在最前面加8。如020-1234567 → 020区号及电话号码确定： Left(s,4) ”8” Right(s,7) 区号及电话号码不确定： Private Sub Command1_Click()