资源描述
1 打印有规律图形Private Sub Form_Click()For i = 1 To 9Print Tab(20i); String(2 *i1, Trim(Str(i)Next iPrint Tab(10); String(19, Right(Str(i), 1)End SubQ horml2223333344444445555555556666666666677777777777778888888888888889999999999999999900000000000000000002近似计算 pi 的值;Private Sub Commandl_Click() n = Te xtl pi = 2For i = 1 To n a = (2 *i) *(2 *i)/(2 *i1) *(2 *i+1) pi = pi * aNext iTe xt2 = piEnd Sub0 Forml3.显示图形Private Sub Picture l_Click()Dim se As StringFor i = 1 To 6s = 0Forj= 1 To is = 10 *s + jIf i Mod 2 =0Thense = &sPicture 1.Print TabQ *9 + 1); se;Else: se = sPicture 1 .Print Tab(j) *9 + 2); se;End IfNext jPicture 1.PrintNext iEnd SubPi3 002175954!3. Forml4.示水仙花数,三位数的Private Sub Form_Click()For s = 100 To 999a = s 100b = (s100 *a) 10c = s100*a10*bIf s = a *a *a 4- b *b *b + c *c *c ThenPrint sEnd IfNext sEnd Sub& Form!5.求 sn=a+aa+aaa+aaaa ( n 个 a)a 是 1 到 9 的随机数,n 是 5 到 10 的随机数Private Sub Comma nd l_Click()m = Int(Rnd *9 + 1)n = Int(Rnd *6 + 5)temp = 0s = 0For i = 1 To n temp = temp * 10 + m1T-12112123-1-12-123-1234112123123412345T-12-123-1234-12345-123456G?70nQ7s = s + tempNext iPrint sPrint mPrint nEnd SubQ. Forml6.规范文字句子开头大写,其他都小写,句子结束符号位“.,“!,“?,Option ExplicitPrivate Sub Commandl_Click()Dim T As String, i, S As String, zf As StringDim OutPut As StringTH Mzf = Trim(Textl .Text)For i = 1 To Len(zf)S = Mid(zf, i, 1)OutPut = OutPut &nf(InStr(”?.! ?。!“” “&Chr(34), T) 0, UCase(S), LCase(S)IfInStr(Chr(13) &Chr(10) &n n, S) = 0 Then T = SNextTextl.Te xt = OutPut8.641974E+0778End Sub原来的鬥Forml规范规范后的Forml规范
展开阅读全文