009VBA原代码.docVIP

VBA01 Option Compare DataBase 通用声明 Private Sub cmd2_Click() Txt1.Value = End Sub Private Sub Form_Open(Cancel As Integer) Txt1.Value = ‘将文本框Txt1中的内容设为“空值” Txt1.FontSize = 24 ‘字体大小为“12” Txt1.FontItalic = True ‘字体为“斜体” Txt1.BackColor = vbWhite ‘背景色为“白色” Txt1.ForeColor = vbBlue ‘前景色为“蓝色” Cmd1.FontSize = 16 ‘将命令按钮Cmd1的字体大小设为“12” Cmd1.FontBold = True 　 ‘字体为“粗体” Cmd1.Caption = 显示内容 　‘将Cmd1的标题为“确定” cmd2.FontSize = 16 　　‘将命令按钮Cmd2的字体大小设为“16” cmd2.FontBold = True 　 ‘字体为“粗体” cmd2.Caption = 取消内容 ‘将Cmd1的标题为”“取消内容” Me.Caption = 程序设计之一 ‘窗体的标题设为“程序设计之一” Me.ScrollBars = 0 ‘滚动条设为“两者均无” Me.RecordSelectors = False ‘记录选定器设为“否” Me.NavigationButtons = False　　‘导航按钮设为“否” Me.DividingLines = False　　　　‘分割线设为“否” End Sub 模块1 Sub a() Dim n As Integer n = 1 While n = 5 Debug.Print n n = n + 1 Wend Debug.Print n End Sub 模块2 Private Sub b() Dim p As Single Dim r As Single Dim i As Single p = 12 r = 0.015 i = 0 While p 20 p = p * (1 + r) i = i + 1 Wend Debug.Print i; 年后,我国人口将达到; p; 亿 End Sub 模块3 Type ygtype no As Integer name As String * 12 sex As String * 1 birth As Date zhch As String * 8 End Type 模块4 Function jch(n As Long) As Long Dim i As Integer jch = 1 For i = 1 To n jch = jch * i Next i End Function VBA02 Private Sub Cmd1_Click() Dim i As Integer Dim p As Long Dim n As Integer n = InputBox(请输入自然数:, 输入提示, 7, 1250, 5000) p = 1 For i = 1 To n p = p * i Next i Txt1.Value = n 的阶乘是 p End Sub VBA03 Private Sub Cmd1_Click() Dim i As Integer Dim p As Long Dim n As Integer MsgBox 确实要求阶乘吗?, 4 + 48 + 0, MsgBox练习 n = InputBox(请输入自然数:, 输入提示, 7, 1250, 5000) p = 1 For i = 1 To n p = p * i Next i Txt1.Value = n 的阶乘是 p End Sub VBA04 Private Sub Cmd1_Click() Dim intA As Long Dim intB As Long Dim intC As Long Dim intT As Long intA = Txt1.Value intB = Txt2.Value intC = Txt3.Va