VB复习代码.docxVIP

超市打折Private Sub Command1_Click() Dim m As Single Dim n As Single Dim i As Single m = Val(Text1.Text) “或者用 m = Val(InputBox(请输入打折前的款, 超市打折)) Select Case m Case Is 250 n = 0 Case Is 500 n = 0.05 Case Is 1000 n = 0.075 Case Is 2000 n = 0.1 Case Is = 200 n = 0.15 End Select Text2.Text = Str(n) Text3.Text = Str(fac(m, n))End SubPrivate Function fac(i As Single, j As Single) fac = i * (1 - j)End Function子程序的阶乘与累加Private Sub Command1_Click() Dim m As Integer m = Val(InputBox(请输入数据, 提示信息)) Text1.Text = Str(qiuhe(m))End SubPrivate Function qiuhe(i As Integer) Dim k As Integer qiuhe = 0 For k = 1 To i qiuhe = qiuhe + k Next kEnd FunctionPrivate Sub Command2_Click() Dim m As Integer m = Val(InputBox(请输入数据, 提示信息)) Text2.Text = Str(jiecheng(m))End SubPrivate Function jiecheng(i As Integer) Dim k As Integer jiecheng = 1 For k = 1 To i jiecheng = jiecheng * k Next kEnd Function九九乘法表Private Sub Form_Click() Dim i As Integer Dim j As Integer Print Tab(40); 九九乘法表 For i = 1 To 9 For j = 1 To i Print i X j = i * j, Next j Print Next iEnd Sub三角打印Private Sub Form_Click() Dim i As Integer Dim j As Integer n = InputBox(请输入打印的行数) For i = 1 To n For j = 1 To 2 * i - 1 Print Tab(20 - i + j); *; Next j Print Next i For i = n To 1 Step -1 For j = 1 To 2 * i - 1 Print Tab(20 - i + j); *; Next j Print Next iEnd Sub三角形面积计算Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single a = Text1.Text b = Text2.Text c = Text3.Text If a + b c And b + c a And c + a b Then Text4.Text = fac(a, b, c) Else MsgBox 输入的数据不是三角形，请重新输入！ End If End SubPrivate Function fac(x As Single, y As Single, z As Single) Dim d As Single d = (1 / 2) * (x + y + z) fac = Sqr(d * (d - x) * (d - y) * (d - z))End FunctionPrivate Sub Command2_Click() EndEnd Sub简单打字Dim a(9) As StringPrivate Sub Command1_Click() Randomize For i = LBound(a) To UBound(a) a(i) = Chr(Int(Rnd * 26 + 65)) Text1.Text = Text1.Text a(i) Next iEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Text2_KeyPress(KeyAscii