VB编程题代码43例.docVIP

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 Then n = n + i End If Next i Print n End Sub 4、输入一年份，判断它是否