VB编程程序代码[学习].pdfVIP

精品文档 ·可编辑版 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 S