《《VB程序设计》课堂例题总结》由会员分享，可在线阅读，更多相关《《VB程序设计》课堂例题总结（41页珍藏版）》请在金锄头文库上搜索。
1、1VB 程序设计课堂例题总结消息对话框的使用Private Sub Command1_Click()If Not IsNumeric(Text1) Theni% = MsgBox(你输入的不是数字!, 5 + vbQuestion, 警告)If i = 4 Then Text1.SetFocus Else EndElseMsgBox 你好 , , 欢迎End IfEnd Sub求圆的周长与面积Private Sub Form_Click()Dim r!, s!, c!Const pi = 3.14159 用户声明常量r = InputBox(请输入园的半径：)s = pi * r * rc =
2、 2 * pi * rMsgBox 园的周长为： & c & 面积为： & sEnd 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) / 2area = Sqr(s * (s - a) * (s - b) * (s - c)str1 = area= & areaMsgBox str1Print str1End Sub字体的放大与缩小随机放大 13
3、整数倍：Text1.FontSize = Text1.FontSize * Int(Rnd()*3+1)缩小的比例为任意：Text1.FontSize = Text1.FontSize * Rnd() 连接与求和Private Sub Command1_Click()Text3.Visible = True2Text3.Text = Text1.Text & Text2.Text 也可以用 Text1.Text + Text2.TextCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Text3.Text = Val(Text
4、1.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)En
5、d 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.Textnl = 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)
6、If b Mod 2 = 1 Then xb = GG Else xb = MMLabel3.Caption = nlLabel5.Caption = yue & 月 & ri & 日Label7.Caption = 你是 & xbEnd Sub电话号码升位：将原来任意一个带区号的 7 位电话号码升到 8 位，在最前面加 8。如 020-1234567 020-81234567区号及电话号码确定：Left(s,4) & ”8” & Right(s,7) 区号及电话号码不确定：Private Sub Command1_Click() Dim a As String3a = Text1.Textb
7、 = 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()Dim a!, b!, c!, x1!, x2!, y!a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)y = b 2 - 4 * a * cIf y 0 And H 0 And F Mod 2 = 0 And F = H * 2
8、 And F = A And Chr(Asc(s) + m) 0 And b 0 And c 0 And a + b c And _b + c a And a + c b ThenMsgBox 可以构成三角形If a = b And b = c Thens = s & ，是等边三角形ElseIf a = b Or a = c Or b = c Thens = s & ，等腰三角形ElseIf a 2 + b 2 = c 2 Or a 2 + c 2 = b 2 Or c 2 + b 2 = a 2 Then s = s & ,直角三角形End IfElseMsgBox 不可以构成三角形End
9、IfEnd Sub输入一个字符,判断该字符是字母字符、数字字符还是其它字符，并作相应的显示。方法一：Private Sub Command1_Click()Dim strc As String * 1strc = InputBox(请输入一个符号：)6If UCase(strc) = A And UCase(strc) = 0 And strc 0 ThenText4.Text = Str(sInput1 / sInput2)ElseMsgBox (分母为零,出错)Text3.Text = Text3.SetFocusEnd If7ElseMsgBox (运算符出错,再输入)Text2.Tex
10、t = Text2.SetFocusEnd IfEnd Sub方法二：Private Sub Command2_Click()Dim sInput1 As Single, sInput2 As SingleDim iError As IntegersInput1 = Val(Text1.Text)sInput2 = Val(Text3.Text)Select Case Trim(Text2)Case +Text4.Text = Str(sInput1 + sInput2)Case -Text4.Text = Str(sInput1 - sInput2)Case *Text4.Text = St
11、r(sInput1 * sInput2)Case /If sInput2 = 3 Then Unload Me 也可以用 EndEnd IfEnd SubPrivate Sub Text1_LostFocus()If Len(Text1) 0 ThenMsgBox y & “年” & m & “月有 29 天！”ElseMsgBox y & “年” & m & “月有 28 天！”End IfCase Else Magbox “输入错误，月份应该是 1-12 之间！”End Select End Sub求 1+2+3+100 的值方法一：Private Sub Command1_Click()
12、Dim i%, sum%sum = 0For i = 1 To 100sum = sum + iNext iPrint 1 100 的和是：; sumEnd Sub方法二：Private Sub Form_Click()Dim i%, sum%sum = 0i = 1Do While i -1Print markIf max = a And LCase(ch) = 0 And ch 0 ThenPrint y If y Mod 8 = 0 Then PrintEnd IfNext yEnd Sub回文字串：香莲碧水动风凉，水动风凉夏日长。长日夏凉风动水，凉风动水碧莲香。 Private Sub
13、 Command1_Click()Dim s$, n%, i%s = InputBox(请输入一个整数： )n = Len(s)For i = 1 To n / 2If Mid(s, i, 1) n / 2 Then Print s; 是回文数！ End Sub输入一个正整数，判断该数是否为素数。 （素数是指一个数只能被 1 和其本身整除。 ）Private Sub Command1_Click()Dim i%, n%, s$n = Val(InputBox(请输入一个正整数： )s = n & 是素数For i = 2 To n - 1If n Mod i = 0 Thens = n & 不
14、是素数Exit For14End IfNextPrint sEnd Sub随机产生 10 个 100200 之间的数，找出其中的最大值。Private Sub Command1_Click()Dim i%, a%, max%ClsRandomizea = Int(Rnd * 101) + 100 先产生一个数,作为最大值的初值max = aPrint aFor i = 2 To 10 紧跟着产生剩下的 9 个数a = Int(Rnd * 101) + 100Print aIf a max Then max = a拿新产生的数来与最大值作比较，若比最大值大，则取代其，作为新的最大值NextPri
15、nt 最大值为; maxEnd Sub计算 1！+2！+3！+.+10! 的值Dim sum#, i%, j%, n#sum = 0: n = 1For i = 1 To 10n = 1For j = 1 To in = n * jNext jsum = sum + nNext iPrint 1！+2！+3 ！+.+10!=; sum显示九九乘法表Private Sub Form_Click()Dim i%, j%ClsPrint * |;For i = 1 To 9Print ; i;NextPrintPrint -|-15For i = 1 To 9Print i; | ;For j = 1 To iPrint i * j;Next jPrintNext iEnd Sub打印如下图图案Private Sub Form_Click()Dim i%, j%ClsFor i = 1 To 9Print Space(11 - i);For j = 1 To 2 * i - 1Print *;
