vb_经典例题.ppt

下载文档 降价啦

118
0
约3.61千字
约 19页
2017-12-21 发布于江西
举报
版权申诉
保障服务

vb_经典例题.ppt

1、本文档共19页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

vb_经典例题

第三节程序示例世界会向那些有目标和远见的人让路分析下列程序的输出结果 Dim i As Integer For i = 1 To 6 If i Mod 3 = 0 Then Print *; Else Print #; End If Next i Dim i As Integer, j As Integer For j = 1 To 5 For i = 1 To 6 If i Mod 3 = 0 Then Print *; Else Print #; End If Next i Print Next j 第三题 Private Sub Command1_Click() Dim m As Integer, n As Integer, k As Integer n = -3 For m = 6 To 1 Step n m = m + 1 n = n - m k = k + 1 Next m Print k; Print n End Sub 第四题 Private Sub Command1_Click() Dim s As String, i As Integer Const ch As String = 0123456789. s = 2L0A09U.0SI3V.24 For i = 1 To Len(s) If InStr(ch, Mid(s, i, 1)) = 0 Then st1 = Mid(s, i, 1) st1 Else st2 = st2 Mid(s, i, 1) End If Next i Print st1: Print st2 End Sub 第五题 Private Sub Form_click() Dim a As Integer, b As Integer a = 1: b = 0 Do While a = 5 b = a * a a = a + 1 Loop Print a, b End Sub 第六题 Private Sub Form_click() Dim ch As String, I As Integer ch = DEF For I = 1 To Len(ch) ch = Mid(ch, 2 * I - 1, 1) Left(ch, Len(ch)) Print ch Next I End Sub 第七题 Private Sub Form_click() Dim p As Integer, I As Integer p = 1 For I = 1 To 5 p = p + (2 * I - 1) / (2 * I + 1) If p = 20 Then Exit For Next I Print I, p End Sub 第八题 Private Sub Form_click() Dim p As Integer, I As Integer, n As Integer p = 2: n = 20 For I = 1 To n Step p p = p + 2 n = n - 3 I = I + 1 If p = 10 Then Exit For Next I Print I, p, n End Sub 程序填空：统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和第十题：统计字符串中“O”的个数 Private Sub Command1_Click() a = THERE IS A BOOK ON THE DESK m = (1) For i = 1 To m b = (2) If b = O Then (3) Next i Print nu