图表素材集上课讲义.pptVIP

PPT图表素材集 VB常用必背程序 VB常用必背程序 PAGE / NUMPAGES VB常用必背程序 1、求100以内的素数。 Private Sub Form_Click() Dim i%, j% For i = 2 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then Print i Next i End Sub 2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。 Private Sub Command1_Click() Dim a$, I%, c$, d$, n% a = InputBox$(输入字符串) n = Len(a) For I = 1 To Int(n \ 2) c = Mid(a, I, 1) Mid(a, I, 1) = Mid(a, n - I + 1, 1) Mid(a, n - I + 1, 1) = c Next I Print a End Sub 3、计算0~200之间所有能被11或5整除的数之和 Private Sub Form_Click() Dim n%, i% n = 0 For i = 1 To 200 If i Mod 11 = 0 Or i Mod 5 = 0 The