原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Private Sub Form_ Command1_Click() Dim x as integer，y as integer x=12:y=32 call proc(x,y) Debug.Print x;y End Sub Public sub proc (n as integer ,byval m as integer ) n=n mod 10 m=m mod 10 End Sub Private Sub Form_Click() Dim x，y，z As Integer x＝5 y＝7 z＝0 Call P1(x，y，z) Print Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As integer) c＝a＋b End Sub Function m(x As Integer, y As Integer) As Integer m＝IIf(xy，x，y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a＝1 b＝2 MsgBox m(a，b) End Sub Private Sub Form_ Command1_Click() Dim s As Integer S=P(1)+P(2)+P(3)+P(4) Debug.Print S End Sub Pulic Function P(N AS Integer) Dim Sum as integer Sum=0 For i=1 to N Sum =Sum +i Next i P=Sum End Fuction Private Sub Form_Click() a＝1 For i＝1 To 3 Select Case i Case 1,3 a＝a＋1 Case 2,4 a＝a＋2 End Select Next i MsgBox a End Sub s＝0 For i＝1 To 10 Step 2 s＝s＋1 i＝i*2 Next I Msgbox i,s Private Sub Command1_Click() a＝0 For i＝1 To 2 For j＝1 To 4 If j Mod 20 Then a＝a＋1 End If a＝a＋1 Next j Next i MsgBox a End Sub Dim str1, str2 As String Dim i As Integer str1＝abcdef For i＝1 To Len(str1) Step 2 str2＝UCase(Mid(str1，i,1))＋str2 Next MsgBox str2 Private Sub Form_Click() Dim k As Integer，n As Integer, m As Integer n＝10：m＝1：k＝1 Do While k＝n m＝m*2 k＝k＋1 Loop MsgBox m End Sub Private Sub Form_Click() i＝0 Do Until 0 i＝i＋1 if i10 then Exit Do Loop Print i End Sub * 2 32 12 2 20 5 22 3 12 ECA 2^10 11 *
文档评论（0）