《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 → 座机电话号码 区号及电话号码确定： Left s,4 ”8” Right s,7 区号及电话号码不确定： Private Sub Command1_Click Dim a As String a Text1.Text b InStr a, - Label3.Caption Left a, b 8 Right a, 7 Label3.Caption Left a, b 8 mid a, b+1 End Sub 求一元二次方程的根 Private Sub Command1_Click