文档介绍：word
word
1 / 27
word
 VB编程程序代码 
求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
从键盘输入任意长度的字符串，要求将字符顺序倒置
例如，将输入的“ABCDEFG〞变换成“GFEDCBA〞。
Private Sub mand1_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%
word
word
2 / 27
word
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整除但不能被100整除，或者能被400整除〕
Private Sub mand1_Click()
Dim y%
y = InputBox("请输入年数")
If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then
  MsgBox (y & "年是闰年")
Else
  MsgBox (y & "年是平年")
End If
End Sub
5、x,y,z 3个变量中存放了3个不同的数，比拟它们的大小并进展调整，使得x<y<z。
Private Sub mand1_Click()
Dim x!, y!, z!
x = InputBox("inputx")
y = InputBox("inputy")
z = InputBox("inputz")
Print "       x      y     z"
If x > y Then t = x: x = y: y = t
If x > z Then t = x: x = z: z = t
If y > z Then t = y: y = z: z = t
word
word
3 / 27
word
Print "排序后"; x; "  "; y; "   "; z
End Sub
求s=a+aa+aaa+...aaaaa〔n个a〕，其中a和n的值随机产生，a的围是[1,9]的整数，n的围是[5,10]。
如a=3,n=6,如此s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。
Private Sub Form_Click()
   Dim s!, t!, i!, a%, n%
   a = Int(Rnd * 9 + 1)
   n = Int(Rnd * 6 + 5)
   t = 0: s = 0
   Print "a="; a, "n="; n
   For i = 1 To n
       t = t * 10 + a
       s = s + t
       Print t;
   Next i
   Print
   Print "s="; s
 End Sub
7、计算100~300之间所有能被3和7整除的数之和。
Private Sub Form_Click()
For i = 100 To 300
If i Mod 21 = 0 Then
s = s + i
Print i;
End If
Next i
Print
Print "s="; s
End Sub
word
word
4 / 27
word
8、编程求200--400围5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，如此只能加一次。)
Private Sub mand